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Quasi-Linearization  Trajectory  Module  (GROPE) 
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A 


Q GROPE 


INTRODUCTION 


This  section  of  Volume  II  is  devoted  to  the  QL  module  of  PADS.  Execution 
of  this  module  is  initiated  when  and  if  subroutine  PADS1  caLls  subroutine 
GROPE.  Subroutine  GROPE  controls  the  high  level  logical  flow  of  the  QL 
module. 


The  purpose  of  the  module  is  to  determine  a trajectory  that  satisfies  the 
necessary  variational  conditions  for  optimal  performance.  As  is  shown  in 
Section  16  of  Volume  I,  the  QL  module  achieves  this  end  by  solving  a non- 
linear multi-point  boundary  value  problem.  The  numerical  method  employed, 
which  is  alternately  known  as  quasi-linearization  or  the  generalized  Newton- 
Raphson  operator,  is  described  in  Section  17  of  Volume  I.  It  is  an  iterative 
technique  that  converges  quadratically  when  it  does  converge. 


The  module  consists  of  three  basic  steps:  (1)  initialization,  (2)  iteration,  and 

(3)  culmination.  The  second  step  has  two  distinct  components:  (A)  integration 

of  the  particular  and  homogeneous  solutions,  and  (B)  satisfaction  of  the  bound- 
ary conditions.  Both  of  these  components  are  executed  for  each  iteration  in 
step  2. 


The  FORTRAN  names  of  the  primary  entry  points  to  these  steps  are: 


Step  1 
Step  2A 
Step  2B 
Step  3 


CHECK 
SALVE 
COHOMO 
WRA  PUP 


The  flow  chart  of  subroutine  GROPE  on  the  next  page  depicts  the  sequence  in 
which  these  steps  are  executed.  The  listing  of  GROPE  following  the  flow 
chart  is  a CDC- compatible  version.  As  a result,  the  transfers  to  the  above 


entry  points  appear  as  calls  to  OVERLAY.  The  correspondence  of  entry 


points  to  OVERLAY  calls  is: 


CHECK 

SALVE 

COHOMO 

WRAPUP 


CALL  OVERLAY  (6HH75021,  4,  1,  6HRECALL) 
CALL  OVERLAY  (6HH75022,  4,  2,  6HRECALL) 
CALL  OVERLAY  (6HH75023,  4,  3,  6HRECALL) 
CALL  OVERLAY  (6HH75024,  4,  4,  6HRECALL) 


c 
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] 
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!_ 
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COUNTER  : 

3PTVER  * 0 
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COUNT  E R* 
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PROGRAM  GROPE 


THIS  ROUTINE  CONTROLS  THE  OVERALL  FLOW  OF  THE  flL 
MODULE  OF  PADS 


REAL  MAG 
COMMON  /CNTRL/ 

*NU  , I TER  , 1 TAP A ,ITAPB  ,JMIN  ,JMAX  , LINES  ,KPT  ,MOM  , 

♦ KARO  ,INDX(H)  , NEUNOM,  CNT016.RHQC  ,RHOP  ,NPTS  .MINES  , 

♦ KPAGE  ,NNP  ,NUP  I ARC  , TRSTR  ,IMAX  , KTlftE  .KONVER, NOPfiNT 
♦1NBDRY,NUPAGE, IVARV( 20  ),  NN  NOVARY1  PLASt,  ZlAST,  KOOES 

LOGICAL  1NBDRY  NEWNOM,  KONVER,  NOPRNT , NUP AGE 

REAL  MAGBV,  MU,  M,  LV,'L6Aft,  LPSI,  LR,  LRHO,  LMU,  LM,  LTAU,  NOM 
dOMMON  /O/ 

♦X,  H,  X I ( H ) , MAGBV , ERR , 09,  010,  C( HO ) CSAVE4H01,  V,  SAM,  P5I, 
*ALT,RHO,MU,M,  TAU.  HT,  LV,  LGAM,  LPSI,  LR,  LRHO.  LMU.  LM.  LTAU. 
♦LHT,  0109,  0110,  BV(  HO  ),  ZSAVE(  20  >,  QT(20),  NPOlNTt  2u ),  6ELT(20) 
DIMENSION  NOM( 20  > 

EQUIVALENCE  (NOM,  V) 

COMMON  / PC/ 

♦PCI  ,N  . PC3  ,IOP  ,PC5  ,PCfc  ,PCT  MAXBC  ,NAUX 
COMMON  /Z/  Z($0> 

COMMON  /ZD/  ZD(50> 

COMMON  /Y/  V(  820) 

CGMMON/GlOBAL/ 

♦GR  ER  ,OMGZ  ,XLAMRF,YMURF  , LUM  , TO  , EPSlON, INNER  , 

*1 TRMAX  JJOPt 6 ) ,IFATAL,NARC  ,NBRAN  ,NFARC  , 10(H)  ,KTAB(20), 

♦ ITAB(20>,  S!G,MAXTAB,GM,PSIftF  , I PFlG l , I PFl62, I PFL63, I PFlGH , 

♦ TN£GFl(  20 ),  ItPSO,  KSOL.  INARK.KGLOBLU) 

COMMON  /BLOCK/  JlCdO,  20),  IICTdO,  20),  ITCdO,  20).  JTAB(20>, 

♦ ITCTdO.  20).  LTAB(20),  NOKNOW,  N0Ci20),  VALlCdO,  20), 

♦ VAlTC(  10,  20),  IPAY 
DIMENSION  CDIFF(HO),  PC<9) 

EQUIVALENCE  (PC,  PCI > 

DATA  6R0PEX  /6H&R0PE  / 

DATA  PC/6HGR0PE  , 18,  0,  8,  3^0,  HO,  5/ 

GET  READY  TO  ITERATE 
CALL  OYERLAY( bHH75021,H,  1,  6HRECALL  > 

INITIALIZE  QL  DIVERGENCE  COUNTER 


ID1VER  = 0 
DO  111  ITER 
CALL  ETIME 
KPAGE  = -1 


1,  1 TRMAX 


SET  POINTERS  TO  SCRATCH  FILES.  ITAPA  HAS  THE  PAR- 
TICULAR AND  HOMOGENEOUS  SOLUTIONS  FROM  THE  LAST 
ITERATION.  IT APB  WILL  CONTAIN  THE  SAME  INFO.  FROM 
THIS  ITERATION. 

1 F < MOD( ITER,  2)  NE.  I ) GO  TO  101 
ITAPA  =12 
IT APB  = H 
GO  TO  102 


6R0PE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

CNTRl 

CNTRl 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

D 

D 

D 

D 

JUL21 

D 

D 

0 

PC 

PC 

Z 

ZD 

V 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

BLOCK 

BLOCK 

block 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE 

GROPE  101- 

GROPE 

GROPE 

GROPE  102- 


53. 

101  ITAPA  = H 

GROPE  " 

5H. 

ITAPB  = 12 

GROPE 

102  REWINO  H 
REMIND  12 

00  103  I = 1,  NUP 

103  Y(I)  = 0. 

MOM  = 0 

SET  HOPES  TO  ZERO  50  THAT  NlORV  WILL  ZERO  OUT 
JACOB 

KODES  = 0 

INTEGRATE  PARTICULAR  AND  HOMOGENEOS  SOLUTIONS  OVER 
ALL  THE  SUBARCS. 

CALL  OVERLAY( 6HH75022,H,  2,  6HRECALL) 

DETERMINE  THE  VALUES  OF  THE  C^S  THAT  CAUSE  THE 
TARGET  CONDITION  MISSES  TO  BE  ZERO. 

CALL  OVERLAY! 6HH7&023,H,  3,  6HRECALL ) 

STORE  EAROR  METRIC  FROM  LAST  ITERATION 

RHOP  = RHOC 

COMPUTE  ERROR  METRIC  FOR  THIS  ITERATION 
RHOC  = MAG( C NOKNOW) 

PRINT  ERROR  METRIC 
WRITE! 6,  1)  RHOC 


6 OCT  72  6*.  0 1-HH 


*>  • 


1 FORHATUHO,  1 3HERR0R  HETRIC=.  El 9. 7 ); 

. ARE  WE  CONVERGED 
1 F( RHOC  - EPSLON)  108*  108/  109 

YES.  SET  QL  CONVERGENCE.  FLAG 


GROPE 

GROPE 

GROPE  108— »109- 

GROPE  i 


79. 

108 

KONVER  = .TRUE. 

GROPE 

80. 

GO  TO  112 

GROPE 

61. 

u„  C 

DID  WE  DIVERGE 

GROPE 

62. 

109 

1 PI RHOC  .LT.  RHOP)  GO  TO  110 

GROPE 

83. 

C 

YES.  INCREMENT  DIVERGENCE  FLAG 

GROPE 

89. 

IDJVER  r IOIVER  ♦ 1 

GROPE 

85. 

C 

HAVE  WE  ACCURULATED'  3 DIVERGENCES 

GROPE 

86. 

IFdDlVER  .EO.  3)  CALL  ERROR!  GROPE X -5 , 01 

GROPE 

87. 

60  TO  111 

GROPE 

88. 

_ c 

CONVERGING.  DECREMENT  DIVERGENCE  FLAG 

GROPE 

89. 

110 

IOIVER  = HAXOCO,  IOIVER  - 1)  . 

GROPE 

■ 90. 

111 

CONTINUE 

6R0PE  " 

91. 

c 

RUN  OUT  OF  ITERATIONS.  SHALL  WE  CALL  IT  CONVERGED 

GROPE 

92. 

c 

ANYWAY 

6R0PE 

93. 

IF! IOIVER  .ED.  0)  GO  TO  1111 

GROPE 

99. 

c 

NO.  LET  STEEP.  DESC.  GENERATE  A BETTER  STARTING 

GROPE 

95. 

c 

SOLUTION  IF  IT  WANTS  TO. 

6R0PE 

96. 

» 

CALL  EBBORI 6B0PEX , -3,  0) 

GROPE 

97. 

un 

KONVER  = .TRUE. 

GROPE  ’ 

98. 

c 

CONVERGED.  SAVE  CONVERGED  SOLUTION  AND  PRINT  IT 

GROPE 

99. 

c 

. OUT  IN  ALL  ITS  GLORY. 

GROPE 
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7&Z. 


C c 1 A forty  nord  array  containing  the  vector  of  e's,  /O  / ( 11)  BN0RV  I C 

l.e,  the  multipliers  for  the  homogeneous  BRANPT  1 C 

to  I ut I out . GROPE  I C 

INTRPT  1 C 
MEUC5  M C 
NLBRV  I C 
NONNAL  ) C 
URAPUP  I C 

EPSLOM  € 1 QL  Iteration  convergence  criterion.  /6L0BAL/<  8)  CHECK  It  EPSLON 

GROPE  J EPSLOM 

0 Nuaber  of  the  logical  unit  containing  the  quasltlae  / CNTRL  /<  3>  GROPE  0 ITAPA 

hlstorlet  of  the  particular  and  homogeneous  NOANAL  1 ITAPA 

solutions  from  the  preceding  QL  Iteration. 

0~  Wuober  of  “the  logical  unit  onto  mhlch  fhe  quasltlne  /CNTRL  /(  9 > ‘ISfilJPE  0 I T APB 

histories  of  the  particular  and.  homogeneous  SALVE  I ITAPB 

solutions  fro*  the  current  OL  Iteration  are 
Britton. 

ITER  ft  OL  Iteration  nuaber:  /CNTRL  /(  2)  ET1AE  It  ITER 

GROPE  ft  ITER 

OUTPUT  I ITER 

ITRAAX  I Ha*  I bub  number  of  OL  Iterations.  /GLOBAL/I  10)  CHECK  ft  ITRftAX 

GROPE  I ITRftAX 

KOOES  0 Net  used.  /CNTRL  /(  56)  GROPE  0 KODES 

NLDRV  ft  KOOES 

URAPUP  0 KOOES 

0 Logical  flag  that  Indicate*  to  the  QL  module  that  /CNTRL  /(  ' 28  >' ffLGCON  I KONVER 
the  QL  iteration  is  converged.  APPLY  I KONVER 

ARCIN  I KONVER 

COHOftO  0 KONVER 

GROPE  0 KONVER 

NLDRV  I KONVER 

OUTPUT  I KONVER 

RKUTT1  1 KONVER 


KPA6E 

0 

Not  used. 

/CNTfiL  /( 

21  ) 

CHECK 

0 

KPAGE 

GROPE 

0 

KP  AGE 

no  ft 

0 

The  nusber  of  hoaogeneeus  solutions  currently  being 

/CNTRL  /( 

9 ) 

GROPE 

0 

non 

Integrated. 

INARC 

n 

non 

LINDRV 

I 

non 

NOftNAL 

I 

non 

SALVE 

n 

non 

WRAP  UP 

n 

non 

NOKNOU 

I 

The  total  number  of  free  (unknown)  state  and 

/BLOCK  /( 

691  ) 

CHECK 

I 

NO  KNOW 

costate  variables  over  all  the  subarcs: 

COHONO 

I 

NOKNOU 

COSTAS 

n 

NO  KNOW 

COST  Al 

n 

NOKNOU 

COST  AO 

« 

NOKNOU 

GROPE 

I 

NOKNOU 

AAGIC 

I 

NOKNOU 

NUP 

I 

Same  aa  MU. 

/CNTRL  /< 

23) 

CHECK 

0 

NUP 

GROPE 

I 

NUP 

INARC 

i 

NUP 

PC 

0 

Not  used 

/PC  /< 

1 ) 

6R0PE 

0 

PC 

RHOC 

ft 

The  magnitude  of  the  error  In  the  current  QL 

/CNTRL  H 

) 7 ) 

CHECK 

0 

RHOC 

Iteration. 

GROPE 

n 

RHOC 

RHOP 

ft 

The  Bagnltudc  of  tho  error  In  the  preceding  QL 

./CNTRL  /( 

16) 

CHECK 

0 

RHOP 

Iteration. 

GROPE 

n 

RHOP 

V 

0 

An  820  nord  array  containing  the  particular  end 

/V  /( 

1 > 

GROPE 

0 

V 

homogeneous  solutions  being  integrated.  The  first 

INARC 

A 

Y 

18  mords  coBprise  the  particular  solution.  Each 

RADARS 

A 

V 

block  of  18  mords  thereafter*  comprises  an 

OLTOSZ 

I 

V 

independent  homogeneous  solution. 

RKUTT1 

n 

Y 

SALVE 

n 

Y 

HR  AP  UP 

I 

Y 

KONVER 


ITAPA 

ITAPB 
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BL0CK 

ARCDAT 


fortran 

SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


TillP**ai  • ‘gsstww 


SREF 

S 4 

( FT2  > 

/ARCDAT/C 

1 ) 

ARC!  N 

I 

SREF 

r «f 

BNDft  Y 

I 

ARCDA 

CHECK 

I 

AfiCOA 

FETCH 

1 

ARCDA 

SALVE 

I 

ARCDA 

STATEF 

I 

SREF 

UT 

I 

SREF 

WRAP  UP 

i 

ARCDA 

EJ 

A ,4 

• «it 

No t x 1 e esl t area 

C FT2  1 

/ ARCOAT/( 

2) 

ARC!  N 

I 

EJ 

XISP 

1 

Vac  gua  specific  inputs* 

(SEC) 

/ ARCDAT/( 

3) 

ARC1N 

I 

XISP 

«p 

1MPULS 

I 

XISP 

T MULT 

T 

/ ARCDAT/( 

A) 

ARCIN 

1 

TMULT 

• u 1 1 

STATEF 

I 

TMULT 

OTNC 

At 

Integration  Interval 

(SEC) 

/ Aft C0AT/( 

5) 

WRAP UP 

I 

DTNC 

DTP  1 

Print  frequency  far  trajectory 

/ ARCDAT/C 

fc> 

WRAP UP 

1 

DTP1 

1 ATM 

Ataosphere  eption  fit) 

/ Aft CD AT /( 

7) 

ARCIN 

I 

I ATM 

NLDRV 

I 

1 ATM 

OUTPUT 

I 

I ATM 

STATEF 

I 

I ATM 

I MOO 

Control  no  A*  option  flop 

/ARCDAT/C 

8) 

ARCIN 

1 

IMODE 

CONTRL 

1 

I MODE 

NP  LANE 

1 

IMODE 

JAER 

Aerodynaaic  aod«I  option  flop 

/ARC0AT /( 

9) 

AEROCO 

I 

JAER 

ARCIN 

1 

JAER 

OUTPUT 

I 

JAER 

STATEF 

I 

JAER 

UT, 

JAER 

JPBO 

Propulsion  node  I option  flag 

/ ARCDAT/C 

10) 

ARCIN 

I 

JPRO 

IMPULS 

1 

JPRO 

UMAX 

lality 

/Aft COAT /< 

in 

MMAX 

Unit 

CPSF) 

GMAX 

G v 

Maxlaun  total  acceleretlan  g load 

/ ARCDAT/( 

12) 

AL5 

1 

GMAX 

MAX 

NPLANE 

I 

GMAX 

THROTL 

I 

GMAX 

TH3 

I 

6MAX 

XL  AMX 

lmax 

Mail aua  aarodynaaic  lift 

(LBS) 

/ARCDAT/C 

13) 

NPLANE 

I 

XLMAX 

HDMAX 

«MAX 

/ ARCDAT/( 

IN) 

6MO0T 

Plteli  rata 

(DEG/SEC) 

/ARCDAT/C 

15) 

ARCIN 

I 

GMOQT 

ALFMAX 

a..  „ 

Mailaua  eagle  of  attack 

< 0E6  ) 

/ARCDAT/( 

16) 

ARCIN 

I 

ALFMAX 

MAX 

NPLANE 

1 

ALFMAX 

PHMAX 

Be  1 ly  doaa  f 1 ag 

/ARCDAT/C 

IT) 

CONTRL 

I 

PHMAX 

MAEA 

/ARCDAT/( 

16) 

ARCIN 

I 

MAEA 

STATEF 

I 

MAEA 

MAEI 

/ARCDAT/C 

19) 

STATEF 

1 

MAEB 

MAEC 

Curve  nuabar 

/ARCDAT/C 

20) 

STATEF 

I 

MAEC 

MAEO 

/ARCDAT/C 

21  ) STATEF 

1 

MAED 

MAEE 

/ARCDAT/C 

22) 

STATEF 

1 

MAEE 

MAEF 

Curve  nuabar 

/ARCDAT/C 

23) 

STATEF 

1 

MAEF 

MAES 

/ARCOAT/C 

29) 

STATEF 

1 

MAEG 

MT 

Curve  nuabar  -tbruit  table 

/ARCOAT/C 

25) 

ARCIN 

I 

MT 

MISP 

Curve  nuabar  KISP  lata  table 

/ARCOAT/C 

2b) 

ARCIN 

I 

Ml  SR 

IMPULS 

1 

MISP 

maxcg 

Curve  nuaber  -icg  table 

/ARCOAT/C 

27) 

STATEF 

1 

MXCG 

mZCG 

Curve  nuaber-  xcg  table 

/ARCOAT/C 

26) 

STATEF 

1 

M2CG 
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fortran 

SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOC* LOC~  2'UBfi  till 


MHOB 

Description  not  Inpot 

/ ARCDAT /< 

30) 

ARCIN 

1 

NtfDB 

MOB 

Curve  number  - bate  dreg  table 

/ ARCOAT /( 

31  ) 

ARC1N 

I 

MOB 

STATEF 

1 

MOB 

XCGR 

XCGR 

Reference  icy  location  (FT) 

/ARCOAT/t 

32) 

UT 

I 

XCSR 

ZCGR 

ZCGR 

Reference  seg  location  (FT) 

/ ARCOAT /( 

33) 

UT 

I 

ZCGR 

XE 

XE 

Engine  thrust  centroid  body  * stotlon 

/ ARCDAT /( 

3N> 

o 

r* 

h» 

I 

XE 

It 

z_ 

Engine  thrust  centroid  body  i station 

/ARCDAT/( 

35) 

0L2 

I 

ZE 

UT 

I 

ZE 

XT 

*T 

Aerodynaolc  trio  surface  body  a stotlon 

/ ARCOAT/( 

34) 

UT 

I 

XT 

OREF 

0 . 

Aerodynamic  reference  length 

f ARCOAT /( 

37) 

STATEF 

I 

OREF 

ref 

UT 

1 

OREF 

RHOB 

o 

/ARCOAT/i 

35) 

HLORf 

1 

RHOB 

( LB/f T**3 ) 

PDBCOL 

I 

RHOB 

OMULT 

II 

© 

o 

30 

Heating  flag  multiplier 

/ARCOAT /( 

NO) 

NLDRV 

I 

QMULT 

POftCQL 

I 

QMULT 

REMAX 

R 

/ARCOAT/C 

Nl) 

•»MAX 

FRATE 

Input  rated  vocuun  thrust  per  engine  (LBS) 

/ ARCOAT/C 

N2> 

ARC1M 

M 

FRATE 

BL0CK 

AXLE 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


STORAGE 


SUBR  COOE  VAR 


The  first  aord  i 

of  a four  aortf  array  that  contains  the 

/axle 

/< 

1 ) 

APPLY 

* 

AV 

vector  of  applli 

ad  accelerations  defined  by  Equation 

APPLY 

0 

axle 

2.9-2  in  Vol.I  « 

»f  th i t doc  uaant . 

NLDRV 

I 

AV 

Description  not 

input 

/AXLE 

/( 

2 ) 

APPLY 

m 

AS 

NLDRV 

I 

AG 

Description  not 

i apot 

/AXLE 

/< 

3) 

APPLY 

* 

AP 

NLDRV 

I 

AP 

Description  not 

Input 

/axle 

/( 

9> 

APPLY 

0 

Aft 

NLDRV 

i 

AN 

The  first  entry 

/axle 

/( 

5 > 

APPLY 

m 

AVV 

totsl  partial  derivatives  of  the  a vector  pith  respect 

NLDRV 

1 

AVV 

to  the  QL  state 

vector  Teacludlng  the  Heating  state). 

Ba/ By  - 

Description  net 

lapat 

/axle 

/{ 

6) 

APPLY 

0 

A6V 

NLDRV 

i 

A6V 

Deter i pt i on  not 

lapat 

/axle 

/( 

T > 

APPLY 

0 

AP  V 

NLDRV 

I 

AP  V 

Description  not 

Input 

/axle 

/< 

0 ) 

APPLY 

0 

ANY 

NLDRV 

1 

AMV 

Description  not 

Input 

/axle 

/( 

9 ) 

NLDRV 

I 

AV6 

Description  not 

Input 

/axle 

/( 

10) 

APPLY 

n 

AGS 

NLDRV 

\ 

AGG 

Description  not 

Input 

/axle 

/( 

11) 

APPLY 

m 

APG 

NLDRV 

I 

AP6 

Description  not 

Input 

/axle 

/( 

12  ) 

NLDRV 

I 

AMG 

Deter ipt ion' not 

Input 

/ AXLE 

/l 

13) 

NLDRV 

A VP 

Description  not 

Input 

/axle 

/( 

lb) 

NLDRV 

I 

AMP 

Description  net 

Input 

/AXLE 

/( 

IT  ) 

APPLY 

0 

AVR 

NLDRV 

I 

AVR 

Description  not 

Input 

/axle 

M 

1»> 

apply 

0 

fcGR 

NLORV 

I 

AGR 

Descr i pt i o n not 

1 nput 

/AXLE 

/( 

19) 

APPLY 

0 

APR 

NLDRV 

I 

APR 

Description  not 

Input 

/axle 

/( 

20) 

APPLY 

0 

AMR 

NLDRV 

I 

AMR 

Description  not 

input 

/axle 

/( 

21  ) 

NLDRV 

I 

AVO 

Description  not 

input 

/AXLE 

/( 

21) 

NLDRV 

1 

AMO 

Description  not 

i nput 

/AXLE 

/( 

29  ) 

APPLV 

0 

A VM 

NLDRV 

1 

AVM 

Description  not 

I nput 

/AXLE 

/( 

30) 

APPLY 

0 

AGM 

NLDRV 

1 

ASM 

Description  not 

input 

/AXLE 

/( 

31  ) 

APPLV 

0 

APM 

NLORV 

I 

APM 

Description  not 

Input 

/axle 

/( 

32) 

NLDRV 

1 

AMM 

Description  not 

I nput 

/AXLE 

/( 

33) 

NLORV 

I 

AVZ 

Description  not 

1 nput 

/AXLE 

/( 

39) 

NLDRV 

I 

AGZ 

Description  not 

input 

/AXLE 

/( 

35> 

NLDRV 

1 

APZ 

Description  not 

Input 

/AXLE 

/( 

36  ) 

NLDRV 

I 

AMZ 

The  first  entry 

in  a 9 1 8 netrli  that  contains,  nhen  ° 

/AXLE 

/( 

37) 

APPLY 

I 

EAVV 

Is  opt i as  1 , 

NLORV 

I 

E A VV 

s./s,  = a./a,l.  = 


When  * is  nonoptiaal, 
Sa/Sy  = do/3y 


De  s cr i pt 1 o n 

not 

Input 

/AXLE 

/( 

36)  NLDRV  I 

EAGV 

Description 

not 

i nput 

/AXLE 

/( 

39)  NLDRV  1 

E AP  V 

Description 

not 

1 nput 

/AXLE 

/( 

90)  NLDRV  1 

EAMV 

Description 

not 

input 

/AXLE 

/( 

99  > NLDRV  I 

EAVR 

FORTRAN 

HAT  M 

nr-  c o 

n t m 

- t n 

M 

STORAGE 

SUBROUTINE  USAGE 

SvneOL 

SYMBOL 

ucoonir i z u w 

BLOC  A 

LOC 

SUBR  COOE  VA* 

EA6R 

Deter i pt Ion 

not 

1 npot 

/AXLE 

/( 

50) 

NLDRV 

I 

EAGR 

EAPR 

Deter  1 pt i on 

not 

inpot 

/AXLE 

/( 

51  ) 

NLDRV 

1 

E APR 

EAftA 

Description 

not 

i nput 

/AXLE 

/( 

52) 

NLDRV 

I 

EAftR 

EAVR 

Description 

not 

t npot 

/AXLE 

/< 

61  ) 

NLDRV 

I 

EAVft 

EAGR 

Oetcr i pt ion 

not 

i np  lit 

/AXLE 

/( 

62) 

NLDRV 

1 

EAGft 

EAPR 

Description 

not 

i npot 

/AXLE 

/( 

63) 

NLDRV 

EAPft 

EAftft 

Description 

not 

1 npot 

/AXLE 

/( 

69  ) 

NLDRV 

1 

EAftft 

EAVZ 

Description 

not 

1 npot 

/AXLE 

/( 

65) 

NLORV 

1 

EAVZ 

EAGZ 

Description 

not 

1 npot 

/AXLE 

/( 

66) 

NLDRV 

1 

EAGZ 

EAPZ 

Deter  1 pt i o n 

not 

1 npot 

/AXLE 

/( 

67  ) 

NLDRV 

I 

EAPZ 

EARZ 

Description 

not 

1 npot 

/AXLE 

/( 

68) 

NLORV 

1 

EAftZ 

A V VV 

d( 5»V/5V >/3V 

The  first  e ntr y 
d<  6a/6y  >/dV. 

In  s 9«8 

ootrii 

that 

contains 

/AXLE 

/< 

69  > 

APPLY 

APPLY 

0 

1 

AVVV 

AVY 

NLDRV 

I 

AVVV 

A6VV 

Deter i pt 1 on 

not 

i npot 

/AXLE 

/( 

70) 

APPLY 

0 

AGVV 

NLORV 

1 

AGVV 

AP  VV 

Description 

not 

tepet 

/AXLE 

/( 

71  ) 

APPLY 

0 

AP  VV 

NLDRV 

1 

AP  VV 

AftVV 

Deter i pt Ion 

net 

inpot 

/AXLE 

/( 

72) 

APPLY 

0 

AftVV 

NLDRV 

I 

AftVV 

AVR  V 

Deter i pt 1 on 

not 

inpot 

/AXLE 

/( 

81  ) 

APPLY 

* 

AVR  V 

NLORV 

I 

AVRV 

A6RV 

Description 

not 

Inpot 

/AXLE 

/( 

82) 

APPLY 

ft 

AGRV 

NLDRV 

I 

AGRV 

APRV 

Deter i pt 1 on 

not 

1 npot 

/AXLE 

/( 

83) 

APPLY 

R 

APRV 

NLDRV 

1 

APRV 

AftRV 

Deter  1 pt ion 

not 

inpot 

/AXLE 

/( 

69  ) 

APPLY 

0 

AftRV 

NLORV 

I 

AARV 

AVRV 

Deter  1 pt 1 on 

not 

t npot 

/AXLE 

/( 

93) 

APPLY 

n 

AVftV 

NLORV 

I 

AVRV 

AGRV 

Deter  1 pt 1 on 

not 

Inpat 

/AXLE 

/( 

99) 

APPLY 

* 

AGflV 

NLDRV 

1 

AGRV 

APHV 

Deter i pt i on 

not 

1 npot 

/AXLE 

/( 

95) 

APPLY 

ft 

APRV 

NLORV 

1 

APRV 

AftRV 

Description 

not 

Inpot 

/AXLE 

/< 

96) 

NLDRV 

I 

AftRV 

AVZV 

Description 

not 

1 npot 

/AXLE 

/( 

97  ) 

NLORV 

1 

AVZV 

A6ZV 

Deter  1 pt Ion 

not 

I npot 

/AXLE 

/( 

98) 

NLDRV 

AGZV 

APZV 

Description 

not 

i npot 

/AXLE 

/( 

99) 

NLDRV 

I 

APZV 

ARZV 

Description 

not 

1 npot 

~ 

/AXLE 

/( 

100  ) 

NLDRV 

I 

AftZV 

A VVG 

3(  StVSV  )/dV 

The  first  entry 
d(5a/«y  )/dY 

in  • 9i8 

notr 1 1 

that 

contains 

/AXLE 

/( 

101  ) 

NLDRV 

1 

AVVG 

AGVG 

Description 

not 

1 npot 

/AXLE 

/< 

102) 

APPLY 

0 

AGVG 

NLDRV 

I 

AGVG 

APV6 

Des  cr i pt i on 

not 

1 nput 

/AXLE 

/< 

103) 

APPLY 

0 

APVG 

NLDRV 

I 

APV6 

ARVG 

Deter i pt 1 on 

not 

1 npot 

/AXLE 

/( 

109) 

NLDRV 

I 

AftVG 

AVGG 

Description 

not 

1 npot 

/AXLE 

/( 

105) 

NLDRV 

1 

AVGG 

argg 

Description 

not 

1 nput 

/AXLE 

/( 

108) 

NLDRV 

I 

AftGG 

A VRG 

Description 

not 

1 nput 

/AXLE 

/( 

113) 

NLDRV 

1 

AVR6 

AGRG 

Deter  1 p 1 1 on 

not 

1 npot 

/AXLE 

/( 

119) 

APPLY 

0 

AGRG 

NLDRV 

J 

AGRG 

APRG 

Description 

not 

i npot 

/AXLE 

/( 

115) 

APPLY 

0 

APRG 

NLDRV 

I 

APRG 

AftRG 

Description 

not 

1 nput 

/AXLE 

/< 

116) 

NLORV 

I 

AftRG 

AVRG 

Oescr i pti on 

not 

1 npot 

/AXLE 

/( 

125  ) 

NLDRV 

1 

A VRG 

10  MOV  72  6.01-97 


.^r 

r* 


FORTRAN 

SYMBOL 


NATH 

SVNftOL 


DESCRIPTION 


storage  subroutine  usage 


bl3c*  loc 


CODE  VAR 


d<5.VSV>/d* 

Otter  I 
Otter! 
Otter  t 
Ot ter  I 
Otter  1 

ais.vsyi/ah 


agag 

APAG 

AAA6 
AVZG 
AGZ6 
APZ6 
AAZG 
A V VP 

AAVP 
AVGP 
A AGP 
A VPP 
AAPP 
AVVR 

AGVR 

APVR 

AAVR 

AVGR 
ANGR 
A VPR 
AAPR 
AVRR 

A6RR 


AVAR 

A 6 NR 

APNR 

ANNR 
AVZR 
AGZR 
APZR 
ANZR 
A V VO 
ANVO 
AVGO 
AAGO 
AVPO 

fiVV0  8(  5av/5V  )/d/> 

10  NOV  72  G. 01-97 


Otter  I pt I on  tot  I npot 


Otter  I 

Otter  I 
Otter  i 
Otter  1 
Otter  I 
Otter  I 


Otter  1 

Otter  1 

Otter  I 

Otter  I 
Otter  I 
Otter  i 
Deter  I 
Otter  1 

Otter  I 

Otter  I 

Otter  I 

Otter  I 

Otter  I 

Otter! 

Otter  I 
Otter  I 
Det  cr  i 
Otter  I 
Ot  ter  1 
Otter  i 
Otter  t 
Otter! 
Otter! 
Otter  I 


ok  not  Input 

t ! ok  not  i Kp ot 
tton  Kot  t np at 
tloK  not  Input 
tloK  not  input 
tion  not  ( nput 

it  entry  In  s 9*8  uatrix  thot  contain! 
)/d* 

tton  not  Input 
tlon  not  Input 
tion  not  Input 
tlon  not  input 
tion  not  input 


it  entry  In  e *4x8  uatrix  that  contolnt 
/Dh 

on  not  Input 
on  not  Input 
on  not  Input 


on  not 
on  not 
on  not 
on  not 
on  not 


Input 
I nput 
I nput 
Input 
1 nput 


on  not  Input 

on  not  Input 

on  not  Input 

on  not  I nput 

on  not  Input 

on  not  Input 

on  not  1 nput 
on  hot  Input 
on  net  Input 
on  not  Input 
on  not  Input 
on  not  Input 
on  net 
on  not 
on  not 
on  not 


The  first  entry 
d(So/Sy  )/do 


I nput 
Input 
I nput 
Input 

in  » 9x6  uatrix  thot  contains 


/AXLE 

/( 

126  ) 

apply 

0 

AGAG 

nlorv 

1 

AGA6 

/AXLE 

/( 

127) 

apply 

0 

AP  AS 

NLORV 

I 

APAG 

/AXLE 

/( 

128) 

NLORV 

I 

AAAG 

/AXLE 

/( 

129) 

NLORV 

I 

AVZG 

/AXLE 

/< 

130) 

NLORV 

I 

A6ZG 

/AXLE 

/( 

131  ) 

NLORV 

1 

APZ6 

/AXLE 

/( 

132) 

NLORV 

1 

AAZG 

/AXLE 

ti 

133) 

NLORV 

1 

AVVP 

/AXLE 

n 

136) 

NLORV 

I 

AAVP 

/AXLE 

n 

137) 

NLORV 

I 

AVGP 

/AXLE 

n 

190) 

NLORV 

1 

AAGP 

/AXLE 

/( 

191 ) 

NLORV 

I 

AVPP 

/AXLE 

n 

199) 

NLORV 

1 

AAPP 

/AXLE 

/< 

165) 

APPLY 

0 

AVVR 

NLORV 

I 

AVVR 

/ AXLE 

/« 

166) 

APPLY 

0 

AGVR 

NLORV 

1 

AGVR 

/AXLE 

/( 

167) 

APPLY 

0 

APVR 

NLORV 

1 

APVR 

/AXLE 

/< 

168) 

APPLY 

A 

AAVR 

NLORV 

I 

AAVR 

/AXLE 

/( 

169) 

NLDRV 

I 

AVGR 

/AXLE 

/< 

172) 

NLORV 

I 

AAGR 

/AXLE 

/( 

173) 

NLORV 

I 

AVPR 

/AXLE 

/( 

176) 

NLORV 

AAPR 

/AXLE 

/( 

177) 

APPLY 

0 

AVRR 

NLORV 

I 

AVRR 

/AXLE 

/( 

178) 

APPLY 

0 

AGAR 

NLDRV 

1 

AGRR 

/AXLE 

/( 

179  ) 

APPLY 

0 

APRR 

NLDRV 

I 

APRR 

/AXLE 

/< 

180) 

APPLY 

0 

AARR 

NLORV 

I 

AARR 

/AXLE 

/< 

189) 

APPLY 

A 

AVAR 

NLORV 

I 

AVAR 

/AXLE 

/< 

190) 

apply 

A 

AGAR 

NLDRV 

I 

AGAR 

/AXLE 

/< 

191  ) 

APPLY 

A 

APAR 

NLDRV 

1 

APAR 

/AXLE 

/( 

192) 

NLORV 

I 

AAAR 

/AXLE 

n 

193) 

NLDRV 

I 

AVZR 

/AXLE 

n 

199) 

NLDRV 

I 

AGZR 

/AXLE 

n 

195) 

NLDRV 

1 

APZR 

/AXLE 

n 

196) 

NLORV 

1 

AAZR 

/AXLE 

n 

197) 

NLORV 

I 

A WO 

/AXLE 

/< 

200) 

NLORV 

AAVO 

/AXLE 

/( 

201  ) 

NLORV 

I 

AVGO 

/AXLE 

/< 

209  ) 

NLORV 

I 

AAGO 

/AXLE 

AC 

205  ) 

NLORV 

1 

AVPO 

/ AXLE 

n 

207  ) 

fortran 

symbol 


MATH 

5YMBOL 


DESCRIPTION 


■■  TuttHItt-W 


A«PO 

Descr Ipt Ion 

not 

1 npet 

/AXLE 

/( 

208) 

nldrv 

I 

AnPO 

AVRO 

Da  ter  1 pt 1 on 

not 

input 

/AXLE 

n 

204) 

NLDRV 

1 

AVRO 

AMRO 

Deter Ipt 1 on 

not 

1 nput 

/AXLE 

/( 

212) 

NLDRV 

l 

AMRO 

AVQO 

Deter  1 pt ion 

not 

t nput 

/AXLE 

/( 

213) 

NLDRV 

I 

AVOO 

A MOO 

Deter  I pt i on 

not 

1 nput 

/AXLE 

/< 

216) 

NLDRV 

I 

Anoo 

AVVU 

at  s»v/6v  )/a*i 

The  first  entry 
8(6a/Sy >/dM 

In  a 4*8 

■ atr  i x 

that 

cental  ns 

/AXLE 

/( 

239) 

AVVM 

Description 

not 

i nput 

/AXLE 

/< 

2fcl  ) 

apply 

0 

a vvn 

NLDRV 

I 

AVVM 

A6VR 

Description 

not 

f nput 

/AXLE 

/< 

262  ) 

APPLY 

0 

AGVn 

NLDRV 

I 

AGVn 

APVM 

De  ter l pt 1 on 

not 

Input 

/AXLE 

/< 

263) 

APPLY 

0 

Apvn 

NLORV 

1 

A pvn 

AMVM 

Description 

not 

Input 

/AXLE 

/{ 

264) 

NLDRV 

I 

AMVn 

avgh 

Description 

not 

Input 

/AXLE 

/( 

26$) 

NLDRV 

I 

Avsn 

AM6M 

Description 

not 

I nput 

/AXLE 

/( 

268) 

NLDRV 

t 

Anon 

AVP« 

Descr i pt i on 

not 

I nput 

/ AXLE 

n 

269) 

NLORV 

1 

AVPn 

AVVM 

at  sivsv  )/a» 

The  first  entry 
8<Sa/6y  >/da 

in  a 4x8 

notr  I i 

that 

contains 

/AXLE 

n 

271) 

AMPM 

Descr 1 pt  1 on 

not 

Input 

- /axle 

/< 

272) 

NLDRV 

I 

AnPn 

AVRM 

Description 

not 

Input 

/AXLE 

n 

273) 

APPLY 

0 

AVRN 

NLORV 

I 

AVRH 

A&R* 

Description 

not 

i nput 

/AXLE 

n 

274) 

APPLY 

0 

a tan 

NLDRV 

AGR« 

APRM 

Description 

not 

Input 

/AXLE 

/( 

275) 

APPLY 

0 

APR* 

NLDRV 

I 

APR* 

AMR* 

Descr \ pt i on 

not 

I nput 

/axle 

/< 

2T6) 

NLDRV 

1 

a mn 

AVON 

Description 

not 

I nput 

/AXLE 

/( 

277) 

NLDRV 

1 

Avon 

Anon 

Descr ! pt I on 

not 

I nput 

/AXLE 

/( 

280) 

NLDRV 

I 

Anon 

A vnn 

Description 

not 

input 

/AXLE 

/( 

285  ) 

APPLY 

0 

a vnn 

NLDRV 

I 

a vnn 

AG*n 

Descript  ion 

net 

Input 

/AXLE 

/( 

286) 

APPLY 

0 

AGfM 

NLDRV 

1 

A&nn 

Apnn 

Descr i pt i on 

not 

I nput 

/AXLE 

/< 

287) 

APPLY 

0 

APnn 

NLDRV 

1 

Aptm 

Annn 

Description 

not 

1 nput 

/AXLE 

/( 

288) 

NLDRV 

1 

Annn 

Avzn 

Doscr I pt i o n 

not 

I nput 

/axle 

/< 

289) 

NLDRV 

I 

Avzn 

A6ZN 

Descr 1 pt ion 

not 

I nput 

/AXLE 

/( 

290) 

NLORV 

I 

A6zn 

Apzn 

Description 

net 

I nput 

/AXLE 

/( 

291  ) 

NLDRV 

I 

APZn 

Anzn 

Descr I pt i on 

not 

1 nput 

/AXLE 

/( 

292) 

NLORV 

1 

Anzn 

A VVZ 

Description 

not 

I nput 

/AXLE 

/( 

293) 

NLDRV 

I 

AVVZ 

AGVZ 

Description 

not 

I nput 

/AXLE 

/( 

294) 

NLDRV 

1 

AGVZ 

APVZ 

Descr i pt 1 on 

not 

Input 

/AXLE 

/( 

295) 

NLDRV 

I 

APVZ 

Anvz 

Description 

not 

1 nput 

/axle 

/( 

296) 

NLDRV 

1 

Anvz 

A VGZ 

Description 

not 

I nput 

/AXLE 

/( 

297  ) 

NLDRV 

I 

AV6Z 

A«GZ 

Description 

not 

i nput 

/axle 

n 

300) 

NLDRV 

I 

Ancz 

AVPZ 

Description 

not 

1 nput 

/AXLE 

n 

301) 

NLDRV 

1 

AVPZ 

A VVZ 

at  s»y/sv  )/3t 

The  first  entry 
3<6i/Sy  )/3t 

In  a 4*8 

■ otr  f i 

that 

cental  ns 

/AXLE 

/< 

303) 

a*PZ 

De  scr I pt i o n 

not 

t nput 

/AXLE 

/< 

304  ) 

NLDRV 

a npz 

A VfiZ 

Description 

not 

1 nput 

/AXLE 

/( 

305) 

NLDRV 

I 

AVRZ 

AGfiZ 

Description 

not 

Input 

/axle 

/< 

306) 

NLORV 

I 

A6RZ 

APRZ 

Description 

not 

l nput 

/axle 

/< 

307  ) 

NLDRV 

1 

APRZ 

10  NOV  72  G. 01-47 


fOMRAM  WAlH 

DESCRIPTION 

..  STORAGE 

suftnp.ui.iiii 

USAGt 

SVW50L  SYMBOL 

LOC 

SUBR  doOf 

VAR 

MM2 

Description  not 

1 npot 

/axle 

/( 

308  ) 

NL0RV 

I 

AftRZ 

A VO  Z 

Description  net 

I np«t 

/AXLE 

/( 

309  ) 

NL0RV 

I 

AVOZ 

awoz 

Description  not 

1 npot 

/axle 

/( 

312  ) 

nlorv 

1 

A«OZ 

Avnz 

Description  not 

\ apat 

/axle 

/I 

317) 

nlorv 

I 

AVNZ 

A6«Z 

Description  not 

Inpot 

/ AXLE 

/( 

318) 

nlorv 

1 

AGWZ 

APWZ 

Description  not 

\ npet 

/AXLE 

/( 

319  1 

nlorv 

1 

APWZ 

AWWZ 

Description  not 

i np gt 

/AXLE 

/( 

320) 

NLORV 

I 

AWWZ 

AVZZ 

Description  not 

i npot 

/axle 

/( 

321  ) 

NLORV 

1 

AVZZ 

AG  ZZ 

Description  not 

1 npot 

/AXLE 

/< 

322  ) 

NLORV 

1 

AGZZ 

APZZ 

Descr 1 pt i on  not 

i npet 

/AXLE 

/( 

323  ) 

NLORV 

I 

APZZ 

AWZZ 

Description  not 

i np«t 

/AXLE 

/< 

329) 

NLORV 

I 

AWZZ 

AVLV 

Description  not 

i npnt 

/axle 

/( 

325  ) 

APPLY 

I 

AVLV 

nlorv 

I 

AVLV 

A6LV 

Description  not 

i npnt 

/axle 

/( 

326  ) 

NLORV 

1 

AGLV 

APL  V 

Description  not 

1 npnt 

/AXLE 

/( 

327  ) 

NLORV 

1 

APLV 

AWLV 

Description  not 

i npnt 

/AXLE 

n 

328  ) 

NLORV 

I 

AWLV 

AVLG 

Description  not 

i npnt 

/AXLE 

n 

329) 

NLORV 

I 

AVLG 

AGLG 

Description  not 

1 npot 

/AXLE 

/( 

330) 

APPLY 

w 

AGLG 

NLORV 

i 

AGLG 

APLG 

Description  not 

1 npot 

/AXLE 

n 

331  > 

APPLY 

w 

A?  LG 

NLORV 

1 

APLG 

AWLS 

Description  not 

i npot 

/AXLE 

n 

332) 

NLORV 

1 

AWL  6 

AVLP 

Description  not 

Inpot 

/AXLE 

/( 

333  ) 

NLORV 

I 

AVLP 

AGLP 

Description  not 

i npot 

/AXLE 

/( 

339  ) 

APPLY 

w 

AGLP 

NLORV 

l 

AGLP 

*VLV  8,V3Xv 

The  first  entry  in  e 1*3  sstris  that 

a*/ax,  and  ae/ax* 

contains  Ds/dX,, 

/AXLE 

/( 

335  ) 

APPLY 

NLORV 

w 

APLP 

APLP 

AWLP 

Description  not 

I npot 

/AXLE 

/( 

336  ) 

NLORV 

1 

AWLP 

AVLV 

Description  net 

inpot 

7 AXLE 

/< 

33T  ) 

APPLY 

I 

AYLY 

NLDRV 

I 

AVVLV 

AGVLV 

Des  cr i pt  f on  not 

inpot 

/AXLE 

/( 

338) 

NLORV 

1 

AGVLV 

APVLV 

Description  not 

1 npot 

/AXLE 

/t 

339  ) 

NLDRV 

I 

APVLV 

ARVLV 

Description  not 

i npot 

/AXLE 

/< 

390) 

NLORV 

1 

AWVLV 

AVVLV  a(  5 av  / 8 V )/dXy 

The  first  entry 
d(  ffe/fiy  >/ax 

i n a 9*8  oetr is  that 

contains 

/AXLE 

/( 

39T) 

AVRLV 

Description  not 

inpot 

/AXLE 

/< 

399  ) 

NLORV 

I 

AVRLV 

AGRLV 

Description  not 

i npot 

/AXLE 

/< 

350  ) 

NLDRV 

I 

AGRLV 

APRLV 

Description  not 

i npot 

/AXLE 

/c 

351  ) 

NLDRV 

I 

APRLV 

AFtftLV 

Description  not 

i npot 

/AXLE 

/( 

352  ) 

NLDRV 

I 

AWRLV 

AVWLV 

Description  not 

1 npot 

/AXLE 

/( 

361  ) 

NLORV 

I 

AVWLV 

A6WLV 

Description  not 

i npot 

/AXLE 

/( 

362) 

NLDRV 

I 

AGWLV 

APHLV 

Description  not 

1 npot 

/AXLE 

/( 

363  ) 

NLDRV 

I 

APWLV 

AHRLV 

Description  not 

i npot 

/AXLE 

/< 

369  ) 

NLDRV 

l 

AWWLV 

AVZLV 

Description  not 

1 npot 

/axle 

/i 

365) 

NLORV 

1 

AVZLV 

AGZLV 

Description  not 

Inpot 

/AXLE 

/< 

366  ) 

NLDRV 

I 

AGZLV 

APZLV 

Description  not 

i npnt 

/axle 

/( 

367  ) 

NLDRV 

I 

APZLV 

AflZLV 

Description  net 

1 npot 

/AXLE 

/( 

368) 

NLDRV 

1 

AHZLV 

AVVLG 

Description  not 

inpot 

/AXLE 

/( 

369  ) 

NLORV 

I 

AVVLG 

AGVLG 

Description  not 

Inpot 

/AXLE 

/< 

370  ) 

APPLY 

0 

AGVLG 

NLORV 

1 

AGVLG 

APVLG 

Description  not 

i np  st 

/AXLE 

/( 

371  ) 

APPLY 

0 

APVLG 

NLORV 

I 

APVLG 

0 NOV  72  G. 01-97 


ILL 


FORTRAN 

SYWBQL 


WAT  M 
SVWBOL 


DESCRIPTION 


STORAGE 
THTCT  lOC 


SUM  CODE VAR 


AWVLG 

Oc  s cr 1 p 1 1 o n 

not 

l nput 

/ AXLE 

/( 

372  ) 

NLDRV 

AVVLG 

d(  5 a v / 5 V )/d\> 

The  first  entry 
3(  Si/fiy  )/3X, 

in  a 1*6  ■* t r i x 

that 

contains 

/axle 

/( 

379) 

AVRLG 

Description 

not 

1 nput 

/AXLE 

/( 

361  > 

NLDRV 

AGRLG 

Otter  1 pt  ton 

not 

i nput 

/axle 

/( 

382) 

APPLY 

NLDRV 

APRLG 

Description 

not 

I nput 

/AXLE 

/( 

363  ) 

APPLY 

NLDRV 

AWRLG 

Description 

not 

i nput 

/axle 

/( 

389  ) 

NLDRV 

AVML6 

Description 

not 

1 nput 

/AXLE 

/( 

393  ) 

NLDRV 

AGWLG 

Oescr i pt 1 on 

not 

i nput 

/axle 

/< 

399) 

APPLY 

NLDRV 

APWL6 

Description 

not 

1 nput 

/axle 

/( 

395  ) 

APPLY 

NLDRV 

AWWLG 

Description 

not 

i nput 

/AXLE 

/( 

396  ) 

NLDRV 

AVZL6 

Deser (ption 

not 

1 nput 

/AXLE 

a 

397) 

NLDRV 

AGZLG 

Description 

not 

i nput 

/axle 

/( 

390  ) 

NLDRV 

APZLG 

Oescr I pt i • n 

not 

1 nput 

/axle 

/( 

399) 

NLDRV 

AWZLG 

Deser i pt l on 

not 

i nput 

/axle 

/( 

900) 

NLDRV 

AVVLP 

Deser 1 pt 1 on 

not 

1 nput 

/axle 

/( 

901  ) 

NLDRV 

AGVi-P 

Deser I pt 1 on 

not 

1 nput 

/axle 

/{ 

902  ) 

APPLY 

NLDRV 

APVLP 

Description 

not 

i nput 

/axle 

/c 

903) 

APPLY 

NLDRV 

AWVLP 

Oescr I pt 1 on 

not 

1 nput 

/axle 

/( 

909) 

NLDRV 

AVVLP 

a<  s»*/5v  )/d\ 

The  first  entry 
3( 6 s/6y )/3X* 

in  e *lx&  ustr  i i 

that 

cent a) ns 

/AXLE 

/( 

911) 

AVRLP 

Description 

not 

i nput 

/AXLE 

/( 

913  ) 

NLDRV 

AGRLP 

Description 

not 

1 nput 

/AXLE 

/( 

919  ) 

APPLY 

NLDRV 

APRLP 

Deser i pt i on 

not 

1 nput 

/axle 

/< 

915  > 

APPLY 

NLDRV 

AWRLP 

Description 

not 

) nput 

/axle 

/( 

916  ) 

NLDRV 

AVWLP 

Description 

not 

i nput 

/axle 

/( 

925  ) 

NLDRV 

AGWLP 

Description 

not 

i nput 

/AXLE 

/( 

926  ) 

APPLY 

NLDRV 

APWLP 

Description 

not 

1 nput 

/AXLE 

/( 

927  ) 

APPLY 

NLDRV 

AWWLP 

Description 

not 

i nput 

/axle 

/( 

928) 

NLDRV 

AVZLP 

Description 

not 

i nput 

/axle 

/( 

929) 

NLDRV 

AGZLP 

Description 

not 

I nput 

/axle 

/( 

930) 

NLORV 

APZLP 

Description 

not 

i nput 

/AXLE 

/( 

931  ) 

NLDRV 

AWZLP 

Description 

not 

i nput 

/axle 

/( 

932) 

NLDRV 

AWVLG 


AVRLG 

AGRLG 

A6RLG 

APfiLG 

APRL6 

AWRLG 

AVWL6 

AGWL6 

AGWL6 

APWLG 

APWLG 

awwlg 

AVILG 

A6ZL6 

APZLG 

AWZLG 

AVVLP 

AGVLP 

A6VLP 

APVLP 

APVLP 

AWVLP 


AVRLP 

AGRLP 

A6RLP 

APRLP 

APRLP 

AWRLP 

AVWLP 

AGWLP 

AGWLP 

APWLP 

APWLP 

AWWLP 

AVZLP 

AGZLP 

APZLP 

AWZLP 
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BL0CK 
B I CUBE 


DESCRIPTION 


STORAGE 

buSck  LOC 


SUBROUTINE  USAGE 
$ U B R COOE  VAR 


The  smallest  value  of  the  first  Independent  variable 
of  e bi ver i ete  table. 

/BI CUBE/ ( 

1 ) 

BLINE 

I 

AAIN 

The  largest  value  of  the  first  Independent  variable  of 
a bivariate  table. 

/BI CUBE/l 

2 ) 

BLINE 

I 

AAAI 

Last  file  In  the  grid  In  ahlch  Interpolation  occurred. 

/BICUBE/l 

3 ) 

BLINE 

A 

IF 

Total  nuaber  of  files  in  grid. 

/ B I CU6E/< 

9 ) 

BLINE 

I 

IFAAK 

The  smallest  value  of  the  second  Independent  variable 
of  a bivariate  table. 

/BI CUBE/l 

5 ) 

BLINE 

I 

AAIN 

The  largest  value  of  the  second  Independent  variable 
of  a bi var 1 ate  table. 

/BICUBE/( 

6 ) 

BLINE 

I 

AAAX 

Last  rank  in  the  grid  in  nhlch  interpolation  occurred. 

/BICUBE/l 

7 ) 

BLINE 

A 

IB 

Total  nuaber  of  ranks  In  grid. 

/BI CUBE/( 

6 1 

BLINE 

I 

IRANI 

Logical  unit  nuaber  on  ahlch  bicubic  spline 
coefficients  are  stored  for  this  table. 

/BI CUBE/C 

9 ) 

BLINE 

I 

1 UNI  T 

Srid  rectangle  associated  alth  1 Tt  and  IF. 

/BICUBE/t 

ID) 

BLINE 

A 

mn 

Logical  record  on  IUNIT  that  contains  spline 
coefficients  far  rectangle  IRECT. 

/BICUBE/t 

11  ) 

BLINE 

A 

IREC 

A 32  eord  array  containing  the  spline  coefficients  for 

/BlCUBE/( 

12  ) 

BLINE 

0 

c 

the  tao  bivariate  functions  at  rectangle  IRECT. 

BLINE 

I 

CLOO 

Description  not  Input 

/BICUBE/I 

13) 

BLINE 

I 

CLIO 

Description  not  input 

/SI CUBE/( 

19) 

BLINE 

I 

CL20 

Description  net  input 

/BI CUBE/I 

15) 

BUNE 

1 

CL30 

Description  not  Input 

/BI CUBE/C 

lb) 

BLINE 

I 

CL01 

Description  not  input 

/BI CUBE/( 

17  ) 

BLINE 

I 

CL1 1 

Description  not  Input 

/BICUBE/t 

16  1 

BLINE 

l 

CL21 

Description  net  input 

/BI CUBE/( 

19) 

BLINE 

I 

CL31 

Description  not  input 

/BI CUBE/( 

20  ) 

BLINE 

I 

CL02 

Description  not  Input 

/BICUBE/I 

21  ) 

BLINE 

I 

CL12 

Description  not  Input 

/ BI CUBE/( 

22) 

BLINE 

I 

CL22 

Description  not  input 

/ BI CUBE/1 

23) 

BLINE 

I 

CL32 

Description  not  input 

/BI CUBE/( 

29  ) 

BLINE 

I 

CL03 

Description  not  input 

/BICUBE/t 

25  ) 

BLINE 

I 

CL13 

Description  not  Input 

/BICUBE/l 

2b) 

BLINE 

I 

CL23 

Description  not  Input 

/BI CUBE/C 

27) 

BLINE 

I 

CL33 

Description  not  Input 

/BICUBE/l 

28) 

BLINE 

1 

CDOO 

Description  not  Input 

/BICUBE/l 

29) 

BLINE 

I 

CD  10 

Description  net  Input 

/BI CUBE/C 

30) 

BLINE 

I 

CD20 

Description  not  Input 

/BICUBE/l 

31  ) 

BLINE 

I 

CD30 

Description  not  input 

/BICUBE/l 

32) 

BLINE 

I 

CD01 

Description  not  Input 

/BICUBE/l 

33) 

BLINE 

I 

CD1 1 

Description  not  Input. 

/BICUBE/l 

39  ) 

BLINE 

I 

CD21 

Description  not  Input 

/BI CUBE/l 

35  ) 

BLINE 

l 

CD31 

Description  not  Input 

/BI CUBE/l 

3b  ) 

BLINE 

I 

C002 

Description  not  Input 

/BI CUBE/l 

37  ) 

BUNE 

I 

CD22 

Description  not  input 

/BICUBE/l 

3B  ) 

BLINE 

I 

CD22 

Description  not  input 

/BICUBE/l 

39  ) 

BLINE 

I 

CD32 

Description  not  Input 

/BI CUBE/l 

90  ) 

BLINE 

I 

C003 

Description  not  Input 

/BICUBE/t 

91  ) 

BLINE 

I 

CD13 

Description  not  Input 

/BICUBE/l 

92) 

BLINE 

I 

CD23 

Description  not  input 

/BICUBE/l 

93) 

BLINE 

I 

CD33 

A IbO  aord  array  containing  logical  record  1REC. 

/BI CUBE/l 

99) 

BLINE 

1 

T 
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FOfUflftH 

symbol 


MATH 

SYMBOL 


DESCRIPTION 


A 31  nord  array  containing  tho  neth  ig,  i|, ...fin  /BICUBE/I  20*0  SLIME  I ALFA 

A 31  nord  array  containing  t*»e  ««»h  yg,  /BfCU8E/<  235  ) SLIME  t MACH 


ALFA 

MACH 
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BL0CK 
BL  0CK 


-777 


FORTRAN  HATH 

SVft&OL  SVftBOL 


DESCRIPTION  - Voc"  nmmv 


nc 


iict 


ITC 


JTab 


ITCT 


LT  Aft 


NO KNOW 


NOC 


VALIC 


VALTC 


A 10*20  irny  containing  th*  Initial  condition  code* 
for  the  QL  state  vector.  The  columns  correspond  to 
subarc  starting  points,  the  root,  to  QL  stote 
ear  t ablet . 


A 10*20  array  containing  th«  target  condition  codes 
for  the  state  vector.  The  colunns  correspond  to  the 
subarc  end  points.  The  nontero  entries  in  a colgan 
are  the  state  target  condition  cedes  that  apply  at  the 
end  of  the  corresponding  subarc. 


A 10*20  array  containing  the  Initial  condition  codes 
for  the  QL  costate  vector.  The  colunns  correspond  to 
subarc' at  art i ng  points,  the  roes,  to  QL  costate 
var I ables . 


An  array  containing  the  number  of  nontero  entries  In 
each  column  of  the  array  I1CT. 


A 10*20  array  containing  the  QL  costate  analog  to  the 
array  1 1 CT . The  columns  correspond  to  subarc  end 
points.  The. nontero  entries  In  a column  are  the 
nunbers  of  those  coaponents  of  the  vector  8 In 
Equation  16.6-3M  of  Volume  I of  the  PADS  document  that 
contain  the  value  of  a costate  target  condition  that 
applies  at  the  end  of  the  corresponding  subarc. 

An  array  containing  the  number  of  nonsero  entries  In 
each  column  of  the  array  ITCT. 


The  total  number  of  free  (unknomn)  state  and  costate 
variables  over  all  the  subarcs. 


An  array  containing  a running  total  of  the  number  of 
free  (unknomn)  state  and  costate  var I ables  at  the 
start  of  each  subarc. 


A 10x20  array  containing  the  desired  values  of  all  the 
fixed  (knoen)  QL  state  variables.  The  colunns 
correspond  to  the  subarc  starting  points,  the  roes,  to 
OL  state  variables. 

A 10x20  array  containing  the  desired  values  of  the 
state  target  conditions  ukase  codes  appear  In  the 
array  IICT. 


/BLOCK  /( 


/BLOCK  /< 


/BLOCK  /( 


/BLOCK  /( 


/BLOCK  /( 


/BLOCK  /( 


/BLOCK  /( 


/BLOCK  /( 


/BLOCK  /( 


1)  BCOND  ft 
BRANPT  I 
CHECK  I 
COSTAB  I 
C0STA1  I 
COST  AO  I 
JNTRPT  I 
SALVE  I 

201)  CHECK  I 
COSTAB  ft 
COST  At  * 
COST  AO  0 
MACIC  0 
SALVE  I 

toil  BCONO  0 
BRANPT  1 
CHECK  1 
COSTAB  1 
COSTA!  i 
ENOPT  1 
INTRPT  1 

601  > BCONO  It 
BRANPT  1 
CHECK  I 
COSTAB  l 
COSTA!  I 
ENOPT  1 
INTRPT  I 
HAGIC  1 

621  ) BCOND  0 
BRANPT  I 
CHECK  1 
COSTAB  0 
COSTA!  0 
INTRPT  I 
ftAGIC  0 

821)  BCOND  0 
BRANPT  I 
COSTAB  0 
COSTA!  0 
INTRPT  I 
ftAGIC  * 

811  ) CHECK  I 
COHOnO  I 
COSTAB  ft 
COST AI  ft 
COSTAO  ft 
GROPE  I 
BASIC  I 

8H2)  BNORV  I 
BRANPT  ! 
COSTAB  0 
COSTA!  0 
COSTAO  0 
INARC  I 
INTRPT  I 
SALVE  1 
URAPUP  I 

862)  BCOND  ft 
SALVE  I 


/BLOCK  /(  1062)  BCOND  0 
BRANPT  I 
CHECK  I 
ENOPT  1 
INTRPT  I 


IIC 

IIC 

IIC 

IIC 

IIC 

1!C 

IIC 

IIC 

IICT 

IICT 

IICT 

IICT 

IICT 

IICT 


ITC 

ITC 

ITC 

ITC 

ITC 

ITC 

ITC 


JTAB 

JTAB 

JTAB 

JTAB 

JTAB 

JTAB 

JTAB 

JTAB 


ITCT 

ITCT 

ITCT 

ITCT 

ITCT 

ITCT 

ITCT 


LT  AB 
LT  AB 
LTAB 
LT  AB 
LTAB 
LTAB 

NQKNOW 
NO  KNOW 
NO KNOW 
NO  KNOW 
NOKNOW 
NOKNOW 
NOKNOW 


NOC 

NOC 

NOC 

NOC 

NOC 

NOC 

NOC 

NOC 

NOC 

VALIC 

VALIC 


VALTC 

VALTC 

VALTC 

VALTC 

VALTC 
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EAOPT  I 1 P AY 
IMTRPT  I IPAY 
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BL0CK 

CNTRL 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


NU 

The  largest  number  of  quantities  requiring  nuaer leal 
integration  per  QL  iteration. 

/CNTRL  /< 

I) 

CHECK 

0 

NU 

ITER 

/CNTRL  /< 

2 ) 

ETIME 

M 

ITER 

GROPE 

M 

ITER 

OUTPUT 

I 

ITER 

IT  APR 

Nunber  of  the  logical  unit  containing  the  quasltinc 

/CNTRL  /< 

3) 

GROPE 

0 

1 TAP  A 

histories  of  the  particular  and  homogeneous  solutions 
from  the  preceding  OL  iteration. 

NOMNAL 

1 

ITAPA 

I T APB 

Nunber  of  the  logical  unit  onto  ohlch  the  quasitiae 

/CNTRL  /( 

9 ) 

GROPE 

e 

IT  APB 

histories  of  the  particular  and  heaogeneous  solutions 

SALVE 

1 

ITAPB 

jmin 

Not  used. 

/CNTRL  /( 

5) 

JMAX 

Not  used. 

/CNTRL  /( 

6) 

LIMES 

Not  used. 

/CNTRL  /t 

T> 

CHECK 

0 

LINES 

APT 

The  subarc  point  nuaber . KPT  = 1 on  the  first  point 

/CNTRL  /< 

8) 

BCONO 

0 

KPT 

of  subarc,  and  KPT  = NPTS  on  the  last  point  of  the 

BNDRV 

0 

KPT 

subarc . 

FORCES 

I 

KPT 

MAGIC 

0 

KPT 

RKUTT1 

1 

KPT 

SALVE 

M 

KPT 

URAPUP 

M 

KPT 

MOM 

/CNTRL  /( 

9 > 

GROPE 

0 

MOM 

i ntegr ated. 

INARC 

M 

MOM 

LINORV 

I 

MOM 

NOMNAL 

1 

MOM 

SALVE 

M 

MOM 

URAPUP 

M 

MOM 

KARO 

The  total  nuaber  of  hoaogeneous  solutions  eventually 
to  be  integrated. 

/CNTRL  n 

10) 

CHECK 

M 

KARO 

INDX 

An  array  of  four  nords  that  indicate  to  Adaas-ftoolten 

/CNTRL  f{ 

11) 

BCQND 

M 

INOX 

integration  in  ohat  order  the  derivatives  of  the 

MADAMS 

M 

INDX 

particular  and  hoaogeneous  solutions  are  stored. 

SALVE 

0 

I NDX 

NEUNOM 

A logical  flag  that  Indicates  to  the  Runge-Kutts, 

/CNTRL  /( 

15) 

INTERP 

0 

NEUNOM 

Integration  ahether  or  not  the  system  Jacobian  needs 

LINORV 

M 

NEUNDM 

to  be  reevaluated. 

RKUTT1 

0 

NEUNOM 

SALVE 

0 

NEUNOM 

URAPUP 

0 

NEUNOM 

CNT016 

Net  used. 

/CNTRL  /< 

16) 

RHOC 

The  magnitude  of  the  error  In  the  current  OL 

/CNTRL  /( 

17) 

CHECK 

0 

RHOC 

iteration. 

GROPE 

M 

RHOC 

R MOP 

The  magnitude  of  the  error  In  the  preceding  OL 

/CNTRL  /< 

18) 

CHECK 

0 

RHOP 

iteration. 

6R0PE 

M 

RHOP 

MPTS 

The  total  nuaber  of  points  la  the  subarc. 

/CNTRL  /( 

19) 

BCONO 

0 

NPTS 

BNDRV 

0 

NPTS 

FORCES 

I 

NPTS 

INARC 

M 

NPTS 

MAGIC 

0 

NPTS 

SALVE 

M 

NPTS 

URAPUP 

0 

NPTS 

MINES 

Not  used. 

/CNTRL  /< 

20) 

CHECK 

0 

MINES 

KP  AGE 

Not  used. 

/CNTRL  /< 

21) 

CHECK 

0 

KPA6E 

GROPE 

0 

KPA6E 

NNP 

/CNTRL  /( 

22) 

CHECK 

M 

NNP 

INTERP 

I 

NNP 

NUP 

Saae  as  NU. 

/CNTRL  /( 

23) 

'CHECK 

0 

NUP 

GROPE 

I 

NUP 

IN  ARC 

1 

NUP 
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FORTRAN 

svnaoL 


HATH 

SYftBOL 


DESCRIPTION 


gw 


1 ARC  I Subarc  nueber . /CNTRL  /(  2ft  > ARCIN  1 I ARC 

BCOND  ft  I ARC 
BNORY  ft  I ARC 
BRANPT  I I ARC 
CHECK  A 1 ARC 
COSTAB  I I ARC 
COSTA!  I I ARC 
ENOPT  I I ARC 
FORCES  1 I ARC 
INARC  ft  I ARC 
1NTRPT  I 1 ARC 
AAG1C  ft  I ARC 
ftARCH  I I ARC 
QLTOSZ  I I ARC 
SALYE  ft  I ARC 
WRAPUP  ft  1 ARC 


TRSTR 

Not  o i a d . 

/CNTRL  /( 

25  ) 

CHECK 

1 

TRSTR 

ETIftE 

ft 

TRSTR 

I MAX 

Not  used. 

/CNTRL  /( 

26) 

KTIftE 

Not  eaed. 

/CNTRL  /( 

27) 

KONYER 

Logical  flag  that  indicate*  to  tho 

QL  nodule  that 

the 

/CNTRL  /( 

26) 

algcom 

1 

KONYER 

QL  iteration  Is  converged. 

APPLY 

I 

KONYER 

ARCIN 

I 

KONYER 

COHOftO 

0 

KONYER 

GROPE 

0 

KONYER 

NLORY 

I 

KONYER 

OUTPUT 

1 

KONYER 

RKUTT 1 

I 

KONYER 

NOPRNT 

Nat  eaed. 

/CNTRL  /( 

29) 

OUTPUT 

ft 

NOPRNT 

SALYE 

0 

NOPRNT 

TRAJ1M 

0 

1PRNT 

1NBDRY 

Not  eaed. 

/CNTRL  /( 

30) 

CHECK 

0 

INBORY 

NUPAGE 

Net  eaed. 

/CNTRL  /< 

31  ) 

! VARY 

/CNTRL  /( 

32) 

NN 

The  nuaber  of  quantttlea  currently 

be  1 ng  noser i c a 1 

1 ly 

/CNTRL  /( 

52) 

BNDRY 

ft 

NN 

i ntegr ated. 

INARC 

ft 

NN 

flADAftS 

I 

Ml 

ftAGlt 

ft 

Nft 

NO ANAL 

1 

NN 

RKUTT 1 

I 

NN 

RKUTT2 

I 

NN 

SALVE 

ft 

NN 

WRAPUP 

ft 

NN 

NO VARY 

Not  eaed. 

/CNTRL  /( 

53) 

PLAST 

Nat  eaed. 

/CNTRL  /< 

5ft  ) 

ZLAST 

Not  eaed. 

/CNTRL  /( 

55) 

KOOES 

Not  eaed. 

/CNTRL  /( 

56) 

GROPE 

0 

KOOES 

NLDRY 

ft 

KOOES 

WRAPUP 

0 

KOOES 
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BL0CK 


FORTRAN 

SYMBOL 


MAT  M 
SYMBOL 


DESCRIPTION 


STORAGE 


BLOCK 


SUBROUTINE  USAjjE 


LOC  SUBR  CODE 


The  quasitlna  variable. 


/ 0 


NOM 

GAN 


PSI 


H 

h 

Integration  step  site  In  quilltlaa. 

/O 

/( 

2) 

XI 

A four  aord  array  containing  the  first  four 
quasttlne  In  tha  auharc. 

values 

of 

/o 

/< 

3) 

MA6BV 

Tha  nagnituda  of  all  of  tha  declred  values 
stata  target  conditions. 

of  tho 

/D 

/( 

7) 

ERR 

Convarganca  criterion  of  iteration  for  the 

c' s . 

/D 

n 

8 > 

09 

Not  used. 

/O 

n 

9) 

DIO 

Not  used. 

TO 

n 

IQ) 

C 

c 

A forty  nord  array  containing  tha  vactor  of 
tha  nultlpliars  for  the  homogeneous  solutlo 

c's,  i 

ns. 

/O 

/< 

11) 

CSAVE 

/O 

n 

51) 

V 

V 

Ra 1 at  1 ve  velocity. 

( FT75EC  > 

/o 

/( 

91  ) 

l I alm  I 
BNDflY  0 
ERROR  I 
FETCH  0 
FORCES  I 
INARC  n 
INTERP  I 
MADAMS  M 
RKUTT1  M 
RKUTT2  M 
SALVE  M 
STATEF  I 
HRAPUP  M 

ALN  1 
INARC  M 
MADAMS  I 
RKUTT1  I 
RXUTT2  1 
SALVE  M 
WRAP  UP  M 

INTERP  I 
SALVE  0 

CHECK  M 
I 

0 
1 


NEMCS 


NEMCS 


BRANPT  I 
GROPE  I 
1 NT APT  1 
NEMCS  M 
NLORV  1 
NOMNAL  1 
WRAP UP  I 


ALA 

ALT 

ALB 

AL9 

BCOND 

BNDRY 

BRANPT 


A tnanty 
vectors . 

nord  array  containing  tha 

state  and  costata 

/D 

/( 

91) 

Ra 1 at) ve 

f 1 1 ght  path  angla. 

(RAD) 

/D 

/( 

92) 

Relative 

a i i nut h ang 1 a . 

(RAD) 

/O 

/( 

93) 

ENDPT 
ENVPRQ 
FETCH 
INTERP 
INTRPT 
NLORV 
NLORV 
OUTPUT  I 
POBCQL  I 
STATEF  I 
WRAP UP 


ENVPRQ  1 
OUTPUT  1 
STATEF  I 
WRAP UP  1 


STATEF  I 
WRAPUP  I 


1 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

TT 

H 

H 

H 

H 

H 

H 

OT 

XI 
XI 

HA6BV 

MA6BV 

ERR 

ERR 


CONTRL  I 


NOM 

NOM 

NOM 

NOM 

NOM 

NOM 

NOM 


GAM 

GAM 

GAM 

GAM 

GAM 

PSI 

PSI 

PSI 


10  NOV  72  6.01-47 


f ORTR&N 
SVP10OL 


«ATH 

SVflBOL 


DESCRIPTION 


tjirnM  wff 


ALT 

h 

Attitude 

t FT  ) 

/O 

n 

9*0  OUTPUT 

1 

ALT 

STATEF 

I 

ALT 

NR  AP  UP 

I 

alt 

A HO 

fi 

Lot  1 1 tide 

( RAO) 

/O 

/( 

95 ) AL9 

I 

RHO 

OUTPUT 

I 

RHO 

STATEF 

I 

RHO 

WRAP UP 

I 

RHO 

mi 

Relative  long! t ude 

(RAO) 

/O 

/( 

96)  OUTPUT 

I 

ftU 

PDBCQL 

I 

ftU 

WRAP UP 

1 

«U 

ft 

■ 

ftass 

(6'$  > 

/D 

/( 

9T  ) ALA 

I 

ft 

ALT  I ft 
AL8  I ft 
AL9  I ft 

APPLY  1 ft 
BRANPT  I ft 
COSTAS’  1 ft 
COSTAI  I ft 
INTRPT  I ft 
ALDA Y I N 
OUTPUT  I ft 
SALVE  I ft 


TAU 

T 

Subarc  duretloa 

(SEC) 

J 0 

/( 

98) 

STATEF  I 
WRAPUP  1 

ARCEft  1 

ft 

ft 

TAU 

HT 

Q 

He  at  I ag 

( BTU ) 

/D 

/< 

99) 

INARC  ft 
NLORV  1 
OUTPUT  I 
STATEF  I 

OUTPUT  1 

TAU 

TAU 

TAU 

TAU 

NT 

LV 

X 

Relative  velocity  coatate 

/D 

/( 

100) 

WRAPUP  I 
AL1  I 

NT 

LV 

LGAft 

V 

X 

Relative  flight  path  angle  ceatate 

/O 

/( 

101  ) 

CONTRL  I 
NLDRV  1 
NPLANE  I 
OUTPUT  1 
WRAPUP  1 

AL1  1 

LV 

LV 

LV 

LV 

LV 

LGAft 

7 

ARC1M  I 
CONTRL  I 
NLORV  I 
OUTPUT  I 
WRAPUP  I 

LGAft 

LGAft 

LGAft 

L6Aft 

LGAft 

LPSI 

Relative  etlauth  angle  ceatate 

/D 

/( 

102) 

AL1 

I 

LPSI 

* 

ARCIft 

I 

LPSI 

CONTRL 

I 

LPSI 

NLORV 

1 

LPSI 

OUTPUT 

I 

LPSI 

WRAPUP 

I 

LPSI 

LR 

\ 

Altitude  coatate 

/D 

/< 

103) 

NLDRV 

I 

LR 

R 

OUTPUT 

I 

LR 

WRAPUP 

I 

LR 

LRHO 

X 

Latitude  ceatate 

/D 

/< 

1 0 A ) 

NLDRV 

I 

LRHO 

P 

OUTPUT 

I 

LRHO 

WRAPUP 

I 

LRHO 

L«U 

X 

Relative  longitude  coatate 

/O 

/( 

105  ) 

NLDRV 

I 

LftU 

u 

OUTPUT 

1 

LftU 

WRAPUP 

I 

LftU 

Lft 

X 

ftaaa  ceatate 

/O 

n 

106) 

NLDRV 

1 

Lft 

a 

OUTPUT 

1 

Lft 

WRAPUP 

1 

Lft 

ltau 

X 

Subarc  duration  ceatate 

/O 

n 

107  ) 

OUTPUT 

I 

LTAU 

T 

WRAPUP 

I 

LTAU 

LHT 

X„ 

Heating  ceatate 

/O 

a 

108) 

NLDRV 

I 

LHT 

Q 

WRAPUP 

1 

LHT 

/( 


0109 

10  NOV  72  G. 01-97 


Not  us«d 


/D 


109) 


FORTRAN 

SVflBOL 


HATH 

SVHSOL 


DESCRIPTION 


stqb«6e 

BLOCK LOC  SUBR  CODE VAR 


DUO 

Not  «i«4. 

/D 

/( 

UO) 

bv 

A forty  aord  array  not  uaad. 

/O 

/( 

tin 

ZSAVE 

A tacnty  aord  array  containing  the  valuta  fron  tfc» 

/O 

/( 

m > 

BCONO 

0 

ZSAVE 

Initial  arc  of  the  atata  and  coatata  at  tht  Initial 

BRANPT 

1 

ZSAVE 

point  of  tht  trajectory. 

COSTAB 

1 

ZSAVE 

COST  AI 

I 

ZSAVE 

INTRPT 

I 

ZSAVE 

POBCOL 

I 

ZSAVE 

SALVE 

I 

ZSAVE 

QT 

A tacnty  aerd  array  containing  tht  valuta  fron  tht 

/D 

/( 

171  ) 

INARC 

0 

QT 

initial  arc  of  tht  aucctaalvt  subarea'  durations 

WRAP UP 

* 

QT 

NP01NT 

A tacnty  aord  array  containing  tht  nuabtr  of  points  in 

/O 

/< 

191  ) 

INARC 

0 

NP01NT 

tach  subarc. 

SALVE 

I 

NP01NT 

OELT 

A tacnty  aord  array  containing  tha  quasltiat  conputa 

/O 

/( 

211  ) 

CHEC* 

0 

OELT 

interval  for  tach  subarc. 

ERROR 

I 

OELT 

INARC 

1 

DELT 
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BL0CK 

DYNA 


FORTRAN 

SYNBOL 


NATH 

SYNBOL 


DESCRIPTION 


giW 


XI 

Fraction  of  subarc  that  has 

transpired 

/OYNA 

/( 

1)  ARCIN 

0 

XX 

ERROR 

I 

XX 

OUTPUT 

I 

XX 

STATEF 

N 

XX 

TINE 

Trajectory  tins 

(SEC) 

/DYNA 

/( 

2)  ENYPRO 

I 

TINE 

OUTPUT 

I 

TINE 

POBCOL 

I 

TINE 

STATEF 

N 

TINE 

WRAP  UP 

I 

TINE 

SINGAN 

si  n> 

Sat  ayabol 

/OYNA 

/( 

3)  All 

I 

SINGAN 

ALA 

I 

SINGAN 

AL7 

I 

SINGAN 

ALB 

1 

SINGAN 

ALA 

I 

SINGAN 

CONTRL 

I 

SINGAN 

NLORV 

I 

SINGAN 

POBCOL 

I 

SINGAN 

STATEF 

N 

SINGAN 

COSGAN 

C O S 7 

Sae  ayabal 

/OYNA 

/( 

A)  AL1 

I 

CO SCAN 

ALA 

I 

C0S6AN 

ALT 

1 

COSGAN 

ALB 

I 

COS GAN 

ALA 

1 

COSGAN 

CONTRL 

I 

C0S6AN 

NLORY 

I 

COSGAN 

OUTPUT 

l 

COSGAN 

POBCOL 

I 

COSGAN 

STATEF 

N 

COSGAN 

ONEGA 

at 

Earth  rotation  rato 

(RAD/SEC) 

/OYNA 

/< 

5)  ALA 

I 

ONEGA 

ALT 

1 

ONEGA 

CONTRL 

1 

ONEGA 

POBCOL 

I 

ONEGA 

TRAJIN 

H 

ONEGA 

0NEGA2 

^2 

Saa  ay  aba 1 

/OYNA 

/( 

6)  ALA 

I 

0NE6A2 

V 

ALT 

I 

0NE6A2 

ALB 

I 

0NEGA2 

ALA 

I 

0NEGA2 

NLORV 

I 

0NEGA2 

TRAJIN 

0 

0NEGA2 

R 

R 

Radial  distance  froa  earth 

center  to  vehicle  (FT) 

/DYNA 

/( 

7)  ALA 

1 

R 

ALT 

1 

R 

ALB 

1 

R 

ALA 

I 

R 

CONTRL 

I 

R 

ENVPRQ 

1 

R 

NLORV 

1 

R 

POBCOL 

I 

R 

OLTOSZ 

I 

R 

STATEF 

N 

R 

6 

9 

I nst  ant  antotts  gravitational 

acceleration  (FT/SEC2) 

/OYNA 

/( 

8)  ALA 
ALT 

I 

1 

G 

6 

AL8 

1 

G 

ALA 

1 

G 

CONTRL 

I 

G 

NLORV 

1 

G 

STATEF 

N 

6 

SINA 

s i no 

See  synbal 

/OYNA 

/( 

A)  AL1 

1 

SINA 

ALA 

1 

SINA 

ALB 

I 

SINA 

ALT 

I 

SINA 

ALB 

I 

SINA 

ALA 

1 

SINA 

APPLY 

I 

SINA 

CONTRL 

1 

SINA 

OUTPUT 

I 

SINA 

TH3 

I 

SINA 

UT 

N 

SINA 
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FORTRAN 

SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

fclOCn  LbC  SU&A  CODE  VAfl 


COSA 

CO** 

Soo  syabol 

/OYNA 

/( 

10) 

AL1 

1 

COSA 

AL9 

1 

COSA 

AL6 

I 

COSA 

ALT 

I 

COSA 

ALB 

1 

COSA 

AL9 

I 

COSA 

APPLY 

1 

COSA 

CONTRL 

1 

COSA 

NLDRV 

I 

COSA 

OUTPUT 

I 

COSA 

TH3 

1 

COSA 

UT 

M 

COSA 

OYNOU 

Nat  used. 

/DYNA 

/( 

11  ) 

OMEGAT 

2 nr 

Soo  syabol 

/OYNA 

/( 

12) 

NLDRV 

I 

OMEGAT 

TRAJIN 

0 

OMEGAT 

TAMP 

T. 

Ataosphorlc  toaporoturo 

(OEG-R) 

/ OYNA 

/( 

13) 

STATEF 

I 

TAMP 

PA 

Ataoipherie  pressure 

( LBS/FT2 ) 

/OYNA 

/( 

IN) 

IMPULS 

I 

PA 

A 

NLDRV 

I 

PA 

OUTPUT 

.1 

PA 

TH2 

I 

PA  ‘ 

RO 

Ataospbartc  density 

(SL6S/FT3) 

/DYNA 

/< 

1$  ) 

AL7 

AL8 

I 

I 

RO 

RO 

AL9 

I 

RO 

NLDRV 

1 

RO 

OUTPUT 

I 

RO 

PDBCflL 

1 

RO 

STATEF 

I 

RO 

CS 

a 

Speed  of  toaad 

TEMPR 

dT#/9R 

See  syabol 

PAR 

dP#/dR 

See  syabol 

ROR 

ap#/3R 

See  syabol 

CSR 

da/dR 

Soo 

sy abo 1 

TEMPRR 

32Tt/3R2 

Soe 

sy abo 1 

PARR 

32P>/3R2 

See 

sy abo 1 

RORR 

32p>/3R2 

See 

sy  abo I 

CSRR 

KODE 


MACH 


a28/aR2 


n 


See  syabol 


Steer I no 
KOOE 
KODE 
(CODE 
KODE 
KOOE 
KOOE 


vector  f I ag 

= 0:  Fret  foil,  « = 4 = 0; 

- ):  Both  b and  4 opt  I eel  * 

= 2:  » optlegj  and  4 s 0; 

= 3:  * no  nop 1 1 oa 1 and  4 optieai; 
= 9:  Vortical  rise  or  pltchooorj 
= 5:  • nonoptloai  and  # = 0. 


Mach  ngaber 


(FT/SEC)  /OYNA  /( 

/DYNA  /( 
/OYNA  /( 

/DYNA  /( 

/OYNA  /( 
/OYNA  /( 

/OYNA  /( 

/OYNA  /( 

/OYNA  /( 
/DYNA  /( 


/OYNA  /( 


U) 

OUTPUT 

I 

CS 

STATEF 

1 

CS 

17) 

16) 

APPLY 

I 

PAR 

TH2 

I 

PAR 

19  ) 

AL7 

I 

ROR 

ALS 

I 

ROR 

AL9 

I 

ROR 

NLDRV 

I 

ROR 

PDBCQL 

I 

ROR 

STATEF 

I 

ROR 

20) 

STATEF 

I 

CSR 

21  ) 


22  ) 

APPLY 

I 

PARR 

TH2 

1 

PARR 

23) 

AL7 

I 

RORR 

ALB 

I 

RORR 

AL9 

I 

RORR 

NLDRV 

I 

RORR 

STATEF 

I 

RORR 

29) 

STATEF 

I 

CSRR 

25  ) 

APPLY 

I 

KOOE 

ARC1N 

0 

KODE 

CONTRL 

M 

KODE 

FORCES 

I 

KODE 

NLDRV 

t 

KOOE 

STATEF 

I 

KOOE 

26) 

AEROCO 

I 

MACH 

ENVPRQ 

1 

MACH 

OUTPUT 

1 

MACH 

STATEF 

M 

MACH 
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FORTRAN 

SVHBOL 


HATH 

SYnaoL 


DESCRIPTION 


B^°RAG-Euic’  w 


0 

q 

( LBS/FT2) 

/DVNA 

/( 

27  ) 

ENYPRO 

I 

0 

OUTPUT 

I 

& 

POftCQL 

1 

a 

STATEF 

N 

0 

UT 

I 

0 

QV 

dq/dV 

/DVNA 

/( 

26  ) 

POBCQL 

I 

ov 

STATEF 

N 

ov 

UT 

I 

ov 

OR 

dq/dR 

Sm  lyabol 

/DYNA 

/( 

29) 

PDBCOL 

1 

OR  . 

STATEF 

N 

OR 

UT 

I 

OR 

QVV 

d2q/dV2 

Stt  Isabel 

/DYNA 

/( 

30) 

STATEF 

UT 

N 

I 

OVV 

OVV 

QVR 

32q/dVdR 

/OYNA 

/( 

31  ) 

STATEF 

UT 

N 

I 

OVR 

QVR 

QRR 

d2q/dB2 

/DYNA 

/( 

32) 

STATEF 

UT 

n 

1 

QRR 

8RR 

FVAC 

Total  vicuna  throat  (rocket) 

( LBS) 

/OYNA 

/( 

33) 

APPLY 

I 

FVAC 

ARCIN 

N 

FVAC 

INPULS 

N 

FVAC 

NLORV 

1 

FVAC 

STATEF 

N 

FVAC 

TN2 

I 

FVAC 

F VACV 

Not  tat*. 

/DYNA 

/( 

39) 

FVACR 

Nat  uttd . 

/DYNA 

/( 

35) 

FVACN 

Not  aiai. 

/DYNA 

/( 

36) 

FVACT 

Not  «at4. 

/DYNA 

/( 

3T  ) 

ARCIN 

I 

FVACT 

STATEF 

N 

FVACT 

TH2 

1 

FVACT 

F VAC VV 

Not  good. 

/DYNA 

/( 

38) 

FVACVR 

Not  uatA. 

/DVNA 

/( 

39) 

FVACRR 

Not  « a • 4 . 

/DYNA 

/( 

90) 

fvactt 

Not  wa  td. 

/DYNA 

/( 

91  > 

ARCIN 

FVACTT 

STATEF 

FVACTT 

TM2 

FVACTT 

T 

T 

Throat 

( LBS) 

/DYNA 

/( 

92  ) 

ALGCON 

T 

AL1 

T 

AL9 

T 

AL6 

T 

ALT 

T 

AL6 

T 

AL9 

T 

APPLY 

T 

ARCIN 

T 

CONTRL 

T 

0L2 

T 

INPULS 

T 

OUTPUT 

T 

TH1 

T 

TH2 

T 

TH3 

T 

TH9 

T 

NACHV 

am/ av 

S««  afabal 

/OYNA 

/( 

93) 

STATEF 

NACHV 

UT 

NACHV 

NACHR 

an/dR 

Sot  ayaboi 

/DYNA 

/( 

99) 

STATEF 

NACHR 

UT 

NACHR 

ISP 

loo 

Vaeuga  aptclfic  lepoiaa 

(SECS) 

/DVNA 

/( 

95) 

APPLY 

ISP 

SP 

ARCIN 

0 

ISP 

INPULS 

0 

ISP 

I5PV 

Not  «»td. 

/DYNA 

/( 

96) 

I 5PR 

Net  oaed. 

/DYNA 

/( 

97) 

ISPH 

Not  u»«4. 

/DYNA 

/( 

98) 
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DESCRIPTION 


SIMAai 

BLOCH  LO 


ISPT 

Mot 

mil. 

/DYNA 

/< 

A9) 

ISPVY 

Mot 

mat. 

/DYNA 

/< 

50) 

ISPVR 

Not 

aiti. 

/OYNA 

/( 

51) 

1SPY* 

Not 

vtti. 

/DYNA 

/( 

52) 

I5PYT 

Not 

«aso4. 

/DYNA 

/I 

53) 

ISPRR 

Not 

tiftoO. 

/DYNA 

/( 

5A  ) 

I SPAN 

Not 

«i«4. 

/DYNA 

/< 

55) 

ISPRT 

Not 

atat. 

/DYNA 

n 

56) 

ISPW 

Not 

mat. 

/DYNA 

/< 

57) 

ISPNT 

Not 

utotf. 

/DYNA 

/( 

50) 

ISPTT 

Not 

aiat. 

/DYNA 

/< 

59) 

LIFT 

L 

Acr« 

'Oynoaic  lift 

< LBS  ) /DYNA 

n 

60)  ALA 

LIFT V dL/dV  5»«  sjafcol 


LIFTB  dL/dR 


LIFT*  dL/da  s,#  M"**1 


LIFT  VV  a^L/dV* 


LIFTV"  a®L/avsR  s"  *»•*•' 


LIFTVA  3*L/9V3«  S**  *>•*•* 


L1FTRR  .2i  / ^q2  S«t  tyabol 


AL5  I 
ALfc  I 
APPLY  I 
CONTRL  I 
ENVPRQ  I 
OUTPUT  I 
TM3  I 
UT  0 

61)  ALA  1 
AL5  I 
AL6  I 
APPLY  I 
TM3  I 
UT  0 

62)  ALA  I 
AL5  I 
AL6  I 
APPLY  I 
TH3  I 
UT  0 

63)  ALl  I 
ALA  I 
AL5  1 
AL6  I 
APPLY  I 
TH3  I 
UT  0 

6*1)  ALA  1 
AL5  I 
AL6  1 
APPLY  I 
TH3  I 
UT  0 

6$ ) ALA  I 
AL5  I 
AL6  I 
APPLY  I 
TH3  I 
UT  0 

66)  ALl  I 
ALA  I 
AL5  I 
AL6  1 
APPLY  I 
TH3  1 
UT  0 

67)  ALA  I 
AL5  I 
AL6  I 
APPLY  I 
TH3  I 
UT  Q 
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FORTRAN 

SYMBOL 


NATH 

SYftBOL 


DESCRIPTION 


LIFTRA 


OR  AS 


0RA6V 


DR  A SR 


DR  ASA 


ORAGVY 


DRASVR 


DRAGVA 


drasrr 


nnr 


MM 

subrCooe  var 


d2L/3Rda 

Sat  tyabil 

/OYNA 

/< 

6fl>  ALl 

alh 

I 

l 

LIFTRA 

LIFTRA 

ALB 

I 

LIFTRA 

ALA 

1 

LIFTRA 

APPLY 

1 

LIFTRA 

TH3 

1 

LIFTRA 

UT 

0 

LIFTRA 

0 

Atrody  naai c drag 

(LBS)  /OYNA 

n 

69)  AL5 

I 

OR  AS 

AL7 

1 

DRAG 

alb 

1 

DRAG 

AL9 

1 

DRAG 

APPLY 

1 

DRAG 

contrl 

I 

OR  AG 

ENVPRQ 

I 

DRAG 

NLDRV 

I 

DRAG 

OUTPUT 

1 

DRAG 

TH3 

I 

DRAG 

UT 

ft 

DRAG 

dD/dV 

S««  tyabil 

/OYNA 

a 

TO)  AL5 

1 

DRAGY 

AL7 

I 

0RA6Y 

ALB 

1 

DRAGY 

AL9 

I 

DRAGY 

APPLY 

1 

DRAGY 

TH3 

I 

DRAGY 

UT 

ft 

DRAGY 

ao/aa 

/DYNA 

n 

Tl)  ALB 

1 

DRAGR 

ALT 

I 

DRAGR 

ALB 

1 

DRAGR 

AL9 

I 

DRAGR 

APPLY 

I 

DRAGR 

TH3 

1 

DRAGR 

UT 

ft 

ORAGR 

30/da 

Sts  tyabil 

/OYNA 

n 

T2)  ALl 

I 

DRAGA 

ALB 

1 

ORAGA 

AL7 

I 

ORAGA 

AL8 

1 

DRAGA 

AL9 

1 

ORAGA 

APPLY 

I 

DRAGA 

TH3 

I 

ORAGA 

UT 

ft 

DRAGA 

d2D/dV* 

Sat  tyabal 

/OYNA 

n 

73)  ALB 
alt 

1 

1 

DRAGYY 

ORAGVY 

alb 

I 

DRAGYY 

AL9 

I 

DRAGYY 

APPLY 

1 

ORAGVY 

TH3 

1 

DRAGYY 

UT 

ft 

DRA6YY 

d2D/dVdR 

$••  tyabal 

/DYNA 

/( 

79)  ALB 
alt 

I 

1 

DRAGVR 

DRASVR 

alb 

1 

DRAGVR 

AL9 

1 

DRAGVR 

APPLY 

I 

DRAGVR 

TH3 

1 

DRAGVR 

UT 

ft 

DRAGVR 

a20/dVda 

/OYNA 

/< 

75  ) ALl 

alb 

1 

1 

DRAGVA 
DRAGY A 

ALT 

I 

DRAGVA 

ALB 

I 

DRAGVA 

AL9 

I 

DRAGVA 

APPLY 

I 

DRAGVA 

TH3 

l 

DRAGVA 

UT 

ft 

ORAGVA 

a20/3R* 

Set  tyabal 

/OYNA 

/< 

76)  AL5 
ALT 

I 

I 

DRAGRR 

DRASRR 

ALB 

I 

ORAGRR 

AL9 

1 

DRAGRR 

APPLY 

1 

DRAGRR 

TH3 

1 

DRAGRR 

UT 

ft 

DRAGRR 

FORTRAN 

SYMBOL 


HATH 

SYMBOL 


DESCRIPTION 


DRAGRA 

DRAGAA 

ALPHA 


PHI 

LIFT* 

LI  FT VH 

L1FTRN 

LIFT** 

LIFTHA 


STORAGE 

TOr  ttt 


SUBROUTINE  USA6E 
SUBR  CODE VAR 


d20/3Rda 

Sm  lytbil 

/DYNA 

/( 

7 7 ) 

AL1 

AL5 

I 

I 

DRAGRA 

DRAGAA 

ALT 

I 

DRAGRA 

ALB 

I 

DRAGAA 

AL9 

I 

DRAGRA 

APPLY 

1 

DRAGRA 

TH3 

I 

DRAGAA 

UT 

n 

DRAGRA 

d2D/8«2 

So*  tyibil 

/DYNA 

/( 

78  ) 

AL1 

AL5 

i 

I 

ORAGAA 

DRAGAA 

AL7 

i 

DRAGAA 

ALB 

7 

DRAGAA 

AL9 

I 

ORAGAA 

APPLY 

I 

DRAGAA 

TH3 

I 

ORAGAA 

UT 

* 

ORAGAA 

01 

Angle  of  attack 

(RAD) 

/DYNA 

/( 

79) 

AERQCO 

I 

ALPHA 

ALGCON 

* 

alpha 

AL2 

I 

ALPHA 

ARC1N 

* 

ALPHA 

CONTRL 

* 

ALPHA 

ENVPRQ 

i 

alpha 

HONE CO 

i 

ALPHA 

NPLANE 

* 

ALPHA 

OUTPUT 

I 

ALPHA 

TRAJIN 

0 

ALPHA 

UT 

i 

ALPHA 

NRAPUP 

i 

ALPHA 

Bonk  angle 

(RAD) 

/DYNA 

/( 

80) 

CONTRL 

* 

PHI 

OUTPUT 

I 

PHI 

WRAP UP 

I 

PHI 

dl/da 

So*  lylbol 

/OYNA 

/( 

8i  ) 

AL9 

I 

LIFT* 

AL5 

1 

LIFT* 

ALf> 

l 

LIFT* 

APPLY 

I 

LIFT* 

TH3 

1 

LIFT* 

UT 

0 

LIFT* 

d2L/dVd* 

Sot  tyabal 

/DYNA 

/( 

82) 

AL9 

AL5 

i 

i 

LIFT** 
LIFT Y* 

AL6 

i 

LIFT** 

APPLY 

i 

LIFT** 

TH3 

i 

LIFT** 

UT 

0 

LIFTY* 

a2L/8R3a 

Sto  tynbol 

/DYNA 

/( 

63) 

ALA 

AL5 

1 

I 

LIFTR* 

LIFTR* 

AL6 

1 

L1FTR* 

APPLY 

I 

LIFTR* 

TH3 

I 

LIFTR* 

UT 

0 

LIFTR* 

a2L/a«2 

5*«  fjfibtl 

/DYNA 

/( 

69) 

ALA 

AL5 

I 

I 

LIFT** 

LIFT** 

AL6 

I 

LIFT** 

APPLY 

I 

LIFT** 

TH3 

1 

LIFT** 

UT 

0 

LIFT** 

82L/ dada 

So*  tynbol 

/OYNA 

/( 

85) 

AL1 

ALA 

I 

I 

LIFT*A 

L1FT*A 

AL5 

I 

LI FT*A 

AL6 

I 

LIFT*A 

APPLY 

I 

LIFT*A 

TH3 

1 

LIFT*A 

UT 

0 

LIFT*A 

FORTRAN 

SVNBOL 


NATH 

SVNBOL 


DESCRIPTION 


DBR 

OBRR 

6ANNAD 

AE 

TAX 

W 

S1NPHI 

COSPHI 

5INP5I 

COSPSI 


STORAGE 
' BLfttV 


SUBROUTINE  USAGE 
SUBR  CODE VAR 


3Dfc/3R  S«*  t| afao I 


32D„/3R2  S»* 

ft 


Pitch  r at* 


Total  noxtlo  ailt  area 


Not  maA. 
y Height 


s | n#  So*  ay abo 1 


COS#  Sot  i jf  abo  I 


s 1 n*  5««  tyaho I 


cos#'  Si«  sjabel 


/OVNA  /( 

/OVNA  /( 

(RAO/SEC)  /OVNA  /( 
( FT 2 ) /OVNA  /( 

/OVNA  /( 
(LBS)  /OVNA  /( 

/OVNA  /( 
/OVNA  /( 

/OVNA  /( 
/OVNA  /( 


66  > 

AL1 

I 

OBR 

AL9 

1 

OBfi 

AL6 

1 

OBR 

ALT 

1 

DBA 

ALB 

1 

DBR 

AL9 

1 

DBR 

APPLY 

I 

DBR 

STATEF 

I 

DBR 

TH3 

I 

DBR 

UT 

I 

OBR 

67) 

AL9 

1 

DBRR 

AL6 

I 

DBRR 

AL7 

1 

DBRR 

AL6 

I 

DBRR 

AL9 

I 

DBRR 

APPLY 

I 

OBRR 

STATEF 

I 

OBRR 

TH3 

I 

OBRR 

UT 

1 

OBRR 

66) 

AL9 

I 

GANNAD 

ARCIN 

0 

6ANNAD 

CONTRL 

I 

GANNAD 

NLORV 

I 

GANNAD 

89) 

APPLY 

I 

AE 

ARCIN 

0 

AE 

INPULS 

1 

AE 

NLORV 

I 

AE 

TH2 

I 

AE 

90) 

91  ) 

AL5 

I 

U 

ENVPRQ 

I 

M 

OUTPUT 

I 

M 

POBCOL 

I 

U 

OLTOSZ 

I 

M 

STATEF 

N 

N 

TH3 

I 

u 

92) 

AL1 

I 

SINPHI 

ALA 

1 

S1NFHI 

APPLY 

I 

SINPHI 

CONTRL 

N 

SINPHI 

OUTPUT 

I 

SINPHI 

93  ) 

AL1 

I 

COSPHI 

ALA 

I 

COSPHI 

APPLY 

I 

COSPHI 

ARCIN 

0 

COSPHI 

CONTRL 

N 

COSPHI 

OUTPUT 

I 

COSPHI 

99) 

ALA 

I 

SINPSI 

ALT 

I 

S1NPS1 

AL8 

I 

SINPSI 

AL9 

I 

SINPSI 

CONTRL 

I 

SINPSI 

NLORV 

I 

SINPSI 

POBCQL 

I 

SINPSI 

STATEF 

0 

SINPSI 

95  ) 

ALA 

I 

COSPSI 

AL7 

I 

COSPSI 

AL6 

I 

COSPSI 

AL9 

I 

COSPSI 

CONTRL 

I 

COSPSI 

NLORV 

I 

COSPSI 

PDBCOL 

I 

COSPSI 

STATEF 

0 

COSPSI 

10  NOV  72  G.01-A7 


$ I NR HO  si  no  s««  Isabel  /OVNA  /(  96)  AL9  I SINRHO 

ALT  I SINRHO 
AL0  1 SINRHO 
AL9  I SINRHO 
CONTRL  I SINRHO 
NLORV  I SINRHO 
OUTPUT  I SINRHO 
PD0CQL  I SINRHO 
STATEF  H SINRHO 

COSRHO  COSO  See  ayabol  /OVNA  /(  97)  AL9  I COSRHO 

ALT  I COSRHO 
AL6  I COSRHO 
AL9  I COSRHO 
CONTRL  I COSRHO 
NLORV  I COSRHO 
OUTPUT  t COSRHO 
PDBCQL  I COSRHO 
STATEF  n COSRHO 


S1NR0R 

Not  and. 

/OVNA 

/< 

98) 

COSROR 

Not  u * • 4 . 

/OVNA 

/( 

99) 

hur 

Not  used. 

/OVNA 

/( 

100) 

XKG 

k 

Algebraic  aquation  used 

I n 

eartl cal 

r I ae  and 

p 1 1 choeer 

/OVNA 

/( 

101  ) 

AL9 

I 

XKG 

9 

CONTRL 

n 

XKG 

XKP 

K . 

Algebraic  equation  used 

I n 

eart 1 col 

rise  and 

pi tchoear 

/OVNA 

/( 

102) 

AL9 

I 

XKP 

w 

CONTRL 

n 

XKP 

AKIN 

Not  uaod. 

/OVNA 

/( 

103) 

COO 

Cn 

Drag  coefficient  at  a s 

0 

/OVNA 

/( 

109) 

AEROCO 

I 

COO 

°0 

STATEF 

I 

COO 

COO* 

dCr^/dW 

Sat  ay  aba  1 

/OVNA 

/( 

105) 

AEROCO 

1 

coon 

Dq 

STATEF 

i 

CDOfl 

CLO 

c, 

Lift  coaffldant  at  a s 

0 

/OVNA 

/( 

106) 

AEROCO 

i 

CLO 

k) 

STATEF 

I 

CLO 

FK 

k 

Induced  drag  coefficient 

/OVNA 

/( 

107) 

AEROCO 

I 

FK 

STATEF 

1 

FK 

XC6H 

ox_/a« 

Sea  ayabol 

/OVNA 

/( 

108) 

0L2 

I 

XCGN 

cc 

STATEF 

n 

XCGfl 

UT 

I 

XCGH 

XC6HH 

a2Xc6/a«2 

Sea  ayabol 

/OVNA 

/( 

109) 

DL2 

I 

XCGHft 

STATEF 

n 

XC&fM 

UT 

I 

XC6NN 

ZCGH 

3Zc6/3» 

Sea  ayabol 

/OVNA 

/( 

110) 

0L2 

I 

ZCGH 

STATEF 

* 

ZC6* 

UT 

l 

ZCGH 

ZCGflH 

a^/a.2 

See  ayabol 

/OVNA 

/( 

111) 

DL2 

I 

ZCGHH 

STATEF 

n 

ZC6HH 

UT 

i 

ZCGHH 

XJV 

aj/av 

See  ayabol 

/OVNA 

/( 

112) 

DL2 

STATEF 

I 

0 

XJV 

XJV 

UT 

i 

XJV 

X JR 

a j/dR 

See  ayabol 

/OVNA 

/( 

113) 

DL2 

STATEF 

i 

0 

XJR 
X JR 

UT 

I 

XJR 

XJVV 

a2j/av2 

See*  ay  aba  1 

/OVNA 

/I 

119) 

DL2 

STATEF 

I 

0 

XJVV 

XJVV 

UT 

I 

XJVV 

XJVR 

a2j/avaR 

See  ayabal 

/OVNA 

/( 

115) 

DL2 

STATEF 

I 

0 

XJVR 

XJVR 

UT 

I 

XJVR 

X JRR 

a2)/aR2 

See  ayabol 

/DYNA 

/( 

116) 

DL2 

STATEF 

I 

0 

XJRR 

XJRR 

UT 

I 

XJRR 

HACHVR 

a2m/avaR 

See  s y abo 1 

/OVNA 

/( 

117  ) 

STATEF 

UT 

0 

I 

HACHVR 

HACHVR 
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A 


t- 


FORTRAN 

svnbol 

NACHRR 

SIN2R0 

C0S2R0 

C0S2GN 

CN 

CNA 

c nn 

CHAR 

cnnn 

cnan 

CNO 

cnon 

cnonn 

CNANN 

ULFTV 

ULFTR 

ULFTVV 

ULFTVR 

ULFTVA 

ULFTRR 

ULFTR  A 

IPOU 

XARC 
TST  ART 

iO  NOV 


HATH 

SVNBOL 


32n/aR2 

s I nip 


c o sip 


C 0 %l7 

c. 

c.. 

8C#/d» 

ac  /a« 

a2c,/ani 
ac,  /an 

C-o 

ac  /an 

•o 

a2c  /d«* 

*0 

azcm  /an1 

dL#/dV 

aL#/3R 

a2Lw/dv2 

a2L#/avaR 

a2L#/ava« 

a2L#/aR2 

a2L^/aRa« 


72  G. 01-97 


DESCRIPTION  WetoR# 


$*«  sytbil 

/OVNA 

/( 

118  ) 

STATEF 

N 

NACHRR 

UT 

I 

NACHRR 

tyibai 

/OVNA 

/( 

119) 

AL9 

I 

SIN2R0 

AL7 

I 

SIN2R0 

ALft 

l 

S1N2R0 

NLDRV 

I 

SIN2R0 

STATEF 

N 

SIN2R0 

$*•  ty  aba 1 

/OVNA 

/< 

120) 

AL9 

I 

C0S2R0 

AL  7 

I 

C0S2R0 

ALB 

I 

C0S2R0 

NLORV 

I 

C0S2R0 

STATEF 

0 

C0S2R0 

Sat  tyabal 

/DVNA 

/( 

121  ) 

AL9 

I 

C0S2GN 

STATEF 

0 

C0S2GN 

Noatat  cocfflcicat 

/OVNA 

/( 

122  I 

NONE CO 

0 

CN 

UT 

I 

CN 

Noatat  eotff icitat  tltyt 

(RAO* 1 1 

> /OVNA 

/( 

123) 

NONE  CO 
STATEF 

1 

N 

CNA 

CNA 

UT 

1 

CNA 

/DVNA 

/( 

129) 

NONE  CO 

0 

CNN 

UT 

I 

CNN 

/DVNA 

/( 

125) 

NONE  CO 

0 

CNAA 

UT 

1 

CNAA 

Sit  tyabal 

/DVNA 

/( 

12b) 

NONE CO 

0 

CNNN 

UT 

I 

CNNN 

/OVNA 

/< 

127) 

NONE CO 

1 

CNAN 

STATEF 

N 

CNAN 

UT 

I 

CNAN 

Noitat  cotfflcl 

aat  at  a s 0. 

/OVNA 

/< 

126) 

NONECO 

I 

CNO 

STATEF 

I 

CNO 

/DVNA 

/( 

129) 

NONECO 

I 

CNON 

5TATEF 

1 

CNON 

/DVNA 

/( 

130) 

NONECO 

I 

CNONN 

STATEF 

I 

CNONN 

$«c  tyabal 

/OVNA 

/< 

131  ) 

NONECO 

1 

CNANN 

STATEF 

N 

CNANN 

Sit  tyabal 

/OVNA 

/( 

132) 

AL3 

I 

ULFTV 

UT 

N 

ULFTV 

$tt  tyabal 

/OVNA 

/( 

133) 

AL3 

1 

ULFTR 

UT 

N 

ULFTR 

Stt  tyabal 

/OVNA 

/( 

139) 

AL3 

I 

ULFTVV 

UT 

N 

ULFTVV 

Stc  tyabal 

/OVNA 

/( 

135) 

AL3 

I 

ULFTVR 

UT 

N 

ULFTVR 

/OVNA 

/( 

136) 

AL3 

1 

ULFTV* 

UT 

N 

ULFTV* 

/DVNA 

/( 

137) 

AL3 

1 

ULFTRR 

UT 

N 

ULFTRR 

/OVNA 

/( 

138) 

AL3 

1 

ULFTR* 

UT 

N 

ULFTR* 

, 

/DVNA 

/( 

139) 

ARCIN 

N 

IPOU 

IPOU  s 0: 

No  thraat  tad  to  bata  drej 

FORCES 

I 

IPOU 

IPOU  £ 1 : 

Thrust,  but  ao  bata  dra§ 

NPLANE 

I 

IPOU 

IPOU  = 2: 

Thrust  t*d  bata  drag 

STATEF 

] 

IPOU 

THROTL 

I 

IPOU 

Qua t i t i a«  at  ablch  prattat  tabarc  caaataced. 

/OVNA 

/( 

190) 

ARCIN 

0 

X ARC 

STATEF 

1 

XARC 

Trajectory  tiat  at  ablcb  prettat  tabarc  coaatnctd. 

/OVNA 

/( 

191  ) 

ARCEN 

N 

tstart 

ARCIN 

N 

TST  ART 

STATEF 

I 

TSTART 

TRAJIN 

0 

TSTART 

'/ 1 ./=> 


6H 

9g/dR 

Set 

sy  ebe  1 

GRR 

d2  g/3R2 

See 

sy  aba 1 

LIFTAA 

d*L/3o* 

See 

sy  aba  1 

COORR 

a2cDo/a«2 

See 

sy  abo  1 

CLARR 

a2c|^/an2 

See 

syaba 1 

CLOR 

ac,  /an 
4> 

See 

syaba 1 

CLORR 

a2cLo/an2 

See 

syaba  1 

DYN1A9 

Not 

used . 

CT 

CT 

Value  for  thrust  In  case 
u ««d. 

CODAE 

C 0 $(  O- ) 

See 

sy aba  1 

SIOAE  sin(o-$£)  *»«boI 


COD  COSi^  See  symbol 

Sio  sin»E  s««  *y«fcol 

DELTAE  Engine  deflection 


COE  C 

lE 


/OVNA  /<  1A2 ) ALT  I fi« 

Ate  I 6H 

NL  OR  V I 6H 

STATEF  R 6H 

/OVNA  /(  1A3)  ALT  I GRR 

AL8  I OAB 

NLDRV  I GRR 

STATEF  R GRR 

/DVNA  /(  I'M)  AL1  I LIFTAA 

ALA  I LIFTAA 

AL5  I LIFTAA 

AL6  I LIFTAA 

APPLY  I LIFTAA 

TH3  I LIFTAA 

UT  0 LIFTAA 

/DVNA  /(  1A5)  AEROCO  1 COORR 

STATEF  1 COO** 

/DVNA  /(  1 A6  ) AEROCO  I CLARR 

STATEF  R CLARR 

/DVNA  n 117)  AEROCO  I CLOR 

STATEF  I CLOR 

/DVNA  /(  1H6)  AEROCO  I CLORR 

STATEF  I CLORR 

/DVNA  /(  1*9) 

stant  thrust  constraint  Is  /DVNA  /(  ISO)  TH1  I CT 

(LBS) 


/DVNA  /(  1S1  ) AL1  I CODAE 

ALA  I CODAE 
AL6  I CODAE 
ALT  I CODAE 
AL8  I CODAE 
AL9  I CODAE 
APPLV  I CODAE 
CONTRL  I CODAE 
.NLDRV  1 CODAE 
TH3  I CODAE 
UT  0 CODAE 

/DVNA  /(  152)  AL1  I SIDAE 

ALA  I SIOAE 

AL6  I SIDAE 

AL7  I SIDAE 

AL8  I SIDAE 

AL9  I SIDAE 

APPLV  I SIDAE 
CONTRL  I SIDAE 
TH3  I SIOAE 

UT  0 SIDAE 

/DVNA  /<  153)  DL2  I COD 

OUTPUT  I COD 

TH3  I COD 

UT  R COD 

/DVNA  /<  ISA  ) DL2  I SID 

OUTPUT  1 SIO 

TH3  I SID 

UT  R SID 

(RADS)  /DVNA  /(  155)  ALGCON  R DELTAE 

ARCIN  R DELTAE 
CONTRL  R OELTAE 
DL1  I DELTAE 

OUTPUT  I DELTAE 

TRAJIN  0 DELTAE 

UT  I OELTAE 

/OYNA  /(  156)  DL1  1 CDE 
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Value  for  engine  deflection  In  case  constant  engine 
deflection  constraint  is  used  (RAOS) 


/.A/, 


XCG 

Center  of  gravity  body  * station  C FT  ) 

ZDYKA 

Z( 

157) 

OL2 

I 

XCG 

CG 

STATEF 

1 

XCG 

UT 

1 

XCG 

ZC6 

Z„ 

Center  of  gravity  body  x station  (FT) 

ZOYKA 

Z( 

158) 

0L2 

I 

ZCG 

CC 

STATEF 

I 

ZCG 

UT 

I 

ZCG 

XJ 

• 

Control  bland  factor 

ZDYKA 

Z( 

159) 

ARCIK 

0 

Xj 

J 

DL2 

I 

XJ 

OUTPUT 

I 

Xj 

STATEF 

I 

XJ 

UT 

I 

XJ 

xncg 

Acrodynaoic  nonent  about  cantor  of  gravity  (FT-LBS) 

7 DYKA 

/( 

160) 

DL2 

I 

XftCG 

CG 

OUTPUT 

I 

XftCG 

UT 

r 

XftCG 

CALPHA 

c 

Value  for  angle  of  attack  in  ca»a  constant  angle  of 

ZOYKA 

Z( 

161  ) 

AL2 

1 

CALPHA 

a 

attack  constraint  is  used.  (RADS) 

KPLAKE 

it 

CALPHA 

ALRAX 

a 

Magnitude  of  angle  of  attack  constarint  (RADS) 

ZOYKA 

Z( 

162  ) 

ARCIK 

0 

ALftAX 

■ •i 

KPLAKE 

i 

A Lit  AX 

OB 

0L 

Base  drag  (LBS) 

ZDYKA 

Z( 

163) 

AL1 

i 

OB 

b 

ALA 

i 

DB 

AL6 

i 

DB 

AL7 

i 

08 

ALB 

i 

OB 

AL9 

i 

OB 

APPLY 

i 

DB 

COKTRL 

i 

OB 

KLORV 

i 

DB 

OUTPUT 

i 

DB 

STATEF 

i 

OB 

TH3 

i 

DB 

UT 

i 

DB 

ULFT 

L 

Untrlaacd  aerodynaaic  lift  (LBS) 

ZOYKA 

Z( 

169  ) 

AL3 

i 

ULFT 

u 

KPLAKE 

i 

ULFT 

UT 

ft 

ULFT 

CULFT 

c, 

Magnitude  of  untriaaod  lift  Malt  (LBS) 

ZDYKA 

Z( 

165  ) 

AL3 

i 

CULFT 

Lu 

KPLAKE 

0 

CULFT 

ULFTA 

dL  /da 

See  syabol 

ZDYKA 

Z( 

166  ) 

AL3 

I 

ULFTA 

u 

UT 

ft 

ULFTA 

tstage 

Trajectory  1 1 ae  at  ahich  present  rocket  engine 

ZDYKA 

Z( 

167  ) 

ARCIK 

ft 

TSTA6E 

ignited.  (SECS) 

STATEF 

I 

TSTAGE 

TRAJIK 

0 

TSTAGE 

tires 

Elapsed  burning  tine  of  present  rocket  engine  (SECS) 

ZOYKA 

Z( 

168) 

STATEF 

ft 

TIKES 

XtnCGAA 

32M[6/3^ 

See  syabol 

ZDYKA 

Z( 

169  ) 

DL2 

UT 

I 

ft 

XftCGAA 

XftCGAA 

IRATEO 

IS  of  the  aaxiaua  rated  Ijp  (SECS) 

ZDYKA 

Z( 

170) 

ARCIK 

0 

IRATED 

IRPULS 

I 

IRATEO 

FRATEO 

IS  of  the  aailaua  rocket  vacuua  thrust  (LBS) 

ZDYKA 

Z( 

171  ) 

ARCIK 

0 

FRATED 

— 

IRPULS 

I 

FRATED 

RTT 

Table  nuaber  for  tabulated  rocket  vacuua  thrust 

ZDYKA 

Z( 

172) 

ARCIK 

ft 

RTT 

STATEF 

1 

KTT 

J1 

Thrust  opt  Ion  flag. 

ZDYKA 

Z( 

173) 

APPLY 

1 

J1 

J1  = 1:  Constant  thrust; 

ARCIK 

0 

J1 

J1  = 2:  Input  vacuua  thrust; 

COKTRL 

ft 

J1 

J)  * 3:  Poaered  total  acceleration  Malt; 

FORCES 

1 

J1 

J1  = Hi  Air. breather  engine. 

NPLAKE 

I 

J1 

STATEF 

1 

J1 

THROTL 

ft 

J1 

J 2 

Engine  deflection  option  flag. 

ZDYKA 

Z( 

179) 

ARCIK 

0 

J2 

J2  - 1:  Constant  engine  deflection; 

CONTRL 

1 

J2 

J2  = 2:  Ronent  balancing. 

KPLAKE 

I 

J2 
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FORTRAN 

synbol 


RATH 

SYNBOL 


DESCRIPTION 


‘tuawM* 


BLOCK 


STORAGE 

LflC  ' 


J3 

Angie  ol  attack  option  flag. 

/OYNA  /<  175)  ARCIN 

0 

J3 

J 3 = 1:  Op 1 1 as  1 angle  of  attack; 

CONTRt 

N 

J3 

J3  = 2:  Constant  angle  of  attack; 

NPLANE 

n 

J3 

J 3 = 3:  Untrinnad  lift  Unit; 

J3  = 9:  Vertical  rise  or  pltctiovor; 

OUTPUT 

i 

J3 

J3  = 9:  Unpo»«r  ed  total  acceleration  Holt; 
J3  - 6:  Gravity  torn; 

J3  = 7:  Dynanic  prttiuri  conatr  al  fit; 

J3  =•  8:  Heating  rata  constraint: 

J3  = 9:  Reynolds  nunber  constraint. 


XNCGA 

aXcc/3o 

Sea  synbol 

/OYNA 

/( 

17b) 

0L2 

I 

XNCGA 

UT 

n 

XNCGA 

FVACF 

Not  used. 

/DYWA 

/( 

177) 

ULFTAA 

a2Lu/a«2 

Sea  synbol 

/OYNA 

/( 

176) 

AL3 

UT 

I 

n 

ULFTAA 

ULFTAA 

1 SPF 

aieo/aT 

See  synbol 

/OYNA 

/( 

179) 

APPLY 

I 

ISPF 

INPULS 

0 

ISPF 

XSPFF 

a^ijp/aT2 

/OYNA 

/( 

180) 

APPLY 

i 

ISPFF 

1NPULS 

0 

ISPFF 

ILOAO 

Logical  flag  that  Is  true  if  there  Is  any  aerodynanic 

/OYNA 

/( 

iei ) 

ARCIN 

n 

1 LOAD 

load  on  the  vehicle. 

contrl 

i 

ILOAO 

NPLANE 

I 

ILOAO 

UT 

I 

ILOAO 

FKN 

dk /am 

See  synbol 

/OYNA 

/( 

162) 

AEROCO 

I 

FAN 

STATEF 

i 

FKN 

FKNN 

a2k/ain2 

See  synbol 

/OYNA 

/( 

183) 

AEROCO 

STATEF 

i 

i 

FKNH 

FKNN 

SWITCH 

Logical  flag  that  is  true  If  this  Is  the  conpute  point 

/OYNA 

/( 

189) 

CONTRL 

l 

SNITCH 

at  nhlch  the  poeered  acceleration  constraint 

NPLANE 

THROTL 

i 

Q 

SNITCH 

SNITCH 

INQF 

State  variable  inequality  constraint  flag. 

/OYNA 

/( 

185) 

ARCIN 

n 

INQF 

INQF  = 0:  No  SV1C  In  effect: 

INQF  = 7:  Dynastic  pressure  IC  In  effect; 
INQF  - B:  Heating  rate  SV1C  In  effect; 
INOF  = 9:  Reynolds  nunber  StflC  In  effect. 

NPLANE 

n 

INQF 

CL 

c, 

Lift  coefficient 

/OYNA 

/( 

16b) 

AEROCO 

n 

CL 

L 

OUTPUT 

i 

CL 

UT 

I 

CL 

CLA 

c. 

Lift  coefficient  slope  (RAD'1) 

/OYNA 

/( 

187) 

AEROCO 

n 

CLA 

L* 

STATEF 

n 

CLA 

UT 

I 

CLA 

CLN 

acL/an 

See  synbol 

/OYNA 

/( 

186) 

AEROCO 

UT 

n 

1 

CLN 

CLN 

CLAA 

act  /da 

See  synbol 

/DYNA 

/( 

189) 

AEROCO 

n 

CLAA 

UT 

i 

CLAA 

CLAM 

d2CL/aw2 

See  synbol 

/OYNA 

/< 

190) 

AEROCO 

UT 

n 

I 

CLHH 

CLNN 

CLAN 

ac,  /an 

See  synbol 

/DYNA 

/( 

191  ) 

AEROCO 

n 

CLAN 

Ln 

STATEF 

n 

CLAN 

UT 

I 

CLAN 

CD 

Cn 

Drag  coef f 1 cl ent 

/OYNA 

/( 

192) 

AEROCO 

0 

CD 

0 

OUTPUT 

i 

CD 

UT 

I 

CD 

CDA 

c°. 

Drag  coefficient  slope  (RAD*1) 

/OYNA 

/( 

193) 

AEROCO 

UT 

n 

i 

CDA 

COA 

con 

acn/an 

See  synbol 

/DYNA 

/( 

199) 

AEROCO 

0 

CDN 

J} 

UT 

i 

CON 

COAA 

3Cn  /da 

See  synbo 1 

/OYNA 

/( 

195) 

AEROCO 

* 

CDAA 

Oe 

UT 

i 

CDAA 

CONN 

d2cD/an2 

See  synbol 

/OYNA 

/( 

19b) 

AEROCO 

UT 

0 

1 

CONN 

CONN 
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FORTRAN 

SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


STORAGE 
BLOCK  LOT 


mfipgTlNS.lfSA.Efc 

$UBR  CODE VAR 


CDAM 

acD  /an 

5 • • symbal 

/OYNA 

/( 

197  ) 

AEROCO 

UT 

M 

I 

COAM 

COAH 

0YN198 

Net  used. 

/DVNA 

/( 

198) 

0YN199 

Not 

/OYNA 

/( 

199) 

DYN200 

Not  used. 

/OYNA 

/( 

200) 

XMCGV 

dtfCG/av 

Sot  symbol 

/OYNA 

/( 

201  ) 

0L2 

UT 

I 

M 

XMCGV 

XMCGV 

XMCGR 

3tfcc/3fi 

Set  symbol 

/OYNA 

/( 

202) 

DL2 

UT 

1 

M 

XMCGR 

XMCGR 

XMCGM 

aMCG/da 

Sot  sy  mbo I 

/OYNA 

/( 

203) 

OL2 

UT 

I 

M 

XMC6M 

XMCGM 

XMCGV V 

3^CG/av2 

Sot  symbol 

/DYNA 

/( 

209) 

DL2 

UT 

1 

M 

XMCGVV 

XMCGVV 

XMC6VR 

32Wcc/3V3R 

Sot  symbol 

/OYNA 

/( 

205) 

DL2 

UT 

I 

M 

XMCGVR 

XMCGVR 

xmcgvm 

32Xcg/3V3» 

Sot  symbol 

/OYNA 

/( 

206) 

DL2 

UT 

I 

M 

XMCGVM 

XMCGVM 

XMCGV A 

32/<CG/3V3a 

Sot  symbol 

/OYNA 

/( 

207) 

OL2 

UT 

I 

H 

XMCGVR 

XMC6VA 

XMCGRR 

32AfCG/  3«^ 

Sto  symbol 

/OYNA 

/( 

208) 

DL2 

UT 

I 

M 

XMCGRR 

XMC6RR 

XMCGRM 

32Wcg/3R3« 

Sot  symbol 

/DYNA 

/( 

209) 

DL2 

UT 

1 

M 

XMCGRM 

XMCGRM 

XMCGR A 

32>fCG/dR3o 

Set  symbol 

/OYNA 

/( 

210) 

OL2 

UT 

1 

M 

XMCGRA 

XMCGRR 

xmcgmm 

Sto  symbol 

/OYNA 

/( 

211  ) 

DL2 

UT 

1 

n 

XMCGMM 

XMCGMM 

xmcgma 

32Wcg/3»3« 

Sot  symbol 

/OYNA 

/( 

212) 

DL2 

UT 

I 

N 

XMCGMR 

XMCGMR 

RORRR 

d3/W3R3 

Sto  lyokel 

/DYNA 

/( 

213) 

AL7 

ALB 

AL9 

STATEF 

I 

I 

I 

I 

RORRR 

RORRR 

RORRR 

RORRR 

0YN219 

Atmospheric  viscosity  (dynamic)  ( 5LGS/FT/SEC ) 

/DYNA 

/( 

219  ) 

OUTPUT 

PDBCOL 

I 

I 

VNU 

VNU 

0YN215 

3»it/3R 

Sot  symbol 

/OYNA 

/( 

215) 

POBCQL 

1 

VNR 

0YN216 

a2>i,/aRz 

Sto  symbol 

/DYNA 

/( 

216) 

0YN217 

33M,/3R3 

Sot  symbol 

/DYNA 

/( 

217) 

I OAM 

Optional  atmospheric  calculations  flog. 

IDAM  = -1:  Compute  33Pt/dR3; 

1DAM  = 0:  No  optional  c o i c u 1 ot 1 o no ; 

IDAM  = 1:  Compute  a3p#/BR3,  */,,  dp#/dR,  etc. 

/DYNA 

/( 

218) 

ARCIN 

ERROR 

NPLANE 

STATEF 

URAPUP 

0 

r 

0 

M 

0 

IDRM 
I DRM 
IDRM 
IDRM 
1 ORM 

TAIRB 

Air-breather  engine  thrust  (LBS) 

/DYNA 

/( 

219) 

STATEF 

TH9 

I 

I 

TR1RB 

TR1RB 

TAIRBV 

Partial  of  TAIRB  mrt  V 

/DYNA 

/( 

220) 

TH9 

I 

TAIRBV 

TAIRBH 

Partial  of  TAIRB  art  h (altitude) 

/DYNA 

/( 

221  ) 

TH9 

1 

TAIRBH 

TARBVV 

Second  partial  of  TAIRB  mrt  V 

/OYNA 

/( 

222) 

TH9 

1 

TARBVV 

T ARBHH 

Second  part)#)  of  TAIRB  art  h 

/DYNA 

/( 

223) 

THY 

1 

7 ARBHH 

T ARB VH 

Second  partial  of  TAIRB  mrt  V and  b 

/DYNA 

/( 

229) 

TH9 

1 

TARBVM 

SFC 

/DYNA 

/( 

225) 

APPLY 

1 

SFC 

SFCV 

Parti  a 1 of  SFC  mrt  V 

/DYNA 

/( 

226) 

APPLY 

I 

SFCV 

SFCM 

Partial  of  SFC  mrt  b 

/DYNA 

/( 

227) 

APPLY 

I 

SFCM 

SFC  VV 

Second  partial  of  SFC  mrt  V 

/DYNA 

/( 

22B) 

APPLY 

1 

SFCVV 
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FORTRAN 

SYMBOL 


HATH 

SYMBOL 


DESCRIPTION 


SUBRgiJTINE  aim 
SUBR  COOE VAR 


$ 


V30 


STORAGE 
■ ftLOCk  LflC 


SFCHH  Second  pertisl  of  SFC  art  h /DYNA  /<  2*9)  APPLY 

SFCVH  Second  peril. I of  $FC  art  ¥ and  A /OVNA  /(  230)  APPLY 


. \ 


SFCHH 

SFCYH 
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BL0CK 

EVAL 


FORTRAN 

SYMBOL 


NATH 

SYMBOL 


DESCRIPTION 


STORAGE 

"fusTK nnr 


SGN 

Sign  of  the  variable  SI6  in  the  65th  aord  of  coaaon 
block  /GOBAL/ . 

SGN  = ♦:  payoff  to  bo  aextafied: 

SGN  = payoff  to  bt  alnialsed. 

/eval 

/( 

1) 

BNORV 

ENDPT 

SPART 

An  IB  aord  array  ahose  first  nina  entries  receive  the 
values  of  the  partial  derivatives  art  the  state  of 
those  target  conditions  coaputed  in  subroutine  PDBCQL. 

/eval 

/( 

2) 

BNORY 

BRANPT 

ENDPT 

INTRPT 

NAP 

A 10  aord  array  that  asps  the  steepest  descent  state 
vector  into  the  QL  state  vector. 

/EVAL 

/< 

20) 

BNORY 

BRANPT 

ENDPT 

INTRPT 

PZI 

A AO  aord  array  that  contains  the  target  condition 
aisses  for  all  the  target  conditions  in  the  preblea. 

/EVAL 

/( 

30) 

BNDRV 

BRANPT 

ENOPT 

INTRPT 

NOCK 

■i 

The  nuaber  of  c's  In  the  vector  Cj  defined  by  Equation 
17.9-9  of  Vol.l  of  this  docuaent. 

/EVAL 

/( 

70) 

BNORY 

BRANPT 

ENDPT 

INTRPT 

S 

An  18x91  array  used  to  store  the  particular  and 
hoaogeneoos  solutions  on  the  early  side  of  a corner 
point. 

/EVAL 

/< 

71  ) 

BNORY 

BRANPT 

ENDPT 

INTRPT 

TENP 

( d*,/9C,)T 

A AO  aord  array  that  contains  the  transpose  of  the 
vector  defined  by  Equation  17. *1-9  of  Vol.l  of  this 
docuaent . 

/EVAL 

/( 

809) 

BRANPT 

ENDPT 

INTRPT 

DZ 

Ac  ,h,t  I’l 

An  18  aord  array  that  contains  the  second  tera  on  the 
right  hand  side  of  Equation  17.9-11  of  Vol.l  of  this 
docuaent . 

/EVAL 

/( 

899) 

BRANPT 

ENDPT 

INTRPT 

DC 

Acl 

Saall  perturbation  of  a c. 

/EVAL 

/( 

867) 

BNDRV 

BRANPT 

ENDPT 

INTRPT 

L 

Total  nuaber  of  target  conditions  to  satisfy  In  the 
prob lea. 

/EVAL 

/< 

668) 

BNDRV 

BRANPT 

ENDPT 

INTRPT 

SI 

An  18x91  array  used  to  store  the  particular  and 
hoaogeneous  solutions  on  the  late  side  of  a corner 
point. 

/EVAL 

/< 

669) 

BRANPT 

INTRPT 

SSN 

SEN 


SPART 

SPART 

SPART 

SPART 

NAP 

NAP 

NAP 

NAP 

PZI 

PZI 

PZI 

PZI 

NOCK 

NOCK 

NOCK 

MOCK 

S 

$ 

s 

s 

TENP 

TENP 

TENP 

DZ 

DZ 

OZ 

DC 

DC 

DC 

OC 

L 

L 

L 

L 

SI 

SI 
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BL0CK 

F 


FORTRAN 

SYMBOL 


MATM 

SYMBOL 


DESCRIPTION 


F An  8201*1  irr  ay  used  to  storo  the  vectors  /F  /( 

kl»  k2'  * 3 / *«d  h <)  defined  by  Equations 
17.4-7  thru  -10  of  Vol.I  of  this  doennent. 


1)  MADAMS  1 F 
SALVE  1 F 


BL0CK 

GL0BAL 


FORTRAN  HATH 

SYMBOL  SYMBOL 


DESCRIPTION 


storage 
blOCk  unr 


SUBR  COOE  VAR 


GR 

a 

Gravitational  acceleration  at  surface  of 

the  earth. 

/GLOBAL/! 

1 1 

AL5 

I 

GR 

’r 

(FT/SEC2) 

APPLY 

I 

GR 

BRANPT 

I 

GR 

COSTAB 

I 

6R 

COSTA! 

I 

GR 

INTRPT 

I 

GR 

OUTPUT 

I 

GR 

POBCOL 

I 

GR 

OLTOSZ 

I 

GR 

SALVE 

I 

GR 

STATCF 

I 

GR 

TH3 

I 

GR 

ER 

Er» 

Earth  radius. 

(FT  > 

/GLOBAL/! 

2 > 

ENVPRO 

I 

ER 

R 

POBCOL 

I 

£R 

OLTOSZ 

I 

ER 

5TATEF 

I 

ER 

ORGZ 

ftf 

Earth  rotation  rate 

(RAO/SEC) 

/GLOBAL/! 

3) 

POBCOL 

I 

0R6Z 

TRAJIN 

I 

ORGZ 

XLARAF 

Pr 

Reference  latitude. 

(DEG) 

/GLOBAL/! 

N >- 

CHECK 

I 

XLARRF 

YRURF 

"r 

Reference  longitude. 

( OEG ) 

/GLOBAL/! 

5 > 

CHECK 

I 

yrurf 

iim 

Prograa  control  flag. 

/GLOBAL/! 

6) 

LUR  = 0:  Steepest  descent  only; 

LUR  = 1:  Steepest  descent  and  adjoint 


LUR  = 2:  Steepest  descent  and  OL; 
LUR  s 3:  OL  only. 

TO 

Trajectory  stort  tine.  (SEC) 

/GLOBAL/! 

T) 

FETCH 

n 

TO 

0 

INARC 

R 

TO 

TAAJIN 

i 

TO 

NRAPOf 

i 

TO 

EPSLON 

€ 

OL  iteration  convergence  criterion. 

/GLOBAL/! 

B) 

CHECK 

R 

EPSLON 

GROPE 

1 

EPSLON 

INNER 

Nunbcr  of  Adans -Rou 1 ton  Inner  loops. 

/GLOBAL/! 

9) 

CHECK 

R 

INNER 

NADARS 

I 

INNER 

ITRRAX 

Raxlaun  nunbar  of  OL  Iterations. 

/GLOBAL/! 

10) 

CHECK 

R 

ITRRAX 

GROPE 

1 

ITRRAX 

JJOP 

A six  oord  array  used  for  various  Internal  flags. 

/GLOBAL/! 

11) 

IFATAL 

Fatal  error  flag. 

/GLOBAL/! 

IT) 

ERROR 

0 

IFATAL 

NARC 

No 

Nunbcr  of  subarcs  In  the  problen. 

/GLOBAL/! 

IB) 

BCONO 

I 

NARC 

3 

BNDRV 

1 

MARC 

CHECK 

I 

NARC 

ENDPT 

I 

NARC 

ENVPMI 

I 

NARC 

FETCH 

I 

NARC 

INARC 

1 

NARC 

RAGIC 

1 

NARC 

OLTOSZ 

1 

NARC 

SALVE 

I 

NARC 

HRAPUP 

I 

NARC 

NBRAN 

Nj 

Nunber  of  the  lest  subarc  on  the  sten  of  a branch 

/GLOBAL/! 

19) 

BNDRV 

I 

NBRAN 

probiea.  If  th«  problen  is  not  a branch  problen,  then 

branpt 

I 

NBRAN 

NBRAN  = 0. 

COSTAB 

I 

NBRAN 

envprq 

I 

NBRAN 

INTRPT 

I 

NBRAN 

RAGIC 

I 

NBRAN  , 

OLTOSZ 

I 

NBRAN 

SALVE 

I 

NBRAN 
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FORTRAN 

MATH 

DESCRIPTION 

storage 

subroutine  us_«6£ 

SVnBOL 

SVnBOL 

BLOCK 

lOC 

SUBR  COOt VAR 

NF  ARC 

Nuaber  o f the  last  tub  arc  on  tho  first  breath.  If  the 

/GLOBAL/! 

20) 

BCOND 

I 

NFARC 

2 

problea  it  not  • branch  problao,  than  NFARC  = NARC. 

BNORY 

I 

NFARC 

BRANPT 

I 

NFARC 

COSTAB 

1 

NFARC 

ENVPRQ 

I 

NFARC 

INTRPT 

I 

NFARC 

"AGIO 

I 

NFARC 

OLTOSZ 

I 

NFARC 

SALVE 

1 

NFARC 

10 

A four  aord  array  containing  the  basic  deck,  reference 
run,  case  and  part  case  nunbers  in  that  order. 

/GLOBAL/I 

21) 

KTAB 

A 20  oord  array  containing  the  nunbar  of  state  target 
conditions  specified  at  the  end  of  each  subarc. 

/GLOBAL/! 

25) 

BCONO 

I 

KTAB 

ITAB 

A 20  nord  array  containing  the  nuaber  of  nonzero  state 
initial  conditions  specified  at  the  beginning  of  each 
subarc. 

/GLOBAL/C 

95) 

BCOND 

I 

ITAB 

SIS 

Payoff  sign. 

/GLOBAL/! 

65) 

BNDRV 

I 

SIS 

SI6  < 0:  Payoff  to  be  atnlafxed; 
S1G  > 0:  Payoff  to  be  asiiaixed. 

AAXTAB 

Largest  univariant  table  nuaber  in  this  cese. 

/GLOBAL/! 

6b) 

SPLINE 

I 

NT 

GA 

Gfl 

Product  of  Neaton's  universe!  gr av 1 tet i o ne 1 constant 

/GLOBAL/! 

67) 

OUTPUT 

I 

6« 

and  the  aess  of  the  earth.  (FT^/SEC^) 

POBCOL 

STATEF 

I 

I 

GA 

GA 

PS1RF 

/GLOBAL/! 

68) 

CHECK 

1 

PSIRF 

1PFL61 

1PFLG1F0  supresses  print-out  of  velocity  losses  and 

/global/c 

69) 

OUTPUT 

I 

1PFLG1 

inertial  Euler  angles. 

POBCOL 

I 

ipflgi 

QLTOSZ 

0 

ipflgi 

SALVE 

I 

ipflgi 

IPFLG2 

1PFL62K0  supresses  print-out  of  orbital  parsaeters. 

/GLOBAL/! 

TO) 

OLTOSZ 

0 

IPFLG2 

1PFLB3 

IPFL63F0  supresses  pr tat -out  of  tapect  data. 

/GLOBAL/! 

71) 

OUTPUT 

I 

IPFL63 

OLTOSZ 

0 

1PFLG3 

I PFLG9 

IPFLG9F0  supresses  prlat-oot  of  Inertial  Cartesian 
coord! nat as . 

/GLOBAL/! 

72) 

I NEOFL 

A 20  aord  array  that  contains  tha  coda  nuabar  of  the 
state  variables  inequality  constraint  that  applies  on 
tacK  subarc.  A zero  entry  indicates  that  no  SVIC 
app  lias. 

/GLOBAL/! 

73) 

ARCIN 

1 

I NEOFL 

ITPSO 

A non  ztro  Input  valuo  Indicates  to  the  steepest 
descent  nodule  that  the  Initial  steering  angle 

/GLOBAL/! 

93) 

profiles  are  stored  on  logical  unit  11. 

KSOL 

An  Internal  flag  that  has  tha  ssea  significance  as 
ITPSO. 

/GLOBAL/! 

99) 

I NARK 

Logical  unit  on  ahlch  initial  and  convergtd  arcs  art 

/GLOBAL/! 

95) 

CHECK 

0 

INARK 

stored.  INARK  = 11. 

FETCH 

I 

INARK 

1 NARC' 

1 

INARK 

AARCH 

I 

INARK 

WRAP UP 

I 

INARK 

K6L0BL 

/GLOBAL/! 

96) 

ERROR 

0 

KGLOBL 
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BL0CK 

JAC0B 


FORTRAN  RATH 

SvnBOL  SYABOL 


DESCRIPTION 


STORAGE 
llOC(  ^f 


$ UBRQUTj NE  U^*66 
SUBR  CODE VAlP 


JAKE 

An  18*1B  array  defined  by  Equation  17.5-5 
this  document.  Th«  entry  in  tha  1-th  roi 
colunn  is  the  total  partial  derivative  of 
quasltlne  derivative  of  the  V)  component 
respect  to  the  V*  conponent  of  V,  i.|.f 
dvJ/dVj, 

ohere 

VT  = l.»  XT, 

in  Vg 1 . 1 of 
and  j-th 
the 

of  V nith 

/JACOB 

/( 

l > 

Li  NOR V 
NLORV 
NLDRV 
SALVE 

I 

ft 

a 

0 

JAKE 

JACOB 

VOV 

JAKE 

60V 

Oescr \ pt 1 on 

not 

1 nput 

/JACOB 

n 

2) 

NLORV 

a 

GOV 

POV 

Description 

not 

i nput 

/JACOB 

n 

3) 

NLDRV 

A 

PDV 

ROV 

Das  cr I pt i o n 

not 

i nput 

/JACOB 

/< 

9) 

NLDRV 

A 

RDV 

00V 

Description 

not 

1 npnt 

/JACOB 

/< 

5) 

NLDRV 

A 

ODV 

uov 

Description 

not 

input 

/JACOB 

/( 

6) 

NLORV 

A 

UDV 

aov 

Description 

not 

1 nput 

/JACOB 

/( 

7 ) 

NLDRV 

A 

AOV 

HTOV 

Description 

not 

i nput 

/JACOB 

n 

9) 

NLDRV 

A 

HTDV 

LVOV 

Oescr i pt 1 o n 

not 

1 nput 

/JACOB 

/( 

10) 

NLDRV 

A 

LVOV 

L6DV 

Description 

not 

1 nput 

/JACOB 

/< 

11  ) 

NLDRV 

0 

LGDV 

LPOV 

Description 

not 

I nput 

/JACOB 

/< 

12  ) 

NLORV 

0 

LPOV 

LROV 

Oescr  t pt I o n 

not 

1 nput 

/JACOB 

/( 

13) 

NLORV 

0 

LROV 

LODV 

Description 

not 

i nput 

/JACOB 

/( 

H) 

NLDRV 

0 

LODV 

LADV 

Description 

not 

input 

/JACOB 

/( 

16  ) 

NLDRV 

0 

LADV 

LTDV 

Description 

not 

1 nput 

/JACOB 

/( 

17  ) 

NLDRV 

0 

LTDV 

VOG 

De  scr i pt  t o n 

not 

i nput 

/JACOB 

/( 

19  ) 

NLDRV 

A 

VOG 

GOG 

Oescr i pt  1 o n 

not 

1 nput 

/JACOB 

/( 

20) 

NLDRV 

A 

GDG 

PDG 

Description 

not 

i nput 

/JACOB 

/( 

21  ) 

NLORV 

A 

PDG 

ROG 

Oescr  1 pt  1 o n 

not 

i nput 

/JACOB 

/( 

22) 

NLORV 

A 

ROG 

OOG 

Description 

not 

I nput 

/JACOB 

/( 

23) 

NLORV 

A 

ODG 

(JOG 

Description 

not 

input 

/JACOB 

/( 

29  ) 

NLDRV 

A 

OOG 

HOG 

Description 

not 

1 nput 

/JACOB 

/( 

25  > 

NLDRV 

A 

AD  6 

L VOG 

Des  cr i pt i o n 

not 

I nput 

/JACOB 

/( 

28) 

NLORV 

A 

LVOG 

LGOG 

Description 

not 

I nput 

/JACOB 

/( 

29) 

NLDRV 

A 

LGD6 

LPDG 

Description 

not 

t nput 

/JACOB 

/( 

30) 

NLDRV 

0 

LPDG 

LROG 

Description 

not 

l nput 

/JACOB 

/( 

31  ) 

NLDRV 

0 

LROG 

L0D6 

Oescr i pt 1 o n 

not 

1 nput 

/JACOB 

/< 

32) 

NLDRV 

0 

LODG 

LADG 

Oescr { pt 1 on 

not 

i nput 

/JACOB 

/( 

39  ) 

NLDRV 

0 

LAD  6 

LTOG 

Des  cr 1 pt i o n 

not 

1 nput 

/JACOB 

n 

35) 

NLDRV 

0 

LTOG 

VDP 

De  s cr i pt i o n 

not 

{ nput 

/JACOB 

n 

37  ) 

NLDRV 

A 

VOP 

GOP 

Description 

net 

i nput 

/JACOB 

n 

38) 

NLDRV 

A 

GDP 

POP 

Description 

not 

1 nput 

/JACOB 

n 

39) 

NLDRV 

A 

POP 

OOP 

Description 

not 

i nput 

/JACOB 

/t 

91  ) 

NLORV 

A 

OOP 

UDP 

Description 

not 

i nput 

/JACOB 

/( 

92  ) 

NLDRV 

A 

UDP 

HOP 

Description 

not 

1 nput 

/JACOB 

/( 

93  ) 

NLDRV 

A 

AOP 

L VDP 

Description 

not 

i nput 

/JACOB 

/( 

96  > 

NLORV 

A 

LVDP 

L GDP 

Description 

not 

i nput 

/JACOB 

/( 

97  ) 

NLDRV 

A 

LGDP 

LPDP 

Oescr 1 pt 1 o n 

not 

input 

/JACOB 

/< 

98  ) 

NLORV 

A 

LPOP 

LROP 

Description 

not 

i nput 

/JACOB 

/c 

99  ) 

NLORV 

0 

LROP 

LOOP 

Oescr  tptlon 

not 

i nput 

/JACOB 

/( 

50) 

NLDRV 

0 

LOOP 

LIOP 

Description 

not 

i nput 

/JACOB 

/< 

53) 

NLDRV 

0 

LTOP 

VOR 

Description 

not 

i nput 

/JACOB 

/< 

55  ) 

NLDRV 

A 

VOR 

GDR 

Description 

not 

input 

/JACOB 

/( 

56) 

NLDRV 

A 

GOR 
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Cs 
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SYABOL  SYMBOL 


DESCRIPTION  gW 


pon 

Ot 

c r 1 p t i 

on 

not 

1 nput 

/JACOB 

/( 

57) 

ALDRV 

A 

FOR 

00* 

Ot 

cr 1 pt  1 

o n 

not 

1 np  ot 

/JACOB 

/{ 

59) 

ALORV 

a 

ODR 

UD* 

De 

cr I pt 1 

on 

not 

1 npot 

/JACOB 

/< 

60) 

ALDRV 

a 

UDR 

no* 

De 

cr I pt I 

on 

not 

1 npot 

/JACOB 

/( 

61  > 

ALDRV 

A 

ADR 

HID* 

Ot 

cr l pt  l 

o n 

not 

1 npot 

/JACOB 

/( 

63) 

ALDRV 

A 

HTDR 

LVQR 

D« 

cr 1 pt I 

on 

not 

i npot 

/JACOB 

/( 

69) 

ALDRV 

A 

LVDR 

LGDR 

De 

cr i pt  i 

o n 

not 

1 npot 

/JACOB 

/( 

65) 

ALORV 

A 

LGDR 

LPDR 

Oe 

cr i pt  I 

on 

not 

i npot 

/JACOB 

/( 

66) 

ALDRV 

A 

LPDR 

LRO* 

Oe 

cr \ pt  l 

on 

net 

1 npot 

/JACOB 

/( 

67) 

ALDRV 

A 

LROR 

LOO* 

De 

cr i pt  1 

on 

not 

i npot 

/JACOB 

/( 

66) 

ALDRV 

0 

LODR 

laor 

D« 

cr 1 pt  1 

on 

not 

1 npot 

/JACOB 

/( 

70) 

ALDRV 

0 

LADR 

LTOR 

Oe 

cr 1 pt  1 

on 

not 

1 npot 

< /JACOB 

/( 

71  ) 

ALDRV 

0 

LTOR 

¥00 

Oe 

cr 1 pt  i 

on 

not 

1 npot 

/JACOB 

/( 

73) 

ALORV 

A 

VDO 

GOO 

De 

cr 1 pt  1 

on 

not 

1 npot 

/JACOB 

/( 

79) 

ALDRV 

A 

600 

POO 

Oe 

cr l pt  i 

o n 

not 

i npot 

/JACOB 

/< 

75) 

ALDRV 

A 

PDO 

UOO 

De 

cr l pt  l 

on 

not 

1 npot 

/JACOB 

/< 

78) 

ALDRV 

A 

UOO 

ADO 

Dc 

cr 1 pt 1 

on 

not 

i npot 

/JACOB 

/( 

79) 

ALORV 

A 

ADO 

LVDO 

De 

cr l pt 1 

on 

not 

i npot 

/JACOB 

/( 

82) 

ALDRV 

A 

LVOO 

LGOO 

De 

cr 1 pt 1 

on 

not 

I npot 

/JACOB 

/( 

83) 

ALDRV 

A 

L6D0 

LPOO 

De 

cr l pt  1 

on 

not 

1 npot 

/JACOB 

/( 

89) 

ALORV 

A 

LPDO 

LRDO 

De 

cr 1 pt  i 

on 

not 

1 npot 

/JACOB 

/< 

85) 

ALDRV 

A 

LRDO 

LOOO 

De 

cr 1 p 1 1 

on 

not 

inpot 

/JACOB 

/( 

86) 

ALDRV 

A 

LODO 

LTDO 

Oe 

cr 1 pt 1 

on 

not 

1 npot 

/JACOB 

/( 

69  ) 

ALDRV 

0 

LTDO 

von  -% 

Oe 

cr \ pt  1 

on 

not 

1 npot 

/JACOB 

/( 

109) 

ALDRV 

A 

VDA 

Oe 

cr i pt i 

on 

not 

i npot 

/JACOB 

/( 

110) 

ALDRV 

A 

6DA 

PD  w 

ADA 

De 

cr I pt  l 

o n 

not 

i npot 

/JACOB 

/( 

111  ) 

ALDRV 

A 

PDA 

De 

cr 1 pt  1 

on 

not 

I npot 

/JACOB 

/( 

115) 

ALDRV 

A 

ADA 

LVOA 

Oe 

cr 1 p 1 1 

on 

not 

1 npot 

/JACOB 

/( 

118) 

ALDRV 

0 

LVDA 

L6DW 

De 

cr 1 p 1 1 

on 

not 

i npot 

/JACOB 

/( 

119) 

ALORV 

0 

LGDA 

LPDR 

Oe 

cr 1 pt  i 

on 

not 

input 

/JACOB 

/( 

120) 

ALDRV 

0 

LPDA 

LRDR 

De 

cr  S pt  1 

on 

not 

i npot 

/JACOB 

/( 

121  ) 

ALDRV 

0 

LfiDA 

LOOR 

De 

cr 1 pt  i 

on 

not 

t npot 

/JACOB 

/( 

122) 

ALORV 

0 

LOOA 

LRDR 

De 

cr I pt  i 

on 

not 

i npot 

/JACOB 

/( 

129) 

ALDRV 

0 

LADA 

LTOR 

Oe 

cr 1 pt  1 

on 

not 

i npot 

/JACOB 

/( 

125) 

ALORV 

0 

LTOA 

VOT 

Dc 

cr i pt  1 

on 

not 

i npot 

/JACOB 

/( 

127) 

ALDRV 

A 

VOT 

GOT 

Dc 

cr \ pt i 

on 

not 

t npot 

/JACOB 

/< 

128) 

ALDRV 

A 

6DT 

POT 

Dc 

cr I pt  I 

on 

not 

i npot 

/JACOB 

/( 

129) 

ALDRV 

A 

POT 

ROT 

Oe 

cr i pt  I 

on 

not 

1 np  ut 

/JACOB 

/( 

130) 

ALDRV 

A 

ROT 

OOT 

Oe 

cr 1 p t 1 

o n 

not 

1 npot 

/JACOB 

/( 

131  ) 

ALDRV 

A 

ODT 

UOT 

Oe 

cr i pt  I 

o n 

not 

i np«t 

/JACOB 

/( 

132) 

ALDRV 

A 

UDT 

rot 

Oe 

cr i pt  1 

o n 

not 

i npot 

/JACOB 

/< 

133) 

ALDRV 

A 

ADT 

HTDT 

De 

cr 1 pt  1 

o n 

not 

1 npot 

/JACOB 

/( 

135  ) 

ALDRV 

A 

HTDT 

L VOT 

Oe 

cr \ pt  i 

o n 

not 

1 np  ut 

/JACOB 

/( 

136) 

ALDRV 

A 

LVDT 

LGOT 

Oe 

cr 1 pt  I 

o n 

not 

1 nput 

/JACOB 

/( 

137) 

ALORV 

A 

LGDT 

LPOT 

De 

cr I pt  i 

o n 

not 

1 nput 

/JACOB 

/( 

138) 

ALDRV 

A 

LPDT 

LROT 

De 

cr I pt  i 

on 

net 

i nput 

/JACOB 

/( 

139) 

NLORV 

A 

LRDT 

LOOT 

De 

cr i pt  i 

on 

not 

i nput 

/JACOB 

/( 

190) 

ALDRV 

A 

LOOT 

LROT 

Oe 

cr  5 p t I 

on 

not 

i nput 

/JACOB 

/( 

192) 

ALORV 

0 

LADT 

LTOT 
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Oe 

cr I pt  1 

o n 

not 

input 

/JACOB 

/( 

193) 

ALDRV 

0 

LTDT 
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VDLV 

Oner  ) pi  1 

on 

not 

) np  ot 

/JACOB 

/( 

163) 

NLDRV 

0 

VDLV 

SOL  V 

Oetcr 1 pt  t 

on 

not 

1 nput 

/JACOB 

/< 

16*  > 

NLORV 

0 

60LV 

POLV 

Otter  1 pt  I 

on 

not 

1 nput 

/JACOB 

/( 

165) 

nldrv 

0 

PDLV 

ADLV 

Deter l pt 1 

on 

not 

1 npot 

/JACOB 

/< 

16V  ) 

NLDRV 

0 

AOLV 

LVDLV 

Deter  tpt  i 

on 

not 

1 npot 

/JACOB 

/( 

172) 

NLDRV 

0 

LVDLV 

L60LV 

Otter |pt 1 

on 

not 

Inpot 

/JACOB 

/( 

173  ) 

NLORV 

0 

L60LV 

LPOLV 

Otter f pi  l 

on 

not 

Inpot 

/JACOB 

/( 

IT*  ) 

NLDRV 

0 

LPOLV 

LRDLV 

Otter  1 pt 1 

on 

not 

1 npot 

/JACOB 

/( 

175) 

NLORV 

0 

LRDLV 

LOOLV 

Deter  1 pt 1 

on 

not 

1 npot 

/JACOB 

/( 

176) 

NLDRV 

0 

LODLV 

LRDLV 

Deter  > pt  1 

on 

not 

Inpot 

/JACOB 

/< 

178) 

NLDRV 

0 

LAOLV 

LTOIV 

Deter  1 pt 1 

on 

not 

1 npot 

/JACOB 

/( 

17V) 

NLORV 

0 

LTOLV 

VOLE 

Deter i pt 1 

on 

not 

1 npot 

/JACOB 

n 

181) 

NLDRV 

0 

VDL6 

SOLS 

Deter  1 pt 1 

on 

not 

1 npot 

/JACOB 

n 

162) 

NL9M 

0 

SOLS 

POLS 

Det cr 1 pt  l 

on 

not 

I npot 

/JACOB 

n 

163) 

NLDRV 

0 

POLS 

*016 

Deter  j p t i 

on 

not 

I npot 

/JACOB 

/< 

16  7) 

NLORV 

0 

R0L6 

LV0L6 

Deter  1 pt  1 

on 

not 

t npot 

/JACOB 

/( 

1*0) 

NLORV 

0 

LV0L6 

L6DLG 

Deter  1 pt  1 

on 

not 

1 npot 

/JACOB 

/< 

1*1  ) 

NLORV 

0 

L60L6 

LP0L6 

Deter \ pt  l 

on 

not 

1 npot 

/JACOB 

/( 

1*2) 

NLORV 

0 

LPDLG 

LRDLG 

Deter  1 pt  I 

on 

not 

1 npot 

/JACOB 

/< 

1*3) 

NLORV 

0 

LRDLG 

LOOLS 

Deter ( pt  i 

on 

not 

i npot 

/JACOB 

/( 

1**> 

NLORV 

0 

LODLG 

LAOLG 

Deter i pt  1 

on 

not 

1 npot 

/JACOB 

/< 

1*6) 

NLORV 

0 

LRDLG 

LTOtS 

Deter \ pt  1 

on 

not 

1 npot 

/JACOB 

n 

1*7  ) 

NLORV 

0 

LTD  LG 

VOIP 

Deter ] pt ) 

on 

net 

1 npot 

/JACOB 

n 

1**> 

NLORV 

0 

VDLP 

60LP 

Oetcr i pt  i 

on 

not 

1 npot 

/JACOB 

/( 

200) 

NLORV 

0 

6DLP 

POLP 

Deter i pt  i 

on 

not 

Inpot 

/JACOB 

/< 

201) 

NLORV 

0 

POLP 

AOLP 

Deter \ pt  1 

on 

not 

1 npot 

/JACOB 

/( 

205) 

NLORV 

0 

RDLP 

LVDLP 

Deter  1 pt  1 

on 

not 

Inpot 

/JACOB 

/< 

208) 

NLORV 

0 

LVDLP 

L6DLP 

Oetcr 1 pt  1 

on 

not 

I npot 

/JACOB 

/( 

20*) 

NLORV 

0 

LGOLP 

LPOLP 

Deter i pt 1 

on 

not 

i npot 

/JACOB 

/( 

210) 

NLORV 

0 

LPDLP 

LRDLP 

Deter i pt l 

on 

not 

1 npot 

/JACOB 

/( 

211) 

NLORV 

0 

LROLP 

LOOLP 

Deter  t pt ) 

on 

not 

1 nput 

/JACOB 

/< 

212) 

NLORV 

0 

LOOLP 

LADLP 

Deter i pt  I 

on 

not 

1 nput 

/JACOB 

/< 

21*) 

NLORV 

0 

LROLP 

LTOLP 

Oetcr 1 pt  1 

on 

not 

i nput 

/JACOB 

n 

215) 

NLORV 

0 

LTDLP 

LVDLR 

Oetcr 1 pt i 

on 

not 

1 nput 

/JACOB 

n 

226) 

NLORV 

0 

LVDLR 

L6DLR 

Deter  t pti 

on 

not 

1 npot 

/JACOB 

/( 

227) 

NLORV 

0 

LGDLR 

LTOLR 

Deter Ipt 1 

on 

not 

i npot 

/JACOB 

/( 

233) 

NLORV 

0 

LTOLR 

LVOLO 

Oetcr ( pt ( 

on 

not 

\ npot 

/JACOB 

/( 

2**) 

NLORV 

0 

LVOLO 

LSOLO 

De  ter  1 p 1 1 

on 

not 

1 npot 

/JACOB 

/< 

2*5) 

NLORV 

0 

LGOLO 

LPOLO 

Det  cr 1 pt  1 

on 

not 

i nput 

/JACOB 

/< 

2*6) 

NLORV 

0 

LPOLO 

LRDLO 

De  s cr 1 p 1 1 

on 

not 

1 nput 

/JACOB 

n 

2*7) 

NLORV 

0 

LRDLO 

LTOLO 

Oetcr I pt  t 

on 

not 

1 nput 

/JACOB 

/< 

251) 

NLORV 

0 

LTOLO 

LVOLU 

De  s cr i pt  1 

on 

not 

1 npot 

/JACOB 

/( 

262) 

NLORV 

0 

LVDLU 

L60LU 

De  s cr l p 1 1 

on 

not 

1 np  ut 

/JACOB 

/< 

263) 

NLORV 

0 

LGDLU 

LPDLU 

Deter i pt  1 

on 

not 

1 nput 

/JACOB 

/< 

26*) 

nldrv 

0 

LPOLU 

LROLU 

Deter l pt  l 

on 

no  t 

input 

/JACOB 

/( 

265  ) 

NLORV 

0 

LROLU 

LOOlU 

Deter \ pt  1 

on 

not 

1 nput 

/JACOB 

/( 

266) 

NLORV 

0 

LOOLU 

LTOLU 

Deter  1 pt  \ 

on 

not 

i nput 

/JACOB 

/t 

26*  ) 

NLORV 

0 

LTOLU 

LVQLN 

De  s cr  i pt  \ 

on 

not 

i nput 

/JACOB 

/( 

280) 

NLDRV 

0 

LVDLR 

LHDLR 

De  s cr i p t i 

on 

no  t 

> nput 

/JACOB 

/< 

283  ) 

NLDRV 

0 

LRDLR 

r4 
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LMOLH 

Otter  1 pt 1 

on 

not 

t nput 

/JACOB 

/< 

286) 

MLDRV 

0 

LMOLH 

LTOLH 

Ots er l pt 1 

on 

not 

1 np«t 

/JACOB 

/( 

287  7 

NLORV 

0 

LTOLH 

LVOLH 

Otter  1 pt  1 

on 

not 

1 npyt 

/JACOB 

/( 

316) 

NLDRV 

0 

LVOLM 

LROLH 

Otter  1 ptl 

on 

not 

input 

/JACOB 

/( 

319) 

MLDRV 

0 

LROLM 

LTOLH 

Otter  1 pt 1 

on 

not 

Input 

/JACOB 

/( 

323) 

NLORV 

0 

LTOLH 
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storage 

BLOCK  LOC 


LAST  AB 
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LAST  AB 


10  NOV  T2  G.01-A7 


5/<” 
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5> U&R  CODE  VAR 


An  array  that  naps  tha  initial 
Into  the  QL  stata  and  eostata. 


arc  stata  and  ceitata 


/NAP 


II  CHECK 
INARC 


NAP 
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STORAGE 

WlT 


SUBROUTINE  USAGE 

~rm  cm  Y*r 


ft 


•] 


PI 

First  entry  of  3 aord  ln-plan*  control 

vector  u 

/NATS 

/< 

l) 

ALGCON 

N 

p 

ALGCON 

N 

PI 

P2 

Description  not  Input 

/NATS 

/I 

2) 

ALGCON 

N 

P2 

P3 

Description  not  Input 

/NATS 

/< 

3) 

ALGCON 

N 

P3 

XKl 

First  entry  of  3 oord  in-plont  control 

constraints  X 

/NATS 

/c 

A) 

ALGCON 

1 

XKl 

THROTL 

I 

XKl 

TM1 

0 

XXI 

T M2 

0 

XKl 

TH3 

0 

XKl 

THA 

0 

XKl 

XK2 

Description  not  Input 

/NATS 

/( 

5) 

0L1 

0 

XK2 

0L2 

0 

XK2 

U3 

Description  not  input 

/NATS 

n 

6) 

AL1 

0 

XK3 

AL2 

0 

XK3 

AL3 

0 

XK3 

ALA 

0 

XK3 

AL5 

0 

XK3 

AL6 

0 

XK3 

ALT 

0 

XK3 

AL8 

0 

XK3 

NPLANE 

1 

XK3 

OUTPUT 

1 

XK3 

XK1T 

yi\) 

First  entry  of  3x3  ostrlx  containing  tbe  explicit 

/NATS 

n 

7) 

ALGCON 

I 

XK1T 

*t 

portinls  of  X uith  respect  to  u,  K_ 

TH1 

0 

XK1T 

TH2 

0 

XK1T 

TM3 

N 

XK1T 

XK2T 

Description  not  Input* 

/NATS 

/( 

8) 

ALGCON 

I 

XK2T 

DL2 

0 

XK2T 

XK3T 

Description  not  input 

/NATS 

/< 

9) 

ALGCON 

I 

XK3T 

AL1 

0 

XK3T 

ALA 

0 

XK3T 

AL6 

0 

XK3T 

ALT 

0 

XK3T 

AL8 

0 

XX3T 

AL9 

0 

XK3T 

XX  ID 

Description  not  Input 

/NATS 

/< 

10) 

ALGCON 

1 

XK10 

TM3 

N 

XK1D 

XK2D 

Description  not  Input 

/NATS 

/c 

11  ) 

ALGCON 

I 

XK20 

AL1 

I 

XK2D 

0L1 

0 

XK2D 

DL2 

0 

XK2D 

XX  30 

Description  not  Input 

/NATS 

/< 

12) 

ALGCON 

1 

XK3D 

AL1 

0 

XK30 

ALA 

0 

XK3D 

ALA 

0 

XK30 

ALT 

0 

XK3D 

AL8 

0 

XK30 

AL9 

0 

XK3D 

XX  1 A 

Description  not  Input 

/NATS 

/< 

13) 

ALGCON 

I 

XKl  A 

TH3 

N 

XKl  A 

XK2A 

Description  not  input 

/NATS 

/< 

1 A ) 

ALGCON 

1 

XK2A 

AL1 

I 

XK2A 

DL2 

0 

XK2A 

XX3A 

Description  not  Input 

/NATS 

/( 

15) 

ALGCON 

I 

XK3A 

AL1 

0 

XK3A 

AL2 

0 

XK3A 

AL3 

0 

XK3A 

ALA 

0 

XK3A 

AL5 

N 

XK3  A 

AL6 

0 

XK3A 

ALT 

0 

XK3A 

ALB 

0 

XK3A 

AL9 

0 

XK3A 

vox 

K (31 

A* 

Explicit  partial  of  X* ^ * art  Xf  oben  • 

1 s opt i aa 1 . 

/NATS 

/{ 

16  > 

ALGCON 

AL1 

I 

0 

VOA 

VDA 

877 


FORTRAN 

SYMBOL 


NATH 

SYMBOL 


DESCRIPTION 


STQRA6E 
BLOCK " LW 


ymi&w 


GOA 

K'3' 

*> 

Explicit  partial 

of  X(3)  nrt  X, 

uhen  n is  optinal. 

/MATS 

/< 

IT)  ALGCON 
AL1 

I 

0 

GDA 

GOA 

FDA 

Explicit  partial 

of  X*  3 * nrt  X^ 

ofcen  n Is  optinal. 

/ MATS 

/( 

1$)  ALGCON 
AL1 

I 

D 

POA 

PDA 

Xm19 

Not  used 

/MATS 

/( 

19) 

XM20 

Not  used 

/MATS 

/< 

20) 

XM21 

Not  used 

/MATS 

/< 

21) 

XM22 

Not  used 

/MATS 

/( 

22) 

XKITT 

K<l! 

*TT 

First  entry 

in  3d  notris  containing  KV| 

/MATS 

/< 

23)  ALGCON 
TM3 

I 

0 

XKWtf 

XKITT 

XKlTD 

Descr iption 

not 

Input 

/MATS 

/< 

20)  TN3 

M 

XX1T0 

XK2T0 

Description 

not 

Input 

/MATS 

/< 

2T  ) AL1 
DL2 

I 

0 

XK2T0 

XX2T0 

XK3T0 

Daacr Iption 

not 

Input 

/MATS 

/< 

28)  AL9 
alb 

AL7 

AL8 

AL9 

M 

0 

M 

0 

M 

XX3T0 

XX3T0 

XX3TD 

XX3TD 

XX3TD 

XK1TA 

Description 

not 

Input 

/MATS 

/I 

29)  TH3 

M 

XX1TA 

XK2TA 

Descr Iption 

not 

Input 

/MATS 

/( 

30)'  AL1 

I 

XX2TA 

XX3TA 

Descr Ipt Ion 

not 

Input 

/MATS 

/( 

31)  AL9 

alb 

ALT 

AL8 

AL9 

0 

0 

0 

0 

0 

XX3TA 

XX3TA 

XK3TA 

XK3TA 

XK3TA 

XK1DD 

Description. 

not 

Input 

/MATS 

/< 

32)  TH3 

M 

XK1D0 

XK2D0 

Description 

not 

Input 

/MATS 

/< 

33)  ALl 
QL2 

I 

0 

XK20D 

XK2DD 

XX  300 

Description 

not 

Input 

• . ir 

/MATS 

n 

39)  AL9 
ALB 

alt 

AL8 

AL9 

M 

0 

M 

0 

0 

XK3D0 

XK30D 

XK3DD 

XK3D0 

XX3DD 

XX  IDA 

Description 

not 

i nput 

/MATS 

n 

35)  TM3 

M 

XX1DA 

XK2DA 

Description 

not 

1 nput 

/MATS 

n 

3B)  AL) 

1 

XK2DA 

XK3DA 

Descr Iption 

not 

1 nput 

- 

/MATS 

n 

3T  ) ALA 
ALB 
alt 

AL8 

AL9 

0 

0 

0 

0 

M 

XK3DA 

XK3DA 

XK3DA 

XK3DA 

XR3DA 

XKIAA 

Description 

not 

Input 

/MATS 

n 

38)  TN3 

M 

XKIAA 

XK2AA 

Description 

not 

Input 

/MATS 

/< 

39)  ALl 
DL2 

1 

0 

XK2AA 

XK2AA 

XK3AA 

Description 

not 

Input 

/MATS 

/( 

90)  AL3 
ALA 
AL5 
ALB 
ALT 
AL8 
AL9 

0 

0 

M 

0 

0 

0 

0 

XX3AA 

XK3AA 

XK3AA 

XK3AA 

XK3AA 

XK3AA 

XK3AA 

XM91 

Not  used 

/MATS 

n 

91) 

XM92 

Not  used 

/MATS 

/< 

92) 

XM93 

Not  used 

/MATS 

/< 

93) 

XM99 

Not  used 

/MATS 

/c 

99) 

XMAS 

Not  used 

/MATS 

n 

95) 

XXIV 

k;" 

The  fir»t  entry 

I n a 3«0  natr 1 s 

containing  Ky 

/MATS 

n 

9B  ) ALGCON 
ALGCON 
TH3 
TH9 

l 

I 

M 

0 

XXV 

XX  1 v 
XXIV 
XXIV 

10  NOV  T2  G . 01-97 


XX2V 

Description  not 

input 

/NATS 

/( 

AT)  DL2 

0 

XX2V 

XX3V 

Description  not 

1 nput 

/WATS 

/< 

<t8)  AL1 

0 

XK3V 

AL3 

0 

XX3V 

ALA 

0 

XK3V 

AL5 

W 

XK3V 

ALfc 

0 

XK3V 

alt 

0 

XK3V 

AL6 

0 

XK3V 

ALA 

0 

XK3V 

XX3G 

Description  not 

Input 

/WATS 

n 

91)  AL1 

0 

XK3G 

ALA 

0 

XX3G 

ALT 

0 

XX3G 

AL8 

0 

XK3G 

AL9 

0 

XK3G 

XX3P 

Description  not 

Inpot 

/WATS 

n 

9A  ) ALA 

0 

XX3P 

ALT 

0 

XX3P 

AL8 

0 

XX3P 

ALA 

0 

XK3P 

XK18 

Description  not 

Inpot 

/WATS 

/( 

55)  TH2 

0 

XX 18 

TM3 

w 

XX18 

TWA 

0 

XX 18 

XK28 

Description  not 

Inpot 

/WATS 

/< 

56)  OL2 

0 

XX28 

XX3R 

Description  not 

Inpot 

/WATS 

/< 

57)  AL1 

0 

XK38 

AL3 

0 

XK38 

ALA 

0 

XK3R 

AL5 

w 

XX38 

ALA 

0 

XX  38 

ALT 

0 

XX  38 

AL8 

0 

XX  38 

ALA 

0 

XK38 

XX30 

Description  not 

1 nput 

/WATS 

/< 

60)  ALA 

0 

XK30 

ALT 

0 

XX30 

AL8 

0 

XX30 

ALA 

0 

XX  30 

XXlW 

Description  not 

1 nput 

/WATS 

/< 

6A  ) TH3 

w 

XX1W 

XX  in 

Description  not 

i nput 

/WATS 

n 

65)  0L2 

0 

XX2W 

XX3W 

Description  not 

1 nput 

/WATS 

/< 

66)  ALl 

0 

XK3W 

ALA 

0 

XK3W 

AL5 

w 

XX3W 

AL6 

0 

XX3W 

ALT 

0 

XK3W 

AL8 

0 

XK3W 

ALA 

0 

XK3W 

XX1Z 

Description  not 

1 nput 

/WATS 

/( 

6T)  TH2 

0 

XXII 

XXI VT 

*<!> 

*VT 

Tne  first  entry 

In  s 3*3  oatrli  containing  Ky> 

/WATS 

/( 

TO)  ALGCOtt 

I 

XKWV 

TW3 

w 

XK1VT 

XK3VT 

Description  not 

Input 

/WATS 

n 

72)  ALA 

0 

XX3VT 

ALA 

0 

XX3VT 

xxivo 

Description  not 

1 nput 

/WATS 

/< 

73)  TH3 

w 

XXI VD 

XK2V0 

Description  not 

1 nput 

/WATS 

/< 

TA)  ALl 

I 

XX2VD 

XK3VD 

Description  not 

Input 

/WATS 

/( 

75)  ALA 

0 

XX3VD 

ALA 

0 

XK3VD 

XK1VA 

Description  not 

1 nput 

/WATS 

/( 

76)  TH3 

w 

XXI VA 

XK2VA 

Description  net 

1 nput 

/ WATS 

/< 

77)  ALl 

I 

XK2VA 

DL2 

0 

XX2VA 

XX3VA 

Description  not 

1 nput 

/WATS 

/( 

78)  AL3 

0 

XK3VA 

ALA 

0 

XK3VA 

AL5 

w 

XK3VA 

AL6 

0 

XK3VA 

ALT 

0 

XX3VA 

AL8 

0 

XK3VA 

ALA 

0 

XX3VA 

XX16T  The  first  entry  in  « 3*3  natrls  containing  K;|  /NATS  /(  79  > 
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FORTRAN  MATH 

SYNBOL  SYNBOL 


DESCRIPTION  dtr^w 


XX3GT 

Description  net 

1 nput 

/NATS 

/( 

81  ) 

AL9 

0 

XK3GT 

XX3GD 

Description  net 

1 nput 

/NATS 

/( 

89  > 

AL9 

0 

XK3GD 

XK3GA 

Description  not 

I np«t 

/NATS 

/( 

87) 

AL9 

0 

XX3GA 

XX1PT 

K(l> 

The  first  entry 

in  e 3.3 

• etr  1 x 

cont ai ni 09 

<+• 

/NATS 

/< 

88) 

XX3PT 

Description  not 

1 nput 

/NATS 

/< 

90) 

AL9 

0 

XX3PT 

XK3PD 

Description  not 

i nput 

/NATS 

/< 

93) 

AL9 

0 

XX3PD 

XK3PA 

Description  not 

i nput 

/NATS 

/< 

96) 

AL9 

0 

XX3PA 

XX1RT 

Kll) 

The  flr*t  entry 

in  s 3*3 

•Itrii 

cont  al ni 09 

*hu 

/NATS 

M 

9T  ) 

TH3 

N 

XX1RT 

*at 

XK3RT 

Description  not 

1 nput 

/NATS 

/< 

99) 

AL9 

0 

XK3RT 

ALT 

0 

XX3RT 

ALB 

0 

XX3RT 

AL9 

0 

XX3RT 

XX1RD 

De  s cr i pt 1 o n not 

i nput 

/NATS 

/( 

100) 

TM3 

N 

XX1RO 

XX2RD 

Description  not 

1 nput 

/NATS 

/( 

101  ) 

AL1 

1 

XK2RD 

XK3RD 

Description  not 

1 nput 

/NATS 

/( 

102) 

AL9 

0 

XK3RD 

ALT 

0 

XK3R0 

AL8 

0 

XK3RD 

AL9 

0 

XX  3RD 

XX  IRA 

Description  not 

1 nput 

/NATS 

/( 

103) 

TH3 

N 

XX  IRA 

XN2RA 

Description  not 

i nput 

/NATS 

/( 

109  ) 

AL1 

I 

XX2RA 

DL2 

0 

XK2RA 

XK3R  A 

Description  not 

1 nput 

/NATS 

/( 

105) 

AL3 

0 

XK3RA 

AL9 

0 

XK3RA 

AL5 

N 

XK3RA 

AL6 

0 

XK3RA 

AL7 

0 

XK3R  A 

AL8 

0 

XK3RA 

AL9 

0 

XX3BA 

XXIOT 

K ( () 

R -T 

The  first  entry 

in  a 3*3 

■ etr  f x 

cental nlug 

**■ 

/NATS 

/( 

106) 

XK30T 

p 1 

Description  not 

1 nput 

/NATS 

/( 

108) 

AL9 

0 

XX30T 

XK30D 

Description  not 

1 nput 

/NATS 

/( 

111) 

AL9 

0 

XK300 

XK30A 

Description  not 

1 nput 

/NATS 

/( 

119) 

ALA 

0 

XK30A 

XK1UT 

wi  n 

The  first  entry 

in  e 3*3 

••trie 

cont al nl ng 

*#!■ 

/NNTS 

/( 

115) 

*mT 

XX  lfIT 

i ) 

■T 

The  first  entry 

In  e 3*3 

•etr i * 

cont al ni ng 

*•» 

/NATS 

/( 

129) 

TH3 

N 

XXI  NT 

XX2NT 

Description  not 

i nput 

/NATS 

/( 

125) 

0L2 

0 

XK2NT 

XX3NT 

Description  not 

1 nput 

/NATS 

/( 

126) 

ALT 

0 

XX3NT 

ALB 

0 

XK3NT 

AL9 

0 

XX3NT 

XX  I NO 

Description  not 

1 nput 

/NATS 

/( 

127) 

TH3 

H 

XKIND 

XX2N0 

Description  not 

1 nput 

/NATS 

/( 

128) 

AL1 

1 

XX  2ND 

DL2 

0 

XX2N0 

XK3NO 

Description  not 

1 nput 

/NATS 

/( 

129) 

alt 

0 

XK3ND 

AL8 

0 

XK3ND 

AL9 

0 

XK3ND 

XX1NA 

Description  not 

1 nput 

/NATS 

/( 

130) 

TH3 

N 

XK1NA 

XX2NA 

Description  not 

1 nput 

/NATS 

/( 

131  ) 

AL1 

I 

XK2NA 

DL2 

0 

XK2NA 

XK3NA 

Description  net 

i nput 

/NATS 

/( 

132) 

AL9 

0 

XK3NA 

AL5 

N 

XK3NA 

AL6 

D 

XK3NA 

AL  7 

0 

XK3NA 

ALB 

0 

XK3NA 

AL9 

D 

XK3NA 

XK1ZT 

Jll 

h tT 

The  first  entry 

In  a 3*3 

• atr  i « 

contain! ng 

“XU 

/NATS 

/( 

133) 

1 0 NOV 

72  e . 01-^7 

PORT A AN 
SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


ri Waaor- 


xxivv 

wt  1 » 

The  f lr»l  entry 

in  a 3i$ 

natrl * 

cont  a! nl ng 

X 

/MATS 

/( 

M2) 

ALGCON 

I 

XX  YV 

V t 

X * 

T M3 

M 

XXIVV 

TMA 

0 

xxivv 

XX2VV 

Description  not 

i npot 

/MATS 

/< 

M3) 

DL2 

0 

XX2VV 

XX3VV 

Description  not 

l npot 

/MATS 

/( 

1AA  ) 

AL3 

0 

XX3W 

ALA 

0 

XX3VV 

AL5 

M 

XJC3W 

AL6 

0 

XK3VV 

AL  7 

0 

XX3VV 

AL8 

0 

XX3W 

AL9 

0 

XX3VV 

XK36V 

Description  not 

f npot 

/MATS 

/( 

M7I 

ALA 

0 

XX36V 

AL7 

0 

XX  36V 

AL8 

0 

X-X3GV 

XX3PV 

Description  not 

i npot 

/MATS 

/( 

150) 

ALA 

0 

XK3PV 

XX1RV 

Description  not 

Inpot 

/MATS 

/( 

151  ) 

TH3 

M 

XK1RV 

XX2RV 

Description  not 

I npot 

/MATS 

/( 

152) 

DL2 

0 

XX2RV 

XX3RV 

Description  not 

i npot 

/MATS 

/( 

153) 

AL3 

0 

XK3RV 

ALA 

0 

XK3RV 

AL5 

M 

XX3RV 

AL6 

0 

XX3RV 

ALT 

0 

XK3RV 

AL8 

0 

XK3RV 

AL9 

0 

XX3RV 

XK30V 

Description  not 

I npot 

/MATS 

/< 

156) 

ALA 

0 

XX30V 

XK1MV 

Description  not 

1 npot 

/MATS 

n 

160) 

TM3 

M 

XX1NV 

XK2MV 

Description  not 

l npot 

/MATS 

/( 

161  ) 

DL2 

0 

XX2AV 

XX3MV 

Description  net 

1 npot 

/MATS 

/{ 

162) 

ALA 

0 

XK3MV 

AL5 

M 

XX3NV 

AL6 

0 

XK3MV 

ALT 

0 

XX3MV 

AL8 

0 

XK3MV 

XX1GG 

KC  1) 

The  first  entry 

In  • 3*7 

natr I a 

containing 

s» 

/MATS 

/( 

166) 

XK3GG 

Description  not 

Inpot 

/MATS 

/( 

168) 

ALA 

0 

XX36G 

ALT 

0 

XX3G6 

ALB 

0 

XK3GG 

AL9 

0 

XX3SG 

XK3PG 

Description  not 

1 npot 

/ MATS 

/( 

171  ) 

ALA 

0 

XX3PG 

ALT 

0 

XK3PG 

AL8 

0 

XX3PS 

XX3RG 

Description  not 

I npot 

/MATS 

/( 

1 7 A ) 

ALA 

0 

XK3R6 

ALT 

0 

XX3RG 

AL6 

0 

XK3RG 

AL9 

0 

XX3RG 

XX30G 

Description  not 

I npot 

/MATS 

/( 

177) 

ALA 

0 

XK30G 

ALT 

0 

XK306 

ALB 

0 

XK30G 

XK3MG 

Description  not 

1 npot 

/MATS 

/( 

183) 

ALA 

0 

XK3MG 

XX1PP 

K<  II 

*** 

The  first  entry 

in  a 3*6 

•itrli 

contai nl ng 

v 

/MATS 

/( 

187) 

XX3PP 

Description  not 

l npot 

/MATS 

/{ 

189) 

ALA 

0 

XX3PP 

ALT 

0 

XX3PP 

AL8 

0 

XX3PP 

AL9 

0 

XX3PP 

XK3RP 

Description  not 

I npot 

/MATS 

/( 

192) 

ALA 

0 

XK3RP 

AL7 

0 

XX3RP 

AL8 

0 

XK3RP 

ALA 

0 

XX3RP 

XX30P 

Description  not 

inpot 

/MATS 

/( 

195) 

ALA 

0 

XX30P 

AL7 

0 

XK30P 

AL8 

0 

XX30P 

XK3MP 

Description  not 

inpot 

/MATS 

/( 

201  ) 

ALA 

0 

XX3MP 
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FORTRAN 

SYR80L 


RATH 

SYR60L 


DESCRIPTION 


dir* br  SHKWI  w 


OPOL 

da/dX 

A 3x3  aatrlt  ' 

that 

coatalnt  da/8X  3e/dX,  and  da/dX* 

/RATS 

/( 

301  ) 

algcon 

1 

DPDL 

APPLY 

1 

0PDL 

PR002 

3< $p /5y  )/dy 

A 2x6A  aatr 1 x 

that 

tot  a 1 

first  parti  alt 

/RATS 

/( 

310) 

algcon 

I 

PR001 

of  the  aatrix 

DEPOEY  art  tba  0L 

state 

algcon 

1 

PR0D5 

APPLY 

I 

PR001 

APPLY 

I 

PR005 

PRODS 

a( 3»/3y  )/dy 

A 3 *6A  atfr  1 * 

that 

contains  the 

total 

first  parti  tit 

/ RATS 

/« 

310) 

of  the  aatrU 

DPDV 

art  the  QL  ttate. 

PRODS 

A 2 x 6M  aatrix 

that 

contains  3<  Sp/8y  1/3X., , 3<6p/Sy)/3X, 

/RATS 

/< 

502) 

ALGCON 

I 

PR009 

and  3<5p/8y)/3X^ 

APPLY 

l 

PR009 

PV 

# 

/RATS 

/( 

550) 

ALA 

R 

PV 

PG 

* 

/RATS 

/( 

551  ) 

ALA 

R 

PG 

» 

APPLY 

1 

PG 

ARCIN 

0 

PG 

CONTRL 

0 

PG 

PP 

/RATS 

/< 

552  ) 

ALA 

R 

PP 

PR 

\ 

Sat  tyabol 

/RATS 

n 

553) 

ALA 

R 

PR 

PO 

/RATS 

/( 

55A ) 

ALA 

R 

PO 

9V* 

^ff 

$«•  tyabol 

/RATS 

/< 

555) 

ALA 

R 

PVV 

P6V 

P 

/RATS 

/( 

556) 

ALA 

R 

PGV 

>* 

PPV 

S««  tyabol 

/RATS 

/c 

55T) 

ALA 

R 

PPV 

PR  V 

Ae 

Sac  tyabol 

/RATS 

/< 

556  ) 

ALA 

R 

PR  V 

POV 

P 

Sac  tyabol 

/RATS 

/< 

559) 

ALA 

R 

POV 

P* 

P6G 

P 

Sac  tyabol 

/RATS 

/< 

560) 

ALA 

R 

PGG 

77 

PP6 

u* 

Sea  tyabol 

/RATS 

/< 

561  ) 

ALA 

R 

PPG 

PRG 

Sea  tyabol 

/RATS 

/< 

562) 

ALA 

R 

PRG 

POG 

p 

See  tyabol 

/RATS 

/( 

563) 

ALA 

R 

POG 

p» 

PPP 

See  tyabol 

/RATS 

n 

569) 

ALA 

R 

PPP 

PRP 

V 

Sea  tyabol 

/RATS 

/( 

565) 

ALA 

R 

PRP 

POP 

V 

See  tyabol 

/RATS 

/( 

566) 

ALA 

R 

POP 

PRR 

*Xhh 

See  tyabol 

/RATS 

/( 

567) 

ALA 

R 

PRR 

FOR 

Sec  tyabol 

/RATS 

/( 

568) 

ala 

R 

POR 

POO 

P 

See  tyabol 

/RATS 

/( 

569) 

ALA 

R 

POO 

PP 

PL6 

P. 

See  tyabol 

/RATS 

/< 

570) 

APPLY 

1 

PLG 

X» 

ARCIN 

0 

PL6 

CONTRL 

0 

PLG 

PLP 

Px 

Sec  tyabol 

/RATS 

/( 

571  ) 

APPLY 

I 

PLP 

ARCIN 

0 

PLP 

CONTRL  0 PLP 
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BL0CK 

0RBIT 


a 


fortran 

SvnftOL 


HATH 

SYMBOL 


DESCRIPTION 


5 TOR  ABE 

"Bonn? 


an-  8Biraa 


VAR 


VI 

Vj 

Inertial  velocity 

(FT/SEC) 

/ORBIT 

/( 

1 ) 

OUTPUT 

I 

VI 

POBCOL 

1 

ORBPRft 

POBCQL 

ft 

VI 

ORBPRft 

Array  of  intertill  and  orbital 

bounder y 

conditions 

/ORBIT 

/( 

1) 

6Aftl 

Inertial  flight  path  angles 

(RAD) 

/ORBIT 

/( 

2 ) 

OUTPUT 

I 

GAftI 

1 

POBCOL 

0 

GAftI 

P51 1 

* 

Inertial  azlnuth 

(RAD) 

/ORBIT 

/( 

3) 

OUTPUT 

i 

PSII 

I 

POBCOL 

ft 

PSII 

KftUi 

u _ 

Inertial  longitude 

(RAD) 

/ORBIT 

/( 

A) 

OUTPUT 

I 

KftUI 

* I 

POBCOL 

* 

IftUI 

p 

D 

Seal  - lotus  rectus 

(FT  ) 

/ORBIT 

/( 

5 ) 

OUTPUT 

I 

P 

yr 

POBCOL 

ft 

P 

ECC 

€ 

Orbital  eccentricity 

/ORBIT 

/( 

6) 

OUTPUT 

1 

ECC 

POBCOL 

ft 

ECC 

AlftCL 

1 

Orbital  inclination 

(RAD) 

/ORBIT. 

/( 

T) 

OUTPUT 

] 

AINCL 

POBCOL 

ft 

A1NCL 

ARGP 

c 

Or  bl t a 1 ar  gunent  of  perigee 

(RAD) 

/ORBIT 

/( 

6) 

OUTPUT 

I 

ARGP 

P 

POBCOL 

ft 

ARGP 

AXCNOD 

0 

Longitude  of  ascendl ng.  node 

« , « ‘ 

(RAD) 

/ORBIT 

/( 

9) 

OUTPUT 

I 

ASCNOD 

POBCOL 

ft 

ASCNOD 

SHI ftAJ 

a 

(FT) 

/ORBIT 

/( 

10) 

OUTPUT 

I 

SftlftAJ 

t 

POBCOL 

ft 

SNIHAJ 

APOGEE 

R 

(FT) 

/ORBIT 

/( 

1)  ) 

OUTPUT 

I 

APOGEE 

• 

POBCQL 

0 

APOGEE 

PERGEE 

R 

(FT) 

/ORBIT 

/( 

12) 

OUTPUT 

I 

PERGEE 

9 

POBCOL 

0 

PERGEE 

ANOftLY 

* 

True  ano.oly 

(RAD) 

/ORBIT 

/( 

13) 

OUTPUT 

I 

ANOftLY 

POBCQL 

ft 

ANOftLY 

CAPS 

X 

Asynptote  paranetor 

T 

/ORBIT 

/< 

HI 

POBCOL 

0 

CAP* 

CAPV 

V 

Aayaptete  paranetor 

(FT) 

/ORBIT 

/( 

15) 

POBCOL 

0 

CAPV 

ASYftP 

e 

Outgoing  asyoptote 

(RAD) 

/ORBIT 

/( 

14) 

POBCQL 

ft 

ASVftP 

ENERGY 

E 

Energy 

/ORBIT 

/( 

m 

OUTPUT 

I 

ENERGY 

POBCOL 

0 

ENERGY 

HftNTft 

H 

Ho sent on 

/ORBIT 

/( 

18) 

OUTPUT 

I 

H ANT  ft 

POBCQL 

ft 

HftNTft 

OVIDV 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

19) 

POBCOL 

ft 

OYIOV 

POBCQL 

1 

PPO 

PPO 

ftatrii  of  boundary  condition  pi 

art  1 a 1 der 

I vat  I ves 

/ORBIT 

/( 

15) 

DV1D6 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

20) 

POBCQL 

ft 

DY10G 

OVIOH 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

21) 

POBCQL 

ft 

OVIOH 

OVIOft 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

22) 

POBCOL 

0 

DVIDft 

DVIOPS 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

23) 

POBCOL 

ft 

0Y1DPS 

OVIORO 

Partial  derivative  of  boundary 

condi t Ion 

/ORBIT 

/( 

29) 

POBCOL 

ft 

OVIORO 

DV1DHU 

Partial  derivative  of  boundary 

condl t Ion 

/ORBIT 

/( 

25) 

POBCQL 

0 

ovionu 

061 OV 

Partial  derivative  of  boundary 

condi t Ion 

/ORBIT 

/( 

24) 

POBCOL 

ft 

0G1DV 

0GID6 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

27) 

POBCQL 

ft 

D6IDG 

061  OH 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

28) 

POBCOL 

ft 

06IDH 

DGlDft 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

29) 

POBCOL 

0 

061  Oft 

DGIDPS 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

30) 

POBCOL 

ft 

DGIDPS 

OGIORO 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

31) 

POBCOL 

ft 

OGIORO 

OGIDHU 

Par  flat  derivative  of  boundary 

condition 

/ORBIT 

/( 

32) 

POBCQL 

0 

061  OftU 

0P10V 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

33) 

POBCOL 

ft 

DPI  DV 

0P10G 
10  NOV  72 

G. 01-97 

Partial  derivative  of  bounder y 

condition 

/ORBIT 

/( 

39) 

POBCQL 

ft 

OPIOG 

F OR  I R AN 
SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


riff"  ' HgttgRff- 


DPIOM 

Parti • I 

dar 1 vat  1 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

/( 

35) 

POBCOL 

m 

OPIOH 

OP  I DM 

Partial 

dar 1 vat  1 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

ti 

36) 

POBCOL 

0 

OP  I Oft 

DPIOPS 

Partial 

dar 1 vat  1 

va 

of 

boundary 

cond 

t loo 

/ORBIT 

n 

37) 

POBCOL 

n 

OPIOPS 

OPIORO 

Partial 

dar i vati 

va 

of 

boundary 

cond 

t Ion 

/ORBIT 

n 

38) 

POBCOL 

OPIORO 

OPIOMU 

Partial 

derl vati 

va 

of 

boundary 

cond 

t ion 

/ORBIT 

ti 

39) 

POBCOL 

0 

OPIDftU 

DMIOV 

Partial 

dar 1 vat  1 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

/< 

10) 

POBCOL 

0 

DftIDV 

omoG 

Parti ai 

derl vati 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

n 

HI) 

POBCOL 

0 

DftlDG 

omidh 

Partial 

dari vati 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

ti 

H2) 

POBCOL 

0 

DftlOH 

onion 

Partial 

dar 1 vati 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

/( 

H3) 

POBCOL 

0 

OftfOft 

oniops 

Partial 

derl vati 

V* 

of 

boundary 

cond 

tien 

/ORBIT 

/< 

HH  ) 

POBCOL 

0 

0*1  DPS 

oniDRO 

Partial 

dar 1 vati 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

/c 

H5> 

POBCOL 

0 

DfMDRO 

onionu 

Partial 

dar 1 vat  1 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

/( 

Hfe) 

POBCOL 

0 

D*ID*U 

OPOV 

Partial 

dar 1 vati 

va 

of 

boundary 

cond 

t ion 

/ORBIT 

ti 

H7> 

POBCOL 

ft 

DPOV 

OPOG 

Partial 

dar 1 vati 

va 

of 

boundary 

cond 

t ton 

/ORBIT 

ti 

H8  ) 

POBCOL 

ft 

OPOG 

DPON 

Partial 

dar 1 vati 

va 

of 

boundary 

cond 

t Ion 

/ORBIT 

/< 

49) 

POBCOL 

ft 

DPOH 

dp  on 

Partial 

dar 1 vati 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

/( 

50) 

POBCOL 

0 

DPDft 

OPDPS 

Partial 

dar 1 v at  1 

va 

of 

boundary 

cond 

t ion 

/ORBIT 

Zi 

51) 

POBCOL 

ft 

DP  OPS 

DPDRO 

Partial 

dari vati 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

n 

52) 

POBCOL 

ft 

DPDRO 

oponu 

Partial 

dar 1 vat  1 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

n 

53) 

POBCOL 

0 

DPDftU 

DECOY 

Partial 

dar i vati 

va 

of 

boundary 

cond 

t Ion 

/ORBIT 

/< 

5H) 

POBCOL 

ft 

OECOV 

DECOG 

Partial 

dar 1 vati 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

/( 

55) 

POBCOL 

ft 

DECDG 

DECOH 

Partial 

dar I vat  1 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

/c 

56) 

PDBCQL 

ft 

OECOH 

DECDn 

Parti al 

dar 1 vat  1 

va 

of 

boundary 

cond 

t Ion 

/ORBIT 

/c 

5T) 

POBCOL 

0 

OECD* 

DECDPS 

Partial 

dari vati 

va 

of 

boundar  y 

cond 

1 1 on 

/ORBIT 

/< 

58) 

POBCOL 

ft 

DECOPS 

OECORO 

Partial 

dar  t vat i 

va 

of 

boundar  y 

cond 

1 1 on 

/ORBIT 

/< 

59) 

POBCOL 

ft 

OECORO 

OECDHU 

Partial 

dar i vati 

va 

of 

boundary 

cond 

t Ion 

/ORBIT 

ti 

60) 

POBCOL 

0 

OECD*!) 

OIDV 

Partial 

dar 1 vat  1 

va 

of 

boundary 

cond 

t ion 

/ORBIT 

ti 

61) 

POBCOL 

ft 

OIDV 

0106 

Parti al 

dar i vat  1 

va 

of 

boundary 

cond 

1 1 on 

/ORBIT 

ti 

62) 

POBCOL 

ft 

DIDG 

01  OH 

Partial 

dar I vat  I 

va 

of 

boundary 

cond 

t Ion 

/ORBIT 

ti 

63) 

POBCOL 

ft 

D1DH 

oi  on 

Partial 

dar 1 vat  1 

va 

of 

boundar  y 

cond 

tion 

/ORBIT 

ti 

6H  ) 

POBCOL 

0 

010* 

DIOPS 

Partial 

dar } vati 

va 

of 

boundary 

cond 

t Ion 

/ORBIT 

ti 

65) 

POBCOL 

ft 

OIOPS 

OIORO 

Partial 

dari vati 

va 

of 

boundary 

cond 

tion 

/ORBIT 

n 

66) 

POBCOL 

It 

01DR0 

Dionu 

Partial 

dari vati 

va 

of 

boundary 

cond 

tion 

/ORBIT 

n 

67) 

POBCOL 

0 

D1D*U 

DBEOV 

Partial 

dar 1 vati 

va 

of 

boundary 

cond 

tion 

/ORBIT 

n 

68) 

POBCOL 

0 

DBEOV 

0BE0G 

Partial 

dar 1 vati 

va 

of 

boundary 

cond 

tion 

/ORBIT 

ti 

69) 

POBCOL 

0 

DBEOG 

DBEDH 

Partial 

dari vati 

va 

of 

boundary 

cond 

tion 

/ORBIT 

ti 

70) 

POBCOL 

0 

OBEOH 

OBEOn 

Partial 

dar 1 vat  1 

va 

of 

bo  undar y 

co  nd 

tion 

/ORBIT 

ti 

71) 

POBCOL 

0 

DBED* 

DBEOPS 

Partial 

dar 1 vat  1 

va 

of 

boundar  y 

cond 

tion 

/ORBIT 

ti 

72) 

PDBCQL 

0 

DBEOPS 

OBEORO 

Partial 

dari vati 

va 

of 

boundary 

cond 

tion 

/ORBIT 

ti 

73) 

POBCOL 

0 

DBEDRO 

DBEonu 

Partial 

dar i vat  1 

va 

of 

boundary 

cond 

tion 

/ORBIT 

ti 

7H) 

POBCOL 

0 

OBEDftU 

ONOOY 

Partial 

dar 1 vat i 

va 

of 

boundary 

cond 

tion 

/ORBIT 

ti 

75) 

POBCOL 

0 

DNOOV 

DNODG 

Partial 

dar 1 vat  I 

va 

of 

boundary 

cond 

tion 

/ORBIT 

ti 

76) 

POBCOL 

0 

DNODG 

ONOOH 

Partial 

dar  1 vati 

va 

of 

boundary 

cond 

tion 

/ORBIT 

ti 

77) 

PDBCQL 

0 

ONOOH 

oNOon 

Partial 

dari vati 

va 

of 

boundary 

cond 

tion 

/ORBIT 

ti 

76) 

PDBCQL 

0 

DNOD* 

ONOOPS 

Partial 

derl vat  1 

va 

of 

boundary 

cond 

tion 

/ORBIT 

ti 

79) 

PDBCQL 

0 

DNODPS 

ONOORO 

Partial 

dar i vat i 

va 

of 

boundary 

cond 

tion 

/ORBIT 

n 

80) 

POBCOL 

0 

ONOORO 

owoonu 

Partial 

dari vati 

va 

of 

boundary 

cond 

tion 

/ORBIT 

ti 

81  ) 

POBCOL 

0 

DNOOHU 

OSnOY 

Partial 

dari vati 

va 

of 

boundary 

cond 

t ion 

/ORBIT 

ti 

82) 

PDBCQL 

PI 

0S*DV 

DSMOG 

Parti al 

dar i v at i 

va 

of 

bei^ndary 

cond 

tion 

/ORBIT 

ti 

83) 

PDBCQL 

It 

DS*0G 

gZ  T 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


STORAGE 
"BLOC*  lBc 


SUBR 


T I ME  USAGE 

Cti’ot  ’ "5  A A 


OSMOH 

Parti .1 

dar 

1 rat  1 

a« 

of 

boundary 

condition 

/ORBIT 

/< 

69) 

PO6C0L 

N 

OSMOH 

OSMDM 

P»rt  1 • 1 

dtr 

Watt 

a# 

• f 

boundary 

condition 

/ORBIT 

/i 

es) 

pobcol 

0 

OSMOH 

OSMOPS 

Part  I al 

dar 

1 tat  1 

va 

of 

boundary 

condition 

/ORBIT 

/( 

86) 

POBCOL 

M 

OSMOPS 

DSMORO 

Partial 

dar 

Wat! 

at 

of 

boundary 

condition 

/ORBIT 

/< 

Bl) 

POBCOL 

M 

DSMORO 

OSMDMU 

Partial 

dar 

1 tat  1 

at 

of 

boundary 

condition 

/ORBIT 

/( 

66) 

POBCOL 

0 

OSMOMU 

OAPQV 

Partial 

dar 

Wati 

at 

of 

boundory 

condition 

/ORBIT 

n 

69) 

POBCOL 

0 

OAPDV 

OAPOG 

Partial 

dar 

1 tat  1 

at 

of 

boundary 

condition 

/ORBIT 

n 

90) 

POBCOL 

0 

OAPOG 

OAPOH 

Partial 

dar 

1 «atl 

at 

of 

boundory 

condition 

/ORBIT 

n 

91  ) 

POBCOL 

0 

OAPOH 

OAPDM 

Partial 

dar 

1 1 atl 

at 

of 

boundary 

condition 

/ORBIT 

n 

92) 

POBCOL 

0 

OAPDM 

OAPOPS 

Partial 

dar 

laatl 

at 

of 

boundary 

condition 

/ORBIT 

/< 

93) 

POBCOL 

0 

DAP DPS 

DAPORO 

Partial 

dar 

Watt 

a* 

of 

boundary 

condi t Ion 

/ORBIT 

/< 

99) 

POBCOL 

0 

OAPORO 

DAPDMU 

Partial 

dar 

laatl 

at 

of 

boundary 

condition 

/ORBIT 

n 

95) 

POBCOL 

0 

DAPOMO 

OPEDV 

Partial 

dar 

1 tat  1 

at 

of 

boundary 

condition 

/ORBIT 

/( 

96) 

POBCOL 

0 

OPEOY 

DPC06 

Partial 

dar 

laati 

at 

of 

boundary 

condition 

/ORBIT 

n 

97) 

POBCOL 

0 

OPEOG 

OPEOH 

Partial 

dar 

Wati 

at 

of 

boundary 

condition 

/ORBIT 

/( 

98) 

POBCOL 

0 

DPEOM 

DPEOM 

Partial 

dar 

Wat  1 

at 

of 

boundary 

condition 

/ORBIT 

n 

99) 

POBCOL 

0 

DPEOM 

OPEOPS 

Partial 

dar 

laatl 

at 

of 

boundary 

condition 

/ORBIT 

/< 

100) 

POBCOL 

0 

OPEOPS 

OPEORO 

Partial 

dar 

Wati 

at 

of 

boundary 

condition 

/ORBIT 

/( 

101) 

POBCOL 

0 

OPEORO 

DPEDHU 

Partial 

dar 

Wati 

at 

of 

boundary 

condition 

/ORBIT 

/< 

102) 

POBCOL 

0 

OPEDMU 

DANDY 

Partial 

dar 

Wati 

at 

of 

boundary 

condi t ion 

/ORBIT 

n 

103) 

POBCOL 

0 

DANDY 

DANDG 

Partial 

dar 

Wati 

at 

of 

boundary 

condition 

/ORBIT 

/( 

109) 

POBCOL 

0 

DANDG 

DANDH 

Partial 

dar 

Wati 

at 

of 

boundary 

condition 

/ORBIT 

/( 

105) 

POBCOL 

0 

OANDH 

OANOM 

Partial 

dar 

Wati 

at 

of 

boundary 

condition 

/ORBIT 

/< 

106) 

POBCOL 

0 

OANOM 

DANDPS 

Partial 

dar 

Wati 

at 

of 

boundary 

condition 

/ORBIT 

/< 

10T ) 

POBCOL 

0 

OANDPS 

DANDRO 

Par  1 1 a 1 

dar 

laatl 

at 

of 

boundary 

condition 

/ORBIT 

/< 

108) 

POBCOL 

0 

DANDRO 

OANDMU 

Partial 

dar 

laatl 

at 

of 

boundary 

condi 1 1 on 

/ORBIT 

/( 

109) 

POBCOL 

0 

DANOMU 

OCXDV 

Partial 

dar 

laatl 

at 

of 

boundary 

condi 1 1 on 

/ORBIT 

/< 

110) 

POBCOL 

0 

OCXDV 

QCX06 

Partial 

dar 

laati 

at 

of 

boundary 

condition 

/ORBIT 

/( 

111) 

POBCOL 

0 

DCXDG 

DCXDH 

Partial 

dar 

laatl 

at 

of 

boundary 

condition 

/ORBIT 

/< 

112) 

POBCOL 

0 

DCXDH 

OCXOM 

Partial 

dar 

Wati 

at 

of 

boundary 

condition 

/ORBIT 

/< 

113) 

POBCOL 

0 

OCXDM 

OCXDPS 

Partial 

dar 

laatl 

at 

of 

boundary 

condition 

/ORBIT 

/< 

119) 

POBCOL 

0 

OCXOPS 

OCXORO 

Partial 

dar 

i aat  1 

at 

of 

boundary 

condi 1 1 on 

/ORBIT 

/< 

115) 

POBCOL 

0 

OCXORO 

OCXDMU 

Partial 

dar 

1 vat  1 

at 

of 

boundory 

condi t Ion 

/ORBIT 

/< 

116) 

POBCOL 

0 

ocxonu 

DCYDV 

Partial 

dar 

laatl 

at 

of 

boundary 

condition 

/ORBIT 

/( 

117) 

POBCOL 

0 

DCYDV 

DCYD6 

Partial 

dar 

1 aat  1 

at 

of 

boundary 

condi tt  on 

/ORBIT 

/< 

116) 

POBCOL 

0 

DCVD6 

DCVDH 

Partial 

dar 

laatl 

at 

of 

boundary 

condi tton 

/ORBIT 

/( 

119) 

POBCOL 

0 

DCVDH 

DCYOM 

Partial 

dar 

laatl 

at 

of 

boundary 

condition 

/ORBIT 

/c 

120) 

PDBCQL 

0 

OCYOM 

DCYDPS 

Parti ai 

dar 

Wati 

at 

of 

boundary 

condition 

/ORBIT 

/< 

121  > 

POBCOL 

0 

OCYOPS 

DCVORO 

Partial 

dar 

laatl 

at 

of 

boundary 

condi 1 1 on 

/ORBIT 

/< 

122) 

POBCOL 

0 

DCVORO 

OCYDMU 

Partial 

dar 

laatl 

at 

of 

boundary 

condition 

/ORBIT 

/( 

123) 

POBCOL 

0 

DCVOMU 

DASDV 

Partial 

dar 

iaatl 

at 

of 

boundary 

condition 

/ORBIT 

/( 

129) 

PDBCQL 

0 

OASOV 

OASOG 

Partial 

dar 

Wati 

at 

of 

boundary 

condition 

/ORBIT 

/( 

125) 

POBCOL 

0 

OASDG 

DASDH 

Partial 

dar 

1 rat  1 

vt 

of 

boundary 

condition 

/ORBIT 

/i 

126) 

POBCOL 

0 

OASDH 

OASDM 

Partial 

dar 

laati 

at 

of 

boundary 

condition 

/ORBIT 

/c 

127) 

POBCOL 

0 

OASDM 

OASDPS 

Partial 

dar 

Wat  I 

at 

of 

boundary 

condition 

/ORBIT 

/( 

128) 

PDBCQL 

0 

OASDPS 

DASORO 

Partial 

dar 

laati 

vt 

of 

boundary 

condition 

/ORBIT 

/< 

129) 

POBCOL 

0 

OASDRO 

DASDMU 

Partial 

dar 

Wati 

vt 

of 

boundary 

condition 

/ORBIT 

/( 

130) 

PDBCQL 

0 

OASOMO 

OENDV 

Parti al 

dar 

Wati 

re 

of 

boundary 

condition 

/ORBIT 

/i 

131) 

PDBCOL 

0 

0EN0V 

DENDG 

10  NOY  72  G-01-97 

Partial 

dar 

laati 

at 

of 

boundary 

condition 

/ORBIT 

/< 

132  ) 

POBCOL 

0 

DENOG 

vY- 

vy> 


FORTRAN 

sypibol 

NATH 

SYftBOL 

DESCRIPTION 

STORAGE 

SUBROUTINE  U$AG£ 

BLOC* 

TuBR  COOE  VAR 

DENDH 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

133) 

PDBCQL 

0 

DENDH 

OENOft 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

1 3*1 ) 

POBCOL 

0 

DENDft 

OENDPS 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

135  ) 

PDBCOL 

0 

DENOPS 

0EN0R0 

Partial  derivative  of  boundary 

condl t i on 

/ORBIT 

/( 

136) 

POBCOL 

0 

OENDRO 

DENonu 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

137) 

PDBCOL 

0 

OENDftU 

oftoov 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

136) 

PDBCQL 

0 

DftOOV 

onooG 

Partial  derivative  of  boundary 

condi t ion 

/ORBIT 

/( 

139) 

PDBCOL 

0 

DftOOfi 

onooH 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

190) 

PDBCOL 

0 

DftODM 

OftODft 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

191  ) 

PDBCOL 

0 

DftOOft 

DftODPS 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

192) 

POBCOL 

0 

OftOOPS 

OftQORO 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

193) 

PDBCOL 

0 

DftODRO 

Dftoonu 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

199) 

PDBCQL 

0 

DftOOftU 

YftXRF 

0 

Reference  longitude 

(RAO) 

/ORBIT 

/( 

195  ) 

CHECK 

0 

YftXRF 

*r 

PDBCQL 

1 

VftXRF 

SNXLftR 

1 1 n ( p - 0 ) 

Sine  of  reference  latitude 

/ORBIT 

/( 

19b) 

CHECK 

0 

SNXLftR 

POBCOL 

I 

SNXLHR 

CSXLftR 

c 0 *(  0 ~ 0 ) 

Cosine  of  refernece  latitude 

/ORBIT 

/( 

197) 

CHECK 

0 

CSXLftR 

PDBCQL 

1 

CSXLftR 

SOOWN 

$„ 

Doun  range 

(FT  ) 

/ORBIT 

/( 

196) 

OUTPUT 

I 

SOOtfft 

0 

PDBCQL 

0 

SDOWN 

SCROSS 

s„ 

(FT  ) 

/ORBIT 

/( 

199  ) 

OUTPUT 

I 

SCROSS 

C 

POBCOL 

0 

SCROSS 

TD 

'o 

(RAD) 

/ORBIT 

/( 

150) 

PDBCOL 

M 

TO 

TC 

*c 

( RAD  ) 

/ORBIT 

/( 

151  ) 

PDBCOL 

n 

TC 

SNPSR 

sin(^r  ) 

Sine  of  reference  aziuuth 

/ORBIT 

/( 

152) 

CHECK 

0 

SNPSR 

PDBCQL 

I 

SNPSR 

CSPSR 

c o s ( ) 

/ORBIT 

/( 

153) 

CHECK 

0 

CSPSR 

PDBCOL 

I 

CSPSR 

SN6I 

% i n(  7j  ) 

Stnc  of  inertial  flight  path  angle 

/ORBIT 

/( 

159) 

PDBCOL 

ft 

SN61 

CS6I 

C 0 s(  >|  ) 

Cosine  of  Inertial  flight  path 

angle 

/ORBIT 

/( 

155) 

PDBCOL 

n 

CSGI 

spsii 

s i n(  V'j ) 

Sin  of  Inertial  aziuuth 

/ORBIT 

/( 

156) 

PDBCQL 

ft 

SPSII 

CSPSII 

c o s(  1 

Cosine  of  inertial  aziuuth 

/ORBIT 

/( 

15T ) 

PDBCQL 

ft 

CPSII 

STOT 

ST 

Total  range 

( FT  ) 

/ORBIT 

/( 

156) 

OUTPUT 

I 

STOT 

T 

POBCOL 

0 

STOT 

QLTQSZ 

I 

STOT 

CSI 

cost  / ) 

Cosine  of  inclination 

/ORBIT 

/( 

159) 

POBCOL 

ft 

CSI 

SN1 

s i n(  ( ) 

Sine  of  i nc 1 i net  I on 

/ORBIT 

/( 

160) 

PDBCQL 

ft 

$«! 

SN6NU 

s l n(  v ) 

See  syobol 

/ORBIT 

/( 

161  ) 

PDBCOL 

ft 

SNGNU 

CSANO 

cost  < ) 

See  syubof 

/ORBIT 

/( 

162  ) 

POBCOL 

ft 

CSANO 

COSDftU 

COSt  0 -0r  ) 

See  syubol 

/ORBIT 

/( 

163) 

POBCOL 

ft 

cosonu 

SINDftU 

s i n(  0 -0  ) 

See  syobol 

/ORBIT 

/( 

169) 

POBCOL 

ft 

SINDftU 

THT 

Total  range  angle 

(FT  ) 

/ORBIT 

/( 

165) 

PDBCOL 

ft 

THT 

WTFUEL 

Description  not  Input 

/ORBIT 

/( 

166) 

PDBCOL 

ft 

WTFUEL 
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BL0CK 

PC 


FORTRAN  *AiH 

SVHBOL  SYMBOL 


DESCRIPTION 


STORAGE 

Tlowlo r 


SUBROUTINE  USAGE 

r-mr-Tsir 


PCI 

Not  used 

/PC 

/( 

i > 

GROPE 

0 

PC 

N 

Total  nunber  of  OL  state  sod  costate  variables.  N = 

/PC 

/{ 

2) 

BNDRV 

] 

N 

18. 

CHECK 

I 

N 

INARC 
L I NOR V 

l 

N 

N 

NLORV 

I 

N 

NOMAL 

I 

M 

RKUTT 1 

I 

M 

SALVE 

I 

N 

WRAP  UP 

I 

N 

PC3 

Not  used 

/PC 

a 

3) 

I OP 

Component  nuibcr  that  correspond*  to  the  OL  state 

/PC 

/( 

9 ) 

INARC 

I 

IDP 

variable  * IDP  = 8. 

URAPUP 

I 

IDP 

PC5 

Mat  ased 

/PC 

/( 

5> 

PCfe 

Mot  used 

/PC 

/( 

*> 

PC7 

Mat  ased 

/PC 

n 

T) 

MX8C 

flaxleue  attaber  of  target  conditions  that  OL  con 
handle.  AAXBC  * NO 

/PC 

/( 

8) 

MUX 

Mu aber  of  velocity  loss  quantities  to  bo  Integrated  an 
converged  trajectory.  NAUX  = 5. 

/PC 

/< 

9) 

MAP  UP 

I 

NAUX 

10  NOV  n G. 01-97 


BL0CK 

PRINT 


S33 


10  NOV  12  G.01-<ir 


BL0CK 

S 


Im 


FORTRAN  BATH 

SV«BOL  SVW80L 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 
TlocS  U?E  SU8R  COOE  VAfi 


S 


An  820  sard  array  used  to  «toro  tfca  particular  and  /5  /<  I)  MOANAt  A S 

hoaogtntoui  to  I ut l out.  RKUTTl  It  S 
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BL0CK 

SIZING 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


OP 

Description  not  Inpet 

/SIZING/! 

5) 

QLTOSZ 

0 

QP 

PI 

Description  not  Input 

/SIZING/! 

20) 

QLTOSZ 

0 

PZ 

sw 

A synthesis  array  (201  containing  counters  and  siting 
options 

/SIZIN6/! 

26  ) 

QLTOSZ 

0 

Stf 

$V 

A synthesis  array  (28)  containing  staging  parameters 

/SIZING/! 

96) 

ENVPRQ 

H 

SV 

and  ni sc  f i ags 

QLTOSZ 

n 

SV 

SO 

A synthesis  data  array  <37#5)  that  contains  the 

/SIZING/! 

7*1) 

ENVPRQ 

M 

SQ 

flyback  data  and  soae  injection  quantities 

QLTOSZ 

M 

SQ 

SE 

Array  of  synthesis  Iteration  propulsion  parameters 

/SlZINS/t 

259  ) 

0L1M 

/SIZING/! 

269  ) 

ENVPRQ 

n 

QLIH 

WBO 

Booster  burnout  nelght  (lb) 

/SIZING/! 

272) 

ULOO 

Previous  Iteration  value  of  booster  liftoff  nelght 
( lb) 

/SIZING/! 

273  ) 

OUEB 

Sensitivity  of  booster  stage  nelght  to  propellant 
ael ght  ( !b/lb> 

/SIZING/! 

27*1) 

OUEO 

Sensitivity  of  orbiter  stage  nelght  to  propellant 
ne 1 ght  ( lb/  lb  > 

/SIZING/! 

275  ) 

TOLWT 

Booster  liftoff  neight  siting  tolerance  (lb) 

/SIZING/! 

276) 

UPB 

Booster  propellant  neight  (lb) 

/SIZING/! 

277) 

T UR AT 2 

Second  stOge  t hr ust-to~ne i ght  ratio 

/SIZING/! 

278  ) 

BK1 

Value  of  constant  nelght  in  booster  stage  neight 
equat 1 on 

/SIZING/! 

279) 

BK2 

Value  of  linear  tern  coefficient  in  booster  stage 
neight  equation 

/SIZING/! 

280) 

BA  3 

Value  of  1/3-poner  tern  coefficient  In  boaster  stage 
eeight  equation 

/SIZING/! 

281 ) 

BK9 

ee I ght  oquat i on 

/SIZING/! 

262) 

IS1ZE 

Siting  option  flag  1.  Filed  nlo,  aulaize  spl  2. 

/SIZING/! 

283) 

Filed  ip  I , minimize  nlo  3.  Fixed  orbiter.  niainite 
nlo  9.  Fixed  boa* ter,  minimize  ale  5.  Fixed 
(t/n)i.O.  Maximize  xp I 6.  Fixed  (t/n)I-0.  Determine 


f 


TRAFLG 

T 

Traffic  control  flag  0.  Siting  loop  not  converged  1. 
Siting  loop  converged  2.  Error  in  siting  loop  next 
c ese 

/SIZING/! 

289) 

TWRATO 

Liftoff  thr ust~to-ne 1 ght  retlo 

/SIZING/! 

285  ) 

OKI 

Sant  as  bkl  except  for  orbiter 

/SIZING/! 

286) 

0K2 

Sane  as  bk2  except  for  orbiter 

/SIZING/! 

287  ) 

0K3 

Sane  as  bk3  except  for  orbiter 

/SIZING/! 

286) 

OKA 

Sane  as  bk9  except  for  orbiter 

/SIZING/! 

289) 

PRFL9 

Siting  data  print  flag  1-  Print  header  2.  Print 
identifier  3.  Print  data 

/SIZIN6/! 

290) 

IPASS 

Siting  Iteration  counter 

/SIZING/! 

291  > 

1PSMAX 

/SIZING/! 

292) 

AEXIT 

Booster  engine  exit  area  (ft**2> 

/SIZING/! 

293) 

T VACO 

Orbiter  vacuum  thrust  (lb) 

/SIZING/! 

299  ) 

NO 

Nunber  of  orbiter  engines 

/SIZING/! 

295) 

WFO 

Orbiter  burnout  neight  fib) 

/SIZING/! 

296  ) QLTOSZ  0 

UFO 

I0VEL 

Total  ideal  velocity  required  to  orbit  (fps) 

/SIZING/! 

297)  QLTOSZ  0 

1 DVEL 

ISPO 

Orbiter  vacuum  specific  impulse  sec 

/SIZING/! 

298) 

I SPB 

Booster  vacuua  specific  Inpulse  see 

/SIZING/! 

299  ) 

XP  L 

Payload  ne i ght  ( i b ) 

/SIZING/! 

300) 

TVACB 

Booster  vacuum  thrust  per  engine  Jb 

/SIZING/! 

301  ) 

NNB 
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Nunber  of  booster  engines 

/SIZING/! 

302) 

FORTRAN 

SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 
BLfrcT  LOC  SUBfi  CODE  VAR 


HEO 

Or  fa  1 1 cr 

st  age  ea i ght  (lb  1 

/SI ZING/! 

303) 

WEB 

Booster 

stage  uel ght  < lb > 

/SIZING/! 

30*  > 

NO 

Initial 

or  b i ter  mc i ght  t lb  > 

/SIZING/! 

305) 

WLO 

Booster 

liftoff  weight  < lb) 

/SIZING/! 

306) 

ovo 

Or  fa  1 1 ir 

ideal  velocity  ( f pa  ) 

/SIZING/! 

307  ) 

QLTOSZ 

0 

DYO 

OYB 

Booster 

i de  l velocity  !fp*> 

/SI ZlN6/( 

306) 

MUB 

Boo  star 

/SIZING/! 

309) 

YST6 

Booster 

staging  velocity  <fps> 

/SIZING/! 

311  ) 

OLTOSZ 

M 

Y5TG 

UPO 

Or  fa i ter 

propellant  uclgbt  (lb) 

/SIZING/! 

312) 

JTYP 

Siting. 

Flag. 

/SIZING/! 

313) 

QLTOSZ 

I 

JTYP 

WRAP UP 

I 

JTYP 

BECO 

Booster 

cut-off  arc 

/SIZING/! 

319  ) 

BSTG 

Booster 

staging  arc 

/SIZING/! 

315) 

0«BI 

Or  bl ter 

Ignition  arc 

/SIZING/! 

316) 

QLTOSZ 

1 

ORBI 

I THRU 

Booster 

enpty  aegfct  curve  no. 

/SIZING/! 

317) 

1TN0W 

Or  fa ( ter 

eupty  net ght  curve  no. 

/SIZING/! 

316) 

SVDPSQ 

Saved  control  aatrlc 

/SIZING/! 

319) 

SVOCON 

/SIZING/! 

320) 

I HUNT 

Nuufaer  c 

/SIZING/! 

321) 

SOCO 

Solid  engine  cut-off  arc 

/SIZING/! 

326) 

SOSP 

/SIZING/! 

327) 
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BL0CK 

STUFF 


FQR1RAN 

SYMBOL 


miH 

SYMBOL 


DESCRIPTION 


BLfftK  LOC  S U Bn  CdOE  VAR 


FK 

Aw  820«*»  array  used  to  store  the  vectors  kj,  k^,  *3# 
and  k^  defined  by  Equations  IT. 6-2  thru  -5  in  Yo  1 . 1 of 
this  docunent. 

/STUFF 

/( 

l) 

MOMS 

RkUTTl 

RkUTTl 

M 

1 

0 

FI 

FK 

FS 

F2 

Description  not  Input 

/STUFF 

/( 

621  ) 

MADAMS 

I 

F2 

YP 

Description  not  lopot 

/STUFF 

/< 

Uhl ) 

MADAMS 

M 

YP 

VC 

Description  not  Inpat 

/STUFF 

/( 

2h6l  > 

MAOAMS 

M 

YC 

10  NO V n G.01-N7 


BL0CK 

TABLE 


I si 


FORTRAN  nATH 

SvmBOL  SYMBOL 


DESCRIPTION 


stqra&e  SUBROUTINE  usage 
THTFI  loT~  subr  code *** 


TABLE 

LOCI 

X 

LOCL 


V 

LOCF 


Z 


A 2100  uord  array  ustd  for  storing  up  to  SO  splint 
fitted  unirarlaot  tables. 

A SO  uord  array  that  corresponds  to  tables  1 thro  SO. 
Each  entry  is  an  integer  that  points  to  the  initial 
value  of  the  independent  variable  of  the  corresponding 
table.  A sero  entry  indicates  table  not  Input. 

A 650  nord  array  that  contains  the  independent 
variable  entries  of  all  of  the  50  or  less  tables 
input.  , 

A 50  nord  array  that  corresponds  to  tables  1 thru  SO. 
Each  entry  is  an  integer  that  indicates  the  last 
interval  in  which  interpolation  of  the  corresponding 
table  occured. 

A 650  word  array  that  contains  the  dependent  variable 
entries  of  all  of  the  50  or  less  tables  input. 

A 50  word  array  that  corresponds  to  tobies  1 thru  50. 
Each  entry  is  an  integer  that  points  to  the  lost  value 
of  the  Independent  variable  of  the  corr etpoad i ng 
tab  la. 

The  neah  point  second  derivatives  of  tho  cubic  spline 
functions  of  all  of  the  50  or  lass  tablas  Input. 


/TABLE  /( 
/TABLE  H 


1)  SPLINE  I LOCI 
SPLINE  I X 


I) 


/TABLE  /<  51) 

/TABLE  /(  701)  SPLINE  * LOCL 
SPLINE  I V 

/TABLE  /(  751) 

/TABLE  /(  1A01)  SPLINE  1 LOCF 
SPLINE  1 Z 


/TABLE  /(  1451 ) 
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BL0CK 


FORTRAN  RATH 

SVnBOU  SVHBOL 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK  LOC  SUBR  CODE  ?Afi 


V 


An  820  cord  irrn  containing  th«  particular  and  /V  /(  1)  GROPE  0 V 

homogeneous  solutions  being  Integrated.  The  first  18  INARC  R V 

■ or  di  coaprise  the  particular  solution.  Each  block  of  WADANS  N V 

16  aordi  thereafter  comprises  an  Independent  OLTOSZ  1 V 

homogeneous  solution.  RRUTT1  N V 

SALVE  N V 
WRAP UP  I V 


10  NO V 72  G.01-N7 


BL0CK 

Z 


z 


2 *.  20  nord  «rr«y  used  to  store  the  total  linear 

solution  fro*  the  preceding  OL  iteration. 


/Z  /<  1 ) BNDRV  1 I 

BR AMPT  1 z 
ENDPT  I Z 
ENVPRQ  I Z 
INTERP  0 Z 
INTRPT  I Z 
L I NOR  V I Z 
NORMAL  n Z 
OUTPUT  I Z 
RKUTT1  0 Z 
RKUTT2  R Z 
SALVE  n Z 
URAPUP  n 1 
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BL0CK 

ZD 


FORTRAN 

SYMBOL 


HATH 

SYMBOL 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLO t*  Itt  SUBR  CODE  VAR 


zo 


A 20  aord  array  containing  tha  victor  f<  X,  Z,V)  In  /ZO  /(  1)  ENVPRQ  I ZD 

Equation  17.1-7  in  Vo  I . 1 of  thla  docuaant.  L1NDRV  1 ZO 

OUTPUT  I ZO 
RKUTT2  I ZO 
WRAP  UP  I ZO 


0 NOV  72  G.01-H7 


BL0CK 

ZI 


FORTRAN  HATH 

SVWBQL  SVWBOL 


DESCRIPTION  SfSTOI  U5SF 


11 


A 20«H  array  containing  th«  flrat  four  value*  of  Z In  /Z1 
tha  praaant  tubarc. 


n 


I)  INTERP  I Z1 
RKUTT 1 I l I 
SALVE  * ZI 


SUBR0UTINE 

AER0C0 


Purpose 

AliROCO  computes  either  the  univariant  or  bivariant  aerodynamic  coefficients 
CL  and  Cp.  In  addition,  it  computes  the  first  and  second  partial  derivatives 


and 


3Cl  3Cl  32Cl  32Cl  32Cl 

3oT  * 3M~  * 3a2  * 3M^  3M3a 

3CD  3CD  32Cd  32Cd  32Cd 

**"^T"*i  and 

3a  3M  3a2  3M2 


3M3a 


AEROCO 


1. 

SUBROUTINE 

AEROCO 

AEROCO 

2. 

C 

AEROCO 

3. 

C 

THIS 

ROUTINE  COnPUTES  THE 

VEHICLE'S 

TOTAL  LIFT 

AND 

AEROCO 

9. 

C 

DRAG 

COEFFICIENTS 

AEROCO 

5. 

c 

AEROCO 

6. 

COnnON/ARCOAT/ 

ARCOAT 

7. 

• SREF 

,EJ 

,XISP 

, TnULT 

, DTNC 

, 0TP1 

ARCOAT 

8. 

• I ATn 

rinODE 

,JA£R 

,JPRO 

,onAx 

, GnAX 

ARCOAT 

9. 

•XLNAX 

HDnAx 

,&nDOT 

, ALFnAX 

,PHnAX 

nAEA 

ARCOAT 

10. 

• AAEB 

,«A£C 

,«A£0 

,*A££ 

,*A£F 

,«A£G 

ARCOAT 

11. 

•nT 

,A ISP 

,nxCG 

,nzcc 

,nwDA 

,nw0B 

ARCDAT 

12. 

•nDB  . 

, XCGR 

, ZCGR 

,XE 

,ZE 

; xt 

ARCOAT 

13. 

• DREF 

rnCND 

,RHOB 

,OnULT 

RERAX 

,FAATE 

ARCOAT 

15. 

16. 
17. 
16. 

19. 

20. 
21. 

if: 

29. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
39. 

35. 

36. 

37. 

38. 

39. 

90. 

91. 

92. 

93. 
99. 

95. 

96. 

97. 

98. 

99. 

50. 

51. 

52. 

53. 
59. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 
63. 
69. 

65. 

66. 

67. 


EQUIVALENCE!  SREF  ARCOA  ) 

logical  switch,  Load 

REAL  nACH,  ISP,  ISPV,  ISPR, 


ISPVn, 

LlFTV, 


ISPrt,  I SPT . ISPVV.  1SPWR. 

* ISPVT,  I SPRR  I SPRfl,  I SPRT , ISPnrt,  I SPrtT . JSPtT,  LIFT, 

•LIFTR.  LlFTA,  LlFTVV,  LlFTVR,  LIFTVA,  Ll  F TRR , LIFTRA  nUR , LlFTAA 

•irate6,  ispf!  ispff 

REAL  PtACHV,  RACHfi,  HACHVR . HACHRR 
REAL  LlFTn  LlFTvn,  LIFTR*,  LlFTW*,  LIFTHA 
CQAAON  /DYNA/ 


0DE&A2, R 
RO 

CSflfl 
F Y AC 
T 

1SPVR 
LIFT 
ORAG 


• XX  , TIME  , SING  Aft,  C0SGA*,0l9E6A 

• COSA  DYHCllOnEbAT.T  AflP  ,PA 
•ROB  , CSR  TErtPRR , PARR  , RORR 

• QY  , OR  , 0 Y Y ,QYR  ORR 
•fvact  ,fyacvv,Fwacvr!fvacrr,fvactt 
•ISPV  ,I$Pfl  I SPrt  ISPT  'ispyy 

• ISPRrt  , I SPRT  , 1 Spem  I SPI9T  ,ISPTT 
•LIFTYY,LIFTYR,LIFTYA,LIFTRR, liftra 
•ORAGYY,ORAGYR,DRAGYA,ORAGRR,ORAGRA 
•LlFTVn,LlFTRn,LlFTmn,LlFTnA,DBR 
*W  , SlNPHt , CGSFHl  S1NPSI ,CQSPSI 

• HUB  , XK6  , XAP  , AK  t N ,C00 
•xcenn  , ZCGn  , zc&nn  >jy  ,xjr 
•I9ACHRR,  S I N2R0 , L0S2R0,  C0S2GH,  Cfl 
♦cnArt  ,cno  ,cnon  ,cnonn  .cnAnn 
*ULFTYA,UlFTRR  UuF tr a i pow  ,xarc 
•coonn  ,CLAnn  ,CLCn  ,CLOnn  ,0961199 
•SID  , OElTaE  COE  , XC6  ,ZCG 
•OB  , ULFT  ,culft  ,ulfta  ,TSTAGE 

COnnON  /DYNA/ 

• I9TT  ,J1  J2  ,J3  XflCGA 

•iload  ,F*n  ^FArtfl  ;suitch;inof 

• CLPin  ,CLAH  ,C0  , CDA  ,COn 

• DYW199,DYAl200,XrtCGV  ,XflCGR  , XPlCGrt 

• xnCGRR . xnCGRn, xhcgRa . xncGnn.  xnCGrtA 

•DYN2 1 7, I DAfl  T A I Rfl  TAIRBYTAIRBH 

• SFCY  . SFCH  , SFC Y Y ^SFCHH  ,SFCYH 
DATA  DEG/5  7.29577951 J082  3/ 

TEST  FOR  VARIANCE  OF  AERO  DATA 
JFIJAER  .£0.  2)  GO  TO  50 
UN1VAR1ANT 

CL  = CLO  ♦ ALPMA»CLA 
CD  = CDO  ♦ FA*CL»*2 
COA  = 2.»FK*CL*CLA 
CLfl  = CLOW  • AlPHA*CLAA 

con  = coon  ♦ cl*(Fka#cl 


,6  , S I N A 

CS  ,TENPR  , P AR 
;X00E  nACH  ,0 

'fvacv  ,fyacr  ,fyach 

nACH V WACHR  , ISP 
!l$PVn  ,ISPYT  JlSPRR 
,LIFTV  , LIFTR  ,lIFTA 
DR AG V ,ORAGR  ,DRAGA 
ora&aa, alpha  ,phi  ,lifta 
08PR  , GAPICIAO,  AE  ,TAX 

S 1NRH0 , CO SR HO , S INROR,COSROR 
coon  ,ClO  ,Fk  , xCGn 
XJYY  , X J YR  , XJRR  , nACHYR 
cnA  ,cnn  ,Craa  ,cnnn 
ulfty  ,ulftr  ,ulftyy,ulftyr 
TSTART  GH  ,GRR  , LlFTAA 
CT  , COO  AE  , SI  DAE  ,COD 

XJ  , XflCb  , CAlPHA , ALrtAK 

Tints  , XnCGAA, irated,frateo 

FYACF  ,ULFTAA,ISPF  , ISPFF  , 
CL  ,CLA  ,CLH  ,CLAA  , 

cd a a ,conn  , CDAn  ,dyni98, 
xnCG y v , xncGvR, xacg vn, xhcgya, 
RORRR  ,DYN219,DYN215,DVN216# 
TARBYY/TARBMM,TARBYH,SFC  , 


CLAA 
COAA 
cl«h  = 

conn  = 
••ClM  ♦ 
COAA  = 
RETURN 


• 2.»FMCLA) 

0. 

2.*FX#CLA»#2 
CLOnn  ♦ ALPHA*CLAnn 

coonn  ♦ 2.*CLn»(Fxn*CL  ♦ Fx»CLn)  ♦ CL*tF*nn«CL  ♦ 2.*(Fxn 

fx*Claa)> 

2.«(  FK«( Cl*ClAA  ♦ CLrt*CLA)  ♦ FXn*CL*CLA) 

B I Y AR  I ANT  


ARCOAT 

DYNA  . . 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

0 YNA 

0YNA 

JUL21 

OYNA 

0YNA 

OYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

OYNA 

DYNA 

DYNA 

DYNA 

OYNA 

DYNA 

OYNA 

DYNA 

•JUL21 

AUG09 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 

AEROCO 


68. 

50  CALL  BlINE( AlPHA«OEG,  nACH,  CL) 

AEROCO 

69. 

CLA  £ CLA*0£G 

AEROCO 

70. 

CLAn  = CLAn*0E6 

AEROCO 

71. 

CLAA  = ClAA*0E6**2 

AEROCO 

72. 

CDA  = CDA»D£G 

AEROCO 

73. 

CDAn  - C0An*0£6 

AEROCO 

79. 

COAA  = C0AA#0EG«*2 

AEROCO 

75. 

RETURN 

AEROCO 

50-, 
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FORTRAN 

SYMBOL 


MAT  M 
SYMBOL 


CODE 


DESCRIPTION 


STQRA6E  SUBROUTINE  USAGE 

BLOCK  uTG  SUBR  CODE VAR 


ALPHA 

a 

i 

Angle  of  attecb 

(RAO) 

/DVNA 

/( 

79)  AEROCO  1 
ALfiCON  N 
AL2  I 

ARCIN  H 
CONTRL  M 
ENVPfiO  I 
ROME CO  1 
NPLANE  I 
OUTPUT  1 
TRAJJN  0 
UT  1 

WRAP  UP  I 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

CD 

CD 

0 

Drag  coefficient 

/DYNA 

/( 

192)  AEROCO  0 
OUTPUT,  S 

or  i 

CD 
- CO 
CO 

CDA 

Co. 

M 

Drag  coefficient 

elope 

(RAD*1) 

/DVNA 

/( 

■193)  AEROCO  H 
UT  1 

COA 

CDA 

CD  A A 

dCn  /da 

u« 

M 

See  eyabol 

/DVNA 

/< 

195)  AEROCO  M 
UT  I 

CD  AA 
C0AA 

CDAM 

dc^/an 

M 

See  eyabol 

/DVNA 

/( 

197  ) AEROCO  M 
UT  I 

CDAH 
CD  AM 

COM 

acD/an 

0 

See  eyabol 

/DVNA 

/( 

199  ) AEROCO  0 
UT  1 

COM 

COM 

COMM 

d*C0/dB* 

0 

See  eyabol 

/DVNA 

/( 

196)  AEROCO  0 
UT  I 

COMM 

CDMM 

CDO 

I 

Drag  coefficient 

et  a * 0 

/DVNA 

/< 

109)  AEROCO  I 
STATEF  1 

COO 

CDO 

CDOM 

dCD0,dn 

I 

See  eyabol 

/DYNA 

/< 

105)  AEROCO  1 
STATEF  I 

CDOM 

COOM 

CDOMH 

^c^/an* 

I 

See  eyabol 

/DVNA 

/< 

195)  AEROCO  1 
STATEF  I 

COOMM 

CDOMM 

CL 

CL 

M 

Lift  coefficient 

(RAD*1  ) 

/DVNA 

/( 

186)  AEROCO  N 
OUTPUT  I 
UT  I 

CL 

CL 

CL 

CLA 

CL. 

M 

Lift  coefficient 

slope 

/DYNA 

/( 

187)  AEROCO  M 
STATEF  M 
UT  I 

CLA 

CLA 

CLA 

CLAA 

ac,  / a a 

A 

See  eyabol 

/DVNA 

/( 

189)  AEROCO  M 
UT  I 

CLAA 

CLAA 

CLAM 

ac.  /an 

ua 

M 

See  eyabol 

/DYNA 

/< 

191  ) AEROCO  M 
STATEF  M 
UT  1 

CLAM 

CLAM 

CLAM 

CLAAA 

a2c.  /an2 

I 

See  eyabol 

/DYNA 

/< 

196  > AEROCO  I 
STATEF  N 

clamm 

clamm 

CLM 

a cL/an 

M 

See  eyabol 

/DVNA 

/( 

186)  AEROCO  M 
UT  1 

CLM 

clm 

CLMM 

a2CL/ani 

A 

See  eyabol 

/DYNA 

n 

190)  AEROCO  M 
UT  1 

clmm 

clmm 

CLO 

CL0 

t 

Lift  coefficient 

et  * - 0 

/DYNA 

/< 

106)  AEROCO  I 
STATEF  I 

CLO 

CLO 

CLOM 

*V8" 

I 

See  eyabol 

/DYNA 

/< 

197  ) AEROCO  I 
STATEF  I 

CLOM 

CLOM 

CLOMM 

a2c.  /an2 
i-0 

I 

See  eyabol 

/DVNA 

/( 

H8»  AEROCO  f 
STATEF  1 

clomm 

CLOMM 

FK 

K 

I 

Induced  dreg  coefficient 

/DVNA 

/< 

107  ) AEROCO  I 
STATEF  1 

FK 

FK 

FKM 

au/an 

I 

See  eyabol 

/DVNA 

/< 

182)  AEROCO  1 
STATEF  I 

FKM 

FKM 

FKMM 

a2k/an2 

I 

See  eyabol 

/DVNA 

/( 

183)  AEROCO  I 
STATEF  I 

FKMM 

FKMM 
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FORTRAN 
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MATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

block  l&c  TubrcodI  var 


JAER 


Aaredynaatc  nodal  option  flag 


MACH  (if  I Mach  nuabar 


/ ARCDAT / ( 

9 ) 

AEROCO 

I 

JAER 

ARCIN 

I 

JAER 

OUTPUT 

I 

JAER 

STATEF 

I 

JAER 

UT 

I 

JAER 

/DYNA  /( 

26  ) 

AEROCO 

I 

ftACH 

ENVPRQ 

1 

MACH 

OUTPUT 

I 

ftACH 

STATEF 

ft 

ftACH 

6 OCT  72  6.01-NN 


S.UBR0UTINE 

ALGC0N 


Purpose 


ALGCON  has  two  purposes.  The  first  is  to  determine,  by  means  of  a Newton- 
Kaphson  iteration,  a value  of  w,  the  in-plane  control  vector,  that  causes 
the  vector  of  algebraic  constraints 

K = (K^,  K^,  KC3))T 

to  vanish.  Having  accomplished  this,  ALGCON's  second  purpose  is  to 
determine,  by  means  of  the  implicit  function  theorem,  the  following 
matrices : 

i)  3w/3y; 

ii)  <Sp/6y  o 3p/3y|0sconstant»  a *s  0Pti|na^J 
III)  if  o is  nonoptimal 

3(3w/3y)/3yj.,  i*l,2,...,8; 

iv)  if  o is  optimal, 

3(5p/6y)/3yi»  i*l»2,...,8; 

v)  if  a is  optimal, 

T 

3w/3X,  where  Xa(\y,AyfX^)  • 

vi)  if  a is  optimal, 

a(6p/6y)/3Xi,  i*l *2,3. * 


♦See  Sections  9,  10,  16  and  17  of  Vol.  I. 


SUBROUTINE  AlGCONCJPI,  JP2,  JP3 ) 

THIS  ENTRY  CONTROLS  THE  ITERATION  FOR  THE  IN-PLANE 
CONTROL.  JP1,  JP2  AND  JP3  POINT  TO  THE  GOVERNING 
EOS.  FOR  THRUST  OEFlECTION  AND  ANGLE  OF  ATTACK 
DIMENSION  DPI  3 > , PCI),  YKPIC2,  2).  XKY(  3.  1).  SKUWC 3,  9), 

• XKWWC3,  1),  SKYYU3,  B),  XKVYC3,  1 >,  YV(  3.  8),  ZZC  3,  3), 

• SLIVVC  2.  6),  SLVLK2,  6),  SlVVhI,  6),  XKNYC  3,  I),  VV<2,  8), 

• UUC2,  2) 

EQUIVALENCE  CP,  PI),  IYKPI,  YKPIll),  IVKPI21,  VKPI 11(2)), 

•<YKPn2,  YKPIlil3>),  I VHP  1 22,  YKFUJ<9>>,  CXKY,  XK)  V ), 

• CSKHU,  $LUV>,  ( XKtdU  XK  ITT  ) (SKYYI,  SlYlI,  SLYYl),  CXKYY,  XK1VV), 

•C  XKUY  XK 1 VT  ) ( XKl21  , XKLli(2)>,  IXKl31,  XKL11C3>V 

•<  XKL12,  XKLl  1C  9 ) ),  C XKl22,  XKlU(5>>#  <XKL32,  XKLl  1(6)), 

• ( XKL 1 3 , XKLn(7>>,  ( XKL23,  XKl11<6>>,  ( XKL33,  XKL11C9)), 

*C  Y Y,  V#).  CZZ,  UU) 

COBBON  /CNTRL/ 

• NU  , I TER  I TAPA  , TTAPB  ,JBIN  ,JBA*  , LINES  #KPT  ,«0B 

• KARD  , 1 NDXC  9 ) ,NENNOB,CNTG16,RrtOC  ,RHOP  ,NPTS  , HINES  , 

• KP  AGE  ,NNP  .NUP  ,IARC  TRSTR  ,I«AX  KT  I«E  , KONVER  , NOPRNT  , 

• I NBDRY , NUPAGE.lVARYCiO),  NN,  NO  VAR  Y FlAST,  ZLAST,  K0DE5 
LOGICAL  INBORY,  NEWNOR,  KONVER,  NOPRNT,  NUPAGE 

real  bagbv,  bu,  B,  lv,  lgab,  lpsi,  lR,  lrho,  lbu,  lb,  ltau,  non 

• , LHT 
COBBON  /o/ 

• X,  H.  X 1 C 9 ) , BAGBV,  ERR,  09,  DIO,  CMC),  CSAVEC90),  V,  GAB,  PS1, 
•ALT , RHO , BU,  B TAU,  HT,  LV,  LGAB,  lPSI,  LR,  LRHO,  LBU,  LB,  LTAU, 

• LHT,  0109,  0110,  dVC90),  ZSAVEC20),  QTI20),  NPOINTC  20  ),  0ELTC20) 
DIBENSION  NOBC20) 

EQUIVALENCE  CNOB,  V) 

LOGICAL  SNITCH,  IlOAD 

. real  BACH,  ISP,  ISPV,  ISPR,  I SPB  ispt,  jspvv,  ispvr,  ispvb, 

• ISPVT,  I Sr RR , iSPfiB,  ISPRT,  1SPBB,  ISPBT,  ISPTT,  LIFT,  LIFTY, 
•liftr,  lIFTA,  LIFTVV,  LlFTvR,  lIFTVA,  liftar,  liftra,  bur,  liftaa, 
*irate6,  ispf,  I5PFF 

REAL  BACHV,  BACHR,  BACHVR,  BACHRR 

REAL  LIFTB,  LIFT  VB  lIFTRB,  lIFTBB,  lIFTBA 

COBBON  /DYNA/ 


39. 

• XX 

TIBE  ,SlN&AB,C0SGAB,0*EbA 

0BE6A2 

,R 

, G 

, 5INA  , 

J Ul2  1 

90. 

• COSA 

OYNOll,OBEGAT,TABP  ,pa 

,R0 

CS 

, TEflPR 

,PAR 

DYNA 

91  . 

• ROR 

CSR  , T ERPRB , PARR  , RQRR 

.CSFR 

.KODE 

BACH 

,Q 

DYNA 

92. 

•Q  Y 

OR  . Q V V .QvR  . QRR 

, F V AC 

F V AC  V 

, F VACR 

F V ACB  , 

DYNA 

93. 

♦ F V ACT 

F VACVV .FYACvR.FVACRR.FvACTT.T 

BACH  V 

, BACHR 

,ISP 

DYNA 

99  . 

♦ ISPV 

ISPR  , I SPB  , I SPT  , ISPYV 

, I 5P vR 

, ISPVB 

, ISPVT 

, 1 SPRR  ' 

DYNA 

95. 

• I SPRB 

ISPRT  .ISPBB  , 2 SPBT  ISPTT 

.LIFT 

,liftv 

, lIFTR 

, LIFTA  ' 

DYNA 

96. 

•LlFTYV 

L I FT VR, LIFTVA, LIFTRR, lIFTRA,OFAG 

OR  AG  V 

, DR AGR 

DRAGA  , 

DYNA 

97. 

• DRAG  V V 

DRAG VR.DRAGVA.ORAGRR. OR AGFA, DFAoAA 

i,  ALPHA 

, PH  I 

, liftb  ; 

OYNA 

98. 

•liftvb 

LIFTRB, LIFT BB, LIFT BA ,DBR 

,OBFR 

, GABBAO 

,I«  , 

DYNA 

•W  , SINPHI ,C0SPHI ,SINPSI,COSPSJ,SINRHO 
•BUR  , XK6  , XKP  AKIN  ,CCG  ,CCGB 

• XCSBB  ZCGB  ZCGBB  ,XJY  ,XJR  ,XJW 

•BACHRR, SIN 2RO,COS2RO, CO S2GB^CB  ,C*A 
•Crab  ,Cbo  ,cbcb  ,cbobb  ,Cbabb  ,ucFTv 
*ULFTYA,ULFTRR, ULFTRA, IPOH  , X ARC  , T5TART 
♦COOflB  ,CLABB  ,CLOfl  ,CLOBB  0 YN1  ‘*9, CT 
♦SID  ,DELTAE,CDE  , XC6  ,ZCG  , X J 

♦DB  , ULFT  ,CULFT  ,ULFTA  , T$TA6E,T IrtES 

COBBON  /DYNA/ 

• BTT  ,J1  ,J2  , J 3 , XrtC&A  , F v ACF 

• ILOAD  , F KB  , F KBB  SHI TCH  I NiF  ,Cl 

•CLBB  , CLAB  ,C0  ,CDA  ,COB  ,COAA 

*DYNI99,OYN200, XBCGV  , XflCGR  ,XflCGB  ,XBCGVV 
•XBCGRR, XBCGRB, XBCGRA, XBCGBB, XBCGBA,RCFRR 

• DYN2 II  I 0 AB  TAI RB  , T A I RB V , T A I RBH, T ARB  V V 
♦5FCY  , 5FCH  ,SFCVV  SFCHH  ,SFCVH 

DIBENSION  PRODH  2,  69) 

COBBON  /BATS/ 


co$rho,sinror,cosror 

CLO  ,FK  ,XCGB 
XJVR  , X JRR  , BACHVR 
CBB  ,CBAA  ,CBB« 
ulftr  ,ulftvv,ulftvr 
GH  ,GRR  ,LJFTAA 
CODAE  SIDAE  , COD 

xbcg  c alpha  albax 

XBCGAA, IRATEO,FRATED 

ULFTAA,ISPF  ,ispff 
CLA  ,Clb  , claa 
COBB  ,CDAB  ,DYN198 
XflCGVR,  XrjCGVfl,  XBCGVA 
DYN219,DYN215,DYN216 
TARBHH,TARBVH, SFC 


68. 

• PI 

,P2 

,P3 

, XK  1 

,XK2 

, XK 3 

, XK  1 T 

,XK2T 

,XK3T  , 

BATS 

69. 

• XK  1 0 

, XK20 

, XK 30 

, XK  1 A 

, XK2A 

XK3A 

, VOA 

, GOA 

,POA 

BATS 

70. 

♦ XB1  9 

, XB20 

, XB21 

,XB22 

XK1TT 

,*K2TT 

XK  3TT 

,XK1TD 

XK2TD  ' 

BATS 

71. 

•XK3T0 

, XK1TA 

, XK2T  A 

, XK3TA 

, XK I CO 

,XK2 CD 

XK  3DD 

, XK 1 0 A 

XK2DA  ' 

BATS 

72. 

♦XK30A 

, XK1AA 

,XK2AA 

, XK3AA 

,X«9l 

t*Ah2 

, XB93 

, XN99 

,X«95  ' 

BATS 

73. 

• XK  I Y 

, XK2V 

, XK 3 V 

, XK  1 G 

, XK2G 

, XK3G 

, XK  1 P 

,XK2P 

,XK3P  , 

BATS 

79. 

• XK1R 

, XK2R 

, XK3R 

, XK  1 0 

, XK20 

, XK  30 

XK  1 U 

, XK2U 

,XK3U  ' 

BATS 

75. 

• XK  1 B 

, XK2B 

, XK 3fl 

, XK1Z 

, XK2Z 

, XK3Z 

XK  1 VT 

,XK2VT 

,XK3VT  ' 

BATS 

6 OCT  72  6.01-99 


76. 

• Ml  VD 

. XK2VD 

XK3VD 

XK  1 VA 

XK2VA 

, XK  3 V A , XK 16T  t XK2GT 

, XK36T 

NATS 

77. 

* XK  1 GO 

, XK2G0 

, XK  3G0 

XK  1 GA 

XK2GA 

, XK36A  , XK IPT  , XK2PT 

, XK  3PT 

NATS 

78. 

•XK1P0 

X K 2P  D 

, XK  3P0 

XK  1 P A 

, XK2P A 

, XK3P A XK 1RT  , XK2RT 

, X K 3RT 

NATS 

79. 

•rxiRO 

f XK2R0 

, XK3R0 

, XK1RA 

, XK2RA 

, XK3RA  ,XK10T  , XK20T 

, XK30T 

NATS 

80. 

• XK 100 

X K 200 

, XK  300 

XK  10A 

XK20A 

, XK30A  ,XK1UT  , XK2UT 

, XK  3UT 

NATS 

81  . 

•XX 1 UD 

. XK2UD 

.XK3U0 

, XK 1 UA 

, XK2UA 

, XK  3JA  ,XK1NT  ,XK2NT 

, XK3NT 

NATS 

82. 

C0W10N  /NATS/ 

NATS 

83. 

♦xkino 

, XK2ND 

,XK3N0 

XK  1 NA 

XK2NA 

XK  3NA  .XK1ZT  .XK2ZT 

, X K 3ZT 

NATS 

89  . 

• XK 1 ZD 

. XK2ZD 

, XK  3Z0 

, XK1ZA 

XK2ZA 

,XK3ZA  XK 1 VV  , XK2 V V 

, XK 3V V 

NATS 

85. 

•XK1GV 

, XK2GV 

XK  3G V 

, XK1PV 

XK2P  V 

XK 3P V XK1R V ,XK2RV 

, XK  3R V 

NATS 

86. 

* XK  1 0 V 

, XK20V 

XK  30  V 

XK  1 U V 

, XK2UV 

, XK 3UV  ,XK1NV  , XK2NV 

, XK 3NV 

NATS 

87. 

•XK1ZV 

, XK2ZV 

, XK3ZV 

, XK 1 66 

, XK2G6 

, XK3G6  , XK IPG  , XK2P6 

, XK  3PQ 

NATS 

88. 

•XK1RG 

XK2RG 

XK3RG 

, XK 1 06 

, XK206 

, XK306  , XK IUG  , XK2U6 

, XK  3U6 

NATS 

89. 

• XK  1 PIG 

XK2N6 

, XK3N6 

, XK 1 ZG 

# XK2Z6 

, XK3Z6  , XK IPP  , XK2PP 

, XK  3PP 

NATS 

90. 

• XK  1 BP 

, XK2RP 

XK  3RP 

, XK 10P 

XK20P 

XK30P  XK 1 UP  , XK2UP 

X K 3UP 

NATS 

- 91  . 

•XKINP 

.XK2NP 

,XK3flP 

XK  1 ZP 

, XK2ZP 

, XK3ZP  .XK1RR  , XK2RR 

XK  3RR 

NATS 

92  . 

•XK10R 

, XK20R 

XK30R 

, XK 1 UR 

, XK2UR 

, XK  3UR  ,XK1NR  , XK2NR 

, XK  3NR 

NATS 

93. 

•XKIZR 

. XK2ZR 

XK  3ZR 

, XK 100 

XK200 

, XK300  ' XK 1 UO  , X K2UG 

, XK  3U0 

NATS 

99 . 

•xkino 

,XK2nO 

, XK3N0 

, XK 1 ZO 

,XK2Z0 

XK3Z0  , XK1UU  , XK2UU 

j XK  3UU 

NATS 

95. 

•XKinu 

, XK2WU 

.XK3NU 

, XK 1 ZU 

, XK2ZU 

, XK3ZU  , XK1NN  t XK2NN 

, XK  3NN 

NATS 

96. 

•xKizn 

XK2ZW 

, XK  3ZN 

, XK 1 zz 

.XK2ZZ 

. XK3ZZ  :XKPI11.XKPI21 

, XKPI 31 

NATS 

97. 

•XKPII2 

, XKPI22 

, XKPI 32 

*MPU2 

, XKPI23. XKPI33.PA1  . PA2 

NATS 

98. 

COnnON 

/NATS/ 

NATS 

99. 

•opdyi 3 

. 8).  DEPDEYI2 

. 8).  DPDU3. 

3 > , PR 005(3.  69).  PR0D912,  2 9) 

NATS 

100. 

CONNON 

/NAtS/ 

NATS 

101 . 

*PV 

,PG 

,PP 

t PR 

,P0 

,PW  ,PBV  ,PPV 

,PRV 

NATS 

102. 

•POV 

,P6G 

PPG 

>RG 

,P06 

,PPP  >RP  ,P0? 

, PRR 

NATS 

103'. 

• POR 

.POO 

.PL6 

PLP 

NATS 

109 . 

EQUIVALENCE!  PROD1.PA0D5 1 

NATS 

105. 

DATA  XALGCN  / 

6HAL6C0N/.  XKLll . XKL21.  XKL12.  XKL22,  XKLl 3 , XKL23 

ALGCON 

106. 

*/ 6*0 . / 

ALGCON 

107. 

C 

IN-PLANE  CONTROL  ITERATION 

ALGCON 

108. 

ASSIGN 

302  TO 

JSNTCH 

ALGCON 

109. 

PA  1 = 

0. 

ALGCON 

no. 

PA2  =• 

0. 

AlGCON 

Ill  . 

DO  10 

1 = 1, 

90 

ALGCON 

112. 

10  PC  I > = 

0. 

AlGCON 

113. 

C 

STORE 

initial 

GUESS 

ALGCON 

119. 

PI  - T 

ALGCON 

115. 

P2  = oeltae 

AlGCON 

116. 

P3  = alpha 

ALGCON 

117. 

ITR  = 

0 

ALGCON 

118. 

C 

IS  THIS  OPTINAl  control 

JUL19A 

119. 

IFC  JP3 

.EQ.  1 

> 60  TO 

199 

AlGCON 

120. 

C 

nqnopt Inal  angle  OF 

ATTACK 

AlGCON 

121. 

1 P 3 = 

JP3  - 1 

AlGCON 

122. 

ASSIGN 

100  TO 

1SUTCH 

AlGCON 

123. 

100  CALL  UTNOP 

AlGCON 

129. 

C 

60  TO 

APPROPRIATE  THRUST  EQUATION 

AlGCON 

125. 

GO  TO 

(101,  102,  103 

1L. 

JP1 

J Ul2  1 

26. 
127  . 


128. 

129. 


130. 
131  . 
132. 

33. 

139. 


35. 

136. 


137. 

138. 


139. 
190. 
191  . 


192. 

193. 


99  . 

195. 


101  CALL  TM1001 
60  TO  no 


ALtoCQM 

ALuCON 


102  call  TH2001 

60  TO  no 


AlGCON 

algcon 


103  CALL  TH3001 
GO  TO  no 


algcon 

JUL21 


109  CALL  TH9001 


GO  TO  APPROPRIATE  OEFLECTION  EQUATION 


JUL21 

ALGCON 


ALGCON 


111  CALL  DL1001 
60  TO  120 


ALGCON 

ALGCON 


112  CALL  OL2001 


GO  TO  APPROPRIATE  ANGLE  OF  ATTACK  EQUATION 


ALGCON 

ALGCON 


120  GO  TO  ( 122,  123,  129,  125,  126,  127,  128,  129  ),  I 


P3 


ALGCON 


122  CALL  AL2001 
GO  TO  300 


ALGCON 

ALGCON 


123  CALL  AL3001 
GO  TO  300 


ALGCON 

ALGCON 


129  CALL  AL9001 
60  TO  300 


ALGCON 

ALGCON 


199* 


101-j  102-j  103- 

iiSq 1 


no- 


109-1 


110- 


TTT=?ii2 


j20"| 


] 


T22^  1 23— 1 1 29-!  125-|  12  6-j  1 2 7 — 1 128— 1 129- 


1 


300-1 

300- 

300- 
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m. 

1 9 1 . 


125  CALL  AL5001 
60  TO  300 


ALGCON 

ALGCON 


158  . 

159  . 


126  CALL  AL6001 
60  TO  300 


AL6C0N 

ALGCON 


150. 

151. 

TFT 

153. 


15-1. 

155. 

156. 


127  CALL  AL7001 
60  TO  300 


AL6C0N 

ALGCON 


128  CALL  AL8001 
60  TO  300 


ALGCON 

ALGCON 


125  CALL  AL9001 
60  TO  300 


OPTICAL  ANGLE  OF  ATTACK 


ALGCON 

ALGCON 

ALGCON 


300-* 

300- 

300-1 

300-4 


300- 


157. 

156. 

155. 

160. 


161  . 
162 . 


163. 

16V 

165  . 
166. 


167. 

168. 


169. 


170. 

in . 


172. 

173. 
IT4*. 


199  ASSIGN  200  TO  IStfTCH 

200  CALL  UTOP 

C GO  TO  APPROPRIATE  THRUST  EQUATION 


60  TO  1201.  20 2 


JPl 


ALGCON 

ALGCON 

ALGCON 

JUL21 


201— ; 2 02 -i203 209-1 


201  CALL  TH1002 
GO  TO  2)0 


ALGCON 

ALGCON 


210- 


202  CALL  TH2002 
GO  TQ  210 


ALGCON 

ALGCON 


1 


210- 


203  CALL  TH3002 
GO  TO  210 


ALGCON 

JUL21 


210- 


205  CALL  TM5002 


60  TO  APPROPRIATE  DEFLECTION  EQUATION 


JUL21 

ALGCON 


ALGCON 


211  call  DL1002 
GO  TO  220 


ALGCON 

ALGCON 


?TT=j212 


220 


212  CALL  DL2002 


GO  TO  OPTIMAL  ANGLE  OF  ATTACK  EQUATION 


ALGCON 

ALGCON 


220  CALL  AL1001 


AlGCON 


] 


175. 

176. 

177. 


300  I TR  ? 1TR  ♦ I 

TEST  FOR  TOO  MANY  ITERATIONS 
I FI  I TR  .ST.  20)  CALL  ERROR! XALGCN,  >1,  0) 


AlGCON 

AlGCON 

AlGCON 


176. 

179. 

180. 
161  . 
162. 
163. 

165. 

185. 

186. 
187. 

166. 

189. 

190. 
191  . 

192. 

193. 
195 . 

195. 

196. 
97. 

198. 

199. 

200. 
201  . 
202. 
203. 
205. 

205. 

206. 

207. 

208. 
209. 


210. 

211. 

212. 


301 


CONTINUE 

COMPUTE  INVERSE  OF  PARTIAlS  MATRIX 
OET  = XK2T»(  XK1D»XK3A  - X«1A»XX3D>  ♦ XK2D*t XXI A*XK3T 
« XK2A«( XK1T«XK3D  - XK1D+XK3T) 

TEST  FOR  SINGULARITY 

IF( ABS( DET ) .LT.  l.E-15)  CALL  ERROR! XALGCN,  -2f  0) 


XX  1T*XK3A  ) 


XKPl  11 
XKPI21 
XKP131 
XXP112 
XXPI22 
XXPJ32 
XKPI13 
XXPI23 
XKP133 


XK2A*XK3D l/OET 
XK2T*XK3A )/OET 
XK2D*  XK3T l/OET 
XX10*XK3A1/OET 
XK1A«XK3T)/0ET 
XX]T*XK30)/DET 
XX 1 A*XX2D l/OET 
XX1T»XX2A)/DET 
XX 10*  XK2T  l/OET 


302 


306 


( XK20*XK3A 
( XK2A*XK3T  - 
( XK2T*XK30  - 
<XXiA*X*30  - 
( XX 1 T*  XX  3 A - 
(XX10*XX3T  - 
( XX 1 D*XX2 A - 

(XX1A*XK2T  - 
( XX  IT* XK20  - 
GO  TO  JSNTCH 

COMPUTE 

CALL  MATflLTCDP,  XKPI11,  »i. 

CHECK  FOR  CONVERGENCE 

SUM  = 0. 

DO  306  1=1-3 
DJV  = P(I) 

0.  I OIY  = 1. 

AfiSl 0P( I )/0I V ) 

1. E-12)  GO  TO  307 
NOT  CONVERGED  VET 

CALL  MATADOCP,  P,  DP,  3,  1> 

T = PI 
OElTAE  = P2 
ALPHA  = P3 
GO  TO  ISHTCH 

CONVERGED  


INCREMENT  FOR  IN  PLANE  CONTROL 
XXI,  3,  3,  1) 


IFtDIV  .EQ. 
sum  = sum  ♦ 

I F( SUM  .lE. 


AlGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

AlGCON 

AlGCON 

ALGCON 

AlGCON 

AL6C0N 

AlGCON 

AlGCON 

AlGCON 

AlGCON 

AlGCON 

AlGCON 

AlGCON 

AlGCON 

AlGCON 

ALGCON 

AlGCON 

AlGCON 

AlGCON 

AlGCON 

AlGCON 

ALGCON 

AlGCON 

AlGCON 

ALGCON 

ALGCON 

AlGCON 

ALGCON 


307 — | 


307  CALL  MATADOCP,  P,  OP,  3,  11 
T = PI 
OELTAE  = P2 


ALGCON 

ALGCON 

AlGCON 
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&>w 


213. 

219. 

215. 

216. 

217. 

218. 

219. 

220. 
221 . 
222. 
221. 
22H. 

225. 

226. 


227. 

228. 


1229. 

230. 


231. 

232. 


233. 

239. 

235  . 


236. 

237. 


238. 
(239 . 


290. 


291 . 

292. 


293. 

299. 


295. 

296. 


297  . 
298. 


299. 

1250. 


251  . 
252. 


399 

900 


901 


ALPHA  = P3 
RETURN 

THIS  ENTRY  COMBINES  UP  THE  FIRST  AND  SECOND  PART l ALS 
OF  THE  IN  PLANE  CONTROL  WITH  RESPECT  TO  THE  STATE 
ANO  COSTATE 

ENTRY  AL6CNV 
ASSIGN  500  TO  JSMTCR 
00  399  I = 9,  599 
PC  X ) = 0. 

CALL  UT 

60  TO  APPROPRIATE  THRUST  EQUATION 
60  TO  (901,  902,  903,  909),  JP1 


ALGCON 

ALGCON 

AL6C0N 

AL6C0N 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

AL6C0N 

ALGCON 

ALGCON 

JUL21 


CALL  TH1 
6t)  TO  910 


ALGCON 

ALGCON 


902 


call  TH2 
GO  TO  910 


ALGCON 

ALGCON 


903 


CALL  TH3 
GO  TO  910 


ALGCON 

JUL21 


909  CALL  TH9 


GO  TO  APPROPRIATE  DEFLECTION  EQUATION 


JUL21 

ALGCON 


910  60  TO  <911,  912),  JP2 


ALGCON 


911 


CALL  0L1 
60  TO  920 


ALGCON 

ALGCON 


912  CALL  DL2 


GO  TO  APPROPRIATE  ANGLE  OF  ATTACK  EQUATION 


ALGCON 

AL6CQN 


920  GO  T0I921,  922,  923,  929  925,  926,  927, 


JP3 


ALGCON 


921 


CALL  AL1 
GO  TO  950 


ALGCON 

ALGCON 


922 


CALL  AL2 
GO  TO  950 


ALGLON 

ALGCON 


923 


CALL  Al3 
GO  TO  950 


AlGCON 

ALGCON 


929 


CALL  AL9 
GO  TO  950 


ALGCON 

ALGCON 


925 


CALL  AL5 
GO  TO  950 


ALGCON 

ALGCON 


926 


CALL  AL6 
GO  TO  950 


ALGCON 

ALGCON 


901— 1902-1  903-1 909-n 


910—1 


910- 


910—1 


n 


1 


I— | 912- 


921-1922-1923-1 


950-i 


950—1 


950—1 


950—1 


950—H 


950—9 


J 


929-1 


925-1 


926- 


[927-1 


928-1 


929-1 


253. 

259. 


927 


CALL  AL7 
GO  TO  950 


ALGCON 

ALGCON 


950—1 


255  . 
256. 
25  7 . 


258. 

259 . 

260. 
261. 
262. 
263. 
269. 

265. 

266. 
26  7. 
268. 

269. 

270. 

271. 

272. 
2 73. 
27i. 
275. 
2 76. 
2 7 7 . 
2 78. 


928 


CALL  Al8 
60  TO  950 


ALGCON 

ALGCON 


950- 


929  CALL  AL9 


950  GO  TO  301 

C TEST  FOR  OPTIHAL  OR  NONOPTIhAL  ANGLE  OF  ATTACK 

500  1F1JP3  . 6T . 1)  GO  TO  509 

C OPTIHAL.  COHPUTE  PAflTIALS  OF  THRUST  ANO  OEFL-  NITH 

C RESPECT  TO  STATE  AS  THOUGH  ALPHA  HERE  CONSTANT. 

DET  = XK1D*XK2T  - XK1T*XK20 
YKP 1 1 1 = XK2D/0ET 
YKPI21  =-XK2T/0ET 
YKPI12  =-XK10/0ET 


50: 

502 

503 


YKP 1 22 
DO  503  I 
00  502  J 
SUH  = 0. 
00  501  K 


XK1T/0ET 
* 1,  2 
= 1,  » 

= 1. 


K)«XKVCK,  J> 


Sun  = sun  ♦ $kpi<  i 

DEPOEYI I,  J > = SDH 
CONTINUE 

IF  Ql  IS  CONVERGED  HE  ARE  OONE. 

I Ft K0NVER ) RETURN 

NOniOP T I nAL  OR  OPTIHAl  ANO  Ol  NOT  CONVERGED.  COrtPUTE 
TOTAL  FIRST  FARTIAlS  OF  IN  PlANE  CONTROL  NJTH 


ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

AlGCON 

ALGCON 

ALGCON 

ALGCON 

AlGCON 

ALGCON 

ALGCON 

AlGCON 

AlGCON 

AlGCON 

AlGCON 

ALGCON 

ALGCON 

ALGCON 

AlGCON 


?0 ~ 
509- 
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RESPECT  TO  STATE. 


280. 

281. 

282. 

283. 

28*. 

285. 

286. 

287. 

288. 

289. 

290. 

291. 

292. 

293. 
29*. 

50* 

C 

c 

c 

c 

c 

CALL  MATNLT(DPOV,  XKPIll.  XK1V,  3,  3.  8) 

if  ql  is  converged  WE  ARE  DONE. 

IF(KONVER)  RETURN 

TEST  FOR  OPTIMAL  OR  NONOPT INAL  ANGLE  OF  ATTACK 
IF<  JP3  .Efl.  1 > GO  TO  517 

NONOPTIMAL.  COMPUTE  TOTAL  SECOND  PART  I ALS  OF  IN- 
PLANE  CONTROL  WITH  RESPECT  TO  STATE.  RESULTS  60  IN 
ARRAY  PR0D5 . 

KP  = 0 
KLIN  = 0 
INC  = 3 

00  509  « = 1,  3 
KLIN  = KLIN  * INC 
INK  x 3 

KK  x * 

algcon 

ALGCON 

algcon 

ALGCON 

algcon 

algcon 

algcon 

algcon 

algcon 

algcon 

algcon 

algcon 

algcon 

algcon 

JUL21 

295. 

50*1 

KP  x KP  4 1 

JUL21 

296. 

DO  505  I x l 3 

algcon 

297  . 

505 

5KWW<  I,  KP)  x XKWM  l,  KK ) 

algcon 

298. 

I F t INK  4 K - *)  506 „ 506,  507 

algcon 

299. 

506 

INK  x 1 

algcon 

300. 

60  TO  508 

algcon 

301 . 

507 

INK  x INK  - 1 

algcon 

302. 

508 

KK  s KK  4 INK 

JUL21 

303. 

IFUK  .LE.  KLIN)  GO  TO  50*1 

JUL21 

30*. 

509 

INC  =. INC  - 1 

ALGCON 

305. 

in  = -r 

algcon 

3G6. 

II  = -2 

algcon 

307. 

JLIN  x 0 

algcon 

308. 

INC  x 8 

algcon 

309. 

DO  516  1x18 

algcon 

310. 

III  x HI  4 ft 

ALGCON 

311. 

II  = II  4 3 

ALGCON 

312. 

JLIN  x JLIN  4 INC 

AlGCON 

313. 

INK  x 8 

AlGCON 

31*. 

J x 0 

algcon 

315. 

JJ  = I 

JUL21 

216. 

5091 

J x J 4 1 

JUL21 

317. 

DO  510  K x 1,  3 

algcon 

316. 

510 

5KYYH  K,  J i X XKVVfK,  JJ  ) 

algcon 

319. 

I F( INK  4 1-9)  511,  511,  512 

algcon 

320. 

511 

INK  x 1 

algcon 

321. 

GO  TO  513 

algcon 

322. 

512 

INK  x INK  - .1 

algcon 

323. 

513 

JJ  = JJ  4 INK 

JUL21 

32*. 

IF(JJ  .LE.  JLIN)  £0  TO  5091 

JUL21 

325. 

JJ  x -2 

ALGCON 

326. 

00  51*  J x 1 8 

ALGCON 

327. 

JJ  X JJ  4 3 

ALGCON 

328. 

51* 

CALL  NATNLTC  YY< I . J),  XKWY(  l 

JJ). 

DPOV( 1 , I),  3,  3, 

1) 

ALGCON 

329. 

CALL  NATAOOC  SKYVl . SKYVl,  YY . 

3,  k 

) 

algcon 

330. 

KK  x - 2 

algcon 

331. 

00  515  K X l,  3 

algcon 

332. 

KK  x KK  4 3 

algcon 

333. 

515 

CALL  NATNlT(ZZ(1.  K>,  SKWW(  1 

KK  >. 

DPDV(1,  I),  3,  3, 

1) 

algcon 

33*. 

call  PlATADDlZZ,  ll,  XKUY( 1 II 

>,  y 

, 3> 

algcon 

335. 

call  ratnlT(yy.  zz,  dpdy.  5,  3 

.8) 

algcon 

336. 

call  rtATAOD(SKYYI.  SKYVl . V*. 

3.  8) 

algcon 

337. 

call  NATNlTI  PR005I  I.  Ill),  XKP 111, 

SKYVl,  3,  3,  0) 

algcon 

338. 

516 

INC  = INC  - 1 

AL6C0N 

339. 

RETURN 

algcon 

3*0. 

C 

OPTIMAL.  COMPUTE  TOTAL  FIRST  PARTIAlS 

of  in  plane 

algcon 

3*1 . 

C 

CONTROL  WITH  RESPECT 

TO  COSTATE. 

algcon 

XKL3I  = VDA 
XKL32  - 60* 

XKL33  = PDA 

CALL  NATNlTIDPDL,  XKPIll.  XXLll,  3.  3,  3) 

COMPUTE  TOTAL  F|R§T  ParTiAlS  OF  THE  MATRIX  OEPDEY 
WITH  RESPECT  TO  THE  STATE.  OEPOEV  WAS  COMPUTED 
ABOVE.  RESULTS  GO  IN  ARRAY  PROOl. 
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KP  = 0 
KLIA  = 0 
INC  x 3 

DO  522  K x I ,2 

nun  = iun  ♦ me 

INK  x 3 
KK  x K 

KP  = KP  ♦ 1 

00  518  I x I,  2 

SLWVl  I,  KP)  x XKUW(  1 KK) 

IF<  INK  ♦ K - 4 ) 51$,  519,  520 . 

INK  = 1 

60  TO  521 

"INK  ~e  INK  - l ~ 7 . . . 

KK  x KK  4 INK  “ 6 : 

IF(KK  .LE.  KLIN)  60  TO  $171 
INC  x INC  - 1 
II  x -7 

DO  524  I x | 3 

II  x II  4 3 
JJ  x -2 

DO  5223  J x l#  6 
JJ  x jj  ♦ 3 
00  5222  K x l 2 
JJJ  = JJ 
SUN  x o. 

00  5221  L x 1.  3 

SUN  x SUN  4 XK*V<K,  JJJ )+OPOL( L,  I) 

JJJ  = JJJ  4 l 
V¥<K.  J)  x SUN 
CONTINUE 
KK  x -2 

00  523  K x i 2 
KK  x 4 3 

CALL  NATNLT(  UU<1,  K>,  SLW¥ll,  KK  ) DPDU1,  I),  2,  3,  U 
CALL  NATNlT( SlVlI , UU,  OEPOEY.  2.  2,.  8> 

CALL  NATADDt SlVlI,  SlVlI,  ¥¥,  l,  8> 

CALL  NATrtLT<PROQ»fl#  21),  YKM,  StVLl,  2,  2,  8) 

III  x -7 

II  x -2 
JLIN  x 0 

Inc  x a 

DO  535  Ixie 

III  x III  ♦ b 
II  x II  ♦ 3 

JlIN  X JLIN  ♦ INC 
INK  X a 
J X o 
JJ  = I 


JUL21 

algcon 

algcon 

ALGCON  51^ — I 520- 

ALGCON 
ALGCON  521 

ALGCON  '*  ~ j 

JUL21 

JUL21  5171 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

algcon 

algcon 

algcon 

algcon 

algcon 

ALGCON 

ALGCON 

ALGCON 

algcon 

algcon 

algcon 

algcon 

algcon 

algcon 

algcon 

AluCON 

algcon 

algcon 

algcon 

algcon 

ALGCON 

algcon 

algcon 

algcon 

algcon 

algcon 

algcon 

JUl21 


398. 

399. 

400. 
401  . 

5241  J x j ♦ 1 

00  525  K x I 2 
525  SLWKK,  Jl  x XKYV<K,  J J ) 

IF(  INK  ♦ I - 9)  526.  526,  527 

JUL21 

algcon 

algcon 

algcon 

526— ] 527— | 

402. 

526  INK  x 1 

algcon 



403. 

60  TO  528 

algcon 

SJ8-,  | 

404. 

527  INK  = INK  - 1 

ALGCON 

405. 

528  JJ  = JJ  4 INK 

JUL21 

406. 

1FCJJ  . l£  . JUA)  60  TO  5241 

J UL21 

52Hl 

407  . 

JJ  x -2 

algcon 

408. 

00  531  J x 1 a 

ALGCON 

409. 

JJ  = JJ  4 3 

ALGCON 

410. 

DO  530  K x 1 2 

ALGCON 

411 . 

JJJ  = JJ 

algcon 

412. 

SUA  x 0. 

algcon 

413. 

00  529  L x 1 3 

* algcon 

414. 

SUA  X sun  4 UNYIK,  JJJ  )*OPQY(  L,  I> 

algcon 

415. 

529  JJJ  x JJJ  ♦ l 

algcon 

416  . 

530  ¥¥<  K,  J)  x SUA 

algcon 

417. 

531  CONTINUE 

algcon 

4)8. 

CALL  AATADOISLYYI,  SlVYI,  ¥¥,  2,  8) 

ALbCON 

4*9. 

KK  = -2 

ALGCON 

! 
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n 


[ 

c 


*120. 
*121  . 
*#22. 
*123. 
*»2H. 
M25. 
**26. 
**27. 
**28. 
**29. 
*430. 
*431  . 
*432  . 
*433 . 
H3*t . 


DO  532  A = 1,  2 
AA  s KK  ♦ 3 

532  CALL  WATftLT*  U0<  1 1 A),  $LWY<1,  AA  ),  OPOV(  1 , I ) 2,  3, 

DO  53*1  A = 1,  2 

JJ  = II 

00  533  J s 1,  Z 

UU(  A J)  = 00*  A,  J)  «■  XAUVt  A J J ) 

533  Ji  s JJ  ♦ 1 
53*4  CONTINUE 

CALL  rtATftLTC  M,  Uii,  DEPDEY,  2,  2f  8) 

CALL  WAT AOD( SltVI , SLYYI,  8*  Z,  8) 

CALL  WATWLT* PR001( 1,  III).  VAPI,  SLYYI,  2,  2,  8) 

535  INC  = INC  - 1 
RETURN 
END 


ALGCON 

alGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 

ALGCON 
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FORTRAN  NATH 

symbol  Symbol 


COOE 


DESCRIPTION 


storage  subroutine  usage 
Block  ' loc  subr  code var 


ALPHA 

at 

n 

Angle  of  attack  (RAD) 

/DYNA 

/( 

79) 

AEROCO 

I 

ALPHA 

algcon 

M 

ALPHA 

AL2 

I 

ALPHA 

ARC1N 

M 

ALPHA 

CONTRL 

M 

ALPHA 

ENVPRQ 

I 

ALPHA 

NONECO 

I 

ALPHA 

NPLAME 

I 

ALPHA 

OUTPUT 

I 

ALPHA 

TRAJIN 

0 

ALPHA 

UT 

1 

ALPHA 

WRAP UP 

1 

ALPHA 

DELTAE 

n 

Engl a«  def 1 act I on  (RADS) 

/DYNA 

/( 

155) 

ALGCON 

M 

deltae 

*E 

ARCIN 

M 

DElTAE 

CONTRL 

M 

deltae 

DLl 

I 

DELTAE 

OUTPUT 

l 

oeltae 

TRAJIN 

0 

deltae 

UT 

1 

DELTAE 

DEPOEV 

Bp /By 

n 

A 2*B  aatrla  that  contains 

/MATS 

/( 

285) 

ALGCON 

M 

DEPDEV 

Sp/8,  - ap/d,|a  - CoB>t »»t 

APPLY 

I 

. DEPOEV 

DPDL 

dm/d\ 

i 

A 3*3  aatrli  that  contains  dn/dX.,  dm/ d\y  and 

/MATS 

/( 

30)  ) 

ALGCON 

I 

DPDL 

s./ax* 

APPLY 

1 

DPDL 

OPDY 

dm/dy 

i 

A 3*6  aatrla  that  contains  tbs  total  first  partial 

/MATS 

26)  ) 

ALGCON 

I 

DPDY 

derivatives  of  th«  1 n*p i •#* -contro 1 victor  art  the 
OL  stata. 

APPLY 

1 

DPDY 

GOA 

* (31 

i 

Explicit  partial  of  mr t X,  ahen  m Is  optinal. 

/MATS 

/( 

17) 

ALGCON 

I 

GDA 

AL1 

0 

GOA 

KONVER 

i 

Logical  flag  that  indicates  to  the  OL  nodule  that 

/CNTRL 

/( 

28  ) 

ALGCON 

I 

KONVER 

the  Ql  Iteration  is  converged. 

APPLY 

I 

KONVER 

ARCIN 

I 

KONVER 

CO HO MO 

0 

KONVER 

GROPE 

0 

KONVER 

nlory 

1 

KONVER 

OUTPUT 

I 

KONVER 

RKUTT1 

I 

KONVER 

P 

m 

First  entry  of  3 nord  in-plaae  control  vector  n 

/MATS 

n 

1 ) 

algcon 

M 

P 

algcon 

M 

PI 

PA1 

0 

Nat  used 

/RATS 

n 

259) 

algcon 

0 

PA1 

PA2 

0 

/MATS 

/c 

260  > 

algcon 

0 

PA2 

AL1 

M 

PA2 

PDA 

K (3) 

i 

Explicit  portial  of  9T\  0hefi  n is  optinal. 

/MATS 

/c 

18) 

algcon 

I 

PDA 

ALl 

0 

PDA 

PROOl 

d(Sp/Sy  )/dy 

i 

A 2*6M  natrlx  that  contains  the  iota!  first 

/MATS 

/< 

310) 

algcon 

I 

PR0D1 

partlals  of  the  oatrlx  DEPOEV  nr t the  OL  state. 

algcon 

I 

PR0Q5 

APPLY 

I 

PR0D1 

APPLY 

I 

PRODS 

PRODS 

d(  5p /6y  )/dy 

i 

A 2* fc M natrlx  that  contains  the  total  first 

/MATS 

/c 

310) 

algcon 

I 

PR0D1 

partials  of  the  natrlx  DEPOEV  nrt  the  QL  state. 

algcon 

I 

PR0D5 

APPLY 

1 

PR0D1 

APPLY 

I 

PR005 

PR0D9 

i 

A 2x6M  natrlx  that  contains  d(5p/6y)/BX 

/MATS 

/c 

502  ) 

ALGCON 

1 

PR009 

d(5p/6y)/aX>  and  d<  6p /6y  )/dX*. 

APPLY 

I 

PR0D9 

PI 

M 

First  entry  of  3 *er d In-plaoe  control  vector  • 

/MATS 

/i 

1 ) 

ALGCON 

M 

P 

ALGCON 

R 

PI 

5KWW 

H 

A 3x9  array  that  contains  Ann 

/ ALGC0N/(  * 

) 

ALGCON 

y 

SKHH 

5KYYI 

W 

A 3x6  array  that  contains  Kyyj 

/ ALGCON/( * 

) 

ALGCON 

y 

SKYYI 

SLNV 

M 

A 2x6  array^ |^at^ |^n|ai ns  Lap , nhere 

/ALGCON/C ♦ 

) 

ALGCON 

y 

SLHV 

5LYLI 

l 

A 2*8  array  that  contains  LyXj 

/ALGCON/f * 

) 

ALGCON 

I 

5LYLI 

SLYYI 

W 

A 2x6  array  that  contains  Lyy| 

/ALGCGN/C * 

> 

ALGCON 

y 

SLYYI 
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2b  i 


DESCRIPTION 


SUBROUTINE  US AG 


K Thrust 


I Explicit  partial  of  X*  3 * art  Xf  ahan  a is  Qptiaal. 

C Tha  first  aord  in  a 3x3  array  that  contains  K\  , 

KX  •»*  *X*  * 

n Tha  first  entry  In  the  3x3  aatrix  -X-* 

I First  entry  In  3x6  aatrix  containing 

I The  first  entry  In  a 3x3  sstrtx  containing  K,0 

1 The  first  entry  tn  a 3x8  aatrix  containing  K y 

I Tha  first  entry  in  a 3x8  aatrix  containing  K^v 


I First  entry  of  3x3  aatrix  containing  the  explicit 
partials  of  X nith  respect  to  a,  Kv 


Tha  first  entry  In  a 3x8  aatrix  containing  Ky 


I A 2x2  array  that  contains 


BLOCK 

LOT" 

s u£r 

COOE  VAR 

/ DYNA 

/( 

M2  ) 

ALGCON 

n 

T 

AL1 

i 

T 

ALM 

i 

T 

AL6 

i 

T 

ALT 

i 

T 

AL6 

i 

T 

AL9 

i 

T 

APPLV 

i 

T 

ARCIN 

0 

T 

CONTRL 

n 

T 

0L2 

i 

T 

IWPULS 

i 

T 

OUTPUT 

i 

T 

TH1 

i 

T 

TH2 

i 

T 

TH3 

i 

T 

THM 

i 

T 

/WATS 

/( 

16) 

ALGCON 

i 

VDA 

ALi 

0 

VDA 

/ALGCON/ ( * 

> 

ALGCON 

c 

XXLll 

/HATS 

/( 

250  ) 

ALGCON 

n 

XKP) 11 

/HATS 

/< 

23) 

ALGCON 

1 

XKttf 

TM3 

0 

XX  ITT 

/WATS 

/{ 

70  ) 

ALGCON 

i 

XXWY 

TH3 

n 

XX1VT 

/WATS 

/< 

M6  ) 

ALGCON 

1 

XXV 

ALGCON 

I 

XXIV 

TH3 

H 

XXIV 

THM 

0 

XXIV 

/WATS 

/( 

1M2  > 

AL6C0N 

I 

XKYV 

TH3 

« 

xxivv 

T MM 

0 

XK1VV 

/WATS 

/( 

M) 

ALGCON 

I 

XX 1 

THROTL 

I 

XX 1 

TH1 

0 

XX 1 

TH2 

0 

XX 1 

TH3 

0 

XXI 

THM 

0 

XX 1 

/WATS 

/( 

7 ) 

ALGCON 

I 

XX 1 T 

TH1 

0 

XX 1 T 

TM2 

0 

XX  IT 

T«3 

N 

XX  IT 

/WATS 

/( 

M6  ) 

ALGCON 

I 

XKY 

ALGCON 

I 

XXIV 

TH3 

W 

XXIV 

THM 

0 

XXIV 

/ ALGCON/ ( * 

) 

ALGCON 

1 

YXPI 
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SUBR0UTINE 

AL1 


AL1  evaluates  the  optimal  angle  of  attack  constraint.  Equation  16.8-3 
in  Vol.  I.  In  addition,  it  computes  the  explicit  first  partials  of  this 
constraint  with  respect  to  the  state,  costate  and  in-plane  control  as 
they  are  needed. 


% ID 


ali 


1. 

2. 
3. 
9. 

5. 

6. 
1. 
a. 

9. 

10. 

n. 

12. 

13. 

19. 

15. 


SUBROUTINE  ALI 

THIS  ROUTINE  APPlYS  WHEN  THE  ANGLE  OF  ATTACK  15 
OPTIMAL.  THIS  ENTRY  COMPUTES  THE  EXPICIT  PARTJALS 
OF  THE  CONSTRAINING  EOUATION  WITH  RESPECT  TO  THE 
STATE,  COSTATE  AND  IN-PLANE  CONTROL. 

REAL  MAGBV , HU,  H LV , LGAh,  L*SI,  LR,  LfiHO,  LHU,  Lfl,  LTAU,  NOH 
* . LHT 
tOHHON  /D/ 

♦ X,  H.  X I C 9 ),  HAGBY,  ERR,  D9,  DIO,  C(90),  C$AVE<90>,  V,  6AH,  PSJ, 
♦ALT,ftHO  HU,H  TAU.  HT.  LV  l6A«,  lPSI,  Lfi,  LRHO,  LHU,  LH,  lTAU, 

♦ LHT  D1&9,  DUO.  BV(90>,  ZSAYEliO),  0T(20T,  NP0lNT(20>,  &ELT(20> 
DIMENSION  NOHI26) 

EQUIVALENCE  (NOH,  Y) 


AL1 

AL1 

AL1 

AL1 

AL1 

AL1 

AL1 

D 

D 

D 

D 

JUL21 

D 

D 


u. 

LOGICAL  SWlTChr-  IcCHlO 

DYNA 

17. 

REAL  MACH.  ISP.  ISPY.  ISPR. 

1 5PM, 

SPT . ispyy.  ISPVR.  ISPYM. 

DYNA 

u. 

♦ISPYT, 

I SPRR . ISPRH.  ISPRT. 

ISPMM. 

ispmt 

ISPTT. 

LIFT.  LIFTV. 

DYNA 

19. 

♦LIFTR, 

LIFTA,  lIFTYY.  LIFTyR.  liftva.  liftra.  liftra.  hur.  liftaa. 

DYNA 

20. 

♦IRATED 

I SPF . 1SPFF 

DYNA 

21. 

REAL  HACHY,  RACHR  HACHYR, 

MACHRR 

DYNA 

22. 

REAL  LIFTH.  lIFTYH.  lIFTRH. 

LIFTHH, 

LlFTHA 

DYNA 

23. 

COMMON 

/DYNA/ 

DYNA 

29. 

♦ XX 

time  .Sinsah.cosgah. Omega 

0MEGA2 

,R 

G 

SINA  , 

J ul2  1 

25. 

♦ COSA 

dynoii,ohegat,tamp 

,PA 

RO 

,cs 

TEMPR 

PAR 

DYNA 

2*. 

♦ ROR 

csr  ,TEMPRR,PARR 

, RORR 

CSRR 

, XOOE 

MACH 

Q , 

DYNA 

27  . 

♦ OY 

QR  ,Ovv  Qvfi 

, QRR 

F VAC 

, F V ACV 

FVACR 

FVACH  , 

DYNA 

28. 

♦FVACT 

fvacyy,fvacvr,fvacrr 

,FvACTT 

T 

MACHV 

machr 

ISP 

DYNA 

29. 

♦ ISPV 

ISPR  , ISPH  , I SPT 

, ISPVV 

ISPVR 

ISPVM 

I SP  VT 

I SPRR  , 

DYNA 

30. 

♦ISPRM 

ISPRT  , ISPrtH  , I SPHT 

, ISPTT 

lift 

Llf  TY 

LJFTR 

LIFTA  , 

DYNA 

31  . 

♦liftvv 

LIFTVR, lIFTVA, LIFTRR 

, LIFTRA 

DRAG 

, DRAG V 

ORAGfi 

0RAGA  , 

DYNA 

32. 

♦DRAG VV 

ORAGyR,ORAGVA,ORAGRR 

, OR  AGRA 

ORAGAA 

, ALPHA 

phi 

LIFTH  , 

DYNA 

33. 

♦LIFT VM 

LIFTRH,uIFTMM,LIFTMA 

, 08R 

OBRR 

GAMMAD 

AE 

TAX  : 

DYNA 

39. 

♦ W 

5INP«I,C0SPHI,SINPSI 

,COSPSI 

S I NR HO 

COSRHO 

SINROR 

COSROfl, 

DYNA 

35. 

♦ nuR 

XKG  ,XXP  AKIN 

, CDO 

CDCM 

,CLO 

FX 

XC&M  , 

DYNA 

36. 

♦XC6HH 

ZCGfl  ,2CGMrt  ,XJV 

, X JR 

XJVV 

, X J VR 

X JRR 

MACHVR, 

DYNA 

37  . 

♦MACHRR 

S I N2RO,COS2RO, C0S2GM 

, CM 

CMA 

CMM 

cmaa 

CMMM  , 

DYNA 

38. 

♦ CMAM 

CMO  ,CrtCrt  ,CMGMM 

, CMArtM 

ulftv 

, ULFTR 

UlFTVV 

ULFTVR, 

DYNA 

39. 

♦ULFT va 

ULFTRR,ulFTBA, IPOW 

, XARC 

tstart 

,GH 

GRR 

liftaa. 

DYNA 

90. 

♦COOMM 

ClAMM  ,ClCM  , CtCMM 

, 0 YNI 99 

CT 

, CODAE 

SI  DAE 

COD 

DYNA 

91  . 

♦ SID 

deltae,cde  ,xca 

, 2C& 

XJ 

, XMC6 

CALPHA 

almax  , 

DYNA 

92. 

♦ D0 

ULFT  , culft  , UlFTA 

, tstase 

TIMES 

, XMCGAA 

IRATED 

FRATED 

DYNA 

93. 

COMMON 

/DYNA/ 

DYNA 

99. 

♦HTT 

J 1 ,J2  ,J3 

, XMCGA 

FVACF 

,ulftaa 

I SPF 

ISPFF  , 

DYNA 

95. 

♦IlOAD 

fxh  ,fxhh  , Switch 

I NQF 

CL 

,CLA 

ClM 

claa  , 

DYNA 

96. 

♦CLMM 

clah  ,cd  ,cda 

,CDM 

CDAA 

, CDMM 

Cdam 

PYNI9B, 

DYNA 

97. 

♦0YN199 

DYN2CC, XMCGY  , XflCGR 

, XMCGM 

XMCGVV 

,xmcgvr 

xmcgvm 

XMCGV A 

DYNA 

98. 

♦XMCGRR 

XMC&RM, XrtCoRA . XMCGMH 

, XMCGMA 

RORRR 

, 0YN2 1 9 

DYW215 

DYN21 6 

DYNA 

99. 

♦DYN217 

1DAH  ,tairb  'tair&v 

T A 1 RBH 

tarbvv 

, T ARBHH 

TARBVH 

SFC 

JUL21 

50. 

♦ SFC  V 

SFCH  .SrCYY  . SFCHH 

, SFC  YM 

AUG09 

51 . 

DIMENSION  PRODK  2.  69) 

HATS 

52. 

COMMON 

/HATS/ 

HATS 

53. 

♦Pi 

P2  ,P3  ,XX1 

, XK2 

XX3 

# XX IT  , 

XX2T  , 

XX3T  , 

HATS 

59. 

♦ XX  ID  , 

XX2D  XX3D  , XXI A 

, XX2A 

XX3A 

, VDA 

GDA 

PDA 

HATS 

55. 

♦ XM1 9 , 

XM20  ,XM21  ,XM22 

, XX 1 TT 

XX2TT 

XX3TT  , 

XX1TD  , 

XX2TD  , 

HATS 

56. 

♦XK3TD  , 

XX  IT  A , XX2T  A XX  3T  A 

, XX 1 DO 

XX2DD 

XX 3DD  , 

XK1DA  , 

XK2DA  , 

HATS 

57. 

♦XK3DA  , 

XX I A A XX2 AA  XX  3 A A 

,XM9l 

XM92 

,XMH3  , 

XM99  , 

XM95  , 

HATS 

58. 

♦XXIV  , 

XK2 V , XX3  V , XX  1 b 

, XX2G 

XX3G 

, XX 1 P , 

XX2P  . 

X X3P  , 

HATS 

59. 

♦ XX 1 R , 

XX2R  XX3R  ,XX10 

, XX20 

XX  30 

,XX1U  , 

XK2U  , 

XK3U  , 

HATS 

60. 

♦ XX  1 H , 

XK2H  , XX  3rt  XX  1 Z 

, XX22 

XX32 

, XX l VT  , 

XX2VT  , 

XX3VT  , 

HATS 

61 . 

♦XX 1 VD  , 

XK2VD  ,XX3VD  XX 1 V A 

, XX2VA 

X X 3 V A 

XX 1 6T  , 

XX26T  , 

XX3GT  , 

HATS 

62. 

♦XX1GD  , 

XK26D  XX3GD  XX 1 GA 

, XX2GA 

XX3GA 

XX  1 PT  , 

XX2PT  , 

XX3PT  , 

HATS 

63. 

♦XX1PD  , 

XK2P0  XX3P0  XX  1 P A 

, XX2PA 

XX3PA 

XX 1 RT  , 

XX2RT  , 

XX3RT  , 

HATS 

69. 

♦XK1R0  , 

XX2R0  XX  3RD  XX  IRA 

, XX2RA 

XX3RA 

, X X 1 OT  , 

XX20T  , 

XX30T  , 

HATS 

65. 

♦XX 1 00  , 

XK20D  , XX300  XX IGA 

, XX20A 

XK30A 

XX  1 UT  , 

XX2UT  , 

XX3UT  , 

HATS 

66. 

♦XX 1 UD  , 

XK2U0  XX 3U0  , XX 1 U A 

, XK2 J A 

XK3UA 

, XX 1HT  , 

XX2MT  , 

XX3HT 

HATS 

67. 

COMMON 

/MATS/ 

HATS 

68. 

♦XX1MD  , 

XK2MD  , XX3MD  XX  IMA 

, XX2MA 

XK3MA 

XX 1 ZT  , 

XK22T  , 

XX32T  , 

HATS 

69. 

♦ XX 1 ZD  , 

XX2ZD  XX  320  XX1ZA 

, XX22A 

XX  32  A 

, X X 1 V V , 

XK2VV  , 

XX3VV  , 

HATS 

70. 

♦ XX  1 6 V , 

XX2GV  , XX3G V ,XX1PV 

, XX2PV 

XX3PV 

, XX 1 R V , 

XX2BV  , 

XK3RV  , 

HATS 

71  . 

♦xxiov  , 

XX  20 Y , XX30 V XK1UV 

, XX2UV 

XK3UV 

XX  I MV  , 

XX2MV  , 

XX3MV  , 

HATS 

72. 

♦XX1ZV  , 

XK2ZY  , X X 3 2 V XKl&G 

, XX2GG 

XX3GG 

X X 1 PG  , 

XK2PG  , 

XK3P6  , 

HATS 

73. 

♦ XX  l RG  , 

XX2RG  , XX 3RG  XXlOG 

, XKZOG 

XX30G 

, XX  1 US  , 

XX 2uG  , 

XK3U6  , 

HATS 

79. 

♦ xx 1 mg  , 

XX2MG  , XX2MG  XX 1 2G 

, XX22G 

XK32G 

,XX1PP  , 

XX2PP  , 

XX3PP  , 

HATS 

75. 

♦XX1RP  , 

XK2RP  XX3RP  ,XX1CP 

XK2CP 

XX30P 

,XXIUP  , 

XX2UP  , 

XX3UP  , 

HATS 
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76. 

•XK1NP  ,XK2NP  ,XX3NP  ,XK1ZP  ,XK2ZP  ,XK3ZP  ,XX1RR  ,XK2RR  , XK3RR 

NATS 

77. 

• XX10R  , XX20R  , XK30R  ,XXUIR  ,XK2UR  ' XK3U0  ,XKlflR  ,XK2NR  ,XK3NR  , 

WATS 

78. 

♦XK1ZR  , XK2ZR  ,XX3ZR  ,XX100  , XK200  ,XX300  ,XK1U0  ,XK2U0  ,XK3uO  , 

NATS 

79. 

•XK1N0  ,XK2inO  ,XK3«0  ,XX1Z0  ,XK2Z0  ,XK3Z0  , XK 1 UU  , XK2UU  , XX 3UU  # 

NATS 

80. 

*XK ) NU  .XK2NU  .XK3NU  ,XK1ZU  ,XK2ZU  .XK3ZU  ,XKinft  .XK2NN  ,XK3NN  . 

NATS  . 

8 1 . 

♦XK1ZN  . XK2ZN  ,XX3ZN  ,XK1ZZ  , XK 2 ZZ  ,XK3ZZ  .XKPI11.XXP121.XKPI31. 

NATS 

82. 

• XXPI  12,XXP122,XKPI32,XKPI13,XKPI23,XKPI33,PA1  ,PA2 

NATS 

83. 

CONNON  /NATS/ 

NATS 

89. 

*DPDV(3,  8).  0EP0EY<2,  6),  DPDL<  3,  3),  PR005! 3,  69),  PR0D9(  2,  29) 

NATS 

85. 

CONNON  /NATS/ 

NATS 

86. 

*PV  .Pfi  ,PP  .PR  ,P0  fPW  . PfiV  ,PPV  . PR  V , 

NATS 

87. 

♦ POV  , PG6  ,PP6  ,PRG  ,POG  ,PPP  ,PRP  ,POP  ,PRA 

NATS 

88. 

89. 

• POP  .POO  .PLG  .PLP 

EQUIVALENCE! PRQ01, PRODS ) 

NATS 

NATS 

90. 

ENTRY  AL1010 

ALl 

91  . 

ASSIGN  1001  TO  LABL1  ■ • * - 

AL  1* 

92. 

£0  TO  1000 

ALl 

1000  — 

93. 

C 

THIS  ENTRY  COMPUTES  THE  FIRST  PART I AL5  WITH  RESPECT 

ALl 

99. 

C 

TO  IN-PLANE  CONTROL. 

ALl 

95. 

ENTRV  AL1001 

ALl 

96. 

ASSIGN  1002  TO  LABL1 

ALl 

97. 

GO  TO  1000 

ALl 

1000  — 

98  . 

c 

THIS  ENTRY  EVALUATES  THE  CONSTRAINING  £0.  ONLY. 

ALl 

99. 

ENTRY  AL 1 000 

ALl 

100. 

ASSIGN  1003  TO  LA0L1 

ALl 

101  . 

c 

INITIALIZATION  FOR  ALL  ENTRIES. 

ALl 

102. 

1000 

VLV  * V*LV 

ALl 

103. 

XLTOT  = LGAPUCOSPMI  ♦ LPSl+SI NPHI /COSGAN 

ALl 

109. 

XDEL  = T*SIDAE 

ALl 

105. 

YOEL  = -T* CO DAE 

ALl 

106. 

PA2  a -XA2A/XK20 

ALl 

107. 

0NPA2  = 1.  - PA2 

ALl 

108. 

0X0 A = -XDEL*0flPA2  4 DB*SINA  - DRAGA 

ALl 

109. 

OYDA  = -YDEL*0NPA2  - OB*COSA  4 lIFTA 

ALl 

no. 

GO  TO  LA6L1 

ALl 

Ill  . 

c 

COMPUTE  PARTIALS  WITH  RESPECT  TO  STATE/COSTATE 

ALl 

112. 

1001 

DPA2  =•  ( XK2VA  ♦ XK2V0*PA2  J/XK2D 

ALl 

113. 

DDX  = -XOEL*OPA2  - ORAGWA 

ALl 

119. 

DDY  s -YDEL*0PA2  4 lIFTVA 

ALl 

115. 

XK3V  = LV*(DXDA  ♦ V*DOX)  ♦ XLTOT*DDY 

ALl 

116. 

XK3G  - DYOA*LPSI*SI NPHI *5 1 NGAn/ COSG AN**2 

ALl 

117. 

0PA2  = (XK2RA  4 XX2R0«PA2 1/XA20 

ALl 

118. 

OOX  = -X0EL*DPA2  4 OBR* S I NA  - ORAGRA 

ALl 

119. 

DDY  = -Y0EL4DPA2  - OBR^COSA  4 lIFTRA 

ALl 

120. 

XA3R  = VLV'OO*  4 KLTOT+OO* 

ALl 

121. 

DPA2  = <XK2NA  4 XK2H0*PA2 1/XX20 

ALl 

122. 

DOX  = -X0El*DPA2 

ALl 

123. 

DDY  = -Y0EL*DPA2  ♦ LIFTNA 

ALl 

129. 

XK3N  = VLV»DDX  4 XLT0T*0DY 

ALl 

125. 

VOA  = V«0XDA 

ALl 

126. 

GOA  s C05PHI *0Y0A 

ALl 

127. 

PDA  * SINPHI /C05GAN*0YDA 

ALl 

120. 

c 

COHPUTE  PARTIAlS  t*ITH  RESPECT  TO  IN-PlANE  CONTROL. 

ALl 

129. 

1002 

0PA2  = ( XK2TA  4 XK2TD*P A2 )/ XX2D 

ALl 

130. 

OOX  = -5I0AE*O«PA2  - X0£L*DPA2 

ALl 

131  . 

DDY  = C00AE*0«PA2  - YDEl^BP A2 

ALl 

132. 

XK3T  - VLV*OOX  4 XLTOT*QDY 

ALl 

133. 

DPA2  s ( XX2DA  4 XK2DD+PA2  )/XK2D 

ALl 

139. 

OOX  = -V0EL40APA2  - X0EL-*0PA2 

ALl 

135. 

DDY  r XDEL*0flPA2  - YDEL4DPA2 

ALl 

136. 

XK3D  s VLV*DDX  4 XLTOT^DDY 

ALl 

137. 

DPA2  = ( XK2AA  4 XK2DA*P A2  )/ XK20 

ALl 

138. 

DDX  s VD£L*ONP A2  - X0El*0PA2  4 DB*COSA  - DRAGAA 

ALl 

139. 

DDY  = -XCEL*0NPA2  - YOEl*DP A2  4 DB*SINA  4 lIFTAA 

ALl 

190  . 

XK3A  s YL V*OOX  4 XLTOT«DDV 

ALl 

191  . 

c 

EVALUATE  CONSTRAINING  EQUATION. 

ALl 

192. 

1003 

XK3  - VLV*OXDA  4 XLTOT*DYOA 

ALl 

193. 

RETURN 

ALl 

199  . 

END 

ALl 

FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


storage  subroutine  usage 
BLOta  T5c  5 U0R  CODE  VAI* 


CODAE 


COSA 


COSGAft 


COSPHI 


DB 


OBR 


DRAGA 


cost  *-6£)  I *>»bo» 


/DVNA  /< 


COStt  1 S|«  syabol 


/DVNA  /< 


CO  87 


I S«*  sjabol 


/DVNA  /( 


COS# 


I 5 •€  IJflboJ 


I Base  dray 


/DYNA  /< 


(LBS)  /DYNA  /( 


8D.  / 3R  1 St«  *y*bel 
0 


/DYNA  /( 


30/dtt  * St«  syabol 


/DYNA  /( 


151)  AL1 

l 

CODAE 

ALY 

J 

CODAE 

AL6 

I 

CODAE 

alt 

1 

CODAE 

alb 

1 

CODAE 

AL9 

I 

CODAE 

APPLY 

I 

COOAE 

contrl 

I 

CODAE 

nldrv 

I 

CODAE 

TH3 

1 

CODAE 

UT 

0 

CODAE 

10)  AL1 

1 

COSA 

ALA 

I 

COSA 

AL6.„._ 

| 

COSA 

ALT 

~I 

COSA 

ALB 

1 

COSA 

AL9 

I 

COSA 

APPLY 

I 

COSA 

CONTRL 

1 

COSA 

NLDRV 

I 

COSA 

OUTPUT 

I 

COSA 

TH3 

I 

COSA 

UT 

A 

COSA 

H)  AL1 

I 

COSGAft 

ALA 

/ 

COSGAft 

alt 

I 

COSGAft 

alb 

J 

COSGAft 

. AL9 

I. 

COSGAft. 

CONTRL 

I 

COSGAft 

nldrv 

1 

COSGAft 

OUTPUT 

I 

C0S6Aft 

PDBCQL 

I 

COSGAft 

STATEF 

ft 

COSGAft 

93)  AL) 

I 

COSPHI 

ALH 

I 

COSPHI. 

APPLY 

I 

COSPHI 

ARC1N 

0 

COSPHI 

CONTRL 

ft 

COSPHI 

OUTPUT 

I 

COSPHI 

163)  ALl 

I 

OB 

ALA 

I 

DB 

AL6 

I 

OB 

ALT 

I 

OB 

ALB 

I 

DB 

ALA 

1 

DB 

APPLY 

I 

DB 

CONTRL 

I 

DB 

nlorv 

1 

DB 

OUTPUT 

1 

OB 

STATEF 

1 

OB 

TH3 

1 

DB 

UT 

I 

DB 

86)  ALl 

I 

DBR 

ALA 

] 

DBR 

AL6 

I 

DBR 

ALT 

i 

OBR 

alb 

I 

DBR 

AL9 

1 

DBR 

APPLY 

1 

DBR 

STATEF 

I 

DBR 

TH3 

I 

DBR 

UT 

I 

DBR 

T2)  ALl 

I 

DRAGA 

AL5 

I 

DRAGA 

ALT 

I 

DRAGA 

ALB 

I 

ORAGA 

ALA 

I 

OR  ASA 

APPLY 

I 

ORAGA 

T M3 

I 

ORAGA 

UT 

ft 

DRAGA 

6 OCT  12  G.01-Y9 


rQ 


FORTRAN 

SYflBOL 


AATM 

SVflBOL 


COOE 


DESCRIPTION 


storage  subroutine  usage 

BLOCK  lOC  SUBR  CODE  VAR 


azD/a*2 


DRAGRA  dio/dHd* 


3RASVA  a2o/9Vd* 


GDA  -13) 

a7 

LGAfl 


LIFTA 


dL/da 


UFTAA  a2L/3o2 


liftaa  a2L/a»a« 


LIFTRA  a2L/aR9a 


liftva  a2L/ava« 


I Sn  i|«bel 


) See  sjabil 


I See  i)Mbel 


0 Explicit  partial  of  K*  ^ * art  »h«n  • It  optiaal. 

1 Relative  flight  path  angle  costata 

I Saa  syahel 

I Saa  t y aha  I 


I Saa  tyabel 


I Saa  lyabal 


1 Saa  syatal 


/DVNA 

/( 

78)  AL1 

I 

DRA6AA 

AL5 

I 

DRA6AA 

AL7 

I 

DRA6AA 

AL6 

I 

DRAGAA 

AL9 

I 

DR  A 6 A A 

APPLY 

I 

DRAGAA 

T M3 

I 

DRAGAA 

UT 

fl 

DRAGAA 

/OVNA 

/( 

77  ) ALl 

I 

DRAGRA 

AL5 

J 

DRAGRA 

Al7 

I 

DRAGRA 

AL8 

I 

DRAGRA 

AL9 

I 

ORAGRA 

APPLY 

1 

DRAGRA 

TH3 

I 

DRA6RA 

UT 

fl 

DRAGRA 

/DVNA 

/( 

75)  AL1 

I 

DRAGVA 

AL5 

I 

DRA6VA 

AL7 

) 

DRAGVA 

ALB 

1 

DRAGVA 

Al9 

I 

DRAGVA 

apply 

I 

DRAGVA 

TH3 

I 

DRAGVA 

UT 

fl 

DRAGVA 

/MATS 

/( 

17)  AL6C0N 

I 

GOA 

AL1 

0 

GDA 

/O 

/( 

101)  AL1 

I 

LGAfl 

ARCIN 

I 

LGAfl 

CONTRL 

I 

LGAfl 

NLDRV 

I 

LGAfl 

OUTPUT 

I 

LGAfl 

URAPUP 

I 

LGAfl 

/ 0 YNA 

/( 

63)  ALl 

1 

LIFTA 

AL9 

I 

LIFTA 

AL5 

] 

LIFTA 

AL6 

1 

LIFTA 

APPLY 

1 

LIFTA 

TH3 

1 

LIFTA 

UT 

0 

LIFTA 

/DVNA 

/I 

199)  ALl 

I 

LI  FT  AA 

AL9 

1 

LI  FT  AA 

AL5 

I 

LI  FT  AA 

AL6 

I 

LI  FT  AA 

APPLY 

I 

LI  FT  AA 

TH3 

I 

LIFTAA 

UT 

0 

LI  FT  AA 

/DVNA 

/( 

85 ) ALl 

I 

LIFTAA 

AL9 

I 

LIFTAA 

AL5 

I 

LIFTAA 

AL6 

1 

LIFTAA 

APPLY  ‘ 

I 

LIFTAA 

TH3 

I 

LIFTAA 

UT 

0 

LIFTAA 

/DVNA 

/( 

68)  ALl 

I 

LIFTRA 

AL9 

1 

LIFTRA 

AL5 

1 

LIFTRA 

AL6 

I 

LIFTRA 

APPLY 

I 

LIFTRA 

TH3 

I 

LIFTRA 

UT 

0 

LIFTRA 

/DVNA 

/( 

66)  ALl 

1 

LIFTVA 

AL9 

I 

LIFTVA 

AL5 

I 

LIFTVA 

AL6 

I 

LIFTVA 

APPLY 

I 

LIFTVA 

. TH3 

I 

LIFTVA 

UT 

0 

LIFTVA 

6 OCT  72  6.01 -99 


DESCRIPTION 


5 1 OR  AG 

block 


SUBROUTINE 

lull tobt 


% I n( a- SE ) 


I Relative  azlauth  angle  costate 

1 Relative  velocity  costate 

* .*<2  >/K<2> 

0 EipllcH  partial  of  K*  ^ > art  shin  a Is  optiaal. 

1 See  syafcol 


SJNR  8{  no 


See  syafaal 


S I NGAft  Si  „7 


SINPHI  sin#  1 Sc* 


X I Tkrsit 


/D 

/( 

102) 

ALl 

I 

LPSi 

ARON 

I 

LPS 1 

CONTAL 

1 

LPSI 

nlorv 

I 

LPSI 

OUTPUT 

I 

LPSI 

URAPUP 

I 

LPSI 

/O 

/{ 

100) 

ALl 

1 

LV 

CONTRL 

1 

LV 

NLDRV 

1 

LV 

OUTPUT 

I 

LV 

UBAPUP 

I 

LV 

/HATS 

/I 

260  ) 

ALGCON 

0 

PA2 

ALl 

ft 

PA2 

/HATS 

/( 

16) 

ALGCON 

1 

PDA 

ALl 

0 

PDA 

/DYNA 

/( 

152) 

ALl 

I 

SIDAE 

AL9 

I 

SI  DAE 

AL6 

I 

SIDAE 

AL7 

I 

SIOAE 

ALB 

I 

SIDAE 

AL9 

I 

SIDAE 

APPLY 

I 

SIDAE 

CONTRL 

I 

SIDAE 

TH3 

1 

SIDAE 

UT 

0 

SIDAE 

/OVNA 

/( 

9 ) 

ALl 

I 

SINA 

AL9 

1 

SINA 

AL6 

I 

SINA 

ALT 

I 

SINA 

AL0 

1 

SINA 

AL9 

I 

SINA 

APPLY 

1 

SINA 

CONTRL 

I 

SINA 

OUTPUT 

I 

SINA 

TH3 

I 

SINA 

UT 

« 

SINA 

/DYNA 

/( 

3 ) 

ALl 

I 

SINGAft 

AL9 

I 

S I N6Aft 

ALl 

I 

SIN6AW 

AL8 

1 

SINGAft 

AL9 

I 

SINGAft 

CONTRL 

l 

SINGAft 

NLDRV 

I 

SINGAft 

PDBCQL 

1 

SINGAft 

5TATEP 

ft 

SINGAft 

/DYNA 

/( 

92) 

ALl 

I 

SINPHI 

AL9 

I 

SINPHI 

APPLY 

I 

SINPHI 

CONTRL 

n 

SINPHI 

OUTPUT 

l 

SINPHI 

/DYNA 

/( 

92) 

ALGCON 

m 

T 

ALl 

1 

T 

AL9 

1 

T 

AL6 

1 

T 

AL7 

I 

T 

AL6 

I 

T 

AL9 

I 

T 

APPLY 

1 

T 

ARC1N 

0 

T 

CONTRL 

ft 

T 

DL2 

i 

T 

INPULS 

i 

T 

OUTPUT 

i 

T 

TH1 

i 

T 

TH2 

i 

T 

TH3 

i 

T 

TH9 

i 

T 

6 OCT  72  6.01-*** 


FORTRAN 

SVNBOL 


RATH 

SvnBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK  LOC  TuBPCODE VAR 


V 


V0A 


V 


I Ralativa  valeclty. 


0 Eiplfcft  partial  of  K^)  art  X,  ahan 


(FT/SEC)  /D  /<  91  ) ALl  IV 

fklH  I V 
AL7  I V 
ALB  I V 
AL9  1 V 
BCOWD  7 «0« 

BNDRV  0 NOn 
BRANPT  n NOn 
COWTRL  I V 
EN0PT  I WOn 
ENVPRQ  1 V 
FETCH  0 NOW 
INTERP  n V 
INTRPT  n won 
WLDRV  o won 
NLORV  I V 
OUTPUT  I V 
PDBCQL  I V 
STATEF  I V 
WRAP UP  I V 

Is  optfaaf.  /WATS  fi  16)  ALGCOW  I VDA 

ALl  0 VDA 


6 OCT  72  6.01-99 


SUBROUTINE 

AL2 


Purpose 


AL2  evaluates  the  constant  angle  of  attack  constraint.  Equation  5.2-1 
in  Vol.  I. 


*6 

V 


AL2 


1. 

2. 
3. 
9 . 

5. 

6. 

7. 

8 . 
9. 

10. 

11.. 

12. 

13. 

19. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 
23. 
29. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
39. 

35. 

36. 

37. 

38. 

39. 

90. 

91. 

92. 


Subroutine  al2 

THIS  ROUTINE  APPLIES  WHEN  ALPHA  IS  A CONSTANT 

logical  switch  iloao 

REAL  NACH  ISP,  ISPV,  ISPR,  JSPfl,  JSPT,  JSPVVA  ISPVR,  ISPVfl, 
♦ISPVT,  I SPRR , I5PRN  ISPRT,  ISPNPL  ISPNTA  1SPTT.  LIFT  Li FTV, 
♦LlFTR,  LIFTA,  LIFTVV,  LIFTVR,  LIFT  VA,  LIFTRR,  LIFTRA,  NUR,  LI  FT  AA, 
♦IRATEB,  ISPF,  ISPFF 
REAL  NACHV,  NACHR,  NACHVR,  NACHRR 
REAL  LlFTN  LIFTVN,  HFTRN,  LIFTNN,  L I F T N A 

connON  /ovna/ 

♦ XX  ,TI«E  ,$I«6AH,C0$GAN,OflEGA  , GNEGA2.R  ,G  ,SI#A 

♦ COSA  ,OYM011,ONEGATTANP  ,PA  ,R0  ,CS  , TENPR  ,PAR 

♦ ROR  ,CSR  , TENPRR  PARR  .flORfl  .CSRfl  'xOOE  ,NACH  ,0 

♦ QV  , OR  ,QVV  , QVR  , ORR  ,FVAC  ,FVACV  ,FVACR  ,FVACN 

♦FVACT  ,FVACVV,FVACVRFVACRR,FVACTT,T  ,NACHV  , NACHR  . I SP 

♦ISPV  , I SPR  , I SPN  ,ISPT  , I SPV V , I SP VR  ,ISPVN  ,ISPVT  ,ISPRR 

♦ISPRn  , I SPRT  . ISPnn  ,ISPNT  ,1SPTT  ,lift  'liftv  .liftr  .LIFTA 

♦liftvv, li ft vr,liftvaliftrr, liftra, drag  ,oragv  ,dragr  ,draga 

♦ORAGW^ORAGvRORAGVAORAGRR.ORAGRAORAGAAAlPHA  ,PHI  , LIFTA 

♦ LIFT VN, l I FTRN, LIFTNN, LI  FTNA  OBR  , OftRR  ,6ANNAD,AE  .TAX 

♦W  , SINPHI ,C0SPHISINPS1 ,C0$PSI,SINRW0,C0SRH0,SIHR0R,C0$R0R 

♦ NUR  ,XK6  , XXP  , AX  I N ,CDO  ,C00N  #CLO  ,FX  ,XCGA 

♦XCGAA  ZCoA  .ZCGAA  .XJV  ,XJR  ,XJVV  #XJvR  .XJRR  .AACHVR 

♦nachrr,sin2RO,cos2RO/coS2&n,cn  ,cna  ,cnn  ,cnaa  , cnnn 

♦CAAA  #CAG  C AOA  , CAOAA  .CAAAA  .ULFTV  .ULFTfl  , UlFT V V , ULFT VR 

♦ulftva,ulftrr,ulftra,ipow  ,xarc  ,tstart,gh  ,grr  ,liftaa 

♦CDOAA  ,CLANN  ,ClON  ClOAA  ,DYN199,CT  ,cooae  ,sioae  ,cod 
♦sio  ,oeltae,co£  ,xcg  ,zcg  ,u  #xacg  , calpha , alaax 

♦db  ,ulft  ,culft  ,ulfta  ,tstage, tines  ,xacgaa,irated,frateo 

coaaon  /ovna/ 

♦ATT  ,J1  ,J2  , J3  #XACGA  ,FVACF  ,ULFTAA,1SPF  , ISPFF 

♦ILOAO  ,FKN  FXAA  , switch, inqf  ,cl  ,Cla  ,Cl*  ,claa 
♦CLAfl  ,CLAA  ,CD  ,COA  ,CON  ,COAA  ,COflN  ,COAN  ,0YN19fi 

♦OYN199,DYN200,XAC6V  ,XACGR  , XACGA  # XACGV V , XACGVR , XACG V A, XACGVA 

♦xncgrr , xncgbn, xncgra  xacgaa, xhcgaa, rorrr  , ovn219,dyn215.dyn216 

♦ DYN217,10AA  T A I fid  , TA1RBV . TAIRttH, TARBV V,TARBHH, TAfiBVH, SFC 

♦ SFCV  . SFCH  . SFCV V ,SFCHH  ,SFCVH 
DIAENSION  PRO0l(2,  69) 

COAAON  /HATS/ 


AL2 

AL2 

AL2 

AL2 

AL2 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

0YNA 

DYNA 

JUL21 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

0 YNA 

DYNA 

J Ul2  1 

AU6Q9 

WATS 

WATS 


93. 

♦ PI 

,P2 

,P3 

# XX 1 

,XX2 

, XX3 

, XX  IT 

,XX2T 

, XX3T 

NATS 

99. 

♦ XX  1 D 

, XX 2D 

,XK30 

, XX 1 A 

,XX2A 

, X X 3 A 

, VDA 

, GOA 

.PDA 

NATS 

95. 

♦ XN1 9 

, XN20 

, XN2 1 

, XN22 

, XX 1 TT 

. XX2TT 

, XX3TT 

, XX 1 TO 

, XX2T0 

NATS 

96. 

♦XX3T0 

, XX1TA 

XK2TA 

XX  3 T A 

,XXI00 

, XX200 

XX  300 

, XX iOA 

, XX2DA 

NATS 

97. 

♦XK30A 

, XX 1 A A 

, XK2AA 

XX  3 AA 

,XN9l 

, XN9  2 

,XN93 

,XN99 

,XN95 

NATS 

98. 

♦ XXIV 

, XX2V 

, XX 3V 

, XX  1 G 

,XX2G 

, XX3G 

,XX1P 

f XX2P 

,XK3P 

NATS 

99. 

♦ XX 18 

, XX2R 

, XX3R 

; xx  io 

,XX20 

, XX30 

, XX  1 u 

, XX2U 

'XX3U 

NATS 

50. 

♦ xxin 

, XX2N 

, XX3N 

, XX1Z 

, XX2Z 

, XX3Z 

, XX 1 VT 

, XX2VT 

, XK  3 VT 

NATS 

51. 

♦xxivo 

,XX2VD 

XK3  VO 

, XXI  VA 

,XX2VA 

, XX  3VA 

XX  1 GT 

, XX2GT 

, XX3GT 

NATS 

.52. 

♦XK1GD 

, XX2G0 

, XX 3GD 

, XX  IGA 

, XX2GA 

, X X 36 A 

XX  1 P T 

, XX2PT 

, XX3PT 

NATS 

53. 

♦XX1PD 

, XK2PD 

, XX  3PD 

, XX  IP A 

, XX2PA 

, XX3PA 

, XX 1RT 

, XK2RT 

, XK3RT 

NATS 

59. 

♦XK1RD 

XX2RD 

, XX  3RD 

, XX 1 RA 

,XX2RA 

, XX  3R A 

, XX 10T 

XX20T 

, XX30T 

NATS 

55. 

♦XX 1 OD 

, XX20D 

, XX300 

, XX 10 A 

,XX20A 

, XX  30A 

, XX 1 UT 

, XX2UT 

,XX3UT 

NATS 

56. 

♦XK1UD 

, XX2UD 

XK3U0 

, XX1UA 

, XKZU A 

, XX3UA 

,XXINT 

, XX2NT 

, XX3NT 

NATS 

57. 

CONNOR 

/NATS/ 

NATS 

58. 

♦XK1ND 

.XX2N0 

, XX  3ND 

, XX1NA 

, XK2NA 

XX  3NA 

XX 1 ZT 

, XK2ZT 

, XK32T 

NATS 

59. 

♦XK12D 

, XX2ZD 

, XX  3ZD 

, XK1ZA 

, XK2Z A 

, X X 3 Z A 

, XXI  vv 

, XK2VV 

,XX3VV 

NATS 

60. 

♦XX 1 GV 

, XX2GV 

, XX36 V 

,XX1PV 

,XX2PV 

XX  3P  V 

XX 1 R V 

, XX2RV 

XX  3R  V 

NATS 

61. 

♦xxiov 

XX20  V 

, XX30V 

,XX1UV 

, XK2U V 

,XX3UV 

XX  IN V 

.XX2NV 

, XX3NV 

NATS 

62. 

♦xxizv 

XX2ZV 

XX  3Z  V 

, XX 1 66 

, XK26G 

, XX3GG 

XX  IPG 

, XX  2P  G 

, XX3P6 

NATS 

63. 

♦XK1RG 

XK2RG 

, XX 3RG 

, XX  1 06 

, XX20G 

XX  306 

, XX 1 UG 

,XX2U& 

, XK3UG 

NATS 

69. 

♦XX 1 nG 

XK2NG 

, XX  3NG 

, XX 1 ZG 

, XX2Z6 

, XK3ZG 

,XX1PP 

,XX2PP 

, XX3PP 

NATS 

65. 

♦XXI RP 

, XX2RP 

, XX3RP 

,xxiop 

, XX20P 

, XX  30P 

, XX 1 UP 

, XX2UP 

, XX3UP 

NATS 

66. 

♦ XX l NP 

XK2NP 

, XX  3NP 

,XX1ZP 

, XX2ZP 

, XX  3ZP 

XX 1 RR 

, XK2RR 

, XX3RR 

NATS 

67. 

♦XK10R 

XK20R 

, XX 30R 

, XX 1 UR 

, XK2UR 

, XX3UR 

, xx inR 

, XK2NR 

XK3NR 

NATS 

68. 

♦XX 1 ZR 

XX2ZR 

, XX 3ZR 

,XX10O 

, XK200 

, XX  300 

,xxiuo 

,XX2U0 

,XX3U0 

NATS 

69. 

♦XX1N0 

.XX2N0 

, XX3N0 

,XX1Z0 

, XK2  ZO 

, XX3Z0 

, XK 1 UU 

, XX2UU 

, XX3UU 

NATS 

70. 

♦XK1NU 

, XX2NU 

,XX3NU 

, XX1ZU 

, XX2ZU 

, XX 3ZU 

XX  1 NN 

, XX2NN 

, XX3NN 

NATS 

71. 

♦XX 1 ZN 

.XX2ZN 

r XX 3ZN 

, XX 1 zz 

, XK2ZZ 

, X X 3ZZ 

. xxPiu 

, XXPI21 

XXP I 3 1 

NATS 

72. 

♦XXPI12 

, XXP 122 

, XXP I 32 

,XXPI  13 

, XXP I 23 

, XXP  I 33 

i , P A 1 

,PA2 

NATS 

79. 

75. 


♦ DPDVI3,  fl>,  DEPDEY(2,  8),  DPDK  3,  3),  PR0D5<  3,  69),  PR0D9I2,  29  > 
COflHON  /AAts/ 


NATS 

NATS 
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X 

X 

/ S 


7b. 

77 . 

78. 

79. 

80. 
81. 
82. 
83. 
89. 
85. 


B I . 
86. 


C 


C 


*PV  ,PG  ,PP  ,PR 

•POV  ,P6G  ,PPG  ,PRG 

*POR  ,P00  . PLG  .PLP 

EQUrVA£ENCE<Ptftf01,PRtf05J 

ENTRY  AL2002 
ENTRY  AL2001 
90  XK3A  = 1. 

ENTRY  AL2000 
50  XX3  = ALPHA  - CALPHA 


RETURN 

ENO 


,P0 
. POG 


. PVV 

,ppp 


,PGV 

,PRP 


,PPV 

.POP 


, PR  V 
, PRR 


HATS 

HATS 

HATS 

*A75 

AL2 

AL2 

AL2 

AL2 

AL2 

AL2 

AL2 

AL2 

AL2 
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FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE 

TOTcc  l5T 


SUBROUTINE  USAGE 
SUBR  CODE VAR 


ALPHA 

a 

I Angle  of  attack 

( RAD  ) 

/DVNA 

/( 

79  > 

AEROCO 

I 

ALPHA 

ALSCON 

n 

ALPHA 

AL2 

1 

ALPHA 

ARCIN 

it 

ALPHA 

CONTRL 

It 

ALPHA 

ENVPRQ 

I 

ALPHA 

HOnECO 

I 

ALPHA 

NPLANE 

I 

ALPHA 

OUTPUT 

l 

ALPHA 

TflAJ/N 

0 

ALPHA 

UT 

i 

ALPHA 

WRAP  UP 

i 

ALPHA 

CALPHA 

C 

I Value  for  angle  of  attack 

in  case  constant  angle  of 

/DVNA 

/( 

161  ) 

AL2 

i 

CALPHA 

• 

attack  constraint  is  unci. 

( R A05  > 

NPLANE 

0 

CALPHA 
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SUBR0UT I NE- 
ALS 


Purpose 

AL3  evaluates  the  untrimmed  lift  constraint.  Equation  10.4-1  in  Vol.  I. 
In  addition,  it  computes  the  explicit  first  and  second  partials  of  this 
constraint  with  respect  to  the  state  and  control  as  they  are  needed. 


1. 

2. 
3. 
9. 

5. 

6. 
7. 
6. 
9. 

10. 

n. 

12. 

13. 


SUBROUTINE  AL3 

THIS  ROUTINE  APPLIES  UHEN  THE  UNTRINNEO  LIFT  LINIT 
IS  IN  EFFFCT. 

LOGICAL  SNITCH,  ILOAO 

REAL  flACH,  ISP  1SPV,  ISPR,  ISPrt,  ISPT,  ISPYY*  1SPYR,  ISPVN, 

• ISPVT,  I SPRR,  ISPRrt,  ISPRT,  ISPrtrt,  ISPrtT,  ISPTT,  LIFT,  LIFT*, 
♦LIFTR.  LIFTA,  LIFT**,  liftyr,  LlFTVA,  LlFTRR,  LlFTRA,  NUR,  LlFTAA, 
ORATED,  I SPF , ISPFF 
REAL  ftACHV,  NACHR  NACHYR,  NACHRfi 
REAL  L1FTN,  LlFTYrt,  LlFTRft,  LlFTrtrt,  lIFTNA 
COnnON  /DYNA/ 


AL3 

AL3 

AL3 

AL3 

AL3 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

OYNA 

DYNA 

DYNA 


15. 

♦cosa  'dynoh^onegat't  anp 

,PA 

,R0 

,cs 

, TENPR 

'par 

/ 

DYNA 

16. 

♦ ROR  ,CSR  , TENPRR . PARR 

,RORR 

,CSRR 

, KODE 

, NACH 

a 

DYNA 

17. 

♦ OY  .OR  .OVV 

, Q YR 

,ORR 

, F YAC 

!fyacy 

,fyacr 

' F YACrt 

DYNA 

18. 

♦FVACT  ,FVACVY,FVACYR,FVACBfi 

,FYACTT 

,T 

rtACHV 

, rtACHR 

,ISP 

DYNA 

19. 

* 1 SP  Y I SPR  , I SPfl 

, 1 SPT 

,ISPYY 

ISPYR 

I SP  Yrt 

, I SP  YT 

' 1 SPRR 

DYNA 

20. 

♦ISPRrt  , I SPRT  , 1 SPrtrt 

, 1 SPflT 

, ISPTT 

,LlFT 

'lifty 

, L I FTR 

>1FTA 

DYNA 

21. 

♦LlFTVV,LlFTYR,LlFTVA,LlFTfifi 

, LlFTRA 

DRAG 

DRAGV 

DRAGR 

DRAGA 

DYNA 

22. 

♦oragvyoragvr,oRagya,oragrr 

, OR AGRA 

0RAGA4 

, ALPHA 

!lift« 

DYNA 

23. 

♦LlFTYrt.LlFTRrt, LIFT Nrt. LIFT HA 

,D8R 

DBRR 

GArtrtAD 

.ae 

'tax 

DYNA 

29. 

*W  ,SINPHI, C0SPH1 

, SINPS1 

,COSPSI 

S I NRHG 

COSRHO 

. S I NROR , COSROR . 

DYNA 

25. 

♦ NUR  , XK6  ,XKP 

AKIN 

, CD0 

, COON 

, clo 

,FK 

.XCGrt 

DYNA 

26. 

♦XCGrtrt  ZC6N  , ZCGrtrt 

,XJY 

,XJR 

,XJYY 

, X J YR 

, X JRR 

.NACHYR. 

DYNA 

27. 

♦rtACHRR, SIN2RO,COS2RO 

, C0S2GH 

,Crt 

CrtA 

,cnn 

.CI9AA 

.Cnnn 

DYNA 

28. 

♦CrtArt  .CflO  .CrtOrt 

.Crtonn 

,CrtArtrt 

ULFT  Y 

,ULFTR 

.UlFTYY.UlFTYR. 

DYNA 

29. 

*ulftya,ulftbr,ulftra,ipoh 

, XARC 

TSTAPT 

6H 

, GRR 

.LlFTAA, 

DYNA 

30. 

♦cdonn  ,cla«n  ,Clon 

,CL0nn 

, DVN199 

CT 

CODAE 

.SIDAE 

.COD 

DYNA 

31. 

♦SID  , OELTAECOE 

, XC6 

, ZCG 

, X J 

, XNCG 

.CALPHA. AlNAX 

DYNA 

32. 

♦ DB  ,ULFT  , CULFT 

, ULFTA 

,TSTAGE 

, T I rtES 

, XfiC  GA A 

, I RATED . FRATED 

DYNA 

33. 

COrtrtON  /DYNA/' 

DYNA 

39. 

•NTT  ,J1  ,J2 

,J3 

, XNC6A 

F YACF 

,ULFTAA 

, I SPF 

, ISPFF 

DYNA 

35. 

* I LOAD  , FKN  ;FKNN 

, SNITCH 

, INOF 

,CL 

,CLA 

:clr 

,CLAA 

DYNA 

36. 

• CLNN  ,CLArt  ,C0 

, COA 

, con 

, COAA 

, conn 

.CDAN 

.OYN196 

OYNA 

37. 

*DYN199,DYN200,XNCGV 

xrtCGR 

, xnCGn 

XrtCGY Y 

, XrtCGYR 

. XNCGYN. XNCGVA. 

DYNA 

38. 

•XHCGRR, XrtCGRrt, XrtCGRA 

,xnCGrtrt 

, XNCGPtA 

RORRR 

0YN2 1 9 

. DVN215 

.0YN216. 

DYNA 

39. 

•DYN217  IDAN  ,TAIRd 

TAI R6Y 

T A I R &H 

, TABBY  Y 

, T AR&HH 

.TARBYH.SFC 

* 

JUL21 

90. 

• SFCV  . SFCH  . 5FC  Y Y 

. SFCHM 

, SFCYH 

AU609 

91 . 

DlrtENSl ON  PROD  1 ( 2.  69 > 

NATS 

92. 

COrtrtON  /NATS/ 

NATS 

93. 

• PI  ,P2  , P 3 

, XK  1 

,XK2 

, XK3 

, XK  IT 

, XK2T 

,XK3T 

NATS 

99. 

• XK  ID  , XK2D  , XK30 

XK  1 A 

, XK2A 

, XK3A 

, YOA 

, GOA 

PDA 

NATS 

95. 

•XN19  , XN20  , XN2 1 

Xrt22 

, XK I TT 

XK2TT 

,xk3tt 

, XK  1 TO 

XK2TD 

NATS 

96. 

• XK3TD  , XX  IT  A XK2T  A 

XK3TA 

,XK!OD 

XK2DD 

XK  300 

, X K 1 DA 

XK2DA 

NATS 

97. 

• XK 3DA  , XK  1 AA  ,XK2AA 

, XK3AA 

,XfI9l 

, Xrt92 

' Xrt9  3 

,XN99 

,Xrt95 

NATS 

98. 

• XK1Y  , XK2Y  , XK3  V 

, XK  1 G 

, XK2& 

, XK 3G 

, XK  IP 

,XK2P 

' XK3P 

NATS 

99. 

• XK1R  ,XK2R  , XK3R 

, XK  1 0 

, XK20 

' XK30 

, XK  1U 

,XK2U 

XK3U 

NATS 

50. 

♦ XRlrt  , XK2N  , XK3N 

XK  1 Z 

, XK22 

, XK  32 

, XK 1 YT 

, XK2 YT 

XK3YT 

NATS 

51. 

• XK 1 VD  , XK2V0  , X K 3 VD 

XK  1 Y A 

XK2  YA 

XK  3 V A 

, XK 1 GT 

,XK2GT 

XK3GT 

NATS 

52. 

•XK 1 GD  , XK2G0  , XK3GD 

XK  1 GA 

, XK2GA 

XK3GA 

XK1PT 

XK2P  T 

' XK3PT 

NATS 

53. 

•XK1PD  , XK2PD  , XK3PD 

XK  1PA 

, XK2P A 

XK3P  A 

,XK1RT 

XK2RT 

' XK3RT 

NATS 

59. 

• XK 1 RO  XK2R0  XK  3RD 

XK  1 R A 

, XK2RA 

XK  3R  A 

XK  10T 

, XM20T 

' XK307 

NATS 

55. 

• XK 100  , XK200  , XK  300 

XK  IOA 

XK20A 

X K 30  A 

XK  1UT 

,XK2UT 

XK3UT 

NATS 

56. 

• XK 1 UO  , XK2UD  XK3UD 

, XK 1UA 

, XK2UA 

, XK3UA 

, XK IrtT 

, XK2AT 

' XK3NT 

NATS 

57. 

COrtrtON  /NATS/ 

NATS 

58. 

• XK1N0  , XK2ND  XK 3rtD 

XK  IrtA 

XK2rtA 

XK3NA 

, XK 1 ZT 

, XK2ZT 

XK3ZT 

NATS 

59. 

• XK1Z0  , XK 2ZD  , XK3ZD 

XK  1 ZA 

XK2ZA 

X K 3 Z A 

XK  1 Y V 

, XK2YY 

XK3YY 

NATS 

60. 

•XK1GY  XK26V  XK3G  Y 

XK  1 P V 

, XK2P Y 

, XK3PY 

XK  1 R Y 

, XK2R  Y 

XK3R  V 

NATS 

61 . 

• XK  10  Y , XK20V  , XK  30  Y" 

XK  1 U Y 

XK2U  Y 

. XK3UY 

XK  IrtY 

, XK2NY 

XK  3NY 

NATS 

62. 

• XK1ZY  , XK22 Y , XK 3Z Y 

XK  I G6 

XK2GG 

, XK3GS 

XK  1 PG 

XK2PG 

XK3P6 

NATS 

63. 

•XK 1 RG  , XK2RG  ,XK3RG 

'XKIOG 

, XK20G 

XK  30G 

XK  1 UG 

XK2UG 

, XK3U& 

NATS 

69. 

♦ XK  1 PIG  XK2NG  ,XK3flG 

XK  1 ZG 

, XK2ZG 

XK3ZG 

XK  1PP 

, XK2PP 

' XK3PP 

NATS 

65. 

♦ XK1RP  , XK2RP  XK  3RP 

XK  10P 

, XK20P 

X K 30P 

, XK 1 UP 

XK2  UP 

XK3UP 

NATS 

66. 

♦XKlftP  ,XK2rtP  XK3rtP 

XK  1 ZP 

, XK2ZP 

, XK3ZP 

, XK 1 RR 

XK2RR 

' XK  3RR 

NATS 

67. 

♦ XK10R  , XK20R  XK 30R 

XK  1 UR 

,XK2UR 

XK  Sufi 

XK  lrtR 

XK2NR 

' XK3NR 

NATS 

68. 

♦XK1ZR  , XK2ZR  XK3ZR 

XK  1 00 

, XK200 

XK  300 

XK  lUO 

XK2U0 

, XK3U0 

NATS 

69. 

♦ XKlrtO  ,XK2P10  ,XK3rtO 

XK  I ZO 

XK2Z0 

XK  3Z0 

XK  1 UU 

XK2UU 

, XK3UU 

NATS 

70. 

♦ XKlrtU  , XK2NU  , XK  3PiU 

XK  1 ZU 

, XK2ZU 

XK  3ZU 

XK  I NN 

, XK2rtN 

, xK3rtrt 

NATS 

71  . 

♦XK 1 Zrt  ,XK2Zrt  ,XK3 Zrt 

XK  1 ZZ 

, XK 2 ZZ 

XK3ZZ 

,xkpih 

XKP I 21 

XKP I 3 1 

NATS 

72- 

♦XKPI12,XKPJ22, XKPI32 

, XKP  11  3 

XKP 1 2 3 

, XKPI 33 

, P A 1 

, P A2 

NATS 

79. 

n . 


♦DPDYt  3 8),  DEPDEYI  2,  8),  0P0L13,  3),  PR0D5<  3,  69  >,  PR0D9(2,  29) 

COrtrtON  /NAtS/ 


NATS 

NATS 
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76. 

77. 

78. 

79. 

60.  C 

81.  C 

82.  C 

83. 

89. 

85. 

86. 

87.  C 
68.  C 

89. 

90. 

91. 

92.  C 

93. 

99. 

95. 

96.  C 

97. 

98. 

99.  C 
100. 

101. 

102.  C 

103. 

109. 

105.  C 

106. 

107. 


*PV  ,P6  ,PP  ,PR  ,P0  ,PVV  P6V  ,PPV  ,PRV  , RATS 
♦ POV  , P66  ,PP6  PRG  ,POS  ,PPP  ,PRP  ,POP  ,PRB  , HATS 

•POR  ,P00  ,PL6  >LP  HATS 

EQUIVALENCE! PR0D1  Pr605  ) HATS 

Al3 

THIS  ENTRY  COMPUTES  EXPLICIT  SECOND  PART  I ALS  OF  THE  AL3 

CONSTRAINING  EO.  W/RESPECT  TO  STATE  AL3 

ENTRY  AL3020  Al3 

XX3VV  = ULFTVV  Al3 

XR3RV  = ULPTYR  AL3 

XK3RR  = ULFTRfi  AL3 

THIS  ENTRY  COMPUTES  rtlXED  SECOND  PARTS.  W/ RESPECT  AL3 

TO  STATE  AND  CONTROL.  Al3 

ENTRY  AL30U  AL3 

XR3VA  = ULFTVA  AL3 

XK3RA  -s  ULFTRA  AL3 

THIS  ENTRY  COrtPuTES  FIRST  PARTS  N/RESPECT  TO  STATE  AL3 

ENTRY  AL3010  AL3 

XX3V  = ULFTV  AL3 

X*3R  = ULFTR  AL3 

THIS  ENTRY  COflP.  2ND  PARTS  W/RESP.  TO  CONTROL.  Al3 

ENTRY  AL3002  AL3 

30  XK3AA  = ULFTAA  AL3 

THIS  ENTRY  COrtP.  1ST  PARTS  W/RESP.  TO  CONTROL  Al3 

ENTRY  AL3001  Al3 

90  XK3A  = ULFTA  Al3 

THIS  ENTRY  EVAL.  C0STRAININ6  EQ.  ONLY  Al3 

ENTRY  AL3000  Al3 

50  XK3  = ULFT  - CULFT  Al3 

Al3 

RETURN  Al3 

ENO  Al3 
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FORTRAN 

SYMBOL 


MAT  H 
SYMBOL 


COOC 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK  L 0 C TuBRCODI  VAR’ 


CULFT 

CL 

w 

! Magnitude  of  untriaaed  lift 

lait 

( LBS  ) 

/DYNA 

/( 

165  ) 

AL3 

NP  LANE 

I 

0 

CULFT 

CULFT 

ULFT 

L 

u 

I Untriaaed  oerodynaalc  lift 

(LBS  ) 

/DVNA 

/{ 

16M  ) 

AL3 

NP  LANE 
UT 

I 

1 

N 

ULFT 

ULFT 

ULFT 

ULFTA 

dL  /d« 
« 

I Saa 

ayabol 

/OYNA 

/( 

166  ) 

AL3 

UT 

I 

M 

ULFTA 

ULFTA 

ULFT  AA 

32L  /3o2 
u 

1 Saa 

ayabo  1 

/DYNA 

/l 

1 78  ) 

AL3 

UT 

I 

n 

ULFTAA 

ULFTAA 

ULFTR 

dL  /an 

a 

I Saa 

ayabo 1 

/DYNA 

/< 

133  ) 

AL3 

UT 

I 

M 

ULFTR 

ULFTR 

•JLFTRA 

d2L  / dRda 

V 

I Saa 

ayabol 

/DYNA 

/( 

138  } 

AL3 

UT 

1 

A 

ULFTR A 
ULFTRA 

ULFTRR 

32L  /3R2 

a 

1 Saa 

ayabo 1 

/DYNA 

/( 

137  ) 

AL3 

UT 

I 

M 

ULFTAA 

ULFTAA 

ULFTY 

dL  /dV 

« 

I Saa 

ay abo  1 

/OYNA 

/( 

132  ) 

AL3 

UT 

1 

A 

ULFTY 

ulfty 

ULFTYA 

a*L  /ava* 

u 

1 Saa 

ayabol 

/DYNA 

/( 

136  ) 

AL3 

UT 

I 

A 

ulftya 

ULFT  YA 

ULFT YR 

d2L  / d VdR 
ii 

I Saa 

ayabo 1 

/DYNA 

/< 

135  ) 

AL3 

UT 

I 

A 

ULFT  YR 
ULFTYA 

ULFTYV 

32L  / 3 V2 

u 

I Saa 

ayabo 1 

/DYNA 

/( 

13*  ) 

AL3 

UT 

I 

A 

ulftyy 

ULFT  YY 
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SUBR0UT I NE 
AL4 


Purpose 

AL4  evaluates  the  vertical  rise  and  pitchover  constraint.  Equation  10.1-1 
in  Vol.  I.  Moreover,  it  confutes  the  explicit  first  and  second  partials 
of  this  constraint  with  respect  to  the  state  and  control  as  they  are  needed. 


525  Z> 


AL9 


1. 

SUBROUTINE  AL9 

AL9 

2. 

C 

AL9 

3. 

C 

THIS 

routine  applies 

FOR 

VERT. 

RISE 

AND 

PICMOVER 

AL9 

9. 

c 

ALH 

5. 

c 

AL9 

6. 

real  wagbv,  wu,  w. 

LV,  LG AW,  LPS I , 

LR, 

LRHO, 

LWU, 

LW, 

LTAU,  NOW 

D 

7. 

8. 

♦.  LHT 
COf WON  /O/ 

D 

0 

9. 

♦ X H.  X I(  9 ) , MAGBV, 

, ERR,  D9,  DIO, 

C(90> 

, CSAVE(90 

, SAW,  PSI, 

D 

10.  •ALT,ftH0.WU,W,  TAU,  HT.  LV,  LGAW  LPSI,  LA,  LRHO,  LWU,  LW,  LTAU.'  JUL21 

11.  •LHT  0109,  0110.  B VC  HO  ) , ISAVE(io),  QTC 20),  NPOiwT(20).  6elTI 20 > 0 

12.  DIMENSION  N0m20>  0 

13.  EQUIVALENCE  (NON,  V)  0 

It.  LOGICAL  SWITCH,  ILOAD  OVNA 

15.  REAL  WACH,  I SP  ISPV,  ISPA,  ISPW,  ISPT,  ISPW,  ISPVAa  ISPVW,  DYNA 

16.  •ISPVT,  ISPRR,  fSPRrt,  ISPAT,  ISPWW,  ISPWT,  ISPTT,  LIFT,  LlFTY,  DYNA 

17.  *LlFTR,  LIFTA,  LIFTVV,  LIFTER,  LlFtVA,  LIFTRR,  lIFTAA,  HUA,  LlFTAA,  DYNA 

16.  *IRATE6,  ISPF  ISPFF  DYNA 

19.  REAL  WACHV,  WACHR  WACH VR  WACHRR  DYNA 

20.  REAL  LlFTW,  lIFTVW,  LIFTR&,  UFTWPI,  LIFTWA  DYNA 

21.  COMMON  /OY&A/  DYNA 


22. 

• XX 

, T I WE  , S I NGAfl 

, COSGAW 

,OWEGA 

.0WEGA2.R 

,G 

, S INA  , 

JUL21 

23. 

•COS  A 

DYNO 11, OflEGAT 

'tawp 

, PA 

;ro 

,CS 

'tewpr 

PAR  , 

DYNA 

.29. 

•ROR 

CSR  ,TEWPRR 

, P ARR 

'rorr 

,CSRR 

, XOOE 

MACH 

,6 

OVNA 

25. 

•QV 

OR  , Q V V 

QVR 

,QRR 

FVAC 

, F VACV 

'fvacr 

,FVACW  , 

DYNA 

26. 

•FVACT 

, F VAC V V , F VAC VR 

F VACRR 

F VACTT 

, T 

WACHV 

, wachr 

ISP 

OVNA 

27. 

• ISPV 

I SPR  ,ISPW 

,ISPT 

ISPVV 

I SP  VR 

,ISPVW 

' 1 SP VT 

'ISPRR  , 

OVNA 

26. 

•ISPRW 

ISPRT  ,ISP«W 

, I5PWT 

ISPTT 

, LIFT 

LIFTV 

,LIFTR 

,lifta  , 

DYNA 

29. 

• LlFTW 

,LIFT  VR,LlFTVA 

, Li  FTRR 

,LIFTRA 

.DRAG 

, DRAGV 

DRAGR 

DR AGA  , 

DYNA 

30. 

•DRAG V V 

OR AG VR , DR AG V A 

DRAGRR 

DRAGRA 

DRAGAA 

. ALPHA 

PHI 

LlFTW  , 

DYNA 

31. 

•LlFTVM 

LIFTRW,LIFTWW 

, L I FTWA 

D8R 

DBRR 

, GAWWAD,  AE 

, T AX 

DYNA 

32. 

•« 

S I NPHl , COSPH I 

,SINPSI 

,C0SPS1 

S I NRHO 

.COSRHO  SINROR 

, COSROR , 

DYNA 

33. 

• WUR 

XXG  , XXP 

, AX  I N 

,coo 

,COOW 

,CLO 

FX 

XCGW  , 

DYNA 

39. 

•XCGHW 

zcgw  ,zcGwn 

,XJV 

,XJfi 

,XJVV 

,XJVR 

XJRR 

WACHVR , 

DYNA 

35. 

•WACHRR 

S 1 N2R0 , COS 2R0 

C0S2GA 

,cw 

CWA 

,c«n 

\ CWAA 

, cwwrt  , 

DYNA 

36. 

• CWAW 

CWO  , CrtOrt 

,cwoww 

Cwaww 

,ulftv 

p ULFTR 

, ULFT  V V 

,ulftvr' 

OYNA 

37. 

•ULFTVA 

ulftrr,ulftra 

IPOW 

X ARC 

!tstart 

,GH 

, GAR 

, LIFTAA 

DYNA 

38. 

•CDOWW 

CtAWW  ,CLOW 

,CLOWW 

0VN1 9 9 

CT 

, COOAE 

S IDAE 

,coo 

OVNA 

39. 

• SID 

deltae,cde 

, XCG 

ZCG 

,XJ 

. xnCb 

.CALPHA 

,AlWAX  , 

DYNA 

90. 

•DB 

ulft  ,culft 

'ulfta 

TSTAGE 

TIMES 

. XWCGAA . 1RATED 

, FR ATED 

DYNA 

91. 

COHWON 

/DYNA/ 

DYNA 

92. 

• WTT 

J1  ,J2 

,J3 

XWCGA 

F VACF 

. ulftaa . I 6PF 

, ISPFF  , 

DYNA 

93. 

• I LOAD 

FXW  , FXWW 

SWITCH 

INQF 

cl 

,CLA 

, clw 

, claa  , 

OYNA 

99. 

•Cunw 

CLAW  ,C0 

, CDA 

COn 

, CDAA 

.CDWW 

, COAW 

QYN198, 

DYNA 

95. 

•DYN199 

DVN200, XWCGV 

,XWCGR 

XWCGW 

XWCGW 

,xwcgvr  xwcgvw 

, XWCGV  A 

DYNA 

96. 

•XWCGRR 

XWCGRW, XWCGRA 

, xnCGww 

XWCGWA 

RORRR 

,DYN2l9,DYN215 

, DYN21 6, 

DYNA 

97. 

•DYN217 

I DAW  T A I RB 

TAIRBV 

TA1RBH 

,TARBW 

.tarbhh.tarbvh 

;$fc  , 

JUL21 

98  . 

• SFCV 

SFCH  .SFCVV 

!sfchh 

SFCVH 

AUG09 

99. 

DI WENS  ION  PROul< 2.  69) 

WATS 

50. 

COWWON 

/WATS/ 

WATS 

51. 

•PI 

P2  ,P3 

,XX1 

, X X 2 

, XX 3 

, XX  IT 

, XX2T 

, XX3T  , 

WATS 

52. 

•xxio 

XK2D  , XX  30 

, XX 1 A 

, XX2A 

. XX  3 A 

, VOA 

,GDA 

, PDA 

WATS 

53. 

•XWI9  , 

XW20  ,XW21 

,XW22 

, XX 1 TT  , 

rXX2TT 

,XX3TT 

,XX1T0 

XX2TD  , 

WATS 

59. 

•XX3TD  , 

XX1TA  ,XX2TA 

XX3TA 

XXIOO  , 

, XX20D 

, XX 300 

XK  IDA 

XX20A  , 

WATS 

55. 

•XK30A  , 

XK1AA  , XK2A A 

XK3AA 

, XW9  1 

, XW92 

, XW9  3 

X W99 

, XW95  , 

WATS 

56. 

•xxiv  ; 

XX2V  ,XK3V 

, XX 1 G 

, XX 26  , 

t XK3G 

,XX1P 

XX2P 

XX3P  , 

WATS 

57. 

•XX 1R  , 

XX2R  , XX3R 

, XX 1 0 

r XX20 

, XX30 

, xxiu 

, XX2U 

, XX  3U  , 

WATS 

58. 

•XX1W  , 

XK2W  ,XX3W 

, XX 1 2 

XX2Z  , 

, XX3Z 

XX  1 VT 

XX2VT 

XX3VT  , 

WATS 

59. 

•XX 1 VD  , 

XX2V0  XK3  VD 

, XX  1 V A 

XK2VA  . 

, X X 3 V A 

, XX  1GT 

XX2GT 

XX3GT  , 

WATS 

60. 

•XX1G0  , 

XX2G0  XX3G0 

XX  1 GA 

XX2GA  . 

, XX3GA 

, XX  1 PT 

XX2PT 

XX3PT  , 

WATS 

61. 

•XX1PD  , 

XX2PD  XX3PD 

XX  1 PA 

XX2PA  . 

, XX  3P A 

, XX 1 RT 

XX2RT 

XX3RT  , 

WATS 

62. 

•XXI RD  , 

XX2RD  XX  3RD 

XX  1 RA 

XX2RA  . 

, XX3RA 

, XX10T 

XX20T 

;XX30T  , 

WATS 

63. 

•xxioo  , 

XX20D  XX30D 

XX  1 OA 

XX20A  . 

, XX30A 

, XX 1UT 

XX2UT 

XX3UT  , 

WATS 

69. 

•xxiuo  , 

XX2UD  , XK3U0 

X X 1 U A 

XK2UA  , 

, X X 3 U A 

, XX 1 WT 

, X X 2WT 

, XX3WT 

WATS 

65. 

COWWON 

/WATS/ 

WATS 

66. 

•xxiwo  , 

XX2W0  XK3WD 

XX 1 "IA 

XX2WA  , 

XX3WA 

, XX  1 ZT 

XK2ZT 

XK3ZT  , 

WATS 

67. 

•xx i zo  , 

XX2Z0  , XX3Z0 

XX  1 2 A 

XK2ZA  . 

XX3ZA 

, XX 1 V V 

XK2VV 

XK3VV  , 

WATS 

68. 

•XX ) GV  , 

XX2GV  XX3G  V 

,XX1PV  , 

XX2PV  , 

XX3PV 

XX1RV 

,XX2RV 

XX 3R V , 

WATS 

69. 

•XX10V  , 

XX20V  XX  30  V 

XK1UV  , 

XX2UV  , 

XX3UV 

XX1WV 

,XX2WV 

, XX 3flV  , 

WATS 

70. 

•xxizv  , 

XK2ZV  XX3Z V 

XX16G  , 

XK2GG  , 

XK3GG 

XX1PG 

XX2PG 

XX3PG  , 

WATS 

71. 

•XX1RG  , 

XX2FS  XX3R5 

XX 1 OG  , 

XX 2 OG  , 

XK30G 

,xxiua 

,XX2US 

XX3US  , 

WATS 

72. 

•XX1WG  , 

XK2WG  , XX3WG 

r XX 1 26  , 

XX2ZG  , 

XX3ZG 

XX1PP 

XX2PP 

XX  3PP  , 

WATS 

73. 

•XXI RP 

XX2RP  XX  3RP 

XXIOP  , 

XX20P  , 

XX30P 

,XX1UP 

'XK2UP 

XX3UP  , 

WATS 

79. 

•XXlflP  , 

XX2WP  , XX3WP 

XK1ZP  , 

XX2ZP  , 

XX3ZP 

, XX  1RR 

XX2RR 

XX 3RR  , 

WATS 

75. 

♦XX10R  , 

XX20R  , XX30R 

XX 1 UR  , 

XX2UR  , 

XX3UR 

, XX 1 WR 

XK2WR 

XX3WR  , 

WATS 
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151. 

XKGPP 

s -0<1E6A*COSRHO*<  2.*V*5INPS1  ♦ R*  OMEGA#  S I NRHO#  C0SP5 1 #$  1 NGAR ) 

AL9 

152. 

XKPPP 

= -< V*C0SGAR>**2/( R#COSAHO  ># S 1 NRHO* S I NP S I ♦ 0«E6A*C0SRH0 

Ala 

153. 

* 

♦( 2.*V*C0SPS1*S1WGAH  - R*0nE6A*SlNRH0*SI WPSI ) 

ALA 

15A. 

XKGPR 

= -OnEGA2*COSRKO*SlNRHO*SlNPSl*SIHGA« 

ALA 

155. 

XKPPR 

= SINRHO*COSPSI*(  OrtEGA2*COSRHO  - ( V/R*COSGAfl  )**2/COSRHO  ) 

ala 

156. 

XKSPO 

= -OMEGA#*  R*ONEGA#COS2RO#SINPSI#SINGAfl  + 2 . * V*  S I MfiH0*C05P$  7 ) 

ALA 

157. 

XKPPO 

s COSPSI»<(  V/COSRMO*COSGAP»  >**2/R  ♦ R*Ofl£GA2*COS2RO  > - 2.#V 

ala 

158. 

• 

*QflEGA*SlMRHO*SlNP$I«SlMGAM 

ala 

159. 

XK6RR 

s 2./R**3*(vm2  - 3 . *G*R  1*CQSG  Aft 

ala 

160. 

XKPRR 

= 2 . #SINRHO*S I NPSI #( V/R*CO$&Art  >##2/( R*COSRHO  ) 

ALA 

161  . 

XKGRO 

s 0P1EGA2#<  C0S2R0»C0SPSl*SlNGAn  - S I N2R0#CQS6AM > 

ALA 

162. 

XKPPO 

s S1NPSI#( OMEGA2*COS2RO  - ( V/fi*COS6A(9/COSRHO  >##2  ) 

ALA 

163. 

XKGOO 

s -2 . *0/*i£GA*(  R#OMEGA*(  C0S2R0#C05GAM  * 5 IW2RG#C0ST>SI*SIXI6An) 

ALA 

16*4. 

» 

♦ V*C0SRH0*S1«PS1  1 

ala 

165. 

XKPOO 

= 2.*(  V*COSGAfl*SlNRHO#(  V/(  R»C0SRH0**3  )4C0S6A«#$ JNPSI 

ala 

166. 

* 

- OMEGA)  4 OMEGA#( V*COSRHO*COSP S 1 »S IWGAn  - A*OAEGA*SI MP5! 

ala.  ^ 

167. 

« 

•S1M2R0)) 

ALA 

168. 

60  TO 

9 

ala 

*4 

169. 

C 

COMPUTE  EXPLICIT  2ND  PARTS  N/RESP . TO  STATE  OP  RAMA 

ala 

170. 

C 

ANGLE 

ala 

171  . 

3 P VV  = 

ASFIXKGVV,  XKPVV)  4 bSMXKGV,  XK  PV,  XK6  V , XKPV) 

ala 

172. 

PGV  s 

ASF<  XKG VG,  XKPVG)  ♦ B$F(XK6V,  XKPV,  XK66,  XKP6 ) 

Ala 

173. 

PP 9 s 

ASF(XK6VP,  XKPVP)  •»  BSF( XKGV,  XKPV,  XKGP,  XKPP) 

ala 

17*4. 

PR  V = 

ASF(XKGvR,  XKPVR)  4 BSF1XKGV,  XKPV,  XKGfi,  XKPR) 

ALA 

175. 

POV  = 

ASF<XKGVO,  XKPVO)  4 fiSFCXK&V,  XKPV,  XKGO,  XKPO) 

Ala 

176. 

PGG  s 

ASF( XKGGG,  XKPGG)  4 BSF(XKGG.  XKP&,  XK&G,  XKP6) 

ala 

177. 

PPG  = 

ASF<XKGGP,  XKPGP)  ♦ BSFIXXGG,  XKPG,  XKGP,  XKPP) 

ALA 

178  . 

PRG  = 

ASFCXKGGR,  XKPGR  ) ♦ &SF<  XKGG,  XKPG,  XKGR,  XKPR) 

ALA 

179. 

POG  = 

ASF( XKGGO,  XKPGO)  4 B5F( XKG6.  XKPG,  XKGO,  XKPO) 

ALA 

180. 

PPP  = 

ASF( XKGPP , XKPPP  ) 4 BSF(  XKGP  XKPP,  XKGP,  XKPP) 

ALA 

181  . 

PRP  - 

ASF( XKGPR,  XKPPR)  4 8$F( XKGP  XKPP,  XKGR,  XKPR) 

ala 

182. 

POP  r 

ASF( XKGPO , XKPPO)  4 BSFIXKGP,  XKPP,  XKGO,  XKPO) 

ALA 

183. 

PRR  - 

ASRXKGRR,  XKPRR)  ♦ &SFCXKSR,  XKPR,  XKGR,  XKPR) 

ALA 

18*4. 

POR  = 

A5F<  XKGRO,  XKPRO  > 4 BSF7  XKGR  XKPR.  XKGO,  XKPO) 

AL9 

185  . 

POO  = 

ASF( XKGQO , XKPOO)  4 BSHXKGO,  XKPO,  XK&O,  XKPO) 

ala 

166. 

C 

CurtP . EXPLICIT  2ND  P&RTS  U/RESP  To  STATE  OF  COSINE 

Ala 

187 . 

C 

OF  BANK  ANGLE 

ALA 

168. 

CP  VV  = 

-C0SPH1 *P V#P V - SI NPHl *P  V V 

Ala 

109. 

CPvs  = 

-C0SPH1*PV*P6  - S I NPH I *PG  V 

Ala 

190. 

CPVP  ~ 

-COSPM I *P V*PP  - SINPHUPPV 

ala 

191  . 

CP  VR  = 

-C05PHI *P  y#PR  - SINPHI#PRV 

AL9 

192. 

CP  VO  = 

-COSPHI*Pv*PO  - 5 I NPHI *POV 

Ala 

193  , 

CPGG  = 

-C0SPH1*P64P6  - 5 JNPHl*PG6 

Ala 

19*4. 

CP  GP  = 

-COSPHI *P6*PP  - S I NPHI *PP6 

ALA 

195. 

. CPGR  = 

-C05PHI#P&*PR  - SINPHI*PR6 

ala 

196. 

CPbO  t 

-COSPMl*PG*PO  - S 1 NPHI *POfi 

ALA 

19  7. 

CPPP  2 

-COSPHI *PP*PP  - 5 I NPHl*PPP 

ALA 

198. 

CPPR  r 

-COSPrtl *PP*PR  - 5lNPHl*PRP 

Ala 

199, 

CPPO  c 

-COSPMl*PP*PO  ' SlNPHl *POP 

ALA 

200. 

CP RR  s 

~C05PHl *PR*PR  ► S INPHl *PRR 

ALA 

201  , 

CPRO  = 

*COSPH1*PR*PO  - S1NPHI*P0R 

ALA 

202. 

CP  00  = 

-COSPMl*PO*PO  ' SlNPHl*POO 

ALA 

203. 

60  TO 

5 

ALA 

20*4, 

C 

INITIALIZATION  FOR  1ST  PARTS  W/RESP  TO  STATE  ANO/OR 

ala 

205. 

c 

fllXED  2ND  PARTS. 

ALA 

206. 

*4  SQUARE 

= XK6**2  4 XKP»*2 

ALA 

207. 

SOSO  = 

50UARE««2 

ALA 

l 

208. 

YYR  = 

LlFTR  - DBR»S INA 

ala 

209. 

c 

COBPUTE  EXPLICIT  1ST  PARTS  N/RESP  TO  STATE  OF  KINE- 

ALA 

210. 

c 

MATICS 

ALA 

211 . 

XK&V  = 

2.»l  V/R*COSGAM  ♦ OME&A^COSRHO’Sl NPSl  ) - GAftRAD 

ALA 

1 

212. 

XK66  = 

( G - V**2/R )4S J NGAM  - R40flEGA2*COSRHO*(  C0SRH04SIN&AR 

ala 

I 

213. 

* 

- SINfiHO*COSPSl*COSGArt) 

ALA 

21*4. 

XKGP  = 

0f?EGA*C0SRH04< 2.4Y4C0SPSI  - R40rtEGA45INRH0*SlNP5I*5INGAM ) 

ALA 

215. 

xkgr  = 

(2.4b  4R-  y*#2 )/R**2*C0SGAft  4 OnEGA24COSRHO*(  COSRHO»CO$GAfl 

ALA 

21b. 

* 

4 SJNRHO*COSPSl*SlNGAn> 

ALA 

217. 

XKGO  = 

-0MEGA4{  R#OMEGA*(  SlN2RO*COSGAP4  - COS 2R0*C0SP S I * S I NGAPI ) 4 2. 

ALA 

218. 

* 

*V*SINRH0*SINP5I  ) 

ALA 

219. 

XKPV  = 

2 . *(  COSG Art*S I NRHO*(  V / ( R*COSRHO  >4C0SGArt*SINPSI  4 OMEGA) 

•LA 

220. 

* 

- OrtEGA4COSRMO*COSPSI*SINGAM) 

ALA 

221  . 

XKPG  = 

-2.4V4( S1NRH04S1NGAM41 V / ( R4C0SRH0)4C0SGAn4SI«PSI  + OMEGA) 

ALA 

222. 

* 

4 OrtEGA*COSRHO*COSP51*COSGAM  ) 

ALA 

223. 

XKPP  = 

( V*C0SGAM)442/(  R*COSR44D  )*$INRHO*C05PSI  ♦ OMEGA4COSRHO 

ALA 

2 2*4. 

* 

*( R*OMEGA4S1NRHO*COSP5I  4 2.*V*SINPSI*SINGAM) 

ALA 

225. 

XKPR  = 

5INRH04SINPSI*( 0MEGA24C0SRH0  - ( V/R*COSGAM  )4*2/C0SRH0  ) 

ALA 
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V*C05SAW*( Y/l  R*CDSRH0»*2 )»CO$&A«*SINP$]  ♦ 2 . *0ME6A*C0$RH0 > ALA 
♦ OWE 6 A* ( fi* OMEGA* 5 1 NP  SI  *-C0S2R0  ♦ 2 .* Y*SINRHO*COSP$I*SlNGA« ) AL A 
COMPUTE  1ST  PARTS  N/RESP  TO  STATE  OF  BANK  ANGLE  ALA 

P¥  = ASFt  XK6¥,  ARP ¥>  ALA 

PG  = ASF( XX6S,  XXP6 ) ALA 

PP  = ASFIXKGP,  XKPP)  ALA 

PR  a ASF( XKGR , XKPR  > ALA 

PO  = ASFCXKGO'  IKPOI  ALA 


60  TO  LABL 


-SHIPMUPV 

-SINPHWP6 

-S1NPH1*PP 

-SINPHUPR 

-SlNPHMPO 


COMPUTE  1ST  PARTS  N/RESP  TO  STATE  OF  COSINE  OF  BANK  ALA 


INITIALIZATION  FOR  ALL  ENTRIES 


5 TCOAE  - T*CQDAE 
TSOAE  s T*SIDAE 
DBCA  r OB*COSA 
OBSA  = 0B*S 1NA 

VY  = TSOAE  «•  LIFT  - OBSA 
ZZ  = TCOAE  ♦ LIFTA  - DBCA 
60  TO  IGO 

2ND  PARTS  N/RESP  TO  STATE 

6 XK3YV  = LIFTVV*COSPHl  ♦ 2-*LlFTV*CPV  * YY*CPYY  ♦ M*XK6Y¥ 

XK3GY  = L I FT  Y*CP6  ♦ YY*CPY6  ♦ M*XKG¥G 

XK3PY  = L I FTY*CPP  ♦ YY*CPYP  ♦ «*XK6¥P 

XK3RY  s LlFTY*CPR  * Li  FT YR*COSPR I ♦YYfl*CPY  ♦ YY*CPYR  ♦ M*  XKGVR 

XK30Y  = LIFTY*CP0  ♦ YY  *CPYO  ♦ fl*XK6¥0 

XK3MV  s XKG V ♦ l!FTM*CPY  ♦ L I FT VM*C0$PHI 

XK3GG  = YY*CPGG  ♦ M*XK666 

XK3PG  * YV«CPGP  ♦ «*XK66P 

XK3RG  = YY#CPGR  ♦ M*XK66R  ♦ ¥VR*CP6 

XK30&  s YY*CP&0  ♦ SWK&60 

XK3MG  = XXG6  ♦ LlFTN*CP6 

XK3PP  = Y Y*CPPP  ♦ M^XKGPP 

XK3RP  = YY*CPRR  ♦ M*XK&PR  ♦ YYR*CPP 

XK30P  = YY#CPPO  ♦ M*XK6P0 

XK3fiP  s XKGP  ♦ LIFT«*CPP 

XK3RR  s YYRR*C05PHI  ♦ 2.*YYR*CPR  + VY*CPRR  «•  M*XK6RR 

XK30R  s V YR*CPO  ♦ YY*CPRO  ♦ «#XKGR0 

XK3MR  = XKGR  ♦ LlFTA#CPR  ♦ LlFTRM*COSPMl 

XX 300  S YY*CROO  4 M*XK60O 

XK3M0  s XK60  ♦ LIFTIMCPO 

XK3M*  s LlFTMM*COSPH 1 

MIXED  PARTS  W/RESP  TO  STATE  AND  CONTROL 
10  XK3YT  s 5 1 OAE*CP Y 
XK3GT  * SI DAE*CPG 
XK3PT  * S I DAE*CPP 
XK3RT  s SIOAE*CPR 
XK30T  = S1DAE*CP0 
XX  3 YD  = -TCOAE*CP¥ 

XX3G0  s -TCDAE*CP6 

XK3P0  = *TCOA£#CPP 

XX3RD  s -TCDAE*CPR 

XX 300  s -TCOAE*CPO 

XX3YA  = ZZ*CP Y ♦ LIFTYA#C0SPHI 

XK3GA  s ll*CP6 

XX3PA  = ll* CPP 

XX3RA  = ZZ*CPR  ♦ (LlFTRA  - DBR*COSA )*C05PHI 

XX30A  a ZZ'CPO 

XK3MA  s LlFTMA*COSPHI 

1ST  PARTS  N/AESP  TO  STATE 
10  XX 3 Y = LIFTY#C0SPHI  ♦ V Y*CP  Y ♦ M*XK6Y 
XX 3u  S yy*CPG  ♦ M*  XKGG 
XX3P  x VY*CPP  ♦ M*XKGP 
XK3R  s YYR#COSPHl  ♦ YY*CPR  ♦ N'XXGR 
Xft30  3 YV*CPO  * M* XKGO 
!X3rt  = XKG  ♦ LIFTM*C0SPHI 

2ND  PARTS  lY/RESP  TO  CONTROL 
10  XK3T0  s -C05PH1 *COOA£ 

XX3TA  s -XK3T0 

XX 300  3 -TS0AE*C0SPNI 

XX30A  = -XX  300 

XX3AA  3 C05PHI#( lIFTAA  ♦ OBSA  - T50AE ) 
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I 

I 


301. 

C 

1ST  PARTS  W/RESP  TO  CONTROL 

AL9 

302. 

90 

XK3T  = COSPHI * S I DAE 

AL9 

303. 

XK3D  = -TCDAE«COSPHI 

AL9 

30*1 . 

XK3A  s ZZ+COSPHI 

AL9 

305. 

50 

XK3  = V V*C0SPHI  4 n*XK6 

A L9 

306. 

C 

CONSTRAINING  £Q . 

AL9 

307. 

C 

AL9 

306. 

RETURN 

AL9 

309. 

END 

AL9 
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FORTRAN 

SYflBOL 


NATH 

SVRBOL 


CODE 


DESCRIPTION 


CODAE 


COSA 


COS CAN 


COSPHI 

cosrsi 


COSRHO 


C0S2GH 

COS2RO 


_ — 
BLOtK  LOC 


coi(ft-iE)  I Sl* 


ceitt  I s«*  tysbtl 


cost  1 Sit  lyabil 


COt#  I Sit  lyllil 

cot#1  1 Sii  tyaMl 


C o sp  I Sm  iyiMl 


COt2?  * •f«Ael 

COt2p  1 s*« 


/OVNA 

/( 

151  ) 

ALl 

I 

CODAE 

AL4 

I 

CODAE 

AL6 

1 

CODAE 

AL7 

I 

COOAE 

ALB 

I 

CODAE 

AL9 

I 

CODAE 

APPLY 

I 

CODAE 

CONTRL 

1 

CODAE 

NLDRV 

I 

CODAE 

T M3 

I 

COOAE 

UT 

0 

CODAE 

/OVNA 

/( 

10) 

ALl 

I 

COSA 

AL4 

1 

COSA 

AL6 

I 

COSA 

AL7 

1 

COSA 

ALB 

I 

COSA 

AL9 

I 

COSA 

APPLY 

I 

COSA 

CONTRL 

1 

COSA 

NLDRV 

1 

COSA 

OUTPUT 

1 

COSA 

TH3 

I 

COSA 

UT 

a 

COSA 

/OVNA 

n 

H > 

ALl 

1 

C0S6AR 

AL4 

I 

COS  GAR 

AL7 

1 

COS  GAR 

ALB 

I 

COS GAR 

AL9 

l 

C0S6AR 

CONTRL 

1 

COS  GAR 

NLORV 

1 

COSGAR 

OUTPUT 

1 

COSGAR 

pobcol 

I 

C0S6AR 

STATEF 

r 

COSGAR 

/OVNA 

n 

93  ) 

ALl 

i 

COSPHI 

AL4 

l 

COSPHI 

APPLV 

7 

COSPHI 

ARC1N 

0 

COSPHI 

CONTRL 

ft 

COSPHI 

OUTPUT 

1 

COSPHI 

/OVNA 

n 

95  ) 

ALH 

I 

COSPSI 

AL7 

1 

C0SPS1 

ALB 

I 

COSPSI 

AL9 

1 

COSPSI 

CONTRL 

I 

COSPSI 

NLORV 

I 

COSPSI 

POBCOL 

I 

COSPSI 

STATEF 

0 

COSPSI 

/OVNA 

/( 

97  ) 

AL4 

1 

COSRHO 

AL  7 

I 

COSRHO 

ALB 

1 

COSRHO 

AL9 

I 

COSRHO 

CONTRL 

1 

COSRHO 

NLORV 

l 

COSRHO 

OUTPUT 

I 

COSRHO 

PDBCOL 

1 

COSRHO 

STATEF 

n 

COSRHO 

/OVNA 

/( 

121  ) 

AL4 

I 

C0S2GR 

STATEF 

0 

C0S2GR 

/OVNA 

/( 

120  ) 

AL4 

I 

C0S2R0 

AL7 

1 

C0S2R0 

alb 

I 

C0S2R0 

NLORV 

I 

COS2RO 

STATEF 

0 

C0S2R0 

A OCT  T 2 6.01-44 


FORTRAN  NAT  H 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


BLOCK  LOC  SUBR  COOE 


subroutine  usase 

VAR 


OB 


DBR 


DBRR 


6 


GANNAD 


M 


LIFT 


UFTA 


0 


d 


dOk/3R 


d2Db/3R2 


9 


h 


L 


3L/a« 


I Bat*  drag 


(LBS)  / OVNA  /( 


I St#  * yahal 


/DYNA  /( 


I Sat  ayadal 


/DYNA  /( 


I 


I nitaatanaeui  or at  I t at  I oaal  acceleration 

( FT /SEC2  ) 


/OVNA  /( 


1 Filed  rata  (RAD/SEC)  /DYNA  /( 

I Integration  atop  alia  la  qaasltiaa.  /O  /( 


I Aerodynaatc  lift 


(LBS)  /OYNA  /( 


I Sat  (fatal 


/DYNA  /( 


163) 

AL1 

■ OB 

ALA 

OB 

ALA 

OB 

alt 

06 

AL8 

OB 

AL9 

OB 

apply 

OB 

CONTRL 

OB 

NLDRV 

OB 

OUTPUT 

OB 

STATEF 

OB 

T M3 

OB 

UT 

OB 

86) 

AL1 

OBR 

*L9  ” 

DBR 

AL6 

DBR 

alt 

OBR 

AL8 

DBR 

AL9 

OBR 

APPLY 

DBR 

STATEF 

DBR 

TK3 

OBR 

UT 

DBR 

87  ) 

AL9 

OBRR 

AL6 

OBRR 

AL7 

DBRR 

AL8 

DBRR 

AL9 

OBRR 

apply 

DBRR 

STATEF 

DBRR 

TH3 

DBRR 

UT 

OBRR 

6) 

AL9 

G 

AL7 

6 

AL8 

6 

AL9 

G 

CONTRL 

G 

NLORV 

6 

STATEF 

N 

G 

86 ) AL9  1 GANNAD 
ARCIN  0 6ANNA0 
CONTRL  1 GANNAO 
NLORV  ! 6ANNAD 


2)  AL9  I 
INARC  N 
NADAN5  I 
RKUTTI  I 
RKUTT2  I 
SALVE  N 


NRAPUP 

N 

OT 

60) 

AL9 

1 

LIFT 

AL5 

I 

LIFT 

AL6 

I 

LIFT 

APPLY 

1 

LIFT 

CONTRL 

I 

LIFT 

ENVPRO 

I 

LIFT 

OUTPUT 

I 

LIFT 

TH3 

I 

LIFT 

UT 

0 

LIFT 

63) 

AL1 

I 

LlFTA 

AL9 

I 

LI  FT  A 

AL5 

I 

LIFTA 

AL6 

I 

LI  FT  A 

APPLY 

1 

LIFTA 

TH3 

I 

LIFTA 

UT 

0 

LIFTA 

6 OCT  72  6.01-99 


vT 


FORTRAN 
S V ABOL 


DESCRIPTION 


LIFTAA  d*L/d«*  * tjafcal 


Linn  dL/ds  1 Saa  tytkii 


LIFTM  a*L/d»d«  1 


IIFTIW  d^L/3«®  * Saa  •7***1 


LIFTR  dt/dR  1 &••  tyafcal 


LIFTRA  d^L/dRd*  1 Saa  tyafcal 


LIFTAA  d^L/^Ri  1 Saa 


LIFTY  dL/dV  1 Saa  tyafcal 


LIFTYA  3^L/3T3a  * Sat  tyafcal 


/DYNA  /( 


/OYNA  /( 


/DYNA  /( 


/DYNA  /( 


/OYNA  /( 


/DYNA  /( 


/OYNA  /( 


/OYNA  /( 


/OYNA  /( 


/OYNA  n 


1AM)  AL1 
ALA 
AL5 
AL6 
APPLY 
TH3 
UT 

81  ) ALA 
AL5 
ALt 
APPLY 
TH3 
OT 

85)  AL1 
ALA 
AL5 
AL6 
apply 
T M3 
UT 

8M>  ALA 
AL5 
AL6 
APPLY 
T M3 
UT 

62)  ALA 
AL5 
AL6 
APPLY 
TH3 
UT 

68)  AL1 
ALA 
AL5 
AL6 
APPLY 
TH3 
UT 

83)  ALA 
AL5 
AL6 

apply 

TH3 

UT 

67)  ALA 
AL5 
AL6 
apply 

TH3 

UT 

61  ) ALA 
AL5 
AL6 
apply 
TH3 
UT 

66)  AL1 
ALA 
AL5 
AL6 
APPLY 
T M3 
UT 


I LI  FT  AA 
I LIFT  AA 
I LI  FT  AA 
I LIFTAA 
I LIFTAA 
I LIFTAA 

0 LIFTAA 

1 LIFT* 

I LIFT* 

I LIFT* 

I LIFT* 

I LIFT* 

0 LI  FT A 

1 LIFTAA 
I LIFTAA 
I LIFTAA 
1 LIFTAA 
I LIFTAA 
I LIFTAA 

0 LIFTAA 

1 LIFTAA 
I LIFTAA 
I LIFTAA 
I LIFTAA 
I LIFTAA 

0 LIFTAA 

1 LIFTR 
I LIFTR 
I LIFTR 
I LIFTR 
I LIFTR 

0 LIFTR 

1 LIFTRA 
I LIFTRA 
1 LIFTRA 
I LIFTRA 
I LIFTRA 
I LIFTRA 

0 LIFTRA 

1 LIFTRA 
I LIFTRA 
1 LIFTRA 
I LIFTRA 
I LIFTRA 

0 LIFTRA 

1 LIFTRR 
I LIFTRR 
I LIFTRR 
1 LIFTRR 
I LIFTRR 

0 LIFTRR 

1 LIFT  Y 
I LIFTY 
I LIFTY 
I LIFTY 
I LIFTY 

0 LIFTY 

1 LIFTYA 
I LIFTYA 
I LIFTYA 
I LIFTYA 
I LIFTYA 
I LIFTYA 
0 LIFTYA 


6 OCT  72  6. 01  *-AM 


FORTRAN 

SYHBOL 


NATH 

SYHBOL 


CODE 


DESCRIPTION 


STORAGE 
BLOCH  Lb“£ 


SUBROUTINE  USAjiE 


” SUBR  CODE 


LIFTYN  aSL/dVdN  1 S#* 


LIFTVR  d2L/dVdB  1 s*#  ,**bo1 


/DVNA  /( 


/DVNA  /( 


82  ) ALA 
AL5 
ALB 
APPLY 
TH3 
UT 

65  ) ALA 
AL5 
ALB 
APPLY 
TH3 
UT 


I LI  FT  VN 
I LIFTYN 
I LIFTYN 
I LIFTYN 
I LIFTYN 

0 LIFTYN 

1 LIFTYR 
I LIFTYR 
I LIFTYR 
I LIFTYR 
I LIFTYR 
0 LIFTYR 


I LI  FT  YY 
I-  LI  FT  YY 
I LI  FT YY 
I LI  FT  YY 
I LI  FT  YY 

0 LI  FT  YY 

1 N 
I N 
1 N 
I N 
I N 

BRANPT  I N 
COSTAB  I N 
COSTAI  I N 
INTRPT  I N 
NLDRV  I N 
OUTPUT  I N 
SALVE  I N 


STATEF 

2 

N 

HR AP  UP 

I 

N 

ONEGA 

A) 

I 

Earth  rotation  rata 

(RAD/SEC)  /DVNA 

n 

5) 

ALA 

I 

ONEGA 

AL7 

I 

ONEGA 

CONTRL 

I 

ONEGA 

POBCQL 

I 

ONEGA 

T RAJ  IN 

N 

ONEGA  . 

0NE6A2 

I 

Soo  syabal 

/DYNA 

n 

6) 

ALA 

I 

0NE6A2 

w 

AL7 

I 

0NEGA2 

alb 

I 

0NEGA2 

AL9 

I 

0NEGA2 

NLORY 

I 

0NEGA2 

TRAJIN 

0 

0NE6A2 

PG 

4 

N 

Saa  tjfMii 

/NATS 

n 

551  ) 

ALA 

N 

PG 

9 

APPLY 

I 

PG 

ARCIN 

0 

PG 

CONTRL 

0 

PG 

F6G 

4 

N 

/NATS 

n 

560) 

ALA 

PG6 

99 

j 

P6Y 

4 

N 

/NATS 

n 

556) 

ALA 

P6V 

»« 

PO 

4 

0 

N 

/NATS 

n 

55A) 

ALA 

PO 

P06 

4 

N 

/NATS 

n 

563) 

ALA 

POG 

09 

POO 

N 

Saa  ay  aba  1 

/NATS 

n 

569) 

ALA 

POO 

POP 

*00 

N 

Saa  tyabal 

/NATS 

n 

566) 

ALA 

POP 

POR 

N 

/NATS 

/< 

568) 

ALA 

POR 

ph 

POV 

4 

N 

Saa  syabal 

/NATS 

/i 

559) 

ALA 

POV 

#« 

pp 

% 

N 

/NATS 

/( 

552  ) 

ALA 

PP 

PPG 

N 

/NATS 

n 

56)  ) 

ALA 

PPG 

PPP 

N 

Saa  tyabal 

/NATS 

n 

569) 

ALA 

PPP 

PP  Y 

* 

N 

Saa  sy  aba  1 

/NATS 

n 

557  ) 

ALA 

N 

PP  Y 

LIFTYY 

a2  L/av* 

I 

Saa  ayabtl 

* * 

/OVNA 

/( 

6 A ) 

ALA 

AL5 

ALB 

APPLY 

TH3 

UT 

N 

■ 

I 

Naaa 

< 6*  S ) /O 

/< 

97  > 

ALA 

AL7 

ALB 

ALA 

APPLY 

FORTRAN 

SYMBOL 


DESCRIPTION 


SUBROUTINE 
S'UBR  COOE” 


A Sit  iy*kil 
A See  tyabol 
A S « • tyebel 
PI  $••  lyikll 
PI  Sat  ejebel 
PI  Sm  sjabel 
PI  See  synbel 

I Radial  distinct  fro*  earth  canter  to  vehicle 


/DVNA  H 


*in(o-l£) 


See  lyekil 


( See  tyikil 


SINGAA  %in. 


I See  eyebeJ 


S I NPHI  ,|n# 


SINPSI  sin* 


I See  lyektl 


! See  tyekel 


553)  ALH 

A 

PR 

562  ) ALH 

a 

PRG 

565)  ALA 

A 

PRP 

567  ) ALH 

N 

PRR 

558  ) ALH 

a 

PR  V 

550)  ALH 

A 

PV 

555  ) ALH 

a 

PVV 

?->  ALH 

l 

R 

ALT 

l 

R 

AL8 

i 

R 

ALH 

i 

R 

CONTRl 

I 

R 

ENVPRO 

I 

R 

NLDRV 

1 

R 

PDBCOL 

I 

R 

OLTOSZ 

i 

R 

STATEF 

a 

R 

152)  ALl 

I 

SIOAE 

ALH 

I 

SIOAE 

AL6 

l 

SZOAE 

alt 

i 

SIDAE 

ALB 

i 

SZOAE 

ALH 

l 

SIDAE 

APPLV 

1 

SIOAE 

CONTRL 

i 

SIOAE 

TH3 

1 

SIOAE 

UT 

0 

SIDAE 

9)  ALl 

i 

SINA 

ALH 

i 

SINA 

AL6 

i 

SINA 

alt 

i 

SINA 

AL6 

i 

SINA 

AL9 

i 

SINA 

APPLV 

i 

SINA 

CONTRL 

i 

SINA 

OUTPUT 

i 

SINA 

TH3 

i 

SINA 

UT 

n 

SINA 

3)  ALl 

i 

5 I NGAft 

ALH 

i 

SINGAA 

ALT 

i 

SINGAA 

ALfi 

i 

SINGAA 

AL9 

i 

SINGAA 

CONTRL 

i 

SINGAA 

NLDRV 

i 

SINGAA 

PDBCOL 

i 

SINGAA 

STATEF 

a 

SINGAA 

92)  ALl 

i 

SINPHI 

ALH 

i 

SINPHI 

APPLV 

i 

SINPHI 

CONTRL 

A 

SINPHI 

OUTPUT 

Z 

SINPHI 

9H>  ALH 

I 

SINPSI 

ALT 

1 

SINPSI 

ALfi 

I 

SINPSI 

AL9 

1 

SINPSI 

CONTRL 

I 

SINPSI 

NLDRV 

I 

SINPSI 

POBCQL 

I 

SINPSI 

STATEF 

0 

SINP5I 

b OCT  72  6.01-HH 


FORTRAN 

SYNBOL 


HATH 

SYNBOL 


CODE 


DESCRIPTION 


STORAGE 


block 


SUBROUTINE  USAGE 
5 UBR  COOE  VAlP 


SINRHO 


1 1 np 


Sn  lyakal 


SIN2R0 


% I n2p 


1 tyabol 


I Tbroat 


/ DVNA  /( 


(LBS)  /DVNA  /( 


Ao i at  I « 


(FT/SEC)  /D 


I Tfci  quitUlaa  vsrUkli. 


/O 


H6 

XKP 


I Algebraic  aquation  used  In  vortical  rlsa  and 
pltchovar 

I Algebraic  aquation  used  In  vortical  rise  and 
p I tebo  vor 


96)  ALH 

I 

SINRHO 

ALT 

I 

SINRHO 

ALB 

I 

SINRHO 

AL9 

1 

SINRHO 

CONTRL 

I 

SINRHO 

NLDRV 

I 

SINRHO 

OUTPUT 

I 

SINRHO 

PDBCQL 

I 

SINRHO 

STATEF 

N 

SINRHO 

119)  ALH 

I 

SIN2R0 

AL7 

I 

SIN2R0 

ALB 

I 

SIN2R0 

NLDRV 

I 

SIN2R0 

STATEF 

n 

SIN2R0 

92)  AL6C0N 

n 

T 

AL1 

I 

T 

ALH 

i 

T 

AL6 

i 

T 

ALT 

i 

T 

ALB 

I 

T 

AL9 

i 

T 

APPLY 

I 

T 

ARCIN 

0 

T 

CONTRL 

n 

T 

OL2 

i 

T 

INPULS 

i 

T 

OUTPUT 

l 

T 

TH1* 

I 

T 

TH2 

i 

T 

TH3 

I 

T 

THH 

i 

T 

91  ) AL1 

I 

V 

ALH 

I 

V 

ALT 

l 

V 

ALB 

1 

V 

AL9 

i 

V 

BCONO 

i 

NON 

BNDRV 

0 

NON 

BRANPT 

N 

NON 

CONTAL 

I 

V 

ENDPT 

I 

NON 

ENVPRO 

I 

V 

FETCH 

0 

NON 

INTERP 

ft 

V 

intrpt 

N 

NON 

nlorv 

0 

NON 

nlorv 

I 

V 

output 

I 

V 

PDBCQL 

1 

V 

STATEF 

I 

V 

URAPUP 

I 

V 

l)  ALH 

I 

X 

BNDRV 

0 

X 

ERROR 

1 

X 

FETCH 

0 

X 

FORCES 

I 

X 

INATRC 

PI 

X 

INTERP 

I 

X 

HADANS 

PI 

X 

rkutti 

PI 

X 

RKUTT2 

PI 

X 

SALVE 

PI 

X 

STATEF 

I 

X 

URAPUP 

n 

TT 

101  ) ALH 

I 

XK6 

CONTRL 

n 

XKG 

102)  ALH 

I 

XKP 

CONTRL 

pi 

XKP 

6 OCT  72  6.01-HH 


SUBR0UTINE 

AL5 


Purpose 


AL5  evaluates  the  unpowered  total  acceleration  limit  constraint,  Equation 
10.5-1  in  Vol.  I.  In  addition,  it  computes  the  explicit  first  and  second 
partials  of  this  constraint  with  respect  to  the  state  and  control  as  they 
are  needed. 


AL5 


1 . 
2. 
3. 
9. 

5. 

6. 

7. 

e. 

9. 
10. 
1 1 . 
12. 
13. 
1H  . 

15. 

16. 
17. 
10. 

19. 

20. 
21. 
22. 
23. 
29. 

25. 

26. 
27. 
26. 

29. 

30. 

31. 

32. 

33. 
3H. 

35. 

36. 

37. 
30. 
39. 
HO. 
HI  . 
HZ. 
H3 . 
HH. 
H5 . 
H6. 
H 7 . 
H8. 
H9. 

50. 

51. 

52. 

53. 
5 H . 
55  . 

56. 

57. 

58. 


SUBROUTINE  AL5 

THIS  ROUTINE  APPLIES  WHEN  AN  UNPOWERED  TOTAL  ACCEL. 
UNIT  IS  IN  EFFECT. 

CONNON/SLOBAL/ 

• GR  , ER  .ONGZ  , XlANBF, YNURF  ,LUN  ,T0  , EPSlON, INNER  , 

• I TRMX  J JOPt  6 ) . IFATAL.NARC  , NBRAN  , NF  ARC  ,IO(H)  ,*TAB(26>, 

• ITAB12&),  SI6,NAXTAB,Gfl,PSIRF  ,1PFl61,IPFl62, I PFL63, IPFl.69, 

• JNE0FU20).  1TPS0,  XSOl,  I NARK  KGlCBlI  7 ) 

COHflON/ ARCuAT / 

•SREF  . E J ,XISP  , TftULT  ,OTNC  ,DTPI 

•IAIN  . 1 nODE  , J AER  ,JPRO  ,0NAX  GMX 

•XLMX  ,HQNAX  SNOOT  ,AlFMX  ,PHNAX  ,NAEA 

•MEB  ,NAEC  NAEO  MEE  ,NAEF  NAE6 

•NT  „ «I SP  . NXC6  , NZC6  ,NWDA  ,NWOB 

• NOB  , XCGR  , 2CGR  fX£  ,ZE  ,XT 

•OREF  ,NCND  RHOB  ,QNULT  RENAX  FRATE 

DIMENSION  ARCDA(hO) 


EQU 1 V ALENC£(  SREF . ARCDA ) 
LOGICAL  SWITCH,  IlOAD 
REAL  NACH  ISP  ISP¥,  ISPR, 


AL5 
AL5 
AL5 
AL5 
AL5 
Al5 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
ARCOAT 
ARCOAT 
ARCOAT 
ARCOAT 
ARCDA7- 
ARCOAT 
ARCOAT 
ARCOAT 
ARCOAT 
ARCOAT 


ISPN,  I SPT , I SP  V V , 


*1RATe6,  ISPF,  ISPFF 
REAL  NACH¥,  NACHR,  NACHVR,  RACHRR 
REAL  LlFTN,  lift ¥n  liftrn,  liftnn,  LlFTNA 
CONNON  /DYNA/ 

•XX  TINE  5 1 NGAN  COSb AN, ONEGA  ,0NE6A2,R 

•COSA  , DVNO 11, OflEGAT . T ArtP  ,PA  ,R0  ,CS 

• ROR  , CSfi  TEFlPRR , PARR  ROAR  ,CSRR  ,XODE 

• QV  OR  ,0W  ,QVR  , ORR  ,FVAC  ,FVAC¥ 

•FVACT  ,FVACVV,F¥AC¥fi,FVACRR,FVACTT,T  ,NACHV 

• ISPV  , I SPR  ,1SPN  , 1 SPT  ,ISPV¥  , 1 $P ¥R  ,I5P¥* 

• 7 SPRfl  I 5PRT  , I5PNN  , I SPflT  ,ISP7T  ,lIFT  ,lJFT¥ 
•LIFTV¥,LIFT¥R,lIFT¥A, l!FTRR,l!FTRA,ORAG  ,DRAGV 
•DRAGVVORAGVRDRAGVA  OR AGRR, OR AGRA, OR AG A A, AlPHA 
•LlFTVfl, LlFTRn, lIFT flfl, LIFT flADBR  OBRR  GANNA 

• W , SINPHI,C0SPHI,SINPSI ,COSPSI .5INRH0.C0SRH 

•AUR  XXG  ,XKP  , AK I N ,COO 

• XCGNrt  ,ZCG«  , ZC&nn  ,xjv  ,xjr 

•NAQHRR, S I N2R0 , C0S2R0, C0S2GN,CN 

•chan  ,cno  , cnon  , cnqnn  , cmni 

•ULFTVA,ULFTRR,ULFTRA, IPOW  X ARC 
•CDOnn  ,CLAnn  ,clOa  ,ClOnn  ,ovnih9'ct 
•sio  ,oeltae,cde  ,xcg  ,zcg  ,xj 
•OB  , ULFT  ,culft  ,ulfta  ,tstage,ti 
CO AH ON  /DVNA/ 

• ATT  ,J1  , J2 

• I LOAD  ,FXN  ,FXNN 

• CLAN  , CLAN  ,C0 


, COCA 
,XJW 
.cm 


, CLO 
, X J ¥fl 
,CNN 


,tstart,gh 

COOAE 
, XNC6 


,CLA 

, conn 


DVNA 

SPVB.  I 

SP¥A, 

DVNA 

LlFf. 

UFTY. 

DYNA 

:TRA,  NUR,  lIFTAA. 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA 

6 

SINA  , 

JUL21 

TEAPR 

,PAR 

OVNA 

AACH 

OYNA 

F¥ACR 

, F ¥ ACA  , 

OYNA 

AACHR 

,1$P 

OYNA 

15P¥T 

,!$PRR  , 

DVNA 

liftr 

,l!FTA  , 

OYNA 

opagr 

OR  AGA 

OYNA 

PHI 

,lifta  : 

OYNA 

AE 

,tax 

OVNA 

SINRCR 

, COSROR, 

OYNA 

Ft 

,XCGA  , 

DVNA 

, XJRR 

, AACH¥R, 

OYNA 

, CftAA 

,CAAA  , 

OYNA 

. UlFT  ¥ ¥ 

, UlFT  ¥R , 

OYNA 

GRR 

#LIFTAA, 

DVNA 

, SI  DAE 

, COD  ; 

OYNA 

,CAlPHA 

, ALAAX  , 

DYNA 

I RATED 

,FRATEO 

DYNA 

OYNA 

ISPF 

, ISPFF  , 

DVNA 

CLA 

,CLAA  , 

OYNA 

CDAA 

OYN 198 

OYNA 

, J 3 , XflCGA  F V AC  i 

, SWITCH, INOF  , CL 
, COA  ,CON  , CDAA 
*DVN199;0YN200;  XNCGV  , XNCGfi  ,X«CG«  , XNCG  ¥ ¥ ' XNC6  VR ' XNC6V  «'  XNC6V  A 
• XNC6RR , XNCGRN  XNCGRA  XNCGNN, XNCGNA  RORRR  , DVN2 1H, 0VN2 15, DYN216 
• DVN2 17,1  DAO  TAIRB  , T A I Rd¥ , T AI RBH, TARB¥ ¥ , T ARBHH, T ARBVH, SFC 
•SFCV  , SFCH  ,SFC¥¥  ,SFCHH  ,SFC¥H 
DlAENSfON  PR00K2,  6H  ) 

COflAON  /NATS/ 


DVNA 

OVNA 

JUL21 

AUG09 

AATS 

RATS 


59. 

• PI 

,P2 

,P3 

, XX  1 

,XX2 

,XX3  ,XX1T  , XX2T 

, XX3T 

MTS 

60. 

• XX  10 

, XX20 

,XX3D 

, XX  1 A 

, XX2A 

, XX  3A  V DA  , GOA 

PDA 

MTS 

61 . 

• xni9 

,X«20 

XP12 1 

, XP122 

, XX 1 TT 

XX2TT  XX3TT  ,XX1T0 

, XK2T0 

MTS 

62. 

• XK3T0  , XK 1 T A 

, XX2TA 

, XX3TA 

, XX 1 00 

, XK200  XX 3DD  ,XX1DA 

, XK20A 

MTS 

63. 

• XK30A 

, XX1AA 

, XK2AA 

, XX3AA 

,XNH1 

,X«h2  ,X«h3  .XIHHH 

,XflH5 

NATS 

69. 

• XX  1 ¥ 

, XK2¥ 

, XX  3 V 

, XX  16 

, XK2G 

, XK3G  XX  IP  XX2P 

,XX3P 

NATS 

65. 

• XX  1R 

, XX2R 

, XX3R 

, XX 1 0 

, XK20 

, XX  30  XX 1 U , XX2U 

. XX  3U 

NATS 

66. 

• XX  IN 

,XX2« 

,XX3rt 

,XX1Z 

, XX2Z 

, XX3Z  XX 1 ¥T  XK2 VT 

XX3  ¥T 

NATS 

67. 

• XX 1 ¥0 

. XX2  ¥0 

XX  3¥D 

, X X 1 ¥ A 

,XX2¥A 

, XX 3¥A  XX  1ST  , XK2GT 

, XX36T 

MTS 

68. 

•XX1GD  , XX2G0 

XX  3G0 

, XK1GA 

, XX2GA 

, XX  3GA  XX  1 PT  XX2PT 

XX3PT 

NATS 

69. 

•XX1P0  .XK2PD 

, XX3PD 

, XX  1 P A 

, XX2PA 

XX  3P  A XX  1 RT  XX2RT 

XX3RT 

NATS 

70. 

•XK1R0 

. XK2RD 

XX  3RD 

, XX1RA 

, XK2R  A 

, XX 3R A X X 1 OT  , XX20T 

XK30T 

NATS 

71  . 

•XX100  , XK200 

XX  300 

, XX10A 

, XX20A 

, XX  30 A ,XK1UT  ,XX2UT 

XX3UT 

NATS 

72. 

•XKluD  , XK2UD 

, XX  3UD 

, XX 1 U A 

, XX2UA 

, XX 3U A , XX 1 nT  , XX2HT 

,XX3flT 

NATS 

73. 

COPWON  /(HATS/ 

NATS 

7 H . 

• XXlflO 

,xx2no 

XX  3(HD 

,XKlflA 

, XX2RA 

,XX3«A  , XX  1 ZT  , XX2ZT 

, XX  3ZT 

NATS 

75. 

•xxizo 

, XK2Z0 

, XX3Z0 

, XX 1 ZA 

, XK2Z A 

, XX3ZA  , XX  1 ¥ ¥ , XX2¥¥ 

, XK3VV 

9 

MTS 
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7*. 

•XK16V 

, XK2GV 

, XX  3GV 

, XX1P9 

, XX2P9 

XK3P9 

XX  1 R 9 

, XK2R9  , XX3R9 

RATS 

77. 

•XX 109 

XK209 

, XK309 

, XX1U9 

, XK2U9 

XK3U9 

XX  1 A9 

XK2R9  , XX3RV 

WATS 

78. 

•XXI zv 

XK2Z9 

,7X329 

,7X166 

' XK2GG 

,7X366 

XX  IPG 

, XK2PG  , XX3PG 

AATS 

79. 

•XK1R6 

, XK2R6 

, XX3RG 

XX 106 

XK20G 

XK30G 

, xx iu6 

, XK2U6  , XX 306 

AATS 

80. 

•IK1AG 

XK2A6 

, XX3P16 

,7X126 

XK2  ZG 

XK3Z6 

, XX1PP 

, XX2PP  XK3PP 

AATS 

81  . 

•XXIRP 

XK2RP 

,XX3RP 

,XX10P 

XX20P 

XX  30P 

,XX1UP 

XK2UP  , XX3UP 

AATS 

82. 

•XK1RP 

, XK2AP 

. XK3HP 

, xxizp 

, XK2ZP 

XX3ZP 

, XX 1 RR 

XX2RR  , XX3RR 

AATS 

83. 

•XK10R 

XK20R 

, XX30R 

, XX 1 UR 

' XX2UR 

, XX3UR 

XX  1 WR 

XX 2AR  , XX  3RR 

AATS 

84 . 

•XK1ZR 

. XK2ZR 

. XK3ZR 

, XX100 

, XX200 

XX  300 

XX  1 uo 

, XK2U0  , XK3U0 

AATS 

85. 

•XK1A0 

,XK2A0 

, XK3A0 

, X X 1 20 

XK220 

, XX 3Z0 

, XX  1 UU 

, XX2UU  , XX3UU 

AATS 

86. 

•XK1AU 

, XK2AU 

. XX 3rtU 

, XX1ZU 

X X 2ZU 

, XX3ZU 

, xxinn 

, XX  2 AR  XK3RR 

AATS 

87. 

• xxizn 

, XK2ZA 

, XX  3ZA 

,XX1ZZ 

, XX2ZZ 

, XX3ZZ 

,XXP1  11 

, XXP 1 2 1 , XXP131 

AATS 

88. 

89. 

• XXPI  U 

copwon 

XKP I 22 
/AATS/ 

, XXP 1 32 

XKP  1 1 3 

XXP 1 23 

, XKP I 33 

, P A 1 

,PA2 

AATS 

AATS 

90. 

*DPDY(3,  8),  OEPOEYl  2,  8),  DPOLl  3,  3),  PR0D5(  3,  64),  PR009(2,  24  ) 

AATS 

91 . 

CORRON  /AATS/ 

AATS 

92. 

*P9  ,PS  ,PP  ,PR  PO  , P 99  P69  ,PP9  ,PR9 

AATS 

93. 

•P09  ,P66  , PPG  ,PRG  ,POG  ,PPP  ,PR P ,POP  ,PRR 

AATS 

94. 

• POR  >00  , PL6  >LP 

AATS 

95. 

EQUIVALENCE! PROD  1, PRODS) 

AATS 

98. 

C 

Al5 

97. 

c 

THIS  ENTRV  COAP.  EXPLICIT  2ND  PARTS.  W/RESP  TO  STATE 

Al5 

98. 

ENTRV  AL502Q 

AL5 

99. 

XX399  x LlFT»LlFT99  * LlFT9**2  ♦ 0RAG*DRA699  ♦ DRAG9**2 

Al5 

100. 

XX 39 9 = XX399  ♦ XX399 

AL5 

101 . 

XX3R9  = L1FT*LIFT9R  ♦ LIFT9*lJFTR  ♦ DRAG*DRA69R  ♦ DRAS9*DRA6R 

AL5 

102. 

XX3RV  s XK3R9  ♦ XX3RV 

AL5 

103. 

XX3A9  = LIFT*LIFT9A  ♦ UFTV*lIFTA 

Al5 

104. 

XX3A9  x XX3A9  4 XX3AV 

AL5 

105. 

XX3RR  = LlFT*LlFTfiR  * l!FTR**2  ♦ OR A6*DRA6RR  ♦ DRA6R**2 

AL5 

106. 

XX3RR  = XX3RR  ♦ XK3RR 

AL5 

107. 

XX3AR  x lift*liftra  ♦ liftr*lifta 

Al5 

108. 

XX3AR  * XX3AR  ♦ XX3AR 

AL5 

109. 

XX3AA  x LlFT*LlFTRR  * L1FTA##2  - (6AAX*6R)**2 

AL5 

110. 

XX3AA  s XX  3 AA  4 XX3AA 

AL5 

Ill  . 

c 

THIS  ENTRV  COAP  EXPLICIT  AlXED  PARTS  W/RESP  TO  STATE 

Al5 

112. 

c 

ANO  CONTROL 

AL5 

113. 

ENTRY  AL5011 

AL5 

i 14  . 

XK39A  s LlFT«LlFTVA  4 LlFT9#LlFTA  4 DR A£*DR A69 A 4 OR AG  V *DR A&A 

AL5 

115. 

XK39A  = XK39A  4 XX39A 

AL5 

116. 

XX3RA  x lIFT*lIFTRA  4 lIFTR*lIFTA  4 DR AG*DRA£RA  4 OR A£R*ORA&A 

AL5 

117. 

XX3RA  = XX3RA  4 XX3RA 

AL5 

118. 

XX3AA  x lIFT«lIFTAA  * LlTTA^IFTA 

AL5 

119. 

XX3AA  x XX3AA  4 XK3AA 

AL5 

120. 

c 

THIS  ENTRY  COAP  EXPLICIT  1ST  PARTS  W/RESP  TO  STATE 

AL5 

121  . 

ENTRY  Al5 010 

AL5 

122. 

XK39  x L!FT»LlFTV  4 DRA6*0RA69 

AL5 

123. 

XX 3V  X XX39  4 XK39 

Al5 

124. 

XX3R  x LIFT4LIFTR  4 DRA6*0RA6R 

AL5 

125  . 

XX3R  x XX3R  4 XX3R 

Al5 

126. 

XX3A  x LlFT«LlFTA  - 6R*6AAX**2*N 

Al5 

127. 

XK3A  x XX3A  4 XK3A 

AL5 

128. 

c 

THIS  ENTRV  COAP  EXPLICIT  2ND  PARTS  W/RESP  TO  CONTROL 

AL5 

129. 

ENTRY  AL5002 

AL5 

130. 

30  XK3AA  x LlFT*LlFTAA  4 l!FTA**2  4 QR AG*DR AGAA  4 DRAGA**2 

AL5 

131. 

XX3AA  x XK3AA  4 XK3AA 

Al5 

132. 

c 

THIS  ENTRV  COAP  EXPLICIT  1ST  PARTS  W/RESP  TO  CONTROL 

Al5 

133. 

ENTRY  AL5001 

Al5 

134. 

40  XK3A  x LlFT*LlFTA  4 QRA£«0RA6A 

Al5 

135. 

XX3A  x XX 3 A 4 XX3A 

AL5 

136. 

c 

THIS  ENTRY  EVAi  CONSTRAINING  EO.  ONLY. 

Al5 

137. 

ENTRY  AL5000 

Al5 

138. 

50  TERA3  x GAAX*W 

Al5 

139. 

XX3  x lIFT**2  4 0RA6**r2  - TERA3»*2 

Al> 

140. 

c 

Al5 

141  . 

RETURN 

Al5 

142. 

END 

Al5 
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FORTRAN 

Symbol 


WAT  H 
SYMBOL 


CODE 


DESCRIPTION 


DRAG 


ORAGA 


ORAGAA 


ORAGR 


DR  AGRA 


ORAGRR 


DRAGV 


DRAGVA 


storage  SUBROUTINE  iis.AGj 

blocT  iT5c  subr  code  var 


D t Atrotfynasfc  drag 


aD/d«  I s«t  syifeoi 


d2D/du2  1 


3D/3R  1 


d20/3Rda  1 S,t 


a2D/3R*  1 S,# 


ao/av  1 Sm  syafcal 


a2D/ava«  1 s##  ,»#MI 


(LBS)  /OVNA  /( 


/OYNA  /< 


/DYNA  /( 


/out i /( 


/OVNA  /( 


/OVNA  /< 


/OVNA  /< 


/OVNA  /< 


69)  AL5 

I 

DRAG 

AL7 

I 

DRAG 

alb 

I 

DRAG 

AL9 

I 

DRAG 

apply 

I 

DRAG 

contrl 

I 

ORAG 

ENVPRO 

I 

DRAG 

NLORV 

I 

DRA6 

OUTPUT 

I 

DRAG 

TH3 

I 

ORAG 

UT 

« 

ORAG 

72)  AL1 

1 

DRA6A 

AL5 

I 

ORAGA 

ALT 

.1 

QRA6A 

ALB 

l 

ORAGA 

AL9 

I 

DRAGA 

apply 

I 

ORAGA 

TH3 

I 

DRA6A 

UT 

« 

0RA6A 

78)  AL1 

I 

ORAGAA 

AL5 

1 

ORAGAA 

AL7 

l 

ORAGAA 

alb 

I 

ORAGAA 

AL9 

I 

ORAGAA 

apply 

I 

ORAGAA 

TH3 

I 

ORAGAA 

UT 

n 

DRAGAA 

“71  ) AL5 

r 

omR 

AL7 

i 

ORAGR 

ALB 

i 

ORAGR 

AL9 

i 

0RA6R 

APPLY 

i 

ORAGR 

TH3 

i 

ORAGR 

UT 

* 

ORAGR 

77)  ALl 

i 

DRAGRA 

AL5 

i 

DRAGRA 

AL7 

i 

DRAGRA 

alb 

i 

DRAGRA 

AL9 

i 

ORAGAA 

apply 

i 

DRAGRA 

TH3 

i 

DRAGRA 

UT 

a 

DRAGRA 

76)  AL5 

i 

ORAGRR 

AL7 

i 

ORAGRR 

ALB 

i 

ORAGRR 

AL9 

i 

ORAGRR 

apply 

i 

ORAGRR 

TH3 

i 

ORAGRR 

UT 

r 

ORAGRR 

70)  AL5 

i 

DAAGV 

AL7 

i 

DRAGV 

ALB 

i 

ORA6V 

AL9 

i 

ORA6V 

apply 

i 

DRAGV 

TM3 

i 

0RA6V 

UT 

ft 

DRAGV 

75 L ALl 

i 

ORAGVA 

AL5 

i 

DRAGVA 

AL7 

i 

DRAGVA 

AL8 

i 

ORAGVA 

AL9 

i 

ORAGVA 

APPLY 

i 

DRAGVA 

TH3 

i 

ORAGVA 

UT 

A 

DRA6VA 
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F OR  t R AH 
SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


SUBROUTINE  U5R6E 

BL.OCH  . lTiC  SUBR  CODE YA Pi 


DRA6VR 

OR A6VV 

GMAX 

6R 

LIFT 

lift* 

liftak 

LIFT* 

LIFT** 


a2o/dvaR 


d20/dV* 


6 


Ml 


9r 


L 


dL/da 


dL/Bm 


d2L/a«d« 


ZOYKA 

Z< 

7H)  AL5 

I 

OR  AS VR 

AL7 

I 

0RA6VR 

ALS 

l 

0RA6YR 

Al9 

I 

DRA6YR 

APPLY 

I 

DR  AS YP 

TH3 

I 

DRA6VR 

UT 

n 

0RA6YR 

S»#  »j»6oJ 

ZOYKA 

n 

73)  AL5 

i 

DRA6VY 

AL7 

I 

DR AS Y Y 

alb 

I 

DR  AS V V 

AL9 

1 

ORASVY 

APPLY 

1 

0RA6YY 

TH3 

I 

ORASVY 

- 

UT 

« 

ORASYV 

*■*<**•  tetai 

a(t« 1 tr  at  1 on 

9 

load 

/ AR  COAT / C 

12)  ALS 

I 

6«AX 

NP  LAKE 

I 

6MAX 

TNflOTL 

I 

GftAX 

T H3 

I 

GftAX 

6r  #a1 tail om  I 

acta larat i on 

at 

auMact  of  tha  earth. 

/ Global/ t 

n als 

I 

SR 

(FT/SECM 

APPLY 

I 

SR 

BftAKPT 

I 

6R 

costab 

I 

6R 

costai 

I 

6R 

IKTRPT 

I 

SR 

OUTPUT 

r 

6R 

POBCOL 

i 

SR 

qltosz 

i 

6R 

* 

SALYE 

r 

SR 

STATEF 

i 

SR 

TH3 

i 

6R 

Aarodyaaalc  lift 

( LBS  ) 

/ DYNA 

n 

60)  ALH 

l 

LIFT 

ALS 

i 

LIFT 

AL6 

i 

LIFT 

APPLY 

i 

LIFT 

contrl 

i 

LIFT 

ENVPRO 

i 

LIFT 

OUTPUT 

r 

LIFT 

T H3 

i 

LIFT 

UT 

0 

LIFT 

Sat  lyaktl 

ZOYKA 

n 

63)  ALl 

i 

LI  FT  A 

ALH 

i 

LI  FT  A 

ALS 

i 

LI  FT  A 

AL6 

i 

LIFTA 

APPLY 

i 

LI  FT  A 

TH3 

i 

LIFTA 

UT 

0 

LIFTA 

Sat  i;tkil 

ZOYKA 

/< 

ISM)  ALl 

I 

LI  FT  AA 

AL4 

l 

LIFT  AA 

ALS 

1 

LI  FT  AA 

AL6 

1 

Li  FT  AA 

APPLY 

I 

LI  FT  AA 

TH3 

I 

LI  FT  AA 

UT 

0 

LI  FT  AA 

Sat  ijftkal 

ZOYKA 

/( 

61  ) AL4 

1 

LIFT* 

alS 

I 

LIFT* 

Al6 

I 

LIFT* 

APPLY 

J 

LIFT* 

TH3 

I 

LIFT* 

UT 

0 

LIFT* 

Saa  tyabtl 

ZOYKA 

n 

BS)  ALl 

J 

LlFTflA 

ALM 

I 

LIFTMA 

ALS 

I 

LIFTMA 

AL6 

I 

LlFTMA 

APPLY 

1 

LlFTflA 

T H3 

I 

LlFTflA 

UT 

0 

LI  FT HA 
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FORTRAN  NATH 

SYMBOL  SYMBOL 


DESCRIPTION 


d2L/d»2  1 s,b 


LIFTS  3L/3R  I S«t  s/abi 


L1FTR*  d^L/dRa*  1 S,.*.,’rt*1 


LIFTRH  ^L/aRa*  1 S"  »»,b#l 


d2L/dR*  1 »»«b«» 


LIFT*  9L/dV  > St« 


LIFT**  a2L/  d Vda  1 *»,b,‘ 


d2L/d*d»  1 


LIFTVR  d2L/dVdR  * S"  *»,b,‘ 


a2L/av2  1 5,t  *»,bbl 


)l  SUftBQi 

/tin 

E USAGE 

i 

LOC  5UBR 

coo 

E VAft 

/( 

84)  AL4 

I 

LIFT** 

AL5 

I 

LIFT** 

AL6 

1 

lift** 

APPLY 

I 

lift** 

TH3 

I 

lift** 

UT 

0 

LIFT** 

/t 

62)  AL4 

I 

LIFTS 

AL5 

I 

LIFTS 

AL6 

I 

LIFTS 

APPLY 

I 

LIFTS 

TH3 

I 

LIFTS 

UT 

0 

LIFTS 

/( 

66)  AL1 

I 

LIFTBA 

AL4 

I 

LIFTRA 

AL5 

I 

LJFTRA 

AL6 

I 

LIFTRA 

APPLY 

I 

LIFTRA 

TH3 

] 

LIFTRA 

UT 

0 

LIFTRA 

/( 

63)  AL4 

1 

LIFTR* 

AL5 

I 

LIFTS* 

AL6 

I 

LIFTS* 

APPLY 

I 

LIFTR* 

TH3 

I 

LIFTS* 

UT 

0 

LIFTS* 

/( 

67)  AL4 

I 

LIFTSS 

AL5 

I 

LIFTRR 

AL6 

I 

LIFTSS 

APPLY 

I 

LIFTRR 

TH3 

I 

LIFTSS 

UT 

0 

LIFTSS 

/< 

61)  AL4 

I 

LI  FT  Y 

AL5 

I 

LIFTY 

AL6 

I 

L1FTY 

APPLY 

I 

LIFTY 

TH3 

1 

LIFTY 

UT 

0 

LIFTY 

/< 

66)  AL1 

1 

Ll FT YA 

AL4 

I 

LIFTYA 

AL5 

I 

LIFTVA 

AL6 

I 

LIFTYA 

APPLY 

1 

LlFTYA 

TH3 

I 

LIFTVA 

UT 

0 

LIFTYA 

/< 

82)  AL4 

I 

LIFTY* 

ALS 

1 

LIFTY* 

AL6 

I 

LIFTY* 

APPLY 

I 

LIFTY* 

TH3 

I 

LIFTY* 

UT 

0 

LIFTY* 

/< 

6$)  AL4 

I 

LIFTYR 

AL5 

I 

LIFTYR 

AL6 

I 

LIFTYR 

APPLY 

I 

LIFTYR 

TH3 

I 

LIFTYR 

UT 

0 

LIFTYR 

/c 

64)  ALH 

I 

LIFTYY 

ALS 

I 

LI  FT YY 

AL6 

I 

LIFTYY 

APPLY 

I 

LIFTYY 

TH3 

I 

LIFTYY 

UT 

0 

LIFTYY 
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DESCRIPTION 


91  ) AL5  I 

ENVPRQ  ! 
OUTPUT  1 
POBCQL  I 
OLTOSZ  I 
5TATEF  * 
TH3  I 


fc  OCT  72  6.01-M 


SUBR0UT  I.NE 
AL6 


Purpose 

AL6  evaluates  the  gravity  turn  constraint.  Equation  10.3-1  in  Vol.  I. 

In  addition,  it  computes  the  explicit  first  and  second  partials  of  this 
constraint  with  respect  to  the  state  and  control  as  they  are  needed. 


ALA 


1 . 

SUBROUTINE  AL6 

AL6 

2. 

C 

AL6 

3. 

C 

THIS  ROUTINE 

APPLIES 

WHEN 

A TOTAL 

GRAVITY 

TURN  IS  IN 

AL6 

*. 

C 

EFFECT 

AL6 

5. 

C 

AL6 

6. 

C 

AL6 

r. 

logical  switch,  iloao 

DYNA 

e. 

real  HACH  ISP,  ISPV,  1SPR 

ISPrt, 

I SPT 

ISPYY 

ISPYR.  ISPYH. 

OYNA 

9. 

♦ISPYT.  1 SPRR . ISPRfl.  I SPAT 

ISPrtR, 

ISPHT 

. ISPTT 

LIFT. 

LIFTV. 

DYNA 

10. 

♦LlFTR.  L1FTA.  LIFTVV.  LlFTVR.  LIFT 

VA,  LlFTRR.  L 

i FTRA . HUR.  LlFTAA. 

DYNA 

11. 

♦IRATED,  ISPF,  JSPFF 

OYNA 

u. 

REAL  HACHY,  HACHR,  HACHVR, 

HACHRR 

DYNA 

13. 

REAL  LIFTH,  LIFT  Vfl  LlFTRR, 

liftihr 

. LIFTHA 

DYNA 

1*. 

corron  /dvwa/ 

OVNA 

15. 

♦XX  , Tl HE  . S1NGAR. COSGAH. OHEGA 

, 0HEGA2 . R 

,& 

, $ I NA  , 

JUL21 

u. 

♦ COSA  DYN01 1 0RE6AT,TARP 

,PA 

,R0 

,cs 

,tehpr 

,PAR 

DYNA 

17. 

♦ RQR  ,CSR  ,TERPRR,PARR 

, RORR 

, CSRR 

, XOOE 

, HACH 

DYNA 

IB. 

♦ QV  .OR  .QV*  , Q VR 

ORR 

. F Y AC 

,fyacy 

, F VACR 

F Y ACH  , 

DYNA 

19. 

♦FVACT  .FVACW.FVACVA.FVACRR.FVACTT 

, T 

, HACH Y 

HACHR 

, ISP 

DYNA 

20. 

♦I SPY  , 1 SPR  ,ISPH  , I SPT 

, ISPYY 

, JSPYR 

I SP  YH 

, I SPVT 

I SPRR  , 

OYNA 

21 . 

♦ISPRfl  I SPRT  ,ISPRR  , I SPrtT 

I SPTT 

LIFT 

,LIFTY 

,L I FTR 

Li FTA  , 

OYNA 

22. 

♦LlFTVV,LlFTVR,LlFTVA,LlFTRfl 

'lTftra 

.DRAG 

.0RAGY 

DRAGR 

ORAGA  , 

DYNA 

23. 

♦ DRAGW,0RAS*R  ,0RA6VA, ORAGRF 

DR AGRA 

. DfiAGAA. ALPHA 

.PHI 

, LI FTH  , 

DYNA 

2*. 

.♦LlFTVR,LlFTRRfLlFTflPl,LlFTRA 

, DBR 

. DDRR 

.GAHHA0. AE 

TAX  ; 

DYNA 

25. 

♦W  SINPHI,COSPHl,SINPSl 

,C0SPS1 

.SINRHO.COSRHO.SINROR 

COSROR , 

DYNA 

26. 

♦ RUR  , XK6  , XKP  AX  1 N 

, CDO 

,CD0H 

, ClO 

,FX 

, XCGH  , 

DYNA 

27. 

♦XCGHH  ZCGH  ,2CGHF1  ,XJV 

, X JR 

, X J Y Y 

, X J Yfl 

, X JRR 

,HACHYR, 

DYNA 

28. 

♦HACHRR,SIN2R0,C0S2R0,C0S2GX 

,CH 

, cha 

. CRH 

, CHAA 

,CHHH  , 

OYNA 

29. 

♦char  ,c«o  ,eno«  ,chorr 

CHARH 

, ULFT* 

.ulftr 

, ULFT  YY 

,ULFTYR, 

DYNA 

30. 

*ULFTVA,ULFTRR,ULFTRA,IPOW 

, XARC 

, T5T  ART , GH 

, 6RR 

Li FTAA, 

DYNA 

31. 

♦cdopw  ,clarh  ,clO«  ,Clohh 

0 YN 1 * 9 

,CT 

COD  AE 

, S I DAE 

COD  , 

DYNA 

32. 

♦510  , OELTAE, CDE  , XCG 

, ZCG 

,XJ 

. XHCG 

. C ALPHA 

, alhax  , 

DYNA 

33. 

♦OB  , ULFT  CULFT  ,ULFTA 

, TSTA6E 

,TIHES 

. XHCGAA . I RATEO 

, FRATEO 

OVNA 

3*. 

COrtRON  /OVNA/ 

DYNA 

35. 

♦ RTT  ,J1  , J2  , J 3 

, XHC6A 

. F Y ACF 

.ULFTAA. ISPF 

, I SPFF  , 

OYNA 

36. 

♦iload  ,fkr  ,fkrr  , switch 

, INOF 

CL 

, ClA 

,CLH 

,CLAA  , 

DYNA 

37. 

♦clhh  , Cl An  ,cd  ,cda 

,cdr 

. CDA A 

.conn 

, CDAn 

,0YNI98, 

OVNA 

38. 

♦OYN199,OYN20O, XHC6V  ,XHCGR 

, XHCGfl 

XHCGVV. XHCGYfi 

, XHCG YH 

XHCGYA, 

OYNA 

39. 

♦ XflCGRR,  XftC6Rn,xnCGRA  XPlCGFW 

, XRCGHA 

, RORRR 

.0VN21* 

, DYnl2 1 5 

DYN21 6 , 

DYNA 

*0 . 

•0YN21 7 , IQAR  ,TAIRB  ,TAIRBV 

TAIR8H 

, T ARB V V . T ARBMH 

,tarbyh 

, SFC 

JUL21 

*1  . 

♦SFC V SFCH  SFC*  V ,SFCHH 

;SFCYH 

AUG09 

*2. 

oi  hens  Son  pro6u2,  a*) 

HATS 

*3. 

CO  MON  /HATS/ 

HATS 

**. 

♦PI  ,P2  ,P3  ,XK1 

, XK2 

XX3 

, XX  IT 

, XX2T 

, XX3T  , 

HATS 

*5. 

♦ XK10  XK20  XK30  ,XK1A 

XX2A 

XK3A 

, YOA 

, GOA 

, P DA 

HATS 

*6. 

♦ XR19  XR20  XR2 1 ,Xfl22 

'xKITT 

XX2TT 

XX3TT 

, XX I TO 

, XK2TD  , 

HATS 

*7. 

♦ XK3T0  , X A 1 TA  , XK2TA  ,XK3TA 

, XX I DO 

XK200 

, XX  300 

, XX 1 OA 

XK20A  , 

HATS 

*8. 

♦ XK3DA  XK 1 AA  ,XK2AA  ,XK3AA 

, XHHl 

,XR*2 

, XH*l  3 

, XH*i 

,XHi5  # 

HATS 

*9. 

♦ XX  1 V XK2 Y , IX  3 Y ,XX1G 

, XK2G 

, XX  36 

,XX1P 

, XX2P 

XX  3P  , 

HATS 

50. 

♦ XX 1 R XX2R  XX  3R  ,XKlO 

XX20 

, XX 30 

, XX  1 u 

,XX2U 

,XX3U  , 

HATS 

51. 

♦XX IH  ,XK2R  XK3H  ,XX1Z 

, XX2Z 

XX3Z 

XX  1 YT 

XK2  VT 

XX  3 YT  , 

HATS 

52. 

♦XK1Y0  XK2 YD  ,XK3Y0  ,XX1YA 

XX2  YA 

XK3YA 

XX 1 GT 

XK2GT 

XX36T  , 

HATS 

53. 

♦ XX 1 GO  , XK2GD  , XX 3GD  ,XX1GA 

XX2GA 

XK36A 

, XX  1 PT 

, XX2PT 

XX  3PT  , 

HATS 

5*. 

♦ XX1PD  , XK2PD  XX 3PD  ,XX1PA 

, XX2PA 

XX  3P  A 

, XX 1 RT 

XK2RT 

XX3RT  , 

HATS 

55. 

♦XK1R0  , XX2RD  ,XK3R0  ,XK1RA 

, XX2RA 

,XK3RA 

, XX 10T 

XK20T 

XX  30T  , 

HATS 

56. 

• XX 100  , XK200  , XX  300  ,XK10A 

X X20A 

XX  30A 

, XX 1 UT 

XX2UT 

XX3UT  , 

HATS 

57. 

♦ XX 1UD  , XK2U0  , XX 3U0  .XX1UA 

, XX2UA 

XX3UA 

, XX1HT 

, XK2HT 

, XX3HT 

HATS 

58. 

COrtRON  /HATS/ 

HATS 

59. 

♦ XK1H0  , XK2H0  , XX 3HD  ,XK1HA 

XK2HA  , 

XK3HA 

, XX 1ZT 

, XK2ZT 

XX3ZT  , 

HATS 

60. 

♦XK1ZD  , XK2ZD  ,XK3Z0  ,XK1ZA 

XX  2Z A . 

XX3ZA 

XX  1 Y Y 

, XK2  Y Y 

XX  3YY  , 

HATS 

61. 

♦XKlGV  XX2GY  ,XK3bV  ,XK1PY 

XX2P  Y . 

XK3PY 

, XK1RY 

XK2R  Y 

XX 3R Y , 

HATS 

62. 

♦XK10Y  XK20Y  ,XK30Y  ,XK1UY 

XX2U Y . 

XK3UY 

XX 1HY 

XK2HY 

XX 3flV  , 

HATS 

63. 

♦XK1ZY  XX2ZY  XX3ZY  ,XX166 

, XX2GG  , 

XX3GG 

XKIPG 

,XX2PG 

XK3PG  , 

HATS 

6*. 

♦XK1RG  XK2RG  ,XK3RG  .XX10G 

XK20G  . 

XX30G 

.xxiue 

, XK2UG 

XK3UG  , 

HATS 

65. 

♦XK1HG  XK2HG  ,XK3HG  ,XK1ZG 

XK2ZG  . 

XX3Z6 

,XX1PP 

XX2PP 

X-K  3PP  , 

HATS 

66. 

♦XK1RP  , XK2RP  XX3RP  XX10P 

XX20P  . 

XX30P 

, XX 1UP 

,XX2UP 

XX  3UP  , 

HATS 

67. 

♦ XX1HP  , XX2HP  , XX3flP  ,XX1ZP 

XK2ZP  , 

XX3ZP 

XX 1RR 

XK2RR 

XX3RR  , 

HATS 

66. 

♦XX10R  , XK20R  XK30R  ,XK1UR 

XK2UR  . 

XX3UR 

,XX1HR 

,XK2HR 

' XX3HR  , 

HATS 

69. 

♦ XX 1 ZR  , XX2ZR  XK3ZR  ,XX100 

'XK200  . 

XX  300 

,Xxiuo 

,XX2U0 

XX 3U0  , 

HATS 

70. 

♦XKIHO  , XK2flO  ,XX3H0  .XK1Z0 

XX2Z0  , 

XK3Z0 

, XX 1 uu 

, XX  2UU 

XK3UU  , 

HATS 

71. 

♦ XX1HU  , XK2HU  . XX  3HU  ,XK1ZU 

XX2ZU  . 

XK3ZU 

XX  1 HH 

,xx?nn 

XX 3HH  , 

HATS 

72. 

♦XX 1 ZH  XX2ZH  XK3ZH  ,XK1ZZ 

XX2ZZ  . 

XX3ZZ 

. XKP I 1 1 

, XXP 1 2 1 

XKP I 3 1 , 

HATS 

73. 

♦XXPI12.XXPJ22.XXPI32.XXPI13 

' XKP 1 23, 

XX  P I 3 3 . P A 1 

,PA2 

HATS 

7*. 

COrtRON  /HATS/ 

HATS 

75. 

♦ OPOY(  3,  8),  DEPDEYt  2,  8),  OPDLt  3,  3),  PR0D5t  3,  6*),  PR00912,  2*1 

HATS 

01-** 


7*. 

COftMON  /HATS/ 

NATS 

77. 

♦PV  P6  ,PP  ,PR  ,P0  ,PVY  ,P6 6 

,PPY 

-PRY 

NATS 

78. 

»POY  >68  ,PP6  ,PR6  .POG  ,PPP  ,PRP 

,POP 

PRB 

NATS 

79. 

80. 

•POA  >00  .PL6  .PLP 

EQU1  VaUnCE<  PftOD  1 , PR0O5  1 

NATS 

NATS 

81. 

c 

Al6 

62. 

c 

THIS  ENTRY  COrtP  EXPLICIT  2ND  PARTS 

U/RESP 

TO 

STATE 

AL6 

83. 

ENTRY  AL6020 

AL6 

89. 

ASSIGN  6 TO  IGO 

AL6 

85. 

GO  TO  5 

AL6 

5 — 

86. 

c 

THIS  ENTRY  COrtP  EXPLICIT  NIXED  PARTS  W/RESP 

TO  STATE 

AL6 

87. 

c 

ANO  CONTROL 

AL6 

86. 

ENTRY  AL6011 

AL6 

89. 

ASSIGN  10  TO  IGO 

AL6 

90. 

60  TO  S 

AL6 

5 — 

91. 

c 

THIS  ENTRY  CO«P  EXPLICIT  1ST  PARTS 

U/RESP 

TO 

STATE 

AL6  ~ 

...  . 

92. 

ENTRY  AL6010 

AL6 

93. 

ASSIGN  20  TO  IGO 

ALb 

99. 

GO  TO  5 

AL6 

5 — 

95. 

c 

THIS  ENTRY  COUP  EXPLICIT  2N0  PARTS 

U/RESP 

TO 

CONTROL 

ALA 

9*. 

ENTRY  AL6002 

AL6 

97. 

ASSIGN  30  TO  IGO 

AL6 

98. 

60  TO  5 

ALA 

5 — 

99. 

c 

THIS  ENTRY  COrtP  EXPLICIT  1ST  PARTS 

U/RESP 

TO 

CONTROL 

ALb 

100. 

ENTRY  ALbOOl 

ALb 

101. 

ASSIGN  90  TO  160 

ALb 

102. 

GO  TO  5 

Al6 

5 — 

103. 

c 

THIS  ENTRY  EVAL  CONSTRAINING  £0. 

ALb 

109. 

ENTRY  AL6000 

ALb 

105. 

ASSIGN  50  TO  IGO 

ALb 

106. 

c 

INITIALIZATION  FOR  ALL  ENTRIES 

ALb 

107. 

5 

TCOAE  s T*CODAE 

ALb 

108. 

T50AE  a T*SIOA£ 

ALb 

109. 

D6CA  = 06+COSA 

ALb 

no. 

OBSA  = 06*SINA 

ALb 

111. 

GO  TO  IGO 

ALb 

112. 

c 

2ND  PARTS  U/RESP  TO  STATE 

ALb 

113. 

6 

XK3YY  s lIPTYY 

ALb 

119. 

XK3RV  £ lIFTYR 

ALb 

115. 

XX3HY  a lIFTY* 

ALb 

lib. 

XK3RR  a lIFTRR  - OBRR«SINA 

ALb 

117. 

X*3rtR  a LIFTRN 

AL6 

118. 

XA3IW  a LlFTM 

ala 

119. 

c 

rtlXEO  PARTS  U/RESP  TO  STATE  ANO  CONTROL 

AL6 

120. 

10 

XX3YA  a LlFTVA 

ALA 

121. 

XX3RA  a lIFTRA  - 08R*C0SA 

ALb 

122. 

XK3rtA  a LlFTrtA 

ALb 

123. 

c 

1ST  PARTS  N/RESP  TO  STATE 

ALb 

129. 

20 

XK3Y  a lIFTY 

ALA 

125. 

XK3R  = LIFTR  - OBR*  S I NA 

ALb 

126. 

XK3A  = LlFTA 

ALb 

127, 

c 

2ND  PARTS  U/RESP  TO  CONTROL 

ALb 

126. 

30 

XX3T0  a -COO AC 

AL6 

129. 

XX3TA  a COOAE 

ALb 

130. 

XK3DD  a -TSOAE 

ALb 

131. 

XX3DA  a TSOAE 

ALb 

132. 

XX3AA  a Li  FT  AA  4 DBS A - TSOAE 

ALb 

133. 

c 

1ST  PARTS  N/RESP  TO  CONTROL 

AL6 

139. 

90 

XX3T  a SIOAE 

ALb 

135. 

XX 30  a -TCOAE 

ALb 

136. 

XK3A  a TCOAE  * DBCA  4 lIFTA 

ALb 

137. 

c 

CONSTRAINING  EQ. 

ALb 

136. 

50 

XX3  a TSOAE  ♦ LIFT  - 085A 

ALb 

139. 

c 

ALb 

190. 

RETURN 

ALb 

191. 

END  . 

ALb 

6 OCT  72  6.01-99 


FORTRAN  RATH 

SYMBOL  SYMBOL 


DESCRIPTION 


STP»»6£  . 
Slock ZZ 


SUBROUTINE  USAG 


CODAE  cos(o-Sg)  1 Sta  syabol 


I Sts  syabol 


D I But  dr *9 

b 


DBR  dD^/dR  1 Stt  syabol 


om  38Dk/dRJ  1 s,t  *»,k#l 


L I Atrodynoalc  lift 


(LBS)  /DYNA  /( 


151) 

AL1 

CODAE 

AL4* 

CODAE 

AL6 

CODAE 

AL7 

CODAE 

AL8 

CODAE 

AL9 

CODAE 

apply 

CODAE 

CONTRL 

CODAE 

NLORY 

CODAE 

TH3 

UT 

0 

10) 

- AL1 

COSA 

AL*t 

COS  A 

AL6 

COSA 

AL7 

COSA 

ALB 

COSA 

AL9 

COSA 

APPLY 

COSA 

CONTRL 

COSA 

NLDRV 

COSA 

OUTPUT 

COSA 

TH3 

COSA 

UT 

COSA 

163) 

AL1 

OB 

AL* 

OB 

AL6 

DB 

AL7 

DB 

AL8 

DB 

AL9 

DB 

APPLY 

DB 

CONTRL 

OB 

NLORY 

OB 

OUTPUT 

OB 

5TATEF 

DB 

TH3 

DB 

UT 

DB 

66) 

AL1 

DBR 

AL1 

OBR 

AL6 

DBR 

AL7 

OBR 

ALB 

DBR 

ALt 

DBR 

apply 

DBR 

STATEF 

OBR 

TH3 

DBR 

UT 

DBR 

87) 

ALH 

OBRR 

AL6 

DBRR 

ALT 

OBRR 

AL6 

DBRR 

AL9 

OBRR 

APPLY 

OBRR 

STATEF 

OBRR 

TH3 

DBRR 

UT 

DBRR 

60) 

AL4* 

LIFT 

AL5 

LIFT 

AL6 

LIFT 

APPLY 

LIFT 

CONTRL 

LIFT 

ENVPRQ 

LIFT 

OUTPUT 

LIFT 

TH3 

LIFT 

UT 

0 

LIFT 

6 OCT  12  6.01-«« 


& 


FORT  RAM 
SYMBOL 


MAT  H 
SYMBOL 


CODE 


DESCRIPTION 


LIFTA  3L/d«  1 Sa*  »y"bol 


LI  FT  AA  d*L/do*  1 *Y*be* 


LIFTM  dL/dm  I S*«  syabol 


liftma  a2L/a»a«  1 s#®  **“bel 


liftmm  a2L/a»2  1 •/■h®* 


LIFTR 


dL/dR 


S««  syabol 


LIFTS*  d*L/3Ra«  1 5,t  »»■*•< 


LIFTS*  32L/ 3Rd«  1 s*«  »»•*•! 


LIFTS*  32L/3R2 


$••  syabol 


LIFTY  3L/3V  1 S«t  *y*bel 


STORAGE,  SUBRQjjTIM^.y^AS^. 

block loc  subr  code var 


/DVNA  /( 


/DYNA  /( 


/ DYMA  /( 


/DYNA  /( 


/ DYMA  /( 


/DYMA  /( 


/OVNA  /( 


/DYNA  /( 


/DYMA  /( 


/DVNA  /( 


63)  AL1 
ALH 
AL5 
AL6 
APPLY 
TH3 
UT 

1HH)  AL1 
ALH 
AL5 
AL6 
APPLY 
TH3 
UT 

61  ) ALH 
AL5 
AL6 
APPLY 
T M3 
UT 

65)  ALl 
ALH 
AL5 
AL6 
APPLY 
TH3 
UT 

8H  ) ALH 
AL5 
AL6 
APPLY 
TH3 
UT 

62)  ALH 
AL5 
AL6 
APPLY 
TH3 
UT 

66)  AL) 
ALH 
AL5 
AL6 
APPLY 
TH3 
UT 

83)  ALH 
AL5 
AL6 
APPLY 
TH3 
UT 

6?)  ALH 
AL5 
AL6 
APPLY 
TH3 
UT 

61  ) ALH 
AL5 
AL6 
APPLY 
TH3 
UT 


I LIFTA 
1 LIFTA 
1 LIFTA 
I LIFTA 
I LIFTA 
I LIFTA 

0 LIFTA 

1 LIFTAA 
I LIFTAA 
I LIFTAA 
I LIFTAA 
I LIFTAA 
I LIFTAA 

0 LIFTAA 

1 lift  m 

I LIFTM 
I LIFTM 
I LIFTM 
I LIFTM 

0 LIFTM 

1 LIFTMA 
1 LIFTMA 
I LIFTMA 
I LIFTMA 
I LIFTMA 
I LIFTMA 

0 LIFTMA 

1 LIFTMM 
I LIFTMM 
I LIFTMM 
I LIFTMM 
I LIFTMM 

0 LIFTMM 

1 LIFTR 
I LIFTR 
I LIFTR 
I LIFTR 
I LIFTR 

0 LIFTR 

1 L1FTRA 
I LIFTRA 
I LIFTRA 
1 LIFTRA 
1 LIFTRA 
I LIFTRA 

0 LIFTRA 

1 L1FTRM 
I L1FTRM 
I LIFTRM 
I LIFTRM 
I LIFTRM 

0 LIFTRM 

1 LIFTRR 
I LIFTRR 
I LIFTRR 
I LIFTRR 
I LIFTRR 

0 LIFTRR 

1 LIFTY 
I LIFTY 
I LIFTY 
I LIFTY 
1 LIFTY 
0 LIFTY 


6 OCT  72  G.Ol-HH 


FORTRAN  RATH 

SVRBOL  SVRBOL 


DESCRIPTION 


STORAGE  SUBROUTINE  USftG 

“BLO^i LOC  SUBR  CODE VAR 


LIFTVA  32L/3V3a  1 S,# 


32L/3V3n  1 S#*  *»*bo1 


32L/SVdR  1 s" 


LIFTVV  32L/dV2  1 tyafc 


SIOAE  s1n(  a-^)  1 iyal#| 


SINA  s | na  I St#  tyabtl 


(LBS)  /DVNA  /( 


66)  ALl 

1 

LIFTVI 

AL4 

I 

LIFTVI 

AL5 

I 

LlFTVJ 

AL6 

I 

LIFTVI 

APPLY 

I 

LIFTVI 

TH3 

I 

LI  FT  VI 

UT 

0 

LI  FT  VI 

62  ) ALA 

I 

LIFTVR 

AL5 

I 

LIFTVR 

AL6 

I 

LIFTVR 

APPLY 

I 

LIFTVR 

TH3 

I 

LIFTVA 

UT 

0 

LIFTVA 

65)  ALA 

1 

liftvr 

ALS 

1 

liftvr 

AL6 

I 

liftvr 

APPLY 

I 

liftvr 

T M3 

I 

liftvr 

UT 

0 

LIFTVR 

6A)  ALA 

I 

LIFTVV 

ALS 

I 

L1FTVV 

AL6 

1 

LIFTVV 

APPLY 

I 

LIFTVV 

TH3 

I 

LIFTVV 

UT 

0 

LIFTVV 

152)  ALl 

1 

SI  DAE 

- * ALA 

I 

SI  DAE 

AL6 

I 

SI  DAE 

AL7 

I 

SI  DAE 

alb 

1 

SI  DAE 

AL9 

I 

SI  DAE 

APPLY 

I 

SI  DAE 

contrl 

I 

SI  DAE 

TH3 

1 

SIDAE 

UT 

0 

S1DAE 

9)  ALl 

I 

SINA 

ALA 

I 

SINA 

AL6 

1 

SINA 

AL7 

I 

SINA 

AL8 

I 

SINA 

AL9 

l 

SINA 

APPLY 

I 

SINA 

CONTRL 

I 

SINA 

OUTPUT 

I 

SINA 

TH3 

l 

SINA 

UT 

n 

SINA 

A2  ) AL&CON 

H 

T 

ALl 

i 

T 

ALA 

i 

T 

AL6 

i 

T 

ALT 

i 

T 

AL0 

i 

T 

AL9 

l 

T 

APPLY 

I 

T 

ARCItt 

0 

T 

CONTRL 

R 

T 

0L2 

I 

T 

IRPULS 

I 

T 

OUTPUT 

I 

T 

T HI 

I 

T 

TH2 

I 

T 

T M3 

I 

T 

THA 

I 

T 

6 OCT  72  G.Ol-9* 


SUBR0UT I NE 
AL7 


Purpose 


AL7  evaluates  the  dynamic  pressure  rate  constraint.  Equation  10.6-1  in 
Vol.  I.  In  addition,  it  computes  the  explicit  partials  of  this  constraint 
with  respect  to  the  state  and  control  as  they  are  needed. 


AL7 


1 . 

subroutine  ALT 

AL7 

2. 

REAL  MAGBV,  MU.  M.  LY,  LGAM.  LPSI, 

LR,  LRHO,  LMU,  LM, 

LTAU,  NOM 

D 

3. 

9. 

♦.  LMT 

Common  /o/ 

D 

D 

5. 

♦ X,  H.  NIC  H > . MAGBV,  ERR.  DS 

. DIO. 

C(  90). 

CSAYE( 90  ) . Y. 

GAM,  PSI, 

D 

6. 

♦ALT .RHO.flU .M.  TAU.  MT.  LV. 

LGAM.  LPSI . LR . LRHO 

LMU  . 

LM,  LTAU. 

JUL21 

7. 

♦LHT.  0109.  0110.  BYt9&>.  2SAVE(20).  0T(20).  NP0JNT<26> 

. 6ELT(20) 

D 

8. 

DIMENSION  H0ni2b) 

0 

9. 

EQUIVALENCE  (NOM,  tf> 

D 

10. 

LOGICAL  SWITCH,  I LOAD 

DYNA 

1 1 . 

REAL  MACH.  ISP.  ISPY,  ISPR, 

1SPM, 

I SPT 

ISPYV. 

SPVR . 

ISPYM, 

DYNA 

12. 

♦ISPVT,  1 SPRR , ISPRM.  1SPRT, 

I SPMM. 

1 SPMT 

, I SPT  T 

Lift. 

LIFTY, 

OYNA 

13. 

♦LIFTR.  LIFTA.  LIFT**,  LlFTYR,  LlFl 

YA,  LIFTRR,  LlFTRA. 

MUR,  LIFTAA, 

OYNA 

19. 

♦IRATEO,  ISPF,  ISPFF 

DYNA 

15. 

REAL  MACH V , MACHR,  MACHVfi 

MACHRR 

DYNA 

16. 

REAL  LIFTM.  LlFTVM,  lIFTRM, 

LIFTMM^-LIFTMA 

DYNA 

17. 

COMMON  /DYNA/ 

DYNA 

18. 

♦ XX  .TIME  , S I No AM  COS GAM 

.OMEGA 

. 0MEGA2 , R 

,6 

, S I NA 

JUL21 

19. 

♦COSA  DYN01 l.OMEoAT  TAMP 

, P A 

,R0 

,CS 

.TEMPR 

.PAR 

DYNA 

20. 

♦ROR  , CSR  , TEnPRR. P ARR 

RORfi 

, CSRR 

, XODE 

.MACH 

,Q 

DYNA 

21 . 

♦ QV  , QR  ,QVV  , 3 VR 

, QRR 

,FYAC 

.fyacy 

.fyacr 

, F VACM 

DYNA 

22. 

♦FVACT  .FvACVV.FYACYfi.FVACfiR 

F Y ACTT 

, T 

.MACHY 

.MACHR 

ISP 

DYNA 

23. 

♦ 1SPV  , I 5PR  .ISPft  I SPT 

.1SPYY 

, ISPVR 

, ISPYM 

1 SP  YT 

, ISPRR 

DYNA 

29. 

♦ISPRM  .ISPRT  .ISPrtM  1 SPMT 

1 SP  TT 

.LIFT 

.LIFTY 

.LIFTR 

.LIFTA 

OYNA 

25. 

♦LlFTVV,LJFT¥R,LlFT*A,cIFTRfi 

.LIFTRA 

.DRAG 

. DRAG  V 

DR  AGA 

DRA6A 

DYNA 

26. 

♦DRAGVV.QRAGVR.ORAGVA.DRAGfiR 

.DRAbfiA 

DRAGAA. ALPHA 

.PHI 

.LIFTM 

DYNA 

27. 

♦ LIFT VM, LIFTRM  LlFTMM  I-IFTMA 

, DBR 

. DBRR 

, GAMMAG 

.ae 

.TAX 

DYNA 

26. 

♦W  .SINPHI.COSPHI.SINPSI 

.COSPSI 

. S I NRHO , COSRHC 

, S I NROR . COSROR , 

DYNA 

29. 

♦MUR  , XXG  ,XXP  AKIN 

CD  0 

.COOM 

, CLO 

, F X 

, XC6M 

DYNA 

30. 

♦XC6MM  , 2CGM  , 2CGMM  ,XJ¥ 

, X JR 

. X J Y Y 

, XJYR 

. X JRR 

. MACHYR , 

OYNA 

31  . 

♦MACHRR .5IN2R0 ,CG52fi0 .C0S2GM 

,c« 

. CMA 

, Cmm 

, CMAA 

.CMflM 

OYNA 

32. 

♦CMAM  ,CMO  ,CMOM  CrtOMM 

CMAMM 

.ULFTV 

, ULFTR 

.ulftyy.ulftvr. 

DYNA 

33. 

♦ULFTYA.UlFTRR.ULFTRA.IPOw 

, X ARC 

.tstart.gh 

,grr 

.LIFTAA. 

DYNA 

39. 

♦COOMM  .ClAMM  ,CLOM  .ClOMM 

DYN199 

,CT 

, COO AE 

.SIDAE 

.COD 

DYNA 

35. 

♦SID  .DELTAE.CDE  , XCG 

, ZCG 

,XJ 

, XMC6 

.CALPHA, ALMAX 

DYNA 

36. 

♦DB  ,ULFT  .CULFT  ,UlFTA 

, T51 AGE 

.times 

, XMCGAA 

, I RATED , FRATED 

OYNA 

37. 

COMMON  /OYNA/ 

OYNA 

38. 

♦MTT  ,J1  ,J2  ,J3 

, XMCGA 

. F YACF 

.ulft-aa 

, ISPF 

.ISPFF 

DYNA 

39. 

♦Iloao  ,fxm  ,fxma  .Switch 

, INQF 

,CL 

,Cla 

.Clm 

.Claa 

DYNA 

90  . 

♦Clmm  .Clam  ,cd  ,coa 

, COM 

. CDAA 

, CDMM 

, CDAM 

.DYN198. 

DYNA 

91  . 

♦DYN199.0YN200.XnCG*  XfiCGR 

, xnCGrt 

. XMCGVV, XMCGYP 

, xmcgym, XMCGYA, 

DYNA 

92. 

♦XMCGRR, XMCGRM  XMCoR A XMCGCIM 

, XMCGMA 

. RORRR 

, DYN2 1 9 

, 0VN2I5 , DYN216, 

DYNA 

93. 

♦DYN217.I0AM  TAIRB  TAlfiBW 

T A I RBH 

.TARBYY.TARBHH 

, TARBYH, SFC 

JUL21 

99. 

♦SFCY  . SFCH  ,sfcy*  ,sfch* 

, 5FCYH 

AUG09 

95. 

DIMENSION  PR0DK2,  69 1 

MATS 

96. 

COMMON  /MATS/ 

MATS 

97. 

♦PI  ,P2  ,P3  ,XK1 

, XK2 

, XX 3 

, XX  IT 

, XX2T 

, XX3T 

MATS 

98. 

♦ XX 1 0 ,XK2D  ,XX3D  ,XK1A 

, XX2A 

. XX3A 

, YOA 

, GDA 

.PDA 

MATS 

99. 

♦XM19  , XM20  ,XM21  ,IM22 

, XX1TT 

* XX2T T 

. XX3TT 

, X X 1 TO 

, XX2TD 

MATS 

50. 

♦ Xl(3T0  .XK1TA  .XK2TA  , X* 3T A 

, XX 1 DO 

, XK2DD 

, XK3D0 

, XKIDA 

, XK2DA 

MATS 

51 . 

♦ XK3DA  .XK1AA  , X X 2 A A .XK3AA 

, XM91 

, XM92 

, XM9  3 

, XM9  9 

,XM95 

MATS 

52. 

♦XX 1 Y ,XX2V  , XX3 V , XX 1 o 

, XX2G 

, XX 3G 

,XX1P 

, XX2P 

,XX3P 

MATS 

53. 

♦XK1R  , XK2R  ,XX3R  ,XX10 

, XX20 

, XX30 

, XX  1 u 

, XX2U 

, XX3U 

MATS 

59. 

♦ XX 1 M , XX2M  ,XK3M  , XX 12 

XX2Z 

, XX 3Z 

, XX  1 YT 

.XX2VT 

.XX3YT 

MATS 

55. 

♦ XX 1 YD  .XX2Y0  ,XX3<D  .XXlVA 

, XK2YA 

, XX  3 V A 

, XX 1 GT 

, XK2GT 

XX  3GT 

MATS 

56. 

♦XK1GD  .XX2GD  , XX3GD  .XK1GA 

, XX2GA 

. XX3GA 

, XX 1PT 

, XX2PT 

XK3PT 

MATS 

57. 

♦XX1PD  , XK2PD  .XX3PD  .XX1PA 

, XK2PA 

, XX3PA 

, XX1RT 

, XX2RT 

. XX3RT 

MATS 

58. 

♦XX1RD  XX2R0  XX3R0  .XK1RA 

„ XX2RA 

, XX3RA 

, XX 10T 

, XK20T 

XX  30T 

MATS 

59. 

♦ XX 100  , XX200  , XX30D  .XX10A 

, XX 20A 

. XX  30 A 

, XX 1 UT 

, XX2UT 

, XX3UT 

MATS 

60. 

♦XK1U0  , XK2UD  ,XK3UD  .XKlUA 

.XK2UA 

t XK3UA 

, XX 1MT 

, XX2MT 

.XK3MT 

MATS 

61. 

COMMON  /MATS/ 

MATS 

62. 

♦XK1M0  .XX2M0  , XK3M0  .XXlMA 

.XX2MA 

, XX3MA 

XX 1 ZT 

, XK2ZT 

XX3ZT 

MATS 

63. 

♦ XX1ZD  , XX2Z0  , XX  3Z0  .XX12A 

. XK2ZA 

, XX3ZA 

, XX 1 V Y 

.XK2YY 

XX  3 V Y 

MATS 

69. 

♦ XX 1 G Y , XX26 V , XK3G  V XX IP V 

, XX2PY 

XX  3P  Y 

, XX1RY 

, XX2RY 

, XK3RV 

MATS 

65. 

♦ XX  10 Y , XX20 V .XX30Y 'XX1UV 

XK2UV 

XX3UY 

, XX1MV 

, XX2MY 

XX  3MY 

MATS 

66. 

♦ XX1ZV  , XK2ZY  .XX3ZY  .XX1GG 

, XX2G6 

XX3GG 

XX  IPG 

, XK2P6 

, XX3P6 

MATS 

67. 

♦ XX1RG  , XX2RG  , XX  3Fo  .XXlOG 

XK20G 

XK30G 

, XX 1UG 

, XK2UG 

.XX3UG 

MATS 

66. 

♦ XX  IMG  , XK2MS  ,XX3*G  .XX1ZG 

, XK2ZG 

, XX 3ZG 

, XX1PP 

, XX2PP 

, XX3PP 

MATS 

69. 

♦ XX 1 RP  , XX2RP  . XX 3RP  .XX10P 

XX20P 

XX  30P 

.XK1UP 

, XX2UP 

XK3UP 

MATS 

70. 

♦ XX IMP  .XX2MP  , XX 3MP  .XX1ZP 

XX2ZP 

, XX 3ZP 

, XX1RR 

XX2RR 

XX  3RR 

MATS 

71  . 

♦ XX 1 OR  , XX20R  .XX30R  .XXluR 

, XX2UR 

.XX3UB 

, XX 1 MR 

, XX2MR 

, XX3MR 

MATS 

72. 

♦ XX1ZR  , XX2ZR  , XX3ZR  .XX100 

XX  200 

XX300 

, XX 1 uo 

, XX2U0 

XX  3U0 

MATS 

73. 

♦XX1M0  .XX2M0  .XK3M0  .XX1Z0 

XK2Z0 

XX  3Z0 

.XX1UU 

, XK2UU 

XX  3U0 

MATS 

79. 

♦XK1MU  , XX2MU  , XK5MU  .XX1ZU 

, XX2ZU 

XK3ZU 

, XK1MM 

, XX2MM 

, XX3MM 

MATS 

75. 

♦XX 1 ZM  , XX2ZM  XK3ZA  .XX1ZZ 

XX2ZZ 

XX  3ZZ 

,XXPI  11 

XXP 1 21 

, XXP  1 3 1 

MATS 

.01-99 


76. 

*XKPIU,XKPI22,XXPI32,XKPn3,XKP123,XKPI33,PAl  ,PA2 

NATS 

77. 

CONNON  /HATS/ 

NATS 

78. 

*DPDY(  3.  8).  DEPDEYl  2 , 8).  DPDU  3,  3),  PR0D51 3,  69),  PR009(2,  29  ) 

NATS 

79. 

C0fl«0*'/rtAts/  ' 

NATS 

60. 

*PV  . P G ,PP  ,PR  ,P0  ,PVV  ,PGV  ,PPV  ,PRV  , 

NATS 

81  . 

*P0V  >66  ,PP6  ,PR6  ,POG  ,PPP  ,PRP  ,POP  ,PRR 

NATS 

62. 

*POR  ,P00  . PL6  . PLP 

NATS 

83. 

EOUIVALENCE(PROD1,PROD5> 

NATS 

89. 

C 

ALT 

85. 

C 

SUBROUTINE  TO  CALCULATE  THE  PARTIAL  DERIVATIVES 

AL7 

86. 

c 

OF  O-DOT  AMD  EVALUATE  A CONSTANT  DYNANIC  PRESSURE 

ALT 

87. 

c 

FLIGHT  NODE  CONSTRAINT 

AL7 

68. 

c 

alt 

89. 

ENTRY  AL7020 

alt 

90. 

ASSIGN  901  TO  160 

ALT 

91.- 

ASSIGN  101  TO  I AN 

AL7 

92. 

ASSIGN  201  TO  Ul* 

AL7 

93. 

60  TO  301 

ALT 

301  — 

99. 

ENTRY  AL70U 

alt 

95. 

ASSIGN  901  TO  160 

Al7 

96. 

ASSIGN  101  TO  IAN 

Al  7 

97. 

ASSIGN  10  TO  1BN 

AL7 

96. 

60  TO  301 

ALT 

301  — 

99. 

ENTRY  AL7010 

AL7 

100. 

ASSIGN  901  TO  160 

AL? 

101. 

ASSIGN  30  TO  IAN 

AL7 

102. 

60  TO  301 

AL7 

301  — 

103. 

ENTRY  AL7002 

alt 

10*. 

ASSI6N  90  TO  160 

Al7 

105. 

GO  TO  301 

Al7 

301  — 

106. 

ENTRY  AL7001 

Alt 

107  . 

ASSIGN  50  TO  160 

AL7 

108. 

60  TO  301 

Al  7 

301  — 

109. 

ENTRY  AL 7000 

Al7 

110. 

ASSIGN  60  TO  160 

al? 

III. 

c 

Al7 

1 12. 

c 

PRELININARY  CALCULATIONS  ENTRY  60  ,30 

al? 

113. 

c 

Alt 

119. 

301  ROOT  > v*  SIN6AN 

Al  7 

115. 

VDOT  a R*0NESA2*C0$RHQ*(C0$RH0*5INGAN  - S1NRHO*COSP$I*COS6AN ) 

AL? 

116. 

* - G*$IN6AN  ♦ (T*CODAE  - DB*COSA  - DRAG >/N 

Al7 

117. 

c 

AL7 

118. 

c 

PRELININARY  CALC  ENTRY  50  ,90  , 10,  20 

alt 

119. 

c 

AL7 

120. 

501  ROVRN  = RO/N 

AL7 

121 . 

TORO  a 2.*  RO 

AL7 

122. 

TOROR  = 2 . * ROR 

AL7 

123. 

TORORR=  2.*  RORR 

AL7 

129. 

60  TO  160 

ALT 

125. 

c 

al? 

126. 

c 

PRELININARY  CAlC  ENTRY  30  ,10 

alt 

127. 

c 

Al7 

128. 

HOI  CSRHO  = SIN2R0/  2. 

AL? 

129. 

CPSGAN=  COSPSU  CQS&AA 

AL7 

130. 

CPSSGAs  COSPSI*  SIN6AN 

ALT 

131  . 

SRH02  s SINRHO*  SINRMO 

AL7 

132. 

CRH02  s C05RH0*  COSRMO 

ALT 

133. 

RONEb  = R*  ONEGA 

AL7 

139. 

R0NEG2=  R*  0NE&A2 

alt 

135. 

CR0GAN=  cosrho*  cosgan 

AL7 

136. 

VOOTR  = 0NEGA2«  COSRHO*  ( COSRHO*  5INSAN-  SINRHO*  CPS6AN1 

AL  7 

137. 

* - 6H*  SING AN  - ( DBR*  COSA+  DfiA&R  )/  N 

alt 

136. 

VDOTV  = -DRAG V/  N 

AL7 

139. 

ROOT  V = SINGAN 

ALT 

190. 

ROOTS  a COSGAN 

ALT 

hi. 

VOOT&  = R0NE&2*  COSRHO*  l CROGAN  ♦ SINRHO*  CPSSGA) 

AL7 

192. 

♦ " -6*  COSGAN 

AL7 

193. 

VOOTP  ^ R0NEG2*  CSRHO*  COSGAN*  SINPSI 

alt 

1 99. 

VOOTO  = -R0NEG2*  1 SIM2R0*5INGAN  + C0S2R0*CPSGAN ) 

AL7 

195. 

VOOTN  = -(  T*  COOAE-  08*  COSA-  DRAG  )/  N/  N 

Al7 

196. 

GO  TO  IAN 

alt 

197  . 

c 

Al7 

198. 

c 

PRELININARY  CALCULATIONS  TO  10 

AL? 

199. 

c 

Al  7 

150. 

101  VORR  s - GRR*S1NGAN  - 1 DBRfi*  COSA*  DRA6RR  )/  N 

ALT 

1 
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151. 

VDRG  2 0MEGA2*  CQSRHO*  ( CROGAfl  ♦ SINRHO*  CPSS6A ) 

AL7 

152. 

* - GH*  C0S6AA 

AL7 

153. 

VORP  2 0ME6A2*  CSRHO  * SINPSI*  COSGAN 

ALT 

159. 

90R9  = -DRAG9R/  H 

ALT 

155. 

V06G  = -R0KE62  * COSRHO*  ( COSRHO*  S1N6AH-  SINRHO* 

CPSGAA) 

ALT 

156. 

* ♦ G*  SIN6AK 

ALT 

157. 

9D6P  = -R0MEG2  * CSRHO  * SINPSI*  SI NGAN 

ALT 

156. 

90PP  = R0MEG2  * CSftHO*  CPSSAft 

ALT 

159. 

9OP0  = RQnEG2*COS2RO*SlNPSJ*COS6A7l 

ALT 

160. 

9000  = -R0r}£G2*2.*<C0$2R0*5lNGA«  - S JN2RO*CP56AfO 

ALT 

161 . 

9006  = -R0MEG2  * ( SI  N2R0*C0SGAH  - C0S2R0*CPSS6A ) 

ALT 

162. 

9Q«M  = 2.*<  T*  COOAE-  08*  COSA-  0RAG  )/*/*/* 

At? 

163. 

9DMR  s ( DBR*  COSA*  DRAGR  )/*/* 

ALT 

169. 

9DN9  s ORAGV/A/A 

Al  7 

165. 

GO  TO  1BN 

ALT 

166. 

C 

* ALT 

167  . 

C 

PRELIMINARY  CALCULATIONS  ENTRY  20 

alt 

168. 

c 

Al  7 

169. 

201  9D0TT  2 COOAE/  H 

ALT 

170. 

VD0TDE2  T*  S 1 DAE/  N 

Alt 

m. 

VOOTA  2 (-T*  SIDAE*  08*  SINA-  DRAGR  )/  * 

ALT 

172. 

9DRA  2 -(  0RA6RA-  08R*  SINA)/  N 

ALT 

1 73. 

YOOTPIT2  -COOAE/  A/  A 

ALT 

179. 

90A0E  2 -900 TOE/A 

AL  ? 

1 75. 

VOAA  =-900T  A/A 

ALT 

176. 

c 

AL? 

177. 

c 

CALCULATE  MIXED  5EC0N0  OROER  PARTIALS 

ALT 

178. 

c 

ALT 

1 79. 

20  XX3RT  2 TOROR*  9D0TT 

ALT 

180. 

XX3RD  2 TOROR*  900TDE 

AL  7 

101  . 

XX3RA  2 TOROR*  VDOTA  * TORO*  90RA 

ALT 

182. 

XX39A  2-TORO*  ORAGVA/A 

ALT 

183. 

XK3AT  2 TORO*  VDOTAT 

ALT 

189. 

XK3AD  2 TORO*  VDAOE 

ALT 

185. 

XX3AA  2 TORO*  YDAA 

ALT 

106. 

c 

ALT 

187. 

c 

COMPUTE  SECOND  PARTIAlS  WITH  RESPECT  TO  STATE 

ALT 

188. 

c 

ALT 

189. 

10  XX3RR  = Y*  ROOT*  RORRR*  2 . *<  RORR* VOOT  +TOROR* 9D0TR+R0* VDRR  ) 

ALT 

190. 

XK3RV  = TORORR*  ROOT-  TOROR*  DRA69/  A-  2.*  ROYRfl* 

DRAG9R 

ALT 

191. 

XK3RG  2 9*  RORR*  ROOTS*  TOROR*  9D0TG*  TORO*  9DRg 

AL7 

192. 

XX3RP  2 TOROR*  900TP*  TORO*  90RP 

ALT 

193. 

XX 399  2 TOROR*  ROOT9-  2.*R09RA  * DRAG9  9 

ALT 

199. 

XX 3b 9 2 ROR*  ROOTS*  V*  ROR*  COSGAA 

AL  7 

195. 

XX3GG  2 -9*9*  ROR*  SINGAA*  TORO*  9DGG 

ALT 

196. 

XX3P6  2 TORO*  90GP 

ALT 

197. 

XX3PP  2 TORO*  9DPP 

ALT 

198. 

XX30P  2 TORO*  9DP0 

AL  7 

199. 

XX30R  2 TORO*  9DQT0/  R*  TOROR*  90OTO 

AL7 

200. 

XK30G  2 TORO*  90Q& 

ALT 

201. 

XX 300  2 TORO*  9000 

AL  7 

202. 

XX3AA  = TORO*  9DAA 

AL7 

203. 

XX3AR  = TORO*  9DAR*  TOROR*  900TA 

AL7 

209. 

XX3A9  2 TORO*  90A9 

AL7 

205. 

c 

ALT 

206. 

c 

FIRST  PARTIALS  WITH  RESPECT  TO  STATE 

AL  7 

20  7. 

c 

AL7 

200. 

30  XK3R  2 9*  ROOT*  RORR*  TOROR*  900T*  TORO*  9D0TR 

ALT 

209. 

XX39  2 TOROR*  ROOT-  TORO/  A*  ORAGV 

AL  7 

210. 

XX36  2 9*  ROR*  ROOTS*  TORO*  900T6 

ALT 

211. 

XX3P  2 TORO*  VQOTP 

ALT 

212. 

XX30  = T0R0*9O0TO 

ALT 

213. 

XX3A  2 TORO*  9D0TA 

AL  7 

219. 

c 

ALT 

215. 

c 

ALT 

216. 

c 

SECOND  PARTIALS  WITH  RESPECT  TO  CONTROL 

ALT 

217. 

HO  XX3TD  2 2 . * R09RA*  SIDAE 

AL  7 

216. 

XK3TA  2 -XX3T0 

AL  7 

219. 

XX 300  2 -2.*  ROvRA*  T*  COOAE 

AL  7 

220. 

XX30A  r -XK3D0 

ALT 

221 . 

XX3AA  2-2.*  R09RA*  l T*  COOAE-  08*  COSA*  DRAGAA  1 

ALT 

222. 

c 

AL7 

223. 

c 

FIRST  PARTIALS  WITH  RESPECT  TO  CONTROL 

ALT 

229. 

c 

ALT 

225  . 

50  X13T  2 2.*  R09RA*  COOAE 

alt 
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226 . 
227. 
226. 

229. 

230. 
231  . 

232. 

233. 


C 

C 

c 


XU 3D  = 2.*  ROVRN*  T*  SIDAE 

XK3A  = 2.*  ROVRfl*  < DB*  SINA-  T*  S 1 DAE-  DRA6A 

CONSTRAINT  EVALUATION 

60  XX3  = V*  ROOT*  ROR+  2.*  RO*  VDOT 
RETURN 
END 


AL7 

AL7 

AL7 

AL7 

AL7 

AL7 

AL7 

AL7 
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I A. 


I 


o 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


sr&RAj^ 


BLOCK 


loc 


SUBROUTINE 

“Tubr  coW 


COOAE  cos(a-tg)  1 $•*  lysfeol 


C05A  cOStt  1 Sm  tyafcol 


COSGAft  C0I7  1 St*  tytkol 


COSPSI 


COB* 


Sit  ly iko I 


COSRHO  co  sp  1 Stt  tyabt I 


C0S2R0  cos2p  1 Stt  tyobol 


OB  1 Bat t drag 


/DVNA  /( 


/DYNA  /< 


/DVNA  /( 


/OYNA  /( 


t DVNA  n 


/DYNA  /( 


(LBS)  /OVNA  fi 


151  ) AL1 

I 

COOAE 

AL*» 

1 

CODAE 

ALB 

I 

COOAE 

AL7 

1 

CODAE 

• ALB 

I 

COOAE 

AL9 

I 

COOAE 

apply 

I 

COOAE 

CONTRL 

I 

COOAE 

NLORV 

1 

CODAE 

TH3 

I 

CODAE 

UT 

0 

CODAE 

10)  AL1 

I 

COS  A 

AL9 

I 

COSA 

ALB 

I 

COSA 

ALT 

'I 

COSA 

AL8 

1 

COSA 

AL9 

1 

COSA 

APPLY 

1 

COSA 

CONTRL 

1 

COSA 

NLDRV 

I 

COSA 

OUTPUT 

I 

COSA 

TH3 

I 

COSA 

UT 

ft 

COSA 

H ) ALl 

I 

COSGAft 

ALH 

I 

COSGAft 

ALT 

I 

COSGAft 

ALB 

I 

COSGAft 

- AL9 

l 

COSGAft 

CONTRL 

I 

COSGAft 

NLDRV 

I 

C0S6Aft 

OUTPUT 

1 

COSGAft 

POBCOL 

I 

COSGAft 

STATEF 

ft 

COSGAft 

95)  AL H 

I 

C0SPS1 

ALT 

I 

COSPSI 

ALB 

I 

COSPSI 

AL9 

1 

COSPSI 

CONTRL 

I 

COSPSI 

NLDRV 

I 

COSPSI 

POBCOL 

I 

COSPSI 

STATEF 

0 

COSPSI 

97  ) ALA 

i 

COSRHO 

AL7 

i 

COSRHO 

ALB 

i 

COSRHO 

AL9 

i 

COSRHO 

CONTRL 

i 

COSRHO 

NLDRV 

i 

COSRHO 

OUTPUT 

l 

COSRHO 

PDBCOL 

i 

COSRHO 

STATEF 

h 

COSRHO 

120)  ALA 

i 

C0S2R0 

alt 

l 

C0S2R0 

ALB 

l 

C0S2R0 

NLDRV 

i 

C0S2R0 

STATEF 

0 

C0S2R0 

163)  ALl 

I 

OB 

ALA 

1 

DB 

ALB 

I 

DB 

ALT 

I 

DB 

ALB 

1 

OB 

AL9 

I 

08 

apply 

1 

OB 

CONTRL 

1 

DB 

NLDRV 

I 

DB 

OUTPUT 

I 

DB 

5TATEF 

1 

OB 

TH3 

I 

OB 

UT 

I 

DB 

6 OCT  72  G.Ol-NN 


FORTRAN 

SYMBOL 


SYMBOL  C00t 


DESCRIPTION 


BLOCK  LOT 


SUBROUTINE  USA££ 
SUBR  COOE 


VAR 


OBR 

a Dk/aR 

I 

Sm  tyabol 

/DYNA 

/( 

86)  AL1 

I 

DBA 

AL9 

I 

OBR 

ALB 

I 

DBA 

AL7 

I 

OBR 

ALB 

I 

DBA 

AL9 

I 

OBR 

APPLY 

1 

OBR 

STATEF 

I 

OBR 

TH3 

I 

DBA 

UT 

I 

DBR 

DBRR 

d2Dk/dR* 

I 

5 « t syabol 

/DYNA 

/( 

67  ) AL9 
AL6 

I 

I 

DBRR 

DBRR 

AL7 

I 

DBRR 

. 

alb 

I 

DBRR 

AL9 

I 

DBRR 

APPLY 

I 

dBrr 

STATEF 

I 

DBRR 

TH3 

1 

DBRR 

UT 

I 

OBRR 

DRAG 

D 

I 

Aarodynaafc  drag 

(LBS)  /DYNA 

/( 

69)  AL5 

I 

DRAG 

AL7 

1 

0RA6 

ALB 

I 

DRAG 

AL9 

1 

DRA6 

APPLY 

I 

DRAG 

CONTRL 

I 

DRA6 

ENVPRQ 

I 

DRAG 

NLDRV 

I 

DRAG 

- - 

• * — 

* 

. - - - - - - 

- 

' - OUTPUT 

I 

OR  A6- 

TH3 

I 

DRAG 

UT 

A 

DRAG 

DRAGA 

dO/da 

I 

$••  ijrabol 

/DYNA 

/( 

72  ) AL1 

I 

DRAGA 

AL5 

I 

DRAGA 

AL7 

I 

DRAGA 

ALB 

I 

DRAGA 

AL9 

I 

DRAGA 

APPLY 

I 

DRAGA 

TM3 

I 

ORA6A 

UT 

A 

DRAGA 

DRAGAA 

32D/de2 

I 

Stt  syabtl 

/DYNA 

/( 

78)  AL1 
AL5 

I 

I 

ORAGAA 

DRAGAA 

AL7 

I 

DRAGAA 

ALB 

I 

ORAGAA 

AL9 

I 

DRAGAA 

APPLY 

1 

DRAGAA 

T M3 

I 

ORAGAA 

UT 

A 

DRAGAA 

ORAGR 

dD/dR 

I 

Stt  syabel 

/DYNA 

/( 

71)  AL5 

1 

DRAGR 

AL7 

I 

DRAGR 

alb 

I 

DRAGR 

AL9 

I 

DRAGR 

APPLY 

I 

DRAGR 

TH3 

I 

DRAGR 

UT 

A 

DRAGR 

DfiASRA 

d2D/dRda 

1 

S«#  gyabo i 

/DYNA 

/( 

77)  AL1 
ALB 

I 

I 

DR AGRA 
DRAGRA 

ALT 

I 

DR  AGRA 

ALB 

I 

DRAGRA 

AL9 

1 

DRAGRA 

APPLY 

I 

DRAGRA 

TH3 

1 

DRAGRA 

UT 

A 

DRA6RA 

ORAGRR 

d2D/aR* 

1 

Scg  tyabel 

/DYNA 

/( 

76)  AL5 
AL7 

I 

I 

ORAGRR 

DRAGRR 

AL8 

I 

ORAGRR 

AL9 

1 

DRAGRR 

APPLY 

I 

DRAGRR 

TH3 

1 

DRAGRR 

UT 

A 

DRAGRR 

6 OCT  72  G. 01-99 


FORTRAN 

SYMBOL 


RATH 

symbol 


CODE 


IN  I 

> 


DESCRIPTION 


storage  subroutine  usage 
"block  loc  subrcodE  YAR 


DRAGV 


0RA6YA 


ORAGVR 


DRAGVV 


G 


6M 


GRR 


ft 


OMEGA 


0ME6A2 


dO/dV 


d2o/ava« 


a2o/avaR 


a2D/av2 


9 


dg/aR 

a2g/a«2 


•2 


I St*  tjfifctl 


I Stt  tyabal 


I Stt  ayabal 


t Stt  syabal 


t Inst  ant anteus  gr •» I tat  1 onal 


I St*  »|Bl«| 
I Stt  ayabal 
I Mata 


/DYNA  /( 
/DYNA  /( 

/DYNA  /< 
/DYNA  /( 

ccitratioa  _ /OVNA  /( 

(FT/SEC2) 

/DYNA  /( 
/DYNA  /( 
(G'S)  /D  /( 


1 Earth  rotation  rat*  l RAD/SEC  > /DYNA  /< 


I Stt  syaba I /DYNA  /( 


70) 

AL5 

J 

ORAGV 

AL7 

I 

DRAGV 

AL8 

1 

ORAGV 

AL9 

1 

ORAGV 

APPLY 

I 

DRAGV 

TH3 

I 

DRAGV 

UT 

PI 

DRAGV 

75  ) 

AL1 

I 

DRAGVA 

AL5 

1 

DRAGVA 

AL7 

I 

DRAGVA 

AL8 

I 

DRAGVA 

Al9 

I 

DRAGVA 

APPLY 

I 

DRAGVA 

TH3 

I 

ORAGVA 

UT 

ft 

ORAGVA 

7N  ) 

AL5 

i 

DRAGVA 

AL7 

I 

DRAGVA 

AL8 

i 

DRAGVA 

AL9 

I 

DRAGVA 

APPLY 

I 

ORAGVA 

TH3 

I 

DRAGVA 

UT 

ft 

ORAGVA 

73  ) 

AL5 

I 

DRAGVV 

AL7 

I 

DRAGVV 

AL8 

i 

DRAGVV 

AL9 

I 

OR AG VV 

APPLY 

I 

DRAGVV 

Th3  ’ 

I 

0RAG7V 

UT 

* 

DRAGVV 

8 ) 

ALA 

I 

G 

alt 

l 

G 

AL6 

I 

6 

AL9 

I 

G 

CONTRL 

i 

G 

NLDRY 

I 

G 

STATEF 

ft 

G 

1*12) 

ALT 

1 

6H 

AL8 

I 

GH 

NLORY 

I 

&H 

STATEF 

n 

GH 

i S3  ) 

ALT 

I 

&RR 

AL8 

I 

GAA 

NLDRY 

l 

GRR 

STATEF 

ft 

GAA 

97  ) 

AL9 

1 

ft 

AL7 

I 

ft 

AL8 

I 

ft 

AL9 

I 

ft 

APPLY 

I 

ft 

BRANPT 

( 

ft 

COSTAB 

I 

ft 

COS  T A 1 

I 

ft 

INTRPT 

7 

ft 

NLORY 

I 

ft 

OUTPUT 

I 

ft 

SALVE 

I 

It 

STATEF 

1 

ft 

WRAP UP 

I 

ft 

5 ) 

AL9 

I 

OftEGA 

AL7 

I 

CftEGA 

CONTRL 

1 

OftEGA 

PD&CBL 

I 

OftEGA 

TRAJIN 

ft 

OftEGA 

6 ) 

AL9 

1 

0ftEGA2 

AL  7 

I 

0ftEGA2 

AL8 

I 

0ME6A2 

AL9 

I 

0AEGA2 

NLDRY 

I 

0HEGA2 

TRAJIN 

0 

0REGA2 

6 OCT  72  G . 01 -NY 


FORTRAN 

SYMBOL 


WAT  M 
SYMBOL 


CODE 


DESCRIPTION 


STORAGE 


BLOCK 


LUC 


TINE  USAGE 


UBR  CODE VAR 


1 Radial  dltlanct  froi  urth  canter  to 


RO 


ROR 


RORR 


RORRR 


8p  /dR 


dlp  /dR2 


d3p  /dR3 


I Atiespbcrlc  dmity 


I $••  lyifeal 


I Set  iy*h«l 


Sm  ififeal 


SIDAE  $ 1 n(  a - ) 1 


(SLGS/FT3)  /OYNA  /( 


/OYNA  /( 


/OYNA  /( 


/OYNA  /< 


/OYNA  /( 


S I NA  j | no  I Sat  lyalal 


/OYNA  /( 


SINGAW  $ |ny  I Sea  ayakal 


/OYNA  /( 


7 \ 

ALH 

R 

ALT 

R 

ALB 

R 

AL9 

R 

CONTRL 

R 

ENVPRO 

R 

NLORY 

R 

PDBCOL 

R 

0LT0S2 

R 

STATEF 

m 

R 

15  ) 

AL7 

RO 

ALB 

RO 

AL9 

RO 

NLDRV 

RO 

OUTPUT 

RO 

PDBCOL 

RO 

STATEF 

RO 

19  ) 

AL7 

ROR 

ALB 

ROR 

AL9 

ROR 

NLDRV 

ROR 

PDBCOL 

ROR 

STATEF 

ROR 

23  ) 

AL7 

RORR 

ALB 

RORR 

AL9 

RORR 

nldrv 

RORR 

STATTEF 

RORR 

213) 

AL7 

RORRR 

AL8 

RORRR 

AL9 

RORRR 

STATEF 

RORRR 

152  ) 

ALl 

SI  DAE 

ALH 

SIDAE 

ALB 

SI  DAE 

AL7 

SIDAE 

alB 

SIDAE 

AL9 

SIDAE 

APPLY 

SIDAE 

CONTRL 

SIDAE 

TH3 

SIDAE 

UT 

0 

SIDAE 

9 ) 

ALl 

SINA 

ALH 

SINA 

ALB 

SINA 

AL7 

SINA 

alb 

SINA 

AL9 

SINA 

apply 

SINA 

CONTRL 

SINA 

OUTPUT 

SINA 

TM3 

SINA 

UT 

w 

SINA 

3) 

ALl 

SINGAN 

ALH 

SINGAW 

AL7 

SINGAN 

ALfi 

SINGAN 

AL9 

S INGAM 

CONTRL 

SINGAN 

NLDRV 

SINGAN 

PDBCOL 

SINGAN 

STATEF 

m 

S INGAM 

6 OCT  72  6.01-HN 


FORTRAN  HATH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


5TQRAGE 


mr 


SUBROUTINE  USAGE 
SUBR  CODE VAR 


SIWPSI  s i nV'  I Stt  tyabol 


SINRHO  strip  1 Stt  tyabol 


SIN2R0  stn2p  1 Stt  tyabel 


T 


T I T hr  get 


V 


Relative  velocity. 


/DYNA  /( 


/OYNA  /( 


/DYNA  /< 


( LBS ) /OYNA  /( 


(FT/SEC)  /O  /( 


9*»)  ala 

I 

S1NPSI 

AL7 

I 

S1NPS! 

AL8 

I 

SINPSI 

AL9 

1 

S 1 HP  SI 

CONTRL 

I 

SINPSI 

NLORV 

1 

SINPSI 

POBCOL 

I 

S INPSI 

STATEF 

0 

SINPSI 

96)  ALA 

I 

SINRHO 

AL7 

1 

SINRHO 

AL8 

I 

SINRHO 

AL9 

I 

SINRHO 

CONTRL 

1 

SINRHO 

NLOJIV 

I 

SINRHO 

OUTPUT 

1 

SINRHO 

PDBCQL 

I 

SINRHO 

STATEF 

N 

SINRHO 

119)  ALA 

1 

SIN2R0 

AL7 

I 

SIN2R0 

AL8 

I 

SIN2RO 

NLORV 

1 

SIN2R0 

STATEF 

19 

SIN2R0 

HZ  ) ALGCON 

M 

T 

AL1 

1 

T 

ALA 

1 

T 

AL6 

| 

T 

alt 

I 

T 

AL8 

I 

T ' * 

AL9 

I 

T 

APPLY 

1 

T 

ARC1N 

0 

T 

CONTRL 

rt 

T 

DL2 

! 

T 

IHPULS 

1 

T 

OUTPUT 

I 

T 

TH1 

I 

T 

TH2 

1 

T 

TH3 

I 

T 

THA  . 

i 

T 

91 ) ALl 

1 

V 

ALA 

I 

If 

AL7 

I 

V 

Al8 

I 

V 

AL9 

I 

Y 

BCOND 

1 

NON 

BNDRY 

0 

NON 

BRANPT 

* 

NON 

CONTRL 

I 

V 

ENOPT 

1 

NON 

ENVPRO 

I 

V 

FETCH 

0 

NON 

1NTERP 

n 

V 

INTRPT 

n 

NON 

NLDRV 

0 

NON 

NLORV 

V 

OUTPUT 

V 

PDBCQL 

V 

STATEF 

V 

URAPUP 

V 

6 OCT  72  6-01-AA 


SUBROUTINE 

AL8 


Purpose 

AL8  evaluates  the  heating  rate  constraint,  Equation  10.6-2  in  Vol.  I. 

In  addition,  it  computes  the  explicit  first  and  second  partials  of  this 
constraint  with  respect  to  the  state  and  control  as  they  are  needed. 


% 

VJ- 


SUBROUTINE  ALB 

SUBROUTINE  TO  CALCULATE  THE  PARTIAL  DERIVATIVES 
OP  Q-OOT-DOT  AND  EVALUATE  A CONSTANT  HEATING 
RATE  PLIGHT  RODE  CONSTRAINT 

REAL  RA6BV,  HU,  R,  LV,  LGAR,  LPSI,  LR,  LRHO,  LRU,  LR,  LTAU,  NOR 
•.  LHT 
CORRON  /D/ 

*1,  tt.  *U*0,  RAGBV,  ERR,  D9,  010,  UhO),  CSAVE^HQl,  V,  GMX,  PST , 
*ALT,&HO,RU,R,  TAU,  HT,  LV,  LG Art,  LPSI,  lR,  LRHO,  LRU.  LR.  LTAU. 
•LHT  0109,  OllO.  BVtsO),  2$AVE(iO),  Qt(20>,  NP01nT(26>,  OELTI  20  ) 
dirEnsion  N0R( 20 ) 

EQUIVALENCE  (NOR.  V> 

LOGICAL  SWITCH,  IlOAO 

REAL  rtACH,  ISP,  ISPV,  I SPR,  ISPR,  ISPT,  ISPVV.  ISPVR,  I5PVR, 

• ISPVT,  1 SPRR , ISPRfl,  ISPRT,  ISPRfl,  ISPrtT,  ISPtT.  LIFT,  LIFT V . 
♦LlFTR,  LIFTA,  LIFTVV,  lIFTVR,  LlFTVA,  lIFTRR,  LlFTRA,  rtUR,  LIFTAA, 

•irate6.  ispf!  ispff 

REAL  rtACH V RACHR , RACHVR,  RACHRR 

real  LlFTR,  lIFTVR,  lIFTRR,  LlFTRR,  LlFTRA 

CORRON  /DVNA/ 


23. 

• XX 

TIRE  , S 1 NGAR  COSGAR,  ORES  A'  ,0REGA2 

,G  , S INA  , 

JUL2 1 

29 . 

• COSA 

0VN01 l,0rt£GATTARP  PA  ,R0 

,CS 

, TERPR  PAR 

DVNA 

25. 

• ROR 

CSR  , TERPRR , P ARR  ,RORR  ,CSRR 

XODE 

.rtACH  ,0 

DVNA 

26. 

• QV 

QR  , Q V V Q VR  , QRR  ,FVAC 

, F V AC  V 

, F V ACfi  FVACR  , 

DVNA 

27. 

♦FVACT 

rFVACW,FVACVR,FvACRR,FVACTT,T 

,RACHV 

, RACHR  ,ISP 

DVNA 

26. 

• ISPV 

, I SPR  , 1 SPR  ISPT  ,ISPVV  , ISPVR 

, ISPVR 

, ISPVT  I SPRR  , 

DVNA 

29  . 

•ISPRrt 

,ISPRT  ,TSPttft  , ISPRT  , ISPTT  LIFT 

,LlFTV 

, LlFTR  lIFTA  , 

QVNA 

30. 

•liftvv 

, Ll FTVR, L I FTVA, LIFTRR, LlFTRA,  DRAG 

OR  AG  V 

OR AGR  DR ASA  , 

DVNA 

•0RA6VV,DRAGVR,0RAGVA, or agrr, dr aqra, drag aa, AlPHA  ,PHI  ,lIFTR 
•LIFTVR, LlFTRn, LIFTRR, LlFTRA, DBR  OBRR  , GARRAO , AE  ,TAX 

•w  ,sinphi,cosphi,sinpsi ,cospsi ,sinrho,cosrho,sinror,cosror 


39. 

• RUR 

XKG 

XXP 

'akin 

CDO 

coon  , clo 

,FX 

,XC6rt  , 

35. 

•XC&flfl 

ZCGrt 

ZCGRrt 

.XJ* 

, XJR 

X J V V ,XJVR 

, X J RR 

, RACHVR, 

36. 

•RACHRR 

SIN2R0 

C0S2R0 . C0S2GP 

,CR 

Cra  , Crr 

, CRAA 

, CRRR  , 

37. 

• CRAR 

CRO 

CROrt 

. CRORR 

, CRARR 

ULFT  V ,ULFTR 

,ulftw 

,ulft.yr. 

38. 

•ULFTVA 

ULFTRR 

ulftra. ipow 

, X ARC 

tstart,gh 

, GRR 

.LIFTAA, 

39. 

•CDORR 

Clarr 

CLOR 

CLCRR 

, 0 YN  1 9 9 

CT  , CODAE 

,SIOAE 

,COD  , 

90. 

• SID 

oeltae 

CDE 

, XCG 

, ZCG 

XJ  , XRCG 

,CAlPHA 

,AlRAX  , 

91  . 

• DB 

ULFT 

CULFT 

,ULFTA 

,tstage 

TIRES  , XRCGAA 

, 1 RATED 

,FRATED 

92. 

CORflON 

/DVNA/ 

93. 

• RTT 

J1 

J 2 

,J3 

, XRCGA 

F V ACF  ,ULFTAA 

,1SPF 

, ISPFF  , 

99. 

•IlOad 

FXrt 

FXRR 

, Switch 

, INQF 

CL  ,CLA 

,ClR 

,Claa  , 

95. 

• CLRR 

CLAN 

CD 

, CD  A 

, COR 

COAA  , CORN 

, CDAR 

,DVN198, 

9 6. 

•0VNI99 

DVN200 

XRCGV 

, XrtCGR 

, XrtCGR 

XRCG  V v , XrtCG VR 

, xrtCGYrt 

XRCGV A, 

97. 

• XRC6RR 

XrtCGRR 

xrcgra 

, XRCGRR 

, XRCGRA 

RORRR  ,0VN219 

,0VN2I5 

,0VW216, 

98. 

• 0VN217 

IOArt 

TA1RB 

T A I RB  V 

T A I RBH 

T ARB  V V , T ARBHH 

,TARBVH 

'SFC  , 

99. 

• SFC  V 

SFCH 

SFC  V V 

. SFCHM 

, SFC VH 

50. 

DIRENSION  PROD  1(2.  69) 

51. 

COrtrtON 

/RATS/ 

52. 

• PI 

P2 

P 3 

, XXI 

, XK 2 

XX  3 , XX  1 T 

,XX2T 

,XX3T  , 

53. 

•XX1D  , 

XX20  , 

XX  3D 

, XX  1 A 

, XX2 A 

XX3A  , VDA 

, GOA 

,POA 

59. 

♦ XR1 9 , 

XR20  , 

XR21 

, XR22 

, XX1TT 

XX2TT  , XX 3TT 

XX  1 TD 

, XX2TD  , 

55. 

•XK3TD  , 

XX1TA  , 

XX2TA 

, XX  3T  A 

XX  1 OD 

XX2DD  , XX 300 

, XK IDA 

XK2DA  , 

56. 

•XK3DA  , 

XK1AA  , 

XX2AA 

, XX3AA 

, XRH  1 

XR92  ,XR93 

, XR99 

,XR95  , 

57. 

♦ XXIV  . 

XK2  V . 

XK3V 

, XX  1 G 

XX2G 

XX3G  , XX  1 P 

, XX2P 

, XX3P  , 

58. 

• XX  1 R , 

XX2R  , 

XX3R 

,XK10 

, XX20 

XX  30  , XX  IU 

, XK2U 

, XX 3U  , 

59. 

• XXlR  , 

XX2W  , 

XX3R 

,XK1Z 

XK2Z 

XX3Z  , XX 1 VT 

XX2  VT 

XX  3 VT  , 

60. 

•XXlVD  , 

XX2V0  , 

XK3VD 

, XXI VA 

, XK2VA 

XX 3 VA  , XX 1 GT 

X X 2GT 

XX  3GT  , 

61  . 

• XK1GD  , 

XX2G0  , 

XX3GD 

, XX1GA 

, XX2GA 

XX3GA  , XX 1 P T 

X X 2 PT 

,xx3rr  f 

62. 

•XX1PD  , 

XX2P0  , 

XX3PD 

, XX  1PA 

X X2P  A 

XK3PA  , XX 1 RT 

XX  2RT 

XX  3RT  , 

63. 

♦XXIRD  , 

XX2R0  , 

XX  3RD 

, XX 1 R A 

, XK2RA 

XK3RA  , XX 1 OT 

X X 20T 

XX30T  , 

69. 

•XX 1 00  , 

XX20D  , 

X X 300 

, XX10A 

, X X 20 A 

XX30A  ,XKlUT 

, XX2UT 

, XX 3l)T  , 

65  . 

•xxiuo  , 

XX2U0  , 

XK3U0 

, XX  1 UA 

, XX2UA 

XX3UA  ,XX1RT 

, XK2RT 

* XX  3RT 

66. 

COflRON 

/RATS/ 

67. 

•XXlrtD  , 

XX2rtO  , 

XX  3RD 

XX  IRA 

XX2RA 

XK3RA  , XX 1 ZT 

XX2ZT 

XK3ZT  , 

68. 

• XX 1 2D  , 

XX2Z0  , 

XX3ZD 

XX  1 Z A 

, XK2ZA 

XX3ZA  , XX 1 VV 

, XX2VV 

X X 3 VV  , 

69. 

•XX 16 V , 

XX2GV  , 

XX3GV 

,XX1PV 

, XK2PV 

XK3PV  , XX  1 R V 

XK2RV 

XX3RV  , 

70. 

♦xxiov  , 

XK20V  , 

X X 30  V 

, XX1UV 

, XX2UV 

XK3UV  , XX 1 RV 

X K2RV 

,XX3rtV  , 

71. 

• XK12V  , 

XX2ZV  , 

XK3ZV 

, XX 1GG 

, XX2GG 

XX3GG  , XX 1 P G 

, XK2PG 

;*X3PG  , 

72. 

•XX 1 RG  , 

XX2RG  , 

XK3RG 

, xxioa 

, XX20G 

XX30G  , XX 1 UG 

, XK2U& 

XX3UG  , 

73. 

•XKlrtG  , 

XX2RG  , 

XX3RG 

, XX1ZG 

, XK2ZG 

XK3ZG  ,XX1PP 

XX2PP 

XX  3PP  , 

79. 

• XMRP  , 

XX2RP  , 

XX3PP 

, XX 1 OP 

XX20P 

XX30P  ,XX1UP 

XK2UP 

XX 3UP  , 

75. 

•XXlrtP  , 

XX2RP  , 

XX3RP 

,XX1ZP 

XX2ZP 

XX3ZP  , XX 1 RR 

XX2RR 

XX3RR  , 
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76. 

*XX 10R  , XK20R  ,XK30R  .XKlUfi  ,XK2UR  ,XK3UR  ,XK1R R ,XK2RR  ,X«3RR  . 

RATS 

77. 

*XK 1 ZR  XK2ZR  ,XK3ZR  ,XK100  ,XK200  ,XK300  ,XK1U0  ,XK2U0  . X K 3U0  , 

RATS 

78. 

*XK1R0  ,XK2R0  ,XK3R0  ,XK1Z0  , XK2Z0  , XK 120  ,XK1UU  , XK2UU  , XK  3UU  , 

RATS 

79. 

♦XK1RU  , XK2RU  ,XK3nU  ,XX1ZU  ,XK2ZU  . XX  3ZU  ,XK1RR  , XK2RR  ,XK3RR  . 

RATS 

80. 

*XK1ZR  ,XK2ZR  ,XK3ZP1  ,XK1ZZ  ,XK2ZZ  ,XK3ZZ  , XKPI  1 1,  XKPI21,  XKPI31 , 

RATS 

6 1 . 

*XKPI 12. XKPI 22, XKPI 32, XKP 1 1 3, XKP I 23, XKP 1 33,  PA1  ,PA2 

RATS 

82. 

corron  /RATS/ 

hATS 

83. 

#0P0Y(3,  8).  DEPDEY<  2,  8).  DPDL< 3,  3>#  PROD57 3,  69),  PR009<2,  29  ) 

RATS 

89. 

CORRON  /RATS/ 

RATS 

85. 

*PV  P6  ,PP  , PR  ,P0  ,PVV  , P G Y ,PPV  , PRY  , 

RATS 

86. 

*POV  , PGG  , PP6  , PR6  , P06  ,PPP  ,PRP  ,POP  ,PRR 

RATS 

67. 

• POR  ,P00  .PL6  ! PlP 

RATS 

86. 

EQlil  VALENCE!  PROD  1 , PRuD5  ) 

RATS 

89. 

ENTRY  AL6020 

AL8 

90. 

ASSIGN  201  TO  IAR 

AL8 

91  . 

ASSIGN  20  TO  160 

ALB 

92. 

GO  TO  601 

ALB 

601  — 

93. 

ENTRY  AL8011 

AL6 

99. 

ASSIGN  101  TO  IAR 

AL6 

95. 

ASSIGN  10  TO  IGO 

AL8 

96. 

GO  TO  601 

AL6 

601  — 

97. 

ENTRY  AL8010 

AL8 

98. 

ASSIGN  301  TO  IAR 

AL8 

99. 

ASSIGN  301  TO  IGO 

AL8 

100. 

GO  TO  601 

AL8 

601  — 

101  . 

ENTRY  AUB002 

Al8 

102. 

ASSIGN  901  TO  IAR 

AL8 

103. 

ASSIGN  90  TO  IGO 

AL8 

109 . 

GO  TO  601 

Al8 

601  — 

105. 

ENTRY  AL6001 

ALB 

106. 

ASSIGN  501  TO  IAR 

AL8 

107  . 

ASSIGN  50  TO  160 

Al8 

108. 

GO  TO  601 

AL8 

601  — 

109. 

ENTRY  AL8000 

Al8 

no. 

ASSIGN  60  TO  IAR 

ALB 

in. 

C 

AL8 

112. 

C 

PBElIRINARY  CALCULATIONS  FOR  ENTRY  60 

ALB 

113. 

C 

AL8 

119. 

601  ROOT  = V*  SINGAR 

ALB 

115. 

R6R  s ROR/6.3 

ALB 

116. 

RfeRR  s RORR/6.3 

AL8 

117. 

R6RRR  « RORRR/6 . 3 

AlB 

116. 

Y 115  = Y**1.15 

AL8 

119. 

CSRHO  s SIN2R0  /2. 

AlB 

120. 

CPSGAR  = COSPSI*  COSGAR 

AL8 

121  . 

CPSSGA  s COSPSI*  SINGAR 

AL8 

122. 

R0REG2  s R*  0RE6A2 

AL8 

123. 

CROGAR  = COSRHO*  COSGAR 

AL8 

129. 

CROSGA  s COSRHO*  SINGAR 

AL8 

125  . 

YOOT  s R0REG2  * CO$RHO*<  CROSGA-  SINRHO*  CPSGAR) 

AL8 

126. 

1 - 6*  SINGAR*  ( T * CODAE-  08*  COSA-  0RA6)/  R 

ALB 

127. 

60  TO  IAR 

ALB 

126. 

C 

AL0 

129. 

c 

PRElIRINARY  calculations  FOR  ENTRY  20 

AL8 

130. 

c 

AL8 

131  . 

201  VORA  s (OBR*  SINA . - DRAGRA)/  R 

ALB 

132. 

YDYA  s - DRAG V A/  R 

ALB 

133. 

YOflT  = - CODAE/R/R 

AL8 

139. 

YDRD  = - T*  SIDAE/R/R 

AL8 

135  . 

YORA  = ( T*  S I DAE-  08*  SINA  * OR AGA >/R/R 

AL6 

136. 

c 

ALfi 

137. 

c 

PRELIRINARY  CALCULATIONS  FOR  ENTRY  10 

AL8 

138. 

c 

AL6 

139. 

101  VDRR  = - GRR  * S I NGAR  - ( DBRR*  COSA  * ORAGRR  )/R 

AL8 

190 . 

YORY  = -ORAGYR/R  ... 

AL6 

191  . 

VORG  s 0REGA2*  COSfiHO*( CROGAR  * 5INRH0*  CPSSGA)-  6H«C0SGAR 

AL8 

192. 

YORP  = CREGA2*  CSRHO*  S INPS I *COSGAR 

AL8 

193. 

VORO  = -0R£GA2*(  SIN2R0*  SINGAR  * C0S2R0*  CPSGAR) 

AL8 

1 99  . 

VORR  = (OBR*  COSA  * DfiAGR  )/fl/R 

AL8 

195. 

YD Y Y = -ORAGYY/R 

AL8 

1 96  . 

VOVR  = ORAGY/R/R 

AL8 

197  . 

YDG6  = -R0RE62*  COSRHO*( CROSGA-SINRHO*CPSGAR  )♦  G*  SINGAR 

AL8 

198. 

YQGP  = -R*  YORP*S I NGAR /COSGAR 

ALB 

1 99. 

YOGO  = - BORE 62  *(SIN2fiO  * COSGAR  - C052fi0*CPSSGA ) 

AL8 

150. 

VOPQ  = R0REG2  * COSGAR*  SINPSI*  C0S2R0 

AL8 
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151  * 

VDPP 

= R0MEG2*CSRH0*CPS6AM 

ALfi 

152. 

9000 

= -2,*R0MEG2*( C0S2R0*5INGAM  - SI N2R0*CPSGAM > 

Al8 

153. 

vonn 

2 2 . *< T*COD AE  - O&’COSA  - 0RA6)/M**3 

AL8 

15**. 

C 

ALB 

155. 

C 

PRELIMINARY  CALCULATIONS  FOR  ENTRY  30  ,20  .10 

AL8 

156. 

C 

AL8 

157. 

301 

VOOTR 

= 0MEGA2*  COSRHO*(  CROSGA  - 51NRH0*  CPS6AM ) - 

AL8 

158. 

1 

GH*  SINGAH  - ( DBR*  COSA  ♦ DRAGR  )/  M 

Al8 

159. 

RDOTY 

= SIN6AM 

Al8 

160. 

VDOTY 

=-DRA6Y/  « 

AL8 

161  . 

RD0T6 

c Y*  COSGAM 

Al8 

162. 

YOOTG 

= R0MEG2*  CQSRHO*(  CROGAM+  SlNRHO*  CPSSGA)-  6*  COSGAM 

Al6 

163. 

VDOTP 

= R0RE62*  CSRHO  * SINPS1*  C0S6AM 

Al8 

16H. 

YOOTO 

= -R0nEG2*(  2 . *CSRHO  * SINGAM  * C0S2R0*  CPS6AM ) 

Al8 

165  . 

VDOTM 

=-(T*C0DAE  - OB*  COSA  - DRAG )/M/M 

Al8 

166. 

C 

Al8 

167. 

c 

PRELIMINARY  CALCULATIONS  FOR  ENTRY  SO 

Al8 

168. 

c 

Al8 

169. 

sOi 

YOTO 

= SIDAE/M 

Al8 

170. 

YOTA 

2 * YOTD 

Al8 

171. 

VOOD 

= - T*CODAE/M 

Al8 

172. 

YDOA 

s - VODD 

AL8 

173. 

YOAA 

s YDOO  -(  08*  COSA  * DRA6AA )/  M 

Al8 

17S. 

c 

Al8 

175. 

c 

PRELIMINARY  CALCULATIONS  FOR  ENTRY  50 

Al8 

1 76. 

c 

ALB 

177. 

501 

YDOTT 

£ CODAE/M 

Al8 

178. 

YOOTD 

s T*  SIDAE/  M 

Al8 

179. 

YOOTA 

s -YOOTD  ♦ ( OB*  SINA  - DRA6A )/M 

Al8 

180. 

60  TO 

160 

Al8 

181. 

c 

Al8 

182. 

c 

CALCULATE  MIXED  PARTIALS 

Al8 

183. 

c 

AL8 

18s . 

20 

XK3RT 

- ROR*  YDOTT 

Al8 

185. 

XK3RD 

= ROR*  YOOTD 

AL8 

186. 

XX3RA 

= ROR*  YOOTA*  RO*  VORA 

AL6 

187  . 

XK3YA 

= RO  • VDYA 

AL8 

188. 

XX3MT 

- RO  * YDMT 

Al8 

189. 

XK3MD 

2 RO  * YOMD 

Al8 

190. 

XX3MA 

2 RO  * YDMA 

Al8 

191  . 

c 

Al8 

192. 

c 

CALCULATE  SECOND  PARTIAlS  «ith  respect  to  state 

alB 

193. 

c 

Al6 

19S. 

10 

XK3RR 

= RORR*  YDOT+  2 . *ROR*  YOOTR*  RO*  VDRR* Y 1 l>*fi6RRR*RD0T 

Al8 

195  . 

XX3RV 

2 ROR  * Y0OTV*  RO*  VDfi Y +R6RR* Y 1 1 5*S I N6AM*2 . 15 

Al8 

196. 

XK3R6 

2 ROR  * YOOTG*  RO*  Y0R6*R6RR* Y1 15*ROOT6 

ALB 

197. 

XK3RP 

2 ROR  * YOOTP*  RO*  YORP 

AL8 

198. 

XX30R 

2 ROR  • YOOTO*  RO*  YDRO 

AL8 

199. 

XK3MR 

2 ROR  * YOOTft*  RO*  VORM 

Al8 

200. 

XK3YY 

= 2 . S 7 25*51 NoAR*R6R* Y 1 15/Y*R0*YDYY 

alb 

201  . 

XX3GV 

2 Y115*R6R*2.15*C0S6AM 

alb 

202. 

XX3MY 

2 RO*  YOYM 

alb 

203. 

XX  366 

2-Y1 15*R6R*R00T  * RO*  VDGG 

alb 

20s. 

XK3P6 

2 RO*  Y06P 

alb 

205. 

XX306 

2 RO*  YOGO 

ALB 

206. 

XX3GP 

2 RO*  YOPO 

ALB 

207. 

XX3PP 

= RO*YDPP 

ALfl 

208. 

XX300 

2 RO*YDOO 

Al8 

209. 

XX  3MM 

= RO*YOMM 

AL6 

210. 

c 

AL8 

211. 

c 

CALCULATE  FIRST  PARTIAlS  MlTH  RESPECT  TO  STATE 

alb 

212. 

c 

AL8 

213. 

30 

XX3R 

2 ROR*  YDOT*  RO*  YQOTR+ Y 1 15*R6RR*R00T 

ALB 

2 1 s . 

XX  3 Y 

2 Y115*R6R*2. 1 5*S I N6AM+R0* YDOTY 

Al8 

215. 

XX  36 

2 Y115*R6R*R00T6  * RO* YOOTG 

AlB 

216. 

XX3P 

2 RO*  YOOTP 

ALB 

217. 

XX  30 

2 RO*  YOOTO 

ALB 

218. 

XK3M 

2 RO*  YDOTM 

alb 

219. 

c 

AlB 

220. 

c 

CALCULATE  SECOND  PARTIAlS  NlTH  RESPECT  TO  CONTROL 

ALB 

221 . 

c 

Al8 

222. 

SO 

XX3TD 

2 RO* YDTO 

alb 

223. 

XX3TA 

2 RO* YOTA 

AlB 

22s. 

XX300 

2 RO* YOOD 

AlB 

225. 

XX30A 

2 RO* YDDA 

Al8 

6 OCT  72  6.01-SS 


226. 

U3M  = RO*VDAA 

AL8 

227. 

C 

AL8 

228. 

C 

CALCULATE  FIRST  PARTI A15  WITH  RESPECT  TO  CONTROL 

Al8 

229. 

c 

AL8 

230. 

50 

XK3T  = AO*  VOOTT 

AL8 

231. 

XK3D  = RO*  VDOTD 

Al8 

232. 

XK3A  = RO*  VDOTA 

AL8 

233. 

c 

AL8 

23s. 

c 

CALCULATE  CONSTRAINT 

Al8 

235. 

c 

AL8 

236. 

60 

XX 3 = VU5*R00T*R6«  ♦ RO*¥OOT 

Al8 

237. 

RETURN 

Al6 

238. 

END 

Al8 
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FORTRAN  HATH 

SYMBOL  SYPIBOL 


CODE 


DESCRIPTION 


_ STORAGE 
BLOCK 


SUBROUTINE  USAGE 

itt  SUBRCfOE  VAlT' 


CODAE  co  l(  ot  - 6 ^ ) * S«t 


/ DYNA  /( 


COSA 


cota  1 S«»  *y«b«l 


/ DYNA  /< 


C0S6AA  COS?  1 


/DYNA  /( 


COSPSI  cosf  1 S««  syibll 


COSRHO  c o ip  1 S««  ty«b«l 


/DYNA  /( 


/DYNA  /( 


C0S2R0  COs2p  ^ $t«  >y«b«l 


DB  I B«»«  4ri| 


/ OVNA  /( 


(LBS)  /DYNA  /( 


151  ) 

AL1 

CODAE 

AL9 

CODAE 

AL6 

CODAE 

AL7 

COOAE 

ALB 

CODAE 

AL9 

CODAE 

APPLY 

CODAE 

CONTRL 

CODAE 

NLORV 

CODAE 

TH3 

CODAE 

UT 

0 

CODAE 

10  ) 

AL1 

COSA 

ALA 

COSA 

AL6 

COSA 

AL7 

COSA 

ALB 

COSA 

Al9 

COSA 

APPLY 

COSA 

CONTRL 

COSA 

NLDRY 

COSA 

OUTPUT 

COSA 

TH3 

COSA 

UT 

a 

COSA 

H ) 

AL1 

COSGAA 

ALA 

COSGAA 

AL7 

COSGAA 

ALB 

COSGAA 

. . 

AL9 

COSGAA 

CONTRL 

COSGAA 

NLDRY 

COSGAA 

OUTPUT 

COSGAA 

PDBCQL 

COSGAA 

STATEF 

a 

COSGAA 

95  ) 

ala 

COSPSI 

AL7 

COSPSI 

ALB 

COSPSI 

ALA 

COSPSI 

CONTRL 

COSPSI 

NLDRY 

COSPSI 

PDBCOL 

COSPSI 

STATEF 

0 

COSPSI 

97  ) 

ALA 

COSRHO 

ALT 

COSRHO 

alb 

COSRHO 

AL9 

COSRHO 

CONTRL 

COSRHO 

NLORV 

COSRHO 

OUTPUT 

COSRHO 

PDBCOL 

COSRHO 

STATEF 

a 

COSRHO 

120  ) 

ALA 

C0S2R0 

AL7 

C0S2R0 

ALB 

C0S2R0 

NLDRY 

C0S2R0 

STATEF 

0 

COS2RO 

163) 

AL1 

DB 

ALA 

DB 

AL6 

OB 

ALT 

DB 

AL0 

DB 

AL9 

DB 

APPLY 

DB 

CONTRL 

DB 

NLDRY 

DB 

OUTPUT 

DB 

STATEF 

OB 

TH3 

DB 

UT 

OB 
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FORTRAN 

SVHBOL 


HATH 

SYUBOL 


CODE 


DESCRIPTION 


b’l6£a 


STj 


ror 


SUBROUTINE  USAGE, 
SUBR  CODE VAR 


DBR 

dD.  / dR 

I 

Sm  lyakil 

/OYNA 

/( 

66)  AL1 

I 

OBR 

AL9 

I 

DBR 

AL6 

I 

DBR 

alt 

I 

DBR 

AL6 

I 

DBR 

AL9 

I 

DBR 

APPLV 

1 

DBR 

STATEF 

I 

DBR 

TH3 

I 

DBR 

UT 

I 

DBR 

DBRR 

d2Dk/8Rz 

I 

Sat  tyafeol 

/DVNA 

/( 

87)  AL9 
AL6 

I 

I 

DBRR 

OBRR 

AL7 

I 

O&RR 

AL8 

I 

OBRR 

AL9 

1 

DBRR 

APPLV 

I 

DBRR 

STATEF 

I 

DBRR 

T M3 

I 

OBRR 

UT 

1 

DBRR 

DRAG 

D 

1 

Aarodyaaafc  drag 

(LBS)  /DVNA 

/l 

69)  AL5 

1 

DRAG 

AL7 

I 

DRAG 

AL6 

I 

DRA6 

AL9 

I 

DRAG 

APPLV 

I 

DRAG 

CONTRL 

I 

ORAG 

ENVPRQ 

I 

ORAG 

NlDRV 

I 

DRAG 

„ 

. - • 

. 

OUTPUT 

1 

DRAG 

TH3 

I 

DRAG 

UT 

ft 

DRAG 

DRAGA 

ao/do 

I 

Sat  tyikal 

/DVNA 

/( 

72)  ALl 
AL5 
AL7 

I 

1 

I 

DRAGA 

DRAGA 

DRAGA 

ALfl 

1 

DRAGA 

AL9 

I 

DRA6A 

APPLV 

I 

DRAGA 

TH3 

I 

DRAGA 

UT 

R 

DRAGA 

DRAGAA 

82D/d«2 

I 

Saa  syabal 

/DVNA 

/( 

76)  ALl 
AL5 

I 

I 

DRAGAA 

ORAGAA 

ALT 

1 

ORAGAA 

AL6 

1 

DRAGAA 

AL9 

1 

DRAGAA 

apply 

I 

ORAGAA 

TH3 

1 

DRAGAA 

UT 

R 

DRAGAA 

DRA6R 

dD/dR 

I 

Saa  tyafcal 

/DVNA 

/( 

71  ) AL5 

I 

ORAGR 

alt 

1 

DRAGR 

AL6 

I 

ORAGR 

AL9 

I 

ORAGR 

APPLV 

I 

DRAGR 

TH3 

I 

ORAGR 

UT 

R 

ORAGR 

ORAGRA 

32D/8Rd« 

] 

Saa  »r>Hl 

/DVNA 

/ C 

77)  ALl 
AL5 

I 

1 

DRAGRA 

DRA6RA 

At  7 

I 

DRAGRA 

AL6 

1 

DRAGRA 

AL9 

I 

DRAGRA 

APPLY 

] 

DRAGRA 

T M3 

I 

DRAGRA 

UT 

R 

DRAGRA 

0RA6RR 

a2D/dR* 

I 

Saa  ty.Ml 

/DVNA 

/t 

76)  AL5 
AL7 

I 

I 

OHAGRR 

DRAGRR 

ALB 

I 

DRAGRR 

AL9 

I 

DRAGRR 

APPLY 

1 

DRAGRR 

TH3 

I 

DRAGRR 

UT 

R 

DRAGRR 
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FORTRAN 

SVflBOL 


NATH 

SVflBOL 


CODE 


DESCRIPTION  - 


DRAGV 

8D/dV 

1 

S««  lyibil 

/DVNA 

n 

70  ) 

AL5 

I 

0RA6V 

AL7 

I 

DRAGV 

AL8 

I 

DRAGV 

Al9 

I 

DRAGV 

APPLY 

I 

DRA6V 

TH3 

r 

0RA6V 

UT 

* 

DRAGV 

ORASVA 

dsD/dVd« 

I 

5tt  lyakil 

/OYNA 

/< 

75) 

AL1 

AL5 

i 

i 

ORAGVA 

ORAGVA 

alt 

i 

DRAGVA 

AL8 

i 

ORAGVA 

Al9 

i 

ORAGVA 

APPLY 

i 

DRAGVA 

TH3 

i 

DRAGVA 

UT 

a 

DRAGVA 

OR  AG VR 

d2D/dVdR 

I 

/OVNA 

/( 

79) 

AL5 

AL7 

I 

I 

DRAGVR 

DRAGVA 

AL8 

I 

DRAGVR 

AL9 

I 

DRAGVR 

apply 

I 

DRAGVR 

T M3 

I 

DRAGVR 

UT 

a 

DRAGVR 

DRAGVV 

a2o/av* 

I 

Sff  tyafccl 

/DYNA 

/( 

73  ) 

AL5 

alt 

I 

I 

DRAGVV 

DRAGVV 

AL8 

J 

DRAGVV 

AL9 

I 

DRAGVV 

apply 

I 

DRAGVV 

* 

- 

- 

Th3 

I 

DRAGVV 

UT 

a 

DRAGVV 

6 

Q 

I 

1 ast anlanteut  gravitational  acceleration 

, /OVNA 

/( 

8) 

ala 

I 

G 

9 

(FT/SEC2  ) 

ALT 

1 

G 

Alb 

i 

G 

AL9 

l 

G 

CONTfiL 

i 

G 

NLORV 

I 

G 

STATEF 

ft 

G 

GH 

dg/dR 

I 

/DYNA 

/( 

192  ) 

Al7 

I 

6H 

AL8 

i 

GH 

NLDRV 

l 

GH 

STATEF 

n 

GH 

GRR 

d*6/dR* 

I 

Sat  tyalaj 

/DVNA 

/( 

193) 

AL7 

Al8 

I 

I 

GRR 

GRR 

nldrv 

I 

GRR 

STATEF 

ft 

6RR 

ft  a I H»i»  C6'S)  /D  /(  97)  Ala  I *« 

al7  i n 
al8  1 ft 
al9  I n 
APPLY  I ft 
BRANPT  I ft 
COSTAB  I ft 

cost ai  i n 

I MTRPT  I ft 
NLDRY  I A 
OUTPUT  I A 
SALVE  I A 

statef  i a 
NRAPUP  I a 

ONEGA 2 9 1 Sit  lyttoJ  /OYN A /(  6)  AL9  I 0AEGA2 

• alt  I 0AE6A2 

Al8  I 0HEGA2 
AL9  I 0 AEGA2 
NlORV  I OAEGA2 
TRAJ1N  0 0AE6A2 
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FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


!M«  “ay 


RO 

ROR 

ROAR 

RORRR 

SIDAE 

SINA 

SINGAA 


ff.Tg.HA6E. 

BLOCK Lbt 


R 


bpj  3R 


dJp§/dRJ 
* t n( a- ) 


s 1 n« 


s I nr 


I Radial  distant*  troa  earth  center  to  eehicle  /DVNA  /< 

<FT> 


1 Atoesphcric  density 


CSLSS/FT3)  /DVNA  /( 


1 See  syabel 


/DVNA  /( 


I See  syabel 


/DVNA  n 


I See  syshel  /DVNA  fi 

I See  syabel  /DVNA  /( 


I See  lyakol 


/DVNA  /< 


I See  synfcel 


/DVNA  n 


7)  ALA 

R 

AL7 

R 

ALB 

R 

AL9 

R 

contrl 

R 

ENVPRQ 

R 

nldrv 

R 

PDBCQL 

R 

QLTOSZ 

R 

STATEF 

a 

R 

15)  AL7 

RO 

AL8 

RO 

AL9 

RO 

nldrv 

RO 

OUTPUT 

RO 

PDBCQL 

RO 

STATEF 

RO 

m ALT 

ROR 

alb 

ROR 

AL9 

ROR 

nldrv 

ROR 

PDBCQL 

ROR 

STATEF 

ROR 

23)  ALT 

RORR 

alb 

RORR 

AL9 

RORR 

nldrv 

RORR 

STATEF 

RORR 

2)3)  ALT 

RORRR 

alb 

RORRR 

AL9 

RORRR 

STATEF 

RORRR 

152)  ALl 

SIDAE 

ALA 

SIDAE 

AL6 

SIDAE 

alt 

SIDAE 

alb 

SIDAE 

AL9 

SIDAE 

APPLY 

SIDAE 

contrl 

SIDAE 

TH3 

SIDAE 

UT 

0 

SIDAE 

9)  ALl 

SINA 

ALA 

SINA 

ALfc 

SINA 

AL7 

SINA 

AL8 

SINA 

AL9 

SINA 

APPLY 

SINA 

CONTRL 

SINA 

OUTPUT 

SINA 

TH3 

SINA 

UT 

A 

SINA 

3)  ALl 

SINGAA 

ALA 

SI  NOAM 

ALT 

SINGAA 

alb 

SINGAA 

AL9 

SINGAA 

CONTRL 

singaa 

NLDRV 

SINGAA 

POBCOL 

SINGAA 

STATEF 

a 

SINGAA 
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FORTRAN  FIAT  M 

SYMBOL  SYMBOL 


SINPSI  s i 1 »yab«l 


DESCRIPTION 


5 1 NR  HO  $ I np 


S#t  ifMlet 


SIN2R0  tln2p  I S«« 


X I T hr  «»t 


l fT /SEC ) /O 


“"bloc 

K 

l(Tc  subr 

cl) 

DE  VAR 

ZDYNA 

ZC 

99)  al9 

SINPSI 

AL7 

SINPSI 

ALB 

SINPSI 

AL9 

SINPSI 

CONTRL 

SINPSI 

NLDRY 

SINPSI 

PDBCQL 

SINPSI 

STATEF 

0 

SINPSI 

ZOYKA 

Z( 

96)  AL9 

SINRHO 

ALT 

SI NRHO 

ALB 

SINRHO 

AL9 

SINRHO 

COKTRl 

SINRHO 

nlorv 

_i 

SINRHO 

OUTPUT 

SINRHO 

POBCOL 

SINRHO 

STATEF 

a 

SINRHO 

ZOYKA 

Z< 

119)  AL*» 

SIN2R0 

ALT 

SIN2R0 

AlB 

SIN2RO 

NLDRY 

SIN2R0 

STATEF 

a 

SIN2R0 

ZOYKA 

Z( 

HZ)  ALGCOK 

A 

T 

AL1 

T 

AL9 

T 

AL6 

T 

ALT 

T 

ALB 

T 

AL9 

T 

APPLY 

T 

ARC I K 

0 

T 

CONTRL 

a 

T 

DL2 

T 

IMPULS 

T 

. OUTPUT 

T 

TH1 

T 

TH2 

T 

TH3 

T 

TH9 

T 

zo 

/< 

91 ) ALl 

Y 

ALA 

V 

alt 

V 

alb 

V 

AL9 

V 

BCOND 

NO  A 

BNDRY 

0 

NOA 

BRANPT 

a 

NO  A 

CONTRL 

Y 

ENOPT 

NOA 

ENVPRO 

V 

FETCH 

0 

NOA 

INTERP 

A 

V 

INTRPT 

A 

NOA 

NLDRY 

0 

NOA 

NLDRY 

V 

OUTPUT 

V 

PDBCOL 

Y 

STATEF 

V 

WRAPUP 

V 
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SUBR0UTINE 

AL9 


Purpose 


AL9  evaluates  the  Reynolds  number  rate  constraint,  Equation  10.6-3  in  Vol.  I. 
In  addition,  it  computes  the  explicit  first  and  second  partials  of  this 
constraint  with  respect  to  the  state  and  control  as  they  are  needed. 


AL* 


1. 

2. 
3. 
9. 

5. 

6. 

7. 

8. 
9. 

10. 
II  . 
12. 
13. 


SUBROUTINE  *L9 

Subroutine  to  calculate  the  partial  derivatives 
OF  REYNOLOS  number-dot  and  evaluate  a constant 
REYNOLDS  NUMBER  FLIGHT  NODE  CONSTRAINT 

REAL  NA6BV,  MU,  N,  LV,  L^AM,  LPSI,  LR,  LRHO,  LNU,  LN,  LTAU,  NON 
*,  LHT 
CONNON  /O/ 

♦ X,  H,  X I ( 9 ),  NAGBV,  ERR,  D9,  DIO,  C(90),  CSAVE* 90 >,  V,  GAN,  PSI, 
*ALT,RHO,fiU,«#  TAU,  HT,  LV,  LGAN,  LPSI,  Lfi,  LRHO.  LNU.  LM.  LTAU, 

• LHT.  D 1 09  D 1 10,  6V<90>,  2SAVE(20),  0T(20>,  NP0lNT(20),  0ELT(  20  ) 
0 1 MENS  I ON  N0A(20) 


AL9 

AL9 

AL9 

AL9 

AL9 

AL9 

D 

D 

D 

D 

JUL21 

D 

D 


19. 

EQUIVALENCE  (NON,  V ) 

D 

IS. 

LOGICAL  SNITCH,  i LOAD 

OYNA 

16. 

REAL  NACH.  ISP.  ISPV.  ISPR. 

ISPN, 

ISPT,  ispvv. 

ISPWR. 

ISPVN, 

DYNA 

17. 

• ISPVT.  1 Sr RR . ISPfiN. 

I SPRT 

1SPNN. 

I SPrtT . ISPTT 

LlFt. 

liftv. 

DYNA 

18. 

♦L1FTR.  LIFTA.  LlFTVV.  LlFTVR.  LlFl 

VA.  LIFTRR . LlFTRA. 

NUR,  LIFTAA, 

DYNA 

19. 

♦IRATEO.  ISPF.  ISPFF 

DYNA 

20. 

REAL  AACHY.  NACHR.  NACHVR. 

NACHRR 

DVNA 

21. 

REAL  LlFTN,  LIFTVN, 

liftrn. 

liftnn.  liftna 

DYNA 

22. 

connon  /ovna/ 

DYNA 

23. 

•XX  .TINE  . SINGAN. COSGAfl 

, ONEGA 

0NEGA2,R 

,6 

, S I NA 

JUL21 

29. 

•COSA  DYNC 11, 0NE6AT 

. T ANP 

,PA 

,R0  CS 

TENPR 

.PAR 

DYNA 

25. 

•ROR  , C5R  TEHPRR 

, PARR 

RORR 

, CSRR  , XODE 

NACH 

9 

DYNA 

26. 

• QV  OR  , 0 V Y 

Q VR 

, QRR 

, F VAC  F VAC V 

F V ACR 

F VACN 

DYNA 

27. 

♦ F V ACT  F V ACVV,F  YACVR 

F VACRR 

F VACTT 

T NACH V 

NACHR 

ISP 

DYNA 

26. 

♦ISPV  , I SPR  ,ISPrt 

,ISPT 

,ISPVV 

i SP vr  ,ispvn 

, ISPVT 

, I SPRR 

DYNA 

29. 

•ISPRN  I SPRT  I SPNN 

I 5PNT 

1 5PTT 

,LIFT  ,liftv 

,LlFTR 

, LIFTA 

OYNA 

30. 

•LlFTV¥,LlFTvR,LlFTVA 

LIFTRR 

,liftra 

DBAS  OR AG V 

OR  A6R 

, ORAGA 

OYNA 

31  . 

•DRAGVV . DRAGVR.ORAGVA 

OR AGRR 

DR  AGRA 

, dragaa. alpha 

.PHI 

LlFTN 

DYNA 

32. 

• LIFTVN,  LIFTRN,LIFTNPI 

,LlFTNA 

, DBR 

. OBRR  .GANNAD.AE 

.TAX 

DYNA 

33. 

• hi  , SINPH1  .COSPHI 

S I NP  S I 

,COSPSI 

. SINRHO .COSRHO . SINROR. COSROR . 

DYNA 

39. 

•NUR  ,XXS  , XKP 

AX  1 N 

CDO 

,cdon  ,clo 

,FX 

. XC6N 

DYNA 

35. 

•XCGNN  2CGN  ,2CGNN 

, X J V 

, X JR 

,XJVV  X J VR 

, X JRR 

. NACHVR , 

DYNA 

36. 

•NACHRR,SI N2R0, C0S2R0 

C0S2GN 

,CN 

,CNA  ,cnn 

. CNAA 

. CNNN 

DVNA 

37. 

•cnan  ,cno  ,cnon 

,CNOMrt 

,CNAnn 

,UlFTV  ,ulftr 

.ULFTVV.ULFTVR. 

DYNA 

38. 

•ulftva,ulftrr#ulftra 

, IPOU 

XARC 

TSTART  GH 

, GRR 

.LIFTAA. 

DYNA 

39. 

•CDONN  ,ClANN  ,ClON 

. Cl  odn 

DYNl 9 9 

,CT  1C0DAE 

.SIDAE 

.COD 

* 

DYNA 

90. 

•SIO  ,DElTAE,COE 

,XCG 

, ZCG 

.XJ  . XNCG 

.CALPHA. ALNAX 

DYNA 

91. 

•08  ,ULFT  ,CULFT 

, ULFT  A 

,TSTA6E 

.TINES  .XNCGAA. IRATEO. FRATED 

DYNA 

92  . 

CONNON  /DVNA/ 

DYNA 

93. 

•NTT  ,J1  ' ,J2 

,J3 

,XNCGA 

. F VACF  .ULFTAA.ISPF 

, ISPFF 

DVNA 

99. 

• ROAD  ,FXN  ,FX«N 

, SNITCH 

,1HQF 

,CL  ,CLA 

,CLN 

.CLAA 

OYNA 

95. 

•CLNN  Clan  ,co 

, COA 

, CON 

. CDAA  .CONN 

.COAN 

. 0YN198 . 

DYNA 

96. 

• 0YN199,  DYN200,  XF1CGV 

XNCGR 

,XNCGN 

, XNCSVV, XNCGVR  XNCGVN, XNCG V A, 

DYNA 

97. 

•XNCGRR , XNCGRN, XMCGRA 

, XNCGNN 

, XNCGNA 

. RORRR  .DYN219.DYN215.0YN216. 

DYNA 

98. 

•DYN2 1 7 , I OAN  T AIRB 

TAIRBV 

'tairbh 

. TARBVV.TARBHH .TARBVM.SFC 

JUL21 

99. 

•SFCV  . SFCH  .SFCVV 

. SFCHH 

, SFCVH 

AUG09 

50. 

DIMENSION  PROOK2.  69) 

NATS 

51. 

CONNON  /NATS/ 

NATS 

52. 

•PI  ,P2  ,P3 

, XX 1 

XX2 

, XX3  , XX 1 T 

, XX2T 

, XK3T 

NATS 

53. 

• XX  ID  , XX20  , XX3D 

XX 1 A 

, XX2A 

XX3A  VDA 

, GOA 

PDA 

* 

NATS 

59. 

•XN19  XN20  ,XM2i 

, XN22  . 

,XX1TT 

XX2TT  XX3TT 

,XK1TD 

, XK2TD 

NATS 

55. 

♦ XX3T0  , XX  IT  A XX2T  A 

XX  3T  A 

XX  1 DO 

XX20D  XX3DD 

XX 1 OA 

XX2DA 

NATS 

56. 

•XK3DA  XX 1 AA  ,XK2AA 

XX  3A  A 

, XN91 

,XN92  ,XN93 

XN99 

,XN95 

NATS 

57. 

•XXIV  , XX2 V , XX3 V 

, XX  1 G 

, XX2G 

, XX3G  ,XX1P 

, XX2P 

, XX3P 

NATS 

56. 

•XX1R  XX2R  XX3R 

,XX10 

, XK20 

, XX30  ,XXtU 

,XK2U 

, XX3U 

NATS 

59. 

• XX  IN  XK2N  XX  3N 

, XX 1 z 

, XK2Z 

XK3Z  XX 1 VT 

, XX2VT 

XK3VT 

* 

NATS 

60. 

• XK1VD  ,XX2VD  XK3 VO 

, XX 1 V A 

XX2  V A 

XX  3 VA  XX  1ST 

XX2GT 

XX3GT 

NATS 

61. 

• XX 1 GO  XK26D  , XX 360 

XX  IGA 

XK2GA 

, XX36A  XX 1PT 

XK2PT 

XX3PT 

* 

NATS 

62. 

• XK1PD  XX2PD  XX  3PD 

, XX  IP  A 

XX2P  A 

XX3PA  , XX 1RT 

XK2RT 

XK3RT 

NATS 

63. 

• XX1R0  XX2R0  XX  3RD 

XX  1 R A 

XX2RA 

XX3RA  XX10T 

XK20T 

XX30T 

NATS 

69. 

• XK10D  , XX20D  XX 30D 

XX  1 OA 

XX20A 

XX30A  XX luT 

,XX2UT 

XK3UT 

NATS 

65. 

•XK1UD  , XX2UD  , XX3UD 

, XX 1 UA 

, XX2UA 

, XX3UA  , XX 1NT 

, XX2NT 

, XX3NT 

NATS 

66. 

CONNON  /NATS/ 

NATS 

67. 

•XK1N0  . XX2AD  . XK3ND 

, XX1NA 

XK2NA 

XK3NA  XX 1 ZT 

XX2ZT 

. XX3ZT 

» 

NAT  Z 

6fi. 

69. 

""  •fKTTO  , XT2TII  , XXJZLT 
•XX16V  XX2aV  ,XX36V 

~TX1TA 

,XX1PV 

XK2  2A* 
XK2P  V 

, XKOZA  XX1VV 
XK3P  V XKIRV 

r XX2VV* 
XX2RV 

, U3VV- 
XX  3R  V 

T~~ 

* 

NATS 

70. 

• XK10V  XX20 V , XX 30 V 

, XK1UV 

, XX2UV 

X X 3U V ,XX1NV 

XX2NV 

XX  3NV 

NATS 

71. 

• XK1ZV  XK22 V X X 3Z  V 

XX 1 GG 

, XK2GG 

, XK3GG  XX  IPG 

XX2PG 

XK3PG 

9 

NATS 

72. 

•XX 1 RG  , XX2RG  ,XX3RG 

, XX  1 06 

, XX206 

XX306  ,XX1UG 

, XX2UG 

XX3UG 

NATS 

73. 

•XX1NG  XX2NG  XX3NG 

XX 1 ZG 

XK2ZG 

XK3ZG  , XX IPP 

, XX2PP 

XX3PP 

NATS 

79. 

♦ XX1RP  XX2RP  XX  3RP 

,XX10P 

XX20P 

XX 30P  , XX 1 UP 

, XK2UP 

XX  3UP 

NATS 

75. 

♦ XX1NP  XX2MP  XX  3NP 

,XX1ZP 

XK2ZP 

XK3ZP  XX 1RR 

XK2RR 

, XK3RR 

, 

NATS 
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76. 

•XK10R 

XK20R  , XK30R  .XKlUfi  XK2UR  , X-K3UR  .XK1AR  ,Xi(2AR 

XK3AR  . 

AATS 

77. 

•XK1ZR 

XK2ZR  , XK  3ZR  .XK100  ,XK200  ,XK300  ,XK1U0  ,XK2U0 

, XK 3U0  , 

AATS 

76. 

•xkiro 

XX 2A0  , XK3R0  ,XK1Z0  ,XK2Z0  , XK 3Z0  ,XK1UU  ,XK2UU 

, XK3UU  , 

AATS 

79. 

•xkiau 

XK2RU  . XK3AU  .XK1ZU  .XK2ZU  . XK 3ZU  , X X 1 WA  .XK2AB 

, XK3AA  ! 

AATS 

80. 

•xkiza 

,XK2ZA  ,XK3ZA  ' XK 1 ZZ  ,XK2ZZ  , XK3ZZ  XKP  111,  XKPI21 

, X KP 1 3 1 

AATS 

81. 

•XKPI12 

,XKPI22#XKPI32!XKPI13, XKP I 23, XKP I 33, PA  1 ,PA2 

AATS 

82. 

coaron 

/AATS/ 

AATS 

63. 

*OPQY<  3 

. 8).  DEPDEY! 2 . 8).  DPDLt  3 . 3).  PR0D513.  64).  PR009I2.  24) 

AATS 

84. 

COAAON 

/AATS/ 

AATS 

85. 

• PV 

,P6  ,PP  .PR  ,P0  ,PVV  ,PGV  ,PPV 

,PRV 

AATS 

66. 

*POV 

. PGG  .PPG  .PRG  . P06  .PPP  .PR P .POP 

,prr  ; 

AATS 

87. 

88. 

♦POR  .POO  ,PL6  PLP 

EQUIVALENCE! PftODl .PR0D5 ) 

AATS 

AATS 

89. 

C 

AL9 

90. 

ENTRY 

AL9020 

Ai.9 

91. 

A5SI8N 

10  TO  IAA 

AL9 

92. 

ASSIGN 

1 TO  160 

Ai.9 

93. 

60  TO 

6 

AL9 

6 — 

94. 

ENTRY 

AL901 1 

AL9 

95. 

ASSI6N 

20  TO  IAA 

AL9 

96. 

ASSI6N 

2 TO  160 

AL9 

97. 

60  TO 

6 

Ai.9 

6 — 

98. 

ENTRY 

AL9010 

AL9 

99. 

ASSIGN 

30  TO  IAA 

AL9 

100. 

ASSIGN 

3 TO  160  ! 

AL9 

101. 

60  TO 

6 

Ai.9 

6 — 

102. 

ENTRY 

AL9002 

Al9 

103. 

ASSIGN 

40  TO  IAA 

Al9 

104. 

ASSIGN 

4 TO  160 

Ai_9 

105. 

60  TO 

6 ! 

AL9 

fc  — 

106. 

ENTRY 

A L 9001 

AL9 

107. 

ASSIGN 

50  TO  IAA 

AL9 

108. 

ASSI6N 

5 TO  160 

AL9 

109. 

60  TO 

6 

AL9 

6 — 

no. 

ENTRY 

AL9000 

Ai.9 

111. 

ASSIGN 

60  TO  160 

AL9 

112. 

60  TO 

6 

Al9 

6 — 

113. 

C 

AL9 

114. 

6 ROOT 

^ V*  SlNGAn 

AL9 

115. 

VOOT 

s R*  0AEGA2*  CGSRHO*( COSRHO*  SINGAA-  SINRHO*  COSPSI*  COSGAA 

AL9 

116. 

« 

>-  G*  SINGAA*  (T*  CODAE-  06*  COSA-  DRAG)/  A 

AL9 

117. 

Cl 

s RHO*  UAU/  V 

AL9 

118. 

C2 

s UAU*  ROR  - UAU 1 * RO 

Ai.9 

119. 

C3 

= C2/  V 

Ai.9 

120. 

60  TO 

160 

Ai.9 

121. 

c 

Al9 

122. 

1 CONTINUE 

AL9 

123. 

VOOTT 

= CODAE/A 

A L9 

124. 

VOVA 

= - 0RA6VA/A 

AL9 

125. 

VORA 

s -( ORAGRA  - OBR*  SINA)/A 

AL9 

126. 

FI 

=( ROR*  UAU  * UAU 1 *R0 )/ V 

AL9 

127. 

c 

Al9 

128. 

2 VORR 

=-3.*6/R/R*  SINGAA-  ( 0RA6RR*  06RR*C0SA)/  A 

Al9 

129. 

VORG 

s 0AEGA2*  COSRrtO*!  COSRHO*  SINGAA*  SINRMO*  COSPSI*  SINGAA )♦ 

Ai.9 

130. 

G*C0S6AA/R 

Al9 

131. 

VORP 

s 0AEGA2*  COSRHO*  SINRHO*  S1NPSI*  C0S6AA 

Ai.9 

132. 

81 

= COSRHO*  SINGAA  -SINRHO*  COSPSI*  COSGAA 

Al9 

133. 

82 

= -5 1 NRHO*  SINGAA  -COSRHO*  COSPSI*  C0S6AA 

Ai.9 

134. 

VORG 

s-0AE6A2*(  SINRNO*  61*  COSRHO*  82) 

Ai.9 

135. 

VORA 

- = (DRAGR  * D6R*C0SA  )/A/A 

Ai.9 

136. 

VOW 

* - 0RA6W/  A 

AL9 

137. 

V0G6 

s R*  0AEGA2*  COSRHO*  SINRHO*  COSPSI*  COSGAA  * G* 

SINGAA 

AL9 

136. 

VOGP 

s-R*  0AEGA2*  COSRHO*  SINRHO*  5INPSI*  SINGAA 

Al9 

139. 

83 

s COSRHO*  COSGAA  * SINRHO*  COSPSI*  SINGAA 

AL9 

140. 

64 

= SINRHO*  COSGAA  - COSRHO*  COSPSI*  SINGAA 

At9 

141. 

VOGO 

:-R*  0AE6A2*( SINRHO*  83  * COSRHO*  64) 

AL9 

142. 

VOPP 

=-R*  0AEGA2*  COSRHO*  SINRHO*  COSPSI*  COSGAA 

AI.9 

143. 

622 

= SINRHO*  SINGAA  - COSRHO*  COSPSI*  COSGAA 

AL9 

144. 

VOOO 

=-R*0flEGA2*(  2.*COSRHO*B1-SINRHO*(  622-  62)) 

AL9 

145. 

VOAA 

= 2 . *!  T*  COOAE-  D6*C0SA  -DRA6>/A/A/A 

Al9 

146. 

c 

AL9 

147. 

3 A1 

= COSRHO*  SINGAA-  SINRHO*  COSPSI*  COSGAA 

Ai.9 

146. 

A2 

= COSRHO*  COSGAA*  SINRHO*  COSPSI*  SIN6AA 

AL9 

149  . 

A3 

r SINRHO*  SINGAA*  COSRHO*  COSPSI*  COSGAA 

AL9 

150. 

VOOTR 

= 0AEGA2*  COSRHO*  Al*  G*  SINGAA/R  -(DRAGR*  OBR* 

COSA  )/ A 

AL9 
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151  . 

YDOTY 

= - 0RA6V/  N 

AL9 

152. 

VDOTG 

x R*  0NE6A2*  COSGAM#  A2  - 6#  COSGAN 

AL9 

153. 

YOOTP 

x-R*  0flEGA2#(AW  A3) 

AL9 

15**. 

VDOTN 

x-(  T#  COOAE-  OB#  COSA  - DRAG)/  fl 

AL9 

155. 

C 

AL9 

15b . 

9 CONTINUE 

ALS 

157. 

C 

AL9 

156. 

5 C** 

x Cl/N 

AL9 

159. 

60  TO 

IAN 

AL9 

160. 

c 

Al9 

161  . 

c 

CALCULATE  NIXED  PART  1 ALS 

AL9 

162. 

c 

Al9 

163. 

10  XK3RT 

x V00TT#F1 

AL9 

16**. 

XK  3RD 

x VDOTD#F  1 

Al9 

165  . 

XK3RA 

= VDOT A#F 1 ♦ Cl#  VORA 

AL9 

166. 

XK3VT 

= -Cl/ Y*  VOOTT 

Al9 

167. 

XK  3 YD 

= -Cl/V#  VDOTD 

Al9 

168. 

XK3VA 

= -Cl/V#  VOOTA  ♦ Cl*  YDYA 

Al9 

169. 

XK3NT 

=-C**  # VOOTT 

AL9 

170. 

XK3A0 

=-C**  • VDOTD 

AL9 

171. 

XK3NA 

=-C**  * VDOTA 

AL9 

172. 

c 

AL9 

173. 

c 

CALCULATE  SECOND  PAATIAlS  WITH  RESPECT  TO  STATE 

AL9 

17**. 

c 

AL9 

175. 

20  XK3RR 

x ROOT#( unu#RORRR+UNUl^RORR“ROR#unu2-RO#Unu3 >♦  VDOT/V*( 

Al9 

1>6. 

6 

2 . *ROR*UflUl  #RORR#unu  +UflU2*R0)#  C1#V0RR 

Al9 

177. 

XK3RV 

=( unU#R0RR“R0#UNU2 )#SINbAfl  - YOOT / Y#( ROR*U«U  ♦ UHUl#RO)# 

AL9 

176. 

* 

( ROR*U«U  + UnUl*RO >/V/A#VDOTV  *C1*(  DRA6YR/N  - VDOTR/Y) 

Al9 

179. 

XK3R6 

= -C2/ Y#  VDOTG  -V*C0S6AH*(  UflU*A0RA-fi0#UNU2  ) 

AL9 

1 BO . 

XK3RP 

x Cl# YDRP  ♦ YD0TP#C2/Y 

AL9 

161. 

XK3R0 

s C 1 # YDRO  ♦ VOOTO#C2/Y 

AL9 

162. 

XK3RH 

s C1*YDRN  * YD0TN#C2/Y 

AL9 

163. 

XK3V  V 

x C1#V0VV-  2 .#C1/V/Y#  YDOTY  ♦ Cl/Y/Y/Y#  VDOT 

AL9 

18**. 

XK3VG 

x C2*C0SGArt  - Cl/ V# VOOTG 

Al9 

185. 

XK3VP 

x-C  1 / Y#  YOOTP 

AL9 

186. 

XK3V0 

x-Cl/V#VDOTO 

AL9 

187. 

XK3VH 

x-Cl/V*VDOT«  ♦ C***  ORAGY 

AL9 

186. 

XK36G 

=-C2*  Y*  SIN6AN  ♦ Cl#  Y066 

AL9 

189. 

XK36P 

x Cl#  YOGP 

Al9 

190. 

XK360 

x Cl*  VOGO 

Al9 

191. 

XK3PP 

x Cl*  YOPP 

AL9 

192. 

XK3P0 

x Cl*  YOPP 

AL9 

193. 

XK300 

= Cl*  YDOO 

AL9 

1 9H . 

XK3HH 

x Cl*  VDftA 

Al9 

195. 

c 

Al9 

196. 

c 

CALCULATE  FIRST  PARTIALS  WITH  RESPECT  TO  STATE 

AL9 

197. 

c 

Al9 

198. 

30  XK3R 

X ROOT#( unu*RORR“RO*unUl >+VOOT/V*(  ROR#UNU*UNU 1 *R0  )*C1*VOOTR 

AL9 

199. 

XK3  V 

x C2*  S1NGAN  - Cl/Y*  VDOT  ♦ Cl*  YDOTY 

Al9 

200. 

XK3G 

x C2*  Y*  COSGAN#  Cl*  Y00T6 

AL9 

201. 

XK3P 

x Cl*  YOOTP 

Al9 

202. 

XK30 

x Cl*  YOOTO 

Al9 

203. 

XK3N 

x Cl*  VDOT* 

Al9 

20**. 

c 

AL9 

205. 

c 

CALCULATE  SECOND  PARTIAlS  WITH  RESPECT  TO  CONTROL 

Al9 

206. 

c 

AL9 

207. 

*(0  XK3T0 

x C***  SIOAE 

Al9 

208. 

XK3TA 

x - XK3T0 

Al9 

209. 

XK3DA 

x C***  T#COOAE 

Al9 

210. 

XK3DD 

x - XK30A 

AL9 

211. 

XK3AA 

x C*t*  (OB#  COSA  - T#  COOAE-  ORAGAA ) 

AL9 

212. 

c 

AL9 

213. 

c 

CALCULATE  FIRST  PARTIAlS  WITH  RESPECT  TO  CONTROL 

AL9 

21*1 . 

c 

Al9 

215. 

50  XK3T 

x C*l  # COOAE 

AL9 

216. 

XK30 

s C*l  • T#  SIDAE 

AL9 

217, 

XK3A 

x C*t  # (OB#  S I NA-  T#  SIOAE-  ORAGA  ) 

Al9 

218. 

c 

Al9 

219. 

c 

CALCULATE  constraint 

Al9 

220. 

c 

Al9 

221. 

60  <53 

x C2#  ROOT  ♦ Cl#  YOOT 

Al9 

222. 

RETURN 

Al9 

223. 

END 

Al9 

6 OCT  72  6.01-99 


/D VNA  n 


/DYNA  /( 


/ OVNA  /( 


/DYNA  /( 


/DYNA  /( 


(LBS)  /DYNA  /< 


151  ) AL1 

I 

CODAE 

ALS 

I 

CODAE 

AL6 

I 

CODAE 

ALT 

I 

CODAE 

ALB 

I 

CODAE 

AL9 

] 

CODAE 

APPLY 

I 

CODAE 

CONTRL 

I 

CODAE 

NLORV 

I 

CODAE 

TH3 

I 

CODAE 

UT 

0 

CODAE 

10)  AL1 

I 

COSA 

ALA 

I 

COSA 

. . AL6 

1 

COSA 

ALT 

I 

COSA 

alb 

I 

COSA 

AL9 

1 

COSA 

APPLY 

I 

COSA 

CONTRL 

I 

COSA 

NLORV 

I 

C05A 

OUTPUT 

I 

COSA 

TH3 

I 

COSA 

UT 

n 

COSA 

A)  ALl 

I 

COSGAH 

ALA 

r 

COS  SAfl 

ALT 

i 

COSGAN 

ALB 

! 

COS  GAN 

- - • At  9 

I 

COS  GAN 

CONTRL 

I 

COSGAH 

NLORV 

J 

COSGAfl 

OUTPUT 

1 

C0S6AH 

PDBCOL 

I 

COSGAN 

STATEF 

N 

COSGAN 

95)  ALA 

I 

COSPSI 

ALT 

I 

COSPSI 

alb 

1 

COSPSI 

AL9 

I 

COSPSI 

CONTRL 

] 

COSPSI 

NLORV 

I 

COSPSI 

PDBCOL 

1 

COSPSI 

STATEF 

0 

COSPSI 

9T  ) ALA 

1 

COSRHO 

ALT 

1 

COSRHO 

ALB 

I 

COSRHO 

AL9 

I 

COSRHO 

CONTRL 

I 

COSRHO 

NLORV 

I 

COSRHO 

OUTPUT 

I 

COSRHO 

PDBCOL 

I 

COSRHO 

STATEF 

n 

COSRHO 

163)  ALl 

1 

OB 

ALA 

I 

DB 

AL6 

1 

DB 

ALT 

1 

OB 

ALB 

I 

OB 

AL9 

1 

OB 

apply 

I 

OB 

CONTRL 

1 

OB 

NLORV 

1 

DB 

OUTPUT 

I 

DB 

STATEF 

I 

Ob 

TH3 

1 

DB 

UT 

I 

DB 

6 OCT  T2  6.01-SA 


FORTRAN  HATH 

SYMBOL  SYMBOL 


DBR  dD^/dfi  1 tykol 


DESCRIPTION 


DBRR  d2p  /dR2  1 Saa  tyafeol 

A 


Aarodyftasic  drag 


(LBS)  /OYMA  /( 


0RA6A  dD/da  1 Set  tyafcol 


d* o/a«*  1 s" 


0RA6R  dD/dR  1 


DR  AGRA  dSo/dBdB  1 S,t 


DRAGRR  a20/dR2  * 


rjl.  5UBR0iJ 

TI 

NE  USAGE 

lie  SUBR 

to 

OE  VAR 

86)  AL1 

I 

OBR 

AL*I 

I 

DBR 

AL6 

I 

OBR 

ALT 

I 

OBR 

ALB 

I 

OBR 

AL9 

I 

OBR 

APPLY 

I 

DBR 

STATEF 

I 

OBR 

T M3 

I 

DBR 

UT 

I 

DBR 

B7  ) ALA 

I 

DBRR 

AL6 

I 

DBRR 

ALT 

I 

DBRR 

ALB 

I 

DBRR.. 

AL9 

I 

DBRR 

apply 

I 

DBRR 

STATEF 

I 

DBRR 

TM3 

I 

DBRR 

UT 

I 

DBRR 

69)  AL5 

I 

DRAG 

AL7 

I 

DRAG 

alb 

I 

DRAG 

AL9 

I 

DRAG 

APPLY 

I 

DRAG 

COMTRL 

I 

DRAG 

EMYPfiQ 

I 

DRAG 

nldry 

I 

DRAG 

. . OUTPUT 

I 

DRAG 

T M3 

I 

DRAG 

UT 

A 

DRAG 

72)  AL1 

1 

DRAGA 

Al5 

I 

ORAGA 

Al7 

I 

DRAGA 

ALB 

I 

DRAGA 

AL9 

I 

DRAGA 

APPLY 

I 

DRAGA 

TH3 

1 

DRAGA 

UT 

A 

DRAGA 

78)  AL1 

I 

DRAGAA 

AL5 

I 

DRA6AA 

alt 

I 

DRAGAA 

alb 

I 

DRAGAA 

Al9 

I 

DRAGAA 

applv 

I 

DRAGAA 

TH3 

I 

ORAGAA 

UT 

A 

DRAGAA 

71  ) AL5 

I 

DRAGS 

alt 

I 

OR  AGS 

alb 

I 

DRAGS 

AL9 

I 

DRAGS 

apply 

I 

DRAGS 

TH3 

I 

ORAGR 

UT 

A 

DRAGS 

77)  AL1 

I 

DRAGRA 

AL5 

I 

DRAGRA 

AL7 

I 

DRAGRA 

ALB 

I 

DRAGRA 

Al9 

I 

DRAGRA 

APPLY 

I 

DRAGRA 

TH3 

I 

ORAGRA 

UT 

A 

DRAGRA 

76)  AL5 

I 

DRAGRR 

AL7 

I 

DRAGRR 

ALB 

I 

DRAGRR 

AL9 

I 

DRA6RR 

APPLY 

I 

DRAGRR 

TH3 

1 

DRAGRR 

UT 

A 

DRAGRR 

6 OCT  72  6.01-M 


FORTRAN 

SYMBOL 


MATH  * 
SYMBOL 


CODE 


DESCRIPTION 


STORAGE 

go fdriur 


DRA6V 


DRAGVA 


DRAGYR 


DRAGVV 


8 


a 


0AE6A2 


R 


ao/av 

I 

Sit  lyakel 

/ OYNA 

/( 

70)  AL5 

I 

DRAGV 

ALT 

I 

DRAGV 

ALB 

I 

DRAGV 

AL9 

1 

DRAGV 

APPLY 

1 

DRAGV 

TH3 

I 

DRAGV 

UT 

a 

DRAGV 

d2D/avd«» 

I 

/DYNA 

n 

75)  AL1 
AL5 

I 

I 

DRAGVA 

DRAGVA 

alt 

i 

DRAGVA 

ALB 

i 

DRAGVA 

AL9 

i 

DRAGVA 

apply 

l 

DRAGVA 

T M3 

i 

DRAGVA 

UT 

a 

DRAGVA 

d2D/dV9R 

I 

Set  syabol 

/OYNA 

/< 

79)  AL5 

alt 

I 

I 

DRAGVR 

DRAGVR 

ALB 

l 

DRAGVR 

AL9 

i 

0RA6VR 

APPLY 

i 

DRAGVR 

TH3 

i 

DRAGVR 

UT 

n 

DRAGVR 

92d/9v* 

I 

/OYNA 

/( 

73)  AL5 
AL7 

I 

i 

DRAGVV 
OR  AG V V 

ALB 

i 

DRAGVV 

AL9 

i 

OR  AG V V 

APPLY 

i 

ORAGVV 

* * * * ’ 

‘ T M3 

*1  “ DRAGVV 

UT 

A 

DRA6VV 

a 

I 

I n»t sol intout  gravitational  tect  Itr at  1 cm 

/DYNA 

/( 

8)  ALA 

1 

G 

(FT/SEC2) 

ALT 

I 

G 

ALB 

I 

6 

AL9 

I 

8 

CONTRL 

I 

6 

nldrv 

1 

8 

STATEF 

A 

6 

• 

I 

Aa»e  (G*S> 

/D 

/< 

97)  ALA 

I 

A 

AL7 

I 

A 

ALB. 

1 

A 

AL9 

I 

A 

APPLY 

I 

A 

BRANPT 

I 

A 

COSTAB 

I 

A 

COST  AI 

I 

A 

1NTRPT 

I 

A 

NLDRV 

I 

A 

OUTPUT 

I 

A 

salve 

I 

A 

STATEF 

I 

A 

WRAPUP 

I 

A 

..2 

1 

5tt  tyakol 

/OYNA 

/< 

6)  ALA 

I 

0AE6A2 

ALT 

I 

0AEGA2 

alb 

I 

0 AE6A2 

AL9 

I 

0AEGA2 

nldrv 

I 

0AEGA2 

TRAJIN 

0 

0AE8A2 

R 

I 

Radial  distance  Iron  earth  center  to  vehicle 

/DYNA 

/< 

7 ) ALA 

1 

R 

( FT  ) 

AL7 

I 

R 

ALB 

I 

R 

AL9 

I 

R 

CONTRL 

I 

R 

ENVPRO 

I 

R 

NLDRV 

I 

R 

pdbcql 

1 

R 

oltosz 

I 

R 

STATEF 

A 

R 

6 OCT  72  8.01-AA 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 
BLOCK LOC  SUBA  CODE VAR 


RHO 


RO 


ROR 


RORR 


RORRR 
SI  DAE 


p I Latlturfa 

p * I Ataospharlc  itaslty 

dp#/3R  1 Sat  ayatol 

dxpt/dR2  1 s##  ,y*ko1 

d3p#/3R3  1 S,# 

fti  n(  «-*E)  1 * 


SINA  s i na  1 Si e >yikil 


SINGAM  jin>  I Sat  lyikol 


SINPSI  s | r>*  I Sat  >yabal 


(RAD) 

/D 

/< 

95) 

AL9 

RHO 

OUTPUT 

RHO 

STATEF 

RHO 

UAAPUP 

RHO 

(SLGS/FT3) 

/DYNA 

/( 

15  ) 

ALT 

RO 

alb 

RO 

AL9 

RO 

NLDRY 

RO 

OUTPUT 

RO 

PDBCOL 

RO 

STATEF 

RO 

/OYWA 

/( 

19) 

ALT 

ROR 

ALB 

ROR 

AL9 

ROR 

nlorv 

ROR 

PDBCOL 

ROR 

STATEF 

ROR 

/DYNA 

/< 

23) 

ALT 

RORR 

ALB 

RORR 

AL9 

RORR 

NLORY 

RORR 

STATEF 

RORR 

/OYNA 

/( 

213) 

ALT 

RORRR 

ALB 

RORRR 

AL9 

RORRR 

STATEF 

RORRR 

'/DYlfA 

/( 

152) 

ALI 

SI  DAE 

AL9 

SIDAE 

AL6 

SIOAE 

alt 

SIDAE 

alb 

SIDAE 

AL9 

SIOAE 

APPLY 

SIDAE 

CONTRL 

SIDAE 

TH3 

SIOAE 

UT 

0 

SIOAE 

/DYNA 

/( 

9) 

AL1 

SINA 

AL9 

SINA 

AL6 

SINA 

ALT 

SINA 

ALB 

SINA 

AL9 

SINA 

apply 

SINA 

CONTRL 

SINA 

OUTPUT 

SINA 

TH3 

SINA 

UT 

M 

SINA 

/DYNA 

/( 

3) 

AL1 

SINGAM 

AL9 

SINGAM 

, 

alt 

SINGAM 

alb 

SINGAM 

AL9 

SINGAM 

CONTRL 

SINGAM 

NLORY 

SINGAM 

POBCQL 

SINGAM 

STATEF 

M 

SINGAM 

/DYNA 

/( 

99  ) 

AL9 

SINPSI 

ALT 

SINPSI 

alb 

SINPSI 

AL9 

SINPSI 

CONTRL 

SINPSI 

NLDRY 

SINPSI 

PDBCOL 

SINPSI 

STATEF 

0 

SINPSI 

6 OCT  12  6.01-99 


SINRHO  B | tip  t Sh  sT*b«l 


T T l T hr «st 


V V 1 R*l»tlr«  velocity. 


/D VMA  /( 


(LBS)  /DYNA  /( 


( FT/SEC  > /O  /( 


96)  AL9 

I 

SINRHO 

AL7 

I 

SINRHO 

AL8 

I 

SINRHO 

AL9 

1 

SINRHO 

CONTRL 

I 

SINRHO 

NLORV 

I 

SINRHO 

OUTPUT 

I 

SINRHO 

POBCQL 

I 

SINRHO 

STATEF 

n 

SINRHO 

92)  AUGCOM 

ft 

T 

AU 

I 

T 

AL9 

i 

T 

AL6 

i 

T 

AL7 

i 

T 

alb 

i 

T 

AL9 

i 

T 

apply 

i 

T 

ARCIN 

0 

T 

CONTRL 

ft 

T 

0L2 

I 

T 

IftPUL5 

I 

T 

output 

I 

T 

thi 

I 

T 

TH2 

I 

T 

T M3 

I 

T 

T H9 

I 

T 

9) ) AL1 

I 

¥ 

AL9 

I 

AL7 

I 

¥ 

AL8 

I 

V 

AL9 

I 

V 

bcond 

I 

NON 

BNORV 

0 

NOft 

BR ANPT 

ft 

NO  ft 

CONTRL 

I 

V 

ENDPT 

i 

NOft 

ENWPRO 

i 

¥ 

FETCH 

0 

NOft 

INTERP 

n 

¥ 

INTRPT 

ft 

NOft 

NLDRY 

0 

NOft 

NLORY 

¥ 

OUTPUT 

¥ 

POBCOL 

V 

STATEF 

V 

nrapup 

9 
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Purpose 


ANL62S  computes  the  atmospheric  properties  Ta,  Pa,  pa  and  cs  for  the  '62 

Standard  atmosphere.  Moreover,  when  the  Reynolds  number  rate  constraint 
is  in  effect,  it  computes  the  atmospheric  viscosity  v.  In  addition,  the 
following  derivatives  are  computed: 


dTa 

nr 


dPa  dpa 

nr  * nr 


and 


dcs 

nr 


and 


d2Ta  d2Fa  d2pa  d2cs 
dh2  ’ dh2  * dh2  m dh2 


and,  if  any  SVIC's  are  in  effect 

d3Pa 

dh5 


and,  if  a Reynolds  number  rate  constraint  is  in  effect 


dv 

dh 


d3v  , d3v 
* 3h2  dh3 


ANL6I* 


SUBROUTINE  ANL62S<  H,0I M, DON, I DAM ) 

DIMENSION  Dim  12) 

DIMENSION  00N( 5 ) 

DATA  A1,A2,A3,A9,A5,A6,A7,A8,A9,A10,AU,A12,A13,A19,A15,A16,A!7, 
A18,A19|A26,Ail,A22,A2$,A£9,A25,A26,A27,A28.A29,A30,A31,A32 
/ -.19655396E-6,£356.77,  .2565334  IE- 1C,  6356. 77,  .19U6039E-3, 
19.002385  -.  382029 10E-9, 2 16. 23225, . 15609978E-3, 28 .919270, 

689.  10967,  .6  7*11 9880E-3,  .099299588,  - 565  00460,  . 855  1 9675E-9, 
137.97950,10533.599,  . H$8639 16E-9,  .013120  767*  .90188596, 

-. 25392359E-3, -193. 32352,10180. 387,  .U921879E-2,  .039567717, 
-3.3913769,-.3388e609E-9,-389.32662,38131.516, .89812379E-9, 
.028810210,-5.536235**/ 

DATA  89,68,67, 86, 85,8*),B3,B2,Bl, BO 

/ . 128**608**E  2,-.2530f0*»7E  0,  .22960528E-  2, - . 1 1 672987E-  **, 

. 30922592E-  7 , - . 86C39597E- 10,  . 125 7 7373E-I2, - . 1 1 709968E-15, 

, 629*****i05E-l 9,  - . 19878777E-2*/ 

DATA  CN/  -3983-67635/ 

DATA  C10,C9,C8,C7,C6,C5,C**,C3.C2,C1,C0 

/ 283.79^2391  -3! 95$29$00t  -.5232979573,  .05256903630, 

18329621 95 E-2,  . 3932295909E-9,  --3930829139E-6,  .289$535399E 
-8,  --1269919979E-10,  . 3161 762929E-13,  - . 3350 195769E-16/ 

DATA  03.02,01,00 

/ 253.316666,  6.8099727,  --56317016E-2,  .12792813E-5  / 

DATA  E9,E8,E7,£6,E5,E9,E3,t2,El,E0 

/ . 9 72552COE  2, - .96196320E  0,  .87302363E-  2, - . 96 1 39976E-  9, 

. 15580020E-  6, - . 397 72927E-  9,  .5 121 7501E-12, --97967392E-15, 

. 2590782  IE- 18,- . 61976982E-22/ 

OATA  CC8,CCf ,CC6,CC5,CC9,CC3,CC2,CC1,CC0 

/ -1 .0965999196, .1576921089,-. 733 189858E-2 , 

1 . 716 1979595E-9 , -2 . 3589999039E-6, 1 . 99 39 79 799 3E -8, 

-I .0 IS 9359 792E-1 0,2. 8955 8 6631 6E- 13,-3. 350195 769E- 16/ 

DATA  CCC7, CCC6 , CcC5, CCC9, CCC3,CCC2,CCC1 , CCCO 

/ . 315  3*892178,-2. 199559579E-2, 6. 869591818E-9, 

-1. 1 79297291 7E-5,1.196389»9658E- 7, -7.1 1155 18599E- 10, 

2 . 2 76969305 28E-i 2, -3. 0151311 92 IE- 15/ 

OATA  CCCC6, CCCC5, CCCC9,CCCC3,CCCC2,CCCC1,CCCC0 

/-9. 3991091 98E-2, 2. 05937 75959E-3, -9. 7169889668E-5, 

5 . 98 19292329E-7, -9 . 266931 1 1269E-9, 1 . 5935285 13668E-11, 

-2 . 9 12 10995368E- 19/ 

DATA  RONXTO  /3 -5298375EU/ 

DATA  001,000 

/ -1 . 12639032E-2, -38228939E-5/ 

DATA  0000 

/ . 76956878E-5/ 

OATA  687, 886,865, 889, 6B3, 682, 681,880 

/ . 9992 i 056^-2, - - 35wl 896  IE-9,  1 . 55690 168E-7, 

-9.30172985E-10, -75969238E-12,-.81966276E-15,5.0355529E-19, 

-1 . 33906993E-22/ 

OATA  BB66, 8865, 8B89, 6883, 6682, 8881, 8860 

/ - . 70Q$7922E-9,9. 67G70509E-7, -1 . 72069 199E-9, 

3. 7732 11 9£ -12, -9. 91 797656E-15, 3. 52988668E-18, 

-1 . 07 127 1999E-21/ 

DATA  EE7,EE6 , EE5 , EE9 , EE 3, EE 2, EE 1 , EEC 

/ 1.796097i6E-2,-l-389l8928E-9,.6232008E-6, 

-1 . 73862135E-9, 3 . 07  3050Q6E- 12,-3.35  771 799E-15, 2 .07262568E-18, 
-5.53292638E-22/ 

OATA  EEE6, EEE5 , EEE9, EEE3, EEE2, EEE 1 , EEEO 

/ -2. 7683685 6E-9,i . 8696C29E-6.-6 . 9599859E-9, 

1 . 53652503E-1 1 , -2 . 0 1 963096 9E- 19, 1 . 950837976E-1 7, 
-9.926392709E-21/ 

OATA  EEEE5,EE£E9,EEEE3,EEEE2,EEE£1,EEEE0 

/3.7392098E-6  -2.0fc639562E-8,6.l961OO12E-ll,-l.OO7315232E-13, 
8.705027856E-17  -3.0989398928E-20/ 

DATA  CON,  HAFCON 

/2 . 00968027 763 7 86E-2, 1 . 0023901 388 18 93E-2/ 

OATA  PONERO,  PO/- . 286 1 6066E-2, - 101325E9/ 

OATA  X2,13,X9,X5,X6,X7,X9, XI 1,112 

/2 . 0685 9 000 39 168 9 3E-5, 1 . 99031 722957 7353£-12, 3 .2800398950 131 23E3, 

5. 9869E-9, 6. 365870175h865  7£-9, 5. 91908691575 1731E-16, 

1. 672259 72E-7, 1.80261 3691921 116E-1 9. 3. 098E-9/ 

OATA  C0EF1 , SC, TF, UNUF, UMUF2, UMUF3, TFSC/ 

1 . 7818E-9,  198.,  $92 . , 3.02E-7,  9.1209E-19,  27 . 593608E-21, 

P0NER(2)  a Al/fZ  «•  A2 ) ♦ A3*AL0fi< Z ♦ 69 ) ♦ A5*AL06CZ  ♦ A6 ) ♦ 
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A7*AL0G(A8  - 2) 
A12*ATAN(  A13»Z  ' 
A18*ATAN( A1 9*Z  - 
A29*AT  AN(  A25*Z  ♦ 
A30*ATAN(  A31*Z  ♦ 

1 F ( IOAA.GT .0.0)  60  TO  1 
IF< JDAA.tT.O.O)  60  TO  2 
ASSIGN  50  TO  160 
60  TO  AO 


► A9*AL06<  Z*(  Z - A 1 0 ) 
A19  ) ♦ A15*AL06( Z*( Z 
A20  ) 4 A21*AL0G( Z*< Z 
A26>  4 A27»AL0G( Z»(Z 
A32  ) 


06. 

67. 

00. 

1 ASSIGN  20  TO  IAR 
ASSIGN  10  TO  160 
GO  TO  40 

ANL62S 

ANL62S 

ANL62S 

89. 

2 ASSIGN  50  TO  IAR 

ANL62S 

90. 

ASSIGN  10  TO  ISO 

ANL62S 

91 . 

40  X - M 4 *12 

ANL62S 

92. 

IF  ( X .GT.  550.  ) X=550 . 

ANL62S 

93. 

IF  (X  .LT.  0.  ) *c  0. 

ANL62S 

99. 

IF  ( X.GT.  195.  ) GO  TO  1000 

ANL62S 

95. 

C 

ANL62S 

96. 

c 

SET  CONSTANTS 

ANL62S 

97. 

PONERXs  POtfEB(X) 

ANL62S 

98. 

c 

ANL62S 

99. 

CTR 

ANL62S 

100. 

TR  = CIO  ♦ X*(C9  4 X*(C8  4 *4( C 7 4 X*( C6  4 X*(C5  4 *♦< C9 

4 X*{ C3  4 

ANL62S 

101. 

4 X*(C2  ♦ X*(C1  4 X»CO )>>>>)>)) 

ANL62S 

102. 

TRl  = C9  4 *•( CC8  4 *•( CC7  4 X*(CC6  4 X*( CCS  4 X*( CC9  4 

X*( CC3  ♦ 

ANL62S 

103. 

# X*( CC2  4 X*(CC1  4 X*CCO  )))))>)) 

ANL62S 

109. 

TR2  = CCS  4 x*( CCC 7 4 X*l CCC6  4 X»< CCC5  ♦ *•( CCC4  4 X#(CCC3  4 

ANL62S 

105. 

4 X«( CCC2  4 X4(CCC1  4 X*CCCO  ))))))) 

ANL62S 

106. 

TR3  s CCC7  4 XMCCCC6  4 X*(CCCC5  4 X*(  CCCC9  4 *4(CCCC3  4 

X*( CCCC2 

ANL62S 

107  . 

# 4 x#(cccci  4 x4ccccoim>) 

ANL62S 

108. 

C 

ANL62S 

109. 

c 

GRA9ITV  PARTI ALS 

ANL62S 

110. 

R = 6356.765  4 X 

ANL62S 

111. 

G * .396271577E6/R4#! 

ANL62S 

112. 

61  = -2.4G/B 

ANL62S 

113. 

62  = -3.461/R 

ANL62S 

119. 

c 

g/tr  PARTIALS 

ANL62S 

115. 

6TR  = G/TR 

ANL62S 

116. 

6TA1  = (614TR  - 6*TA1  )/  TR442 

ANL62S 

117. 

6TR2  = (TR14(TR#(G2  - 61  - 61  ) 4 2.*64TR1>  - 64TR4TR2  )/TR4#3 

A Ml 62  S 

118. 

c 

EXP ONE T 

ANL62S 

119. 

EXPOs  EXP(  CN4(P0NERX  - P0NER0)  ) 

ANL62S 

120. 

EXP  1=  EXP04CN46TR 

ANL62S 

121  . 

EXP 2 - CN4(£iPl*6TR  4 EXP0*GTR1  ) 

ANL62S 

122. 

EXP3=  CN*( 2.4  EXP  1#  CTR!  4 GTR#  EXP2+  EXPO*  6TR2 > 

ANL62S 

123. 

c 

PRESSURE 

ANL625 

129. 

P = P04  EXPO 

ANL62S 

125. 

PI  = P 0*  EXP 1 

ANL62S 

126. 

P2  = P04  EXP2 

ANL62S 

127. 

c 

DENSITY 

ANL62S 

120. 

RHO  = ROtfXTO«EXPO/TR 

ANL62S 

129. 

RHO  1 = (R0MXT04EXP1  - RH04TR1 )/TR 

ANC62S 

130. 

RH02  = (R0NXT04EXP2-2.*RH014TR1-RH04TR2)/TR 

ANL62S 

131. 

c 

ANL62S 

132. 

60  TO  160 

ANU62S 

133. 

c 

ANL62S 

1000  CONTINUE 
C 

C TA  .6T.  195 

Til  : 03  4 X*(  02  4 *#(01  4 X*DO>> 

Tfll  = D2  4 *4(001  4 *4000)  . 

TA2  = 001  4 *#0000 

c 

C ROM  . 6T . 195 
C P .6T.  195 

RHO  = E9  4 *•( £8  4 *#( E7  4 *#( £6  4 X*(  E5  4 **( E9  4 *#(£3  4 X*(E2  ♦ 
4 X4(E1  ♦ X*EO)> >)>)>) 

P s B9  4 *#(86  4 X4(B7  4 X4(8b  4 *4(  65  4 X*(  89  4 X#(B3  4 X#(B2  4 
4 X#( 81  4 X«80  )))))))) 

C 

RH01  s E8  ♦ X*( EE 7 4 *#( ££6  4 X*( EE5  4 X*( EE A 4 X4(E£3  4 *#( EE2  4 
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149. 

# 

X*< EE1  ♦ X*EEO  ))))))) 

ANL62S 

150. 

PI  = 

88  ♦ X*(  BB7  4 X*(  886  ♦ X*( B65  4 X*( 664 

4 X*( 883 

4 X*(B82  4 

ANL62S 

151. 

* 

X*( 861  4 X*BB0  ))))))) 

ANL62S 

152. 

C 

ANL62S 

153. 

RM02 

= EE7  4 X*< EEE6  4 X*( EEE5  ♦ X*(EEEH  4 X*( EEE3  4 

X*( EEE2  4 

ANL62S 

154. 

X*(EEE1  ♦ X*EEE0  )))>)) 

ANL62S 

155. 

P2  = 

887  4 X*( BBBfe  4 x*( 88B5  ♦ X#( 6684  4 X*(BBB3  4 X*( BBB2  4 

ANL62S 

156. 

♦ 

X*( 6861  4 X*BBB0 )))))) 

ANL625 

15T. 

60  TO  160 

ANL62S 

158. 

c 

ANL62S 

159. 

c 

ANL62S 

160. 

c 

cs 

ANL62S 

161. 

10  CONTINUE 

ANL62S 

162. 

IFU 

.6T.195. ) 60  TO  5 

ANL62S 

5-1 

163. 

RH03=  (ROWXTO*  EXP 3 - 3.*<RH01*  T*2+  RH02*  TNI )-  RHO* 

TN31/TN 

ANL62S 

164. 

60  TO  7 

ANL62S 

165. 

5 RHO 3 

- EEE6  4 X*<  EEEE5  4 x*CEEEEH  4 X*(EEEE3 

4 X*( EEEE2  * X«( EEEE1 

ANL62S 

166. 

* 

4 X*  EEEEO  ) ) ) ) ) 

ANL62S 

267. 

c 

AWL 625 

168. 

c 

DYNAMIC  VISCOSITY  CALCULATIONS 

ANL62S 

169. 

c 

ANL62S 

170. 

7 TTF32  = U.e*TN/TF>*$QRT(  1.8*TN/TF) 

ANL62S 

171. 

TSC 

= 1.8*TN  4 SC 

ANL62S 

172. 

tmu 

= C0EF1*  TTF32/TSC 

ANL62S 

173. 

60  TO  UN 

ANL62S 

174. 

20  CONTINUE 

ANL62S 

175. 

TN 

= 1.84  TN 

ANL62S 

176. 

TNI 

= X5  * TNI 

ANL62S 

177. 

TN2 

= X9  * TN2 

ANL62S 

178. 

TN3 

= X9/X44TN3 

ANL62S 

179. 

TN20 

= TN*TN 

ANL62S 

1 BO . 

TN30 

= TN204TN 

ANL62S 

181. 

6T 

= TFSC/  TSC 

ANL62S 

182. 

6T1 

= -6T/  TSC 

ANL62S 

183. 

6T2 

= 2.4  ST/  TSC/  TSC 

ANL62S 

184. 

6T3 

=-2.4  ST/  TSC/TSC/TSC 

ANL62S 

185. 

FT 

= TTF32 

ANL62S 

166. 

FT1 

= 1.5*  FT/  TN 

ANL62S 

187. 

FT2 

= 40.75*  FT/  TN20 

ANL62S 

188. 

FT3 

=-0.375*  FT/  TN30 

ANL62S 

189. 

unui 

= UNUF*C  FT*ST l*TNl  4 6T*FTI*TN1> 

ANL62S 

190. 

UAU2 

= UNUF*C(FT#6T14  GT*FT1>*  TN2  4 

ANL62S 

191. 

( FT*6T2  * 2 .*FT1*ST1  4 ST*FT2 >*TN1*TN1 ) 

ANL62S 

192. 

UNU3 

= UNUF*(CFT*ST1  4 6T*FTl  )*TN3  4 

ANL62S 

193. 

* 

<FT*6T2  4 2.*FT1*GT1  4 ST*FT2)*  3.*TNl*TN2  4 

ANL62S 

194. 

# 

( FT*6T3  ♦ 3.*FT1*6T2  4 3.*6T1*FT2  4 

ST*FT3)*TN14TN1*TN1 ) 

ANL62S 

195. 

TN 

= TN/1.8 

ANL62S 

196. 

TNI 

= TN1/X5 

ANL62S 

197. 

TN2 

= TN2/X9 

ANL62S 

196. 

TN3 

= TN3/X9*X4 

ANL62S 

199. 

50  SORTTN  = SORT(TN) 

ANL62S 

200. 

CS  = 

C0N*S0RTTN 

ANL62S 

201. 

CSX  = MAFC0N*TN1 /SORTTN 

ANL62S . 

j 

202. 

CS2  = HAFC0N*<TN*TN2  - . 5*TN1**2 )/< TN*SORTTN ) 

ANL62S 

203. 

c 

ANL62S 

204. 

1500  Dim 

1)  = 1 . 6*TN 

ANL62S 

205. 

Dim 

2)  = X2*P 

ANL62S 

206. 

oim 

3)  = X3*RH0 

ANL62S 

207. 

oim 

4)  = X4*CS 

ANL62S 

208. 

oim 

5)  = X5*TN1 

ANL62S 

209. 

oim 

6)  = X6*P 1 

ANL62S 

210. 

oim 

7)  = X7*RH01 

ANL62S 

211. 

oim 

8)  = CS1 

ANL62S 

212. 

Dim 

9)  = X9*TN2 

ANL62S 

213. 

Dim  10)  = X3*P2 

ANL62S 

214. 

Dim  11)  = X11*RN02 

ANL62S 

215. 

Dim  12)  =X12*CS2 

ANL62S 

216. 

OON(l)  = RH03  •-  X11/X4 

ANL62S 

217. 

00m  2)  = UNU 

ANL62S 

218. 

D0N<3>  = UNUI 

ANL62S 

219. 

00N( 4 ) * UNU2 

ANL62S 

220. 

DOm  5 ) £ UNU 3 

ANL62S 

221. 

RETURN 

ANL62S 

222. 

ENO 

ANL62S 
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Purpose 

ANLoSP  computes  the  atmospheric  properties  Ta,  Pft,  pa  and  cs  for  the  '63 

Patrick  A.F.B.  atmosphere.  Moreover,  when  the  Reynolds  number  rate 
constraint  is  in  effect,  it  computes  the  atmospheric  viscosity  v.  In 
addition,  the  following  derivatives 

dTa  dPa  dp  a d^s 

dh~  ’ diT  * dh  m dh 


and 


and,  if  any  SVIC’s  are  in  effect 


and,  if  a Reynolds  number  rate  constraint  is  in  effect 


dv 

ar 


d2v  , d3v 
-tt  and  mrrr 
dh^  dh J 


Miuar 


1. 

2. 
3. 
9. 

5. 

6. 

7. 

8. 
9. 

10. 

11. 

12. 

13. 

19. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 
23. 
29 . 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
39. 

35. 

36. 

37. 

38. 

39. 
90. 
91  . 

92. 

93. 
99. 

95. 

96. 

97. 

98. 

99. 
50. 
51  . 

52. 

53. 
59. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 
63. 
69. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 
79. 
75. 


SUBROUTINE  ANL63P<  Q,P¥,D0«,  IOM) 

DIMENSION  PV( 12) 

DIAENS10N  00«<5) 

OATA  R0/R1/R2/R3.R9/R5R6.R7>R8.R9.R10R11A12,A13 
8.3080962739162925.  3.6752156179399936 
.59871395919796215,  1.9678068127507852 
-.61963378717579668,  -1.5399759331179728 
.82668915705291311,  1.2852928316997672 


OATA 


OATA 


-.57239501173756826,  -.62238012815282961 

.17229890038525958,  ‘ * ~ 

-.018335310293536199 


19809576798626313 

-.01399827673009098 


S0,S1,$2,S3S9S5S6,S7,$8,S9510S11.512,$13  / 
8.997018999539999  ,9.166051278711099  , 

.3756892095830699  , 

0.01997086070799703, 
.1300396805655508  , 
-.298063397106903  , 
.1062791660382213  , 
-.01369597919927995  / 


1.001136979720595 
-1.267997908735090 
1.679006899535595 
-1 . 176669525367179 
.3690551599325923 
-.03986181926386985 


TO,T1,T2.T3,T9.T5,T6.T7,T0,T9,T10T)1T12.T13  / 
-.10298937690715577  , -.20389899971168512 


OATA 


.33088992309959279 
-.55982818087309389  , 

.67896029? 79392992  , 

-.90978650717250266  , 

.11366136922321633  , 

0.011595950191818112  / 


9.96392093825239 
9.96010999231796 
-5.60192115337597 
-.220023723522958 

IATA'  VO' VI, ¥2, ¥3, ¥9, ¥5, ¥6, ¥7, ¥8, ¥9, ¥10, ¥11, ¥12  / 
.16805137871103  , 2.00227395999118  , 1.12706762679920 

10.0990910672136 

-2.23257012396212 
-. 978391831166937 


-.020399380671279852 
-.55973185906956939 
.96595655569038398 
-.66677679378991896 
.19688591219668986 
-0.020901390966879155 

v-.-  UO,Ul.U2,U3,U9,U5,U6,U7,U8f09,UlO,Ull.U12  / 

3.67521561793999  , 1.09793696829592  1 

-2.H585351H870299,  -7.6998771655873? 

8.99669982159836  , -9.57876009390059 
1.72298900385259  , 1.62905399769890 

-.175977597990526/ 

OATA 
9 . 

-5.15198963999015',  0.07  9859303537  9852', 

.910292769098859  , -9.91331620293799 
3.69055159932592  , 1.16901582692093 

-.17739122952557  / 

DATA  UO, til, 1*2, W3,U9#I>I5,U6,U7,U8,W9,W10, till, W12/ 
-.203898999)11685,  -.0907987613935598,  .992659769190778  , 

-2.21892793625628,  -2.77919090936523  , 5.91573933919227  , 

9.79922173955799  , -5.33921395027935  ,-3.68807856955253  , 

1.96885912196685  , 1.25099506195537  ,-0.250816685602551  , 

-0.150797352993635/ 

DATA  X0,Xl,X2,X3,X9,X5,X6,I7,X8,X9,Il0,Xli  / 

1..  09792690829592  , 8.80669087650968  , -7.37560599610696  , 

-30.7995086623995,  29.80052971158729  , 53.98019892929005  , 
-32.0513206573037-99.81136922700375  , 15.50685603967332  , 
16.29053997898889,  -2.92026095879709  , -2:10573116988631  / 
DATA  VO,Vi,V2,V3,V9.V5,V6,V7,V8.V9,VlO,m  / 
2.00227395999118  , 2 .2§9l3525799839  ,-15.95596090982095  , 

0.2999)7219199991,  50.22020533606792  , 5.96195658959312  , 

-65.893213920562  , - 1 7 . 86056099269696  , 32.76996389893305  , 
11.6901582692093  , -5.26176019283081  , -2.12669975930661  / 
DATA  Z0,Z1,Z2,Z3,Z9,Z5Z6,Z7,Z8.Z9,Z10,Z11  / 
-.0907967613925598,  1.98530953829756  , -6.65678230877909 

-11.0965636179609  , 29.57869667071139  , 28.99533090739991 
-37.3399976519553  -29.50962851692021  f 17.71973209320163 

12.50995061955371  , -2 . 75898359 162806  , -1 . 80896822992361 
DATA  RHO,  PO,  AO  /. 00229695  , 2129.0827.1137.96  / 

OATA  81, 62, §3, 89, B5, 66, 07,86,89, BIO  / 

-19.75121089221796,  -92.3985259870985  , 

269.90099969795025,  -192.3079239938222, 

129.05989827738656,  196.61981030690001,  -29.2026095879709, 
-23.16309266079991/ 

DATA  CONST  1 , C0MST2/ 

9. 161533915E-9,  8.323066830E-9/ 

DATA  COEf l.SC.TF.UmjF.TFSC/ 

1.78186-9,  198.,  392.,  3.02E-7,  590./ 

DATA  AO,  Al,  A2,  63,  89,  A5 , A6,  67,  A8,  A9,  AlO / 
1.98530953829756.  -13.31356961759968,  -33.28969085238270, 

118. . 1976668289536,  192.97665203672955,  -229.0369859117318, 

-206.53239961999197, 191.75785679561309,  112.59955553099239, 

-27.5898359162606,  -19.69665052915971/ 


99.20209889639916, 

-313.67958958902625, 
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ANL63P 

ANL63P 
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6NL63P 
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ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 
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6NL63P 
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ANL63P 

ANL63P 

AMC63P 

ANL63P 

ANL63P 

ANL63P 

ANU63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANU63P 

AWL63P 

ANL63P 

ANL43P 

ANL63P 

AML63P 

ANL63P 

6NL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63F 

AML63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 
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IF< IDAM.GT.O)  60  TO  1 
1F< IOAH.LT . 0 ) 60  TO  2 
ASSIGN  SO  TO  160 
GO  TO  90 


ANL63P  l—» 
ANL63P  1 2 — 

ANL63P 

ANL63P  490- 


80. 

1 ASSIGN  20 

TO 

1AM 

ANL63P 

81. 

ASSIGN  10 

TO 

IGO 

ANL63P 

82. 

SO  TO  90 

ANL63P 

HO 

63. 

2 ASSIGN  50 

To 

IAM 

ANL63P 

89. 

ASSIGN  .10 

TO 

160 

ANL63P 

MO  H = Q 

IFCH.LT.O.)  H=0. 

X=  ( H-  2 .E5  >*1 .E-5 

CALCULATE  DENSITY,  PRESSURE, . AND.  SPEEO  OF  SOUND 

PXRHO  £ RO  4 X#<Rl4  X4(R2  +X*CR3  ♦X*(R*i  +X*(R5  *X*(R6  4X4(R7  *X*< 

* R8  *X*(  R9  ♦X*<R104X*<Rn*X*(R12  +X*R  1 3 )))))))))))  ) 

PXP  = SO  ♦ X*tSl  + X *(  S2  ^X*(  S3  *X*  < S9  +X*(  S5  +Ui  $6  4X*(S7  ^X*< 

* 56  +X*( S9  +X*(  S 1 0+X*( S 1 1 + X*( S12  4X4S13  ))>))))))>)  ) 

PXA  = TO  ♦ X*(  T 1+X  *(T2  +X*< T3  4X*  ( T9  4X*(T5  4X*(T6  4X*( T7  4X4< 

* T8  4X*(T9  4X4(T104X*tTll4X*(T12  ♦ X*T 1 3 )>>>)>>>>>> > 

P = PO*EXP< -PXP  ) 

RHO  = RH0»EXP( -PXRHO ) 

A = AO*EXP( PXA ) 

PV(  2 1 = P 
PV(  3 ) = RHO 
PVt9>  s A 

CALCULATE  FIRST  DERIVATIVES  WO  RAOIuS 

DXRHO  = UO  4X*(U1  4X*(U24X#(U34X«(UM4X*(US4X*(U6  4X»(U7  4X4(08+ 

* X*(U9  4X«(U10  4X*(Ull4X*Ul2))))>m>)) 

OXP  £ VO  4 X4(V1  4X*( V2*X*( V3*X4( VM4X*( VS4X»< Vt  4X#(V7  4X*( V84 

* X»(V9  4X4CV10  4X»(V114X4VI2)M)))))))) 

DXA  s WO  4 X*fWl  4X*( W24X*( W34X*(WH4X*( WS4X4CW6  +X4(W7  4X«(Wfi4 
4 X*l  W9  4 X 4 ( W 1 0 4X4(Wn4X4W)2)))))))))>) 

P V( 6 ) = -1.E-54P40XP 
P VC  7 > = -I.E-54RM04DXRH0 
PVt  **>  = 1 .E-5*A*0XA 

CALCULATE  SECONO  DERIVATIVES  WO  RADIUS 

DXRHO  = XO  ♦ X*(X1  ♦ X*(  X2  ♦ X»{ X3  4 X4( X9  4 X*< X5  4 X»( X*  4 X*(XJ 
4 4 X4( X6  4 X4(X9  4 X4(X10  4 X * X 11  >>)>>)>))  ) 

OXP  S VO  4 X4(Yl  4 X4<Y2  4 X*<  Y3  4 X4(  Y9  4 X4(VS  4 X*(  Y6  4 X4(V1 
4 4 X4(V8  4 X4(Y9  4 X4(V10  4 X 4 Y 1 1 )))))))))  ) 

DXA  = 20  4 X4(21  4 K*C  Z2  4 x+< Z3  4 X+t 29  4 X4( 25  4 X4( 26  4 X4(21 

* 4 x»(  28  4 X4(  29  4 X*(  210  4 x»z 1 1 ) n >>>>>> > 

PV(10)=  -l .E-10*P*<  OXP  - 0XP**2 ) 

PVtll)=  -l.£-104RH04<OXRHO  - 0XRH0442) 

PVt 12  >£  1.E-104A4CQXA  4 0XA442) 

60  TO  160 
10  CONTINUE 

CALCULATE  THIRO  DERIVATIVES  WO  RADIUS 

SXRHO  £ X 1 4 X4(B1  4 X*<  82  4 X4(  83  4 X#(  8*  4 X4<  85  4 XMB6  4 
4 X*<  B7  4 X*( B8  4 X*( 89  4 X4  810))))))))) 

SXA  = AO  4 X*( A 1 4 X4(A2  4 X4(A3  4 X*( AM  4 X*(A5  4 X*(  A6  4 
4 X*(A7  4 X4(A8  4 X*( A9  4 X*A 10  ))>)))>> ) 

OOmi)  = -1  .E-15*  BHO*(  SXRHO-  <3.*QXRH0-  DXRHO*DXRMO  )*DXRHO  ) 

ARRR  = l.E-15*  A4(SXA  4 (3.*QXA  4 OX A»OXA  )*DX A ) 

TEMPERATURE  CALCULATIONS 

TN  = A 4 A 4 CONSTI 

DYNAMIC  VISCOSITY  CALCULATIONS 

FT  = (TM/TF14  SQRTt  TM/TF  ) 

TSC  = TM  4 SC 

UMU  £ C0EF1  4 FT/TSC 

OOMt  2 ) £ UMU 

60  TO  IAM 


4 X*( Y6  4 X*( V 7 


ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANLS3P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL83P 

ANLS3P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANL63P 

ANl63P 

ANL63P 

ANL63P 

JUL21 

ANL63P 
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sn< 

0- 


150. 

20  CONTINUE 

ANL63P 

151  . 

C 

ANL63P 

152. 

C 

CALCULATE  TEMPERATURE  AND  FIRST  THREE  DERIVATIVES  UO  RADIUS 

ANL63P 

153. 

C 

ANL63P 

159. 

Tfll  = A*  P V(  8 )*  C0WST2 

ANL63P 

155. 

T«2  = C0NST2  *(  A*  PV(12>  ♦ PVt  8 >*  PV(8)> 

ANL63P 

156. 

TM3  = C0NST2  * (A*  ARRR  ♦ 3.»  PV<12)*  PV(8)) 

ANL63P 

157. 

TA20  = TA*TA 

ANL63P 

158. 

TM30  = TA2Q*  TA 

AWL63P 

159. 

6T  = TFSC/T5C 

ANL63P 

160. 

ST1  = -ST  /TSC 

ANL63P 

161  . 

ST2  = 2 . * GT/  T5C/TSC 

ANL63P 

162. 

6T3  = - 6T2/TSC 

ANL63P 

163. 

FT  1 = 1.5*  FT/TA 

ANL63P 

169. 

FT2  = 0.75*  FT/TA20 

ANL63P 

165. 

FT 3 =-0.375*  FT/TA30 

ANL63P 

166. 

UMU1  = UMUF*( FT*  6T1  * 6T*  FT1  )•  TA1 

ANL63P 

167  . 

UMU2  = UinUF*<  ( FT*6T1  ♦ 6T*FT  1 )•  Tfl2  ♦ 

ANL63P 

168. 

♦ ( FT*6T2*  2 . *FT 1*GT 1 ♦ 6T*FT2)*  TAi*  TA1) 

ANL63P 

169. 

UAU3  = UHUF*l  { FT*GT1  ♦ 6T*FT  1 )*  TA3  ♦ 

ANL63P 

170. 

* ( FT*GT 2+  2.*FT1*6T1  + 6T*FT2>*  3.*  TA1*  TA2  * 

ANL63P 

171. 

* (FT*6T3*  3 . *FT 1 *GT2  ♦ 3.*FT2*GT1  * 6T*FT3 >*TA1**3 > 

ANL63P 

172. 

DOM(  2 ) = UAU 

ANL63P 

173. 

DOA(  3 ) = UAU  1 

ANL63P 

179. 

DOA( 9 ) = UAU2 

ANL63P 

175. 

D0A15)  = UAU3 

ANL63P 

176. 

50  RETURN 

ANL63P 

177. 

ENO 

ANL63P 
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SUBR0UTINE 

APPLY 


Purpose 

APPLY  computes  the  a vector  defined  by  Equation  2.4-2  in  Vol.  I,  together 
with  the  total  first  and  second  partials  of  a with  respect  to  the  state 
and  the  total  first  partials  with  respect  to  the  costate,  if  needed. 


vv 

APPLY 


SUBROUTINE  APPLY  APPLY 

APPLY 

THIS  ROUTINE  CONTROLS  THE  CALCULATION  OF  THE  APPLIED  APPLY 
ACCELERATIONS  ON  THE  VEHICLE  . THEIR  TOTAL  FIRST  APPLY 
AND  SECOND  PART  I ALS  WITH  RESPECT  TO  THE  STATE  AND  APPLY 

THEIR  TOTAL  FIRST  PARTIALS  WITH  RESPECT  TO  THE  APPLY 

COSTATE.  NOTE  THAT  THE  TIME  RATE  OF  CHANGE  OF  THE  APPLY 
HASS  rs  TREATED  AS  AN  *APPlIED  ACCELERATION*  APPLY 

APPLY 

COHHON/ GLOBAL/  GLOBAL 

♦ Gfl  , ER  OHGZ  ,XLAHRF,YWURF  ,LUH  ,TO  , EPSLON, I NNER  . GLOBAL 

♦ITRWAX,  JJOP(  6)  IFATAL.NARC  NBRAN  NFARC  # I DC  **  ) ,XTAB(20l,  GLOBAL 

•ITAB(2D>,  S1G,HAXTAB.GH,PSIRF  , I PFLG 1 , I PFl62,  IPFLG3,  IPFLG**,  GLOBAL 

• INEQFH26),  I tPSO , X 50  L , I NARK  KGLOBLi 7 ) GLOBAL 

LOGICAL  SWITCH,  ILOAO  DYNA 

REAL  HACK  ISP,  ISPV,  ISPR,  ISPH,  ISPT,  ISPYV.  ISPVR,  ISPVH,  DYNA 

♦ I SP  VT  I SrRR  ISPRfl,  1SPRT,  ISPHW,  ISPHT.  ISPtT.  LIFT,  LIFTY.  DYNA 

♦LlFTR  LIFTA,  LIFTVV,  LIFTVR,  LlFTVA,  lIFTRR,  LiFTRA,  HUR,  LIFTNA,  DYNA 

• IRATEO . ISPF,  1SPFF  DYNA 

REAL  HACHV,  HACHR , HACHVR  HACHRR  DYNA 

REAL  LIFTH,  LlFTVH,  LlFTRH,  LlFTHH,  LIFTHA  DYNA 

CQnnON  /DYNA/  DYNA 


• XX 

TIflE 

SINGAH 

COSGAP 

, OHEGA 

.0HEGA2.R 

,6 

, S I NA  , 

JUL21 

• COSA 

DYNOli 

OHEGAT 

TAHP 

,PA 

,R0 

,CS 

,TEHPR 

,PAR 

DYNA 

• ROR 

CSR 

TEWPRR, 

PARR 

, RORR 

, CSRP 

, RODE 

, HACH 

o 

DYNA 

•QV 

OR 

0 V V 

QVR 

, QRR 

,FVAC 

F VAC  V 

, F VACR 

F VACH  . 

DYNA 

•FVACT 

FVACYV 

F V AC VR . 

FVACRR 

, F V ACTT 

T 

HACHY 

, HACHR 

ISP  , 

DYNA 

♦ ISPV 

ISPR 

ISPH 

ISPT 

, ISPVV 

, ISPVR 

, ISPvn 

, I SP VT 

, 1 SPRR  , 

DYNA 

♦ISPRH 

ISPRT 

ISPHrt 

.ISPHT 

, ISPTT 

, L I FT 

, LIFTY 

, LlFTR 

LIFTA  # 

DYNA 

♦LIFTVV 

LIFTVR 

LlFTVA, 

LIFTRR 

, LIFTRA 

, DRAG 

, ORAGY 

DRA6R 

DRAGA  , 

DYNA 

♦OR AG VV 

DRAG VR 

ORAGVA, 

DRAGRR 

DRAGRA 

, DR AGAA 

, ALPHA 

, PHI 

LIFTH 

DYNA 

♦liftvh 

LIFTRPI 

LlFTWH, 

liftaa 

, DBR 

, DBRR 

GAHHAO 

,AE 

TAX  , 

DYNA 

♦w 

SINPHI 

COSPHI 

SINPSI 

,COSPSI 

, SINRHO 

, COSRHO 

, S INROR 

, COSROfi, 

DYNA 

♦hub 

XKG 

XKP 

AXIN 

,C00 

, CDOW 

, CLO 

,FX 

, XCGH  , 

DYNA 

•xcgww 

ZCGH 

ZCGWW 

XJV 

, X JR 

, X J VY 

, X JVR 

, X JRR 

hachyr. 

DYNA 

♦HACHRR 

SIN2R0 

C0S2R0 

C0S2GH 

, CH 

, CHA 

, CHH 

,CHAA 

, CHHH 

DYNA 

♦ CHAH 

Cno 

CHOH 

Cwown 

.chahh 

, ULF  T V 

.ulftr 

.ulftyy 

,ULFTYR, 

DYNA 

♦ULFTVA 

ULFTRR 

ULFTRA, 

IPOW 

, X ARC 

, TST  ART 

,6H 

,6RR 

,liftaa. 

DYNA 

♦CDOHH 

Cl  aha 

CLOW 

Clohh 

, 0YN1Y9 

, CT 

CODAE 

, S I OAE 

, COD  , 

DYNA 

♦ SIO 

deltae 

COE 

XCG 

, ZCG 

,XJ 

, XHC6 

,CALPHA 

,alhax  . 

DYNA 

• OB 

ULFT 

CULFT 

ulfta 

, TSTAGE 

, T I WES 

, XHCGAA 

, IRATED 

, FRATEO 

DYNA 

COHHON 

/DYNA/ 

DYNA 

• HTT 

JI 

J2 

J3 

,XHCGA 

,fvacf 

,UtFTAA 

, I SPF 

I SPFF  , 

DYNA 

♦ILOAD 

FKA 

FXHH 

SWITCH 

, INQF 

'cl 

,Cla 

,CLH 

,ClAA  , 

DYNA 

♦Clhh 

clan 

CD 

COA 

, CDH 

, COAA 

CDHH 

, CDAH 

DYM198, 

DYNA 

•0YN199 

0YN200 

XHCGV  , 

XHCGR 

, XHCGH 

, XHCGV V 

, XHCbVR 

, XHCGVH 

XHCGV A 

DYNA 

•XHCGRR 

xhcgrh 

XWCGRA, 

xnCGww 

, XHCGWA 

, RORRR 

, D YN2 1 Y 

, 0 YN2 15 

DYN21 6 

DYNA 

•0YN217 

i dah 

TAIRB  , 

TAIRBV 

TAI  RBH 

,tarbvv 

, TARBHH 

,tarbvh 

;sfc  , 

JUL21 

♦ SFCV 

SFCH 

SFCVV  . 

SFCHH 

, SFCYH 

AUG09 

DIHENSION  PR06l(2.  A1*  > 

HATS 

COHHON 

/HATS/ 

HATS 

• PI 

P2 

P3 

XX 1 

, XX2 

, XX 3 

, XRIT 

, XX2T 

, XX3T  , 

HATS 

• XX1D  , 

XK2D  , 

XX3D  , 

XX 1 A 

, XX2  A 

, XX3A 

, YDA 

, GOA 

, PDA  , 

HATS 

♦ XH19  , 

XH20  , 

XH21  , 

XW22 

, XX1TT 

,XX2TT 

, XX3TT 

, XX I TO 

XX2T0  , 

HATS 

•XK3TD  , 

XX1TA  , 

XX2TA  , 

XX3TA 

, XX  I DD 

, XK2DD 

XX3D0 

, XX 1 DA 

XX20A  . 

HATS 

♦XK3DA  , 

XK1AA  , 

XK2AA  , 

XX3AA 

,Xfl9l 

, XWS2 

,XHY3 

, XH99 

, XHY5  , 

HATS 

♦XfclV  , 

XK2  V , 

XX3V  , 

XXI G 

, XX2G 

, XX 3G 

,XXIP 

, XX2P 

. XX3P  , 

HATS 

♦ XX IR  , 

XX2R  ' 

XK3R  , 

XX  I o 

, XK20 

, XX30 

, XX  l u 

, XX2U 

,XX3U  , 

HATS 

♦XX 1H  , 

XX2H  , 

XX3H  , 

xxiz 

, XK2Z 

, XX3Z 

, XX 1 YT 

, XX2 VT 

XK3 VT  , 

HATS 

• XXI YD  , 

XX2V0  , 

XX3VD  , 

XXIVA 

, XK2 VA 

XK3VA 

XX 1GT 

, XX2GT 

, XX3GT  , 

HATS 

♦ XX 1 GO  , 

XK2GD  , 

XK3GD  , 

XX  IGA 

XK2G  A 

XX  3GA 

XX 1PT 

, XX2PT 

, XX3PT  . 

HATS 

♦XXIPP  , 

XX2P0  , 

XX3PD  , 

X X 1 PA 

, XX2PA 

, XX  3P A 

XK 1 AT 

, XX2RT 

XX3RT  _ 

HATS 

•XK1R0  , 

XK2RD  , 

XK3RD  , 

XX  IRA 

XX2RA 

, XK3RA 

, XX 10T 

, XK20T 

XX30T  , 

HATS 

♦XX 1 OD  , 

XX20D  , 

XX30D  , 

XK10A 

, XK20A 

, XX 30A 

, XK1UT 

,XK2UT 

, XK3UT  . 

HATS 

•XK1UD  , 

XX2UD  , 

XK3UD  , 

XX1UA 

, XK2UA 

, XX  3UA 

, XX1HT 

,XX2HT 

t XX3HT 

HATS 

COHHON 

/HATS/ 

HATS 

•XXIWD  , 

XK2HD  , 

XK3WD  , 

XX  1 HA 

, XK2HA 

, XK3HA 

XX IZT 

, XX2ZT 

XK3ZT  . 

HATS 

♦XX1Z0  , 

XX2ZD  , 

XX3ZD  , 

XK1ZA 

, XK2ZA 

, XK3ZA 

XX 1 V Y 

, XX2VV 

XX  3 V Y _ 

HATS 

♦XX IG V , 

XX2GY  , 

XK3GV  , 

XX1PV 

, XX2PV 

, XX3PV 

, XK1RV 

, XX2R  V 

'XK3RY  , 

HATS 

♦XK10Y  , 

XX 20 V , 

XX 30 V , 

xxiuv 

XX2UV 

, XX 3U V 

, XK1HY 

, XX2HV 

, XX3HY  , 

HATS 

♦XX 1Z V , 

XK2ZY  , 

XX3ZV  , 

XX1GG 

, XX2GG 

, XX3G6 

XX  IPG 

, XX2PG 

XX3PG  , 

HATS 

♦ XX  IRS  , 

XK2RG  , 

IX3RG  , 

XKIOG 

, XK20G 

, XK30G 

, XX 1 UG 

, XK2UG 

XX3UG  , 

HATS 

•XX I AG  , 

XX2HG  , 

XX3WG  , 

XK1ZG 

XX2ZG 

XK3ZG 

,XX1PP 

, XX2PP 

XK3PP  , 

HATS 

♦XX 1 RP  , 

XX2RP  , 

XX3RP  , 

xx  i op 

, XX20P 

XX30P 

,XX1UP 

, XX2UP 

'XX3UP  , 

HATS 

♦XX 1 HP 

XX2HP  ' 

XX3WP  , 

XKIZP 

, XX2ZP 

XK3ZP 

, XX 1RR 

, XX2RR 

XX3RR  , 

HATS 

A OCT  72  G. 01-99 


* 

vv 


76. 

* XX 1 OR 

, XK2QR  , 

XK30R  , 

XK1UR 

XK2UR 

,XK3UR 

, XK IRA 

, XK2RR  , XK3RR  , 

RATS 

77. 

♦XX 1 ZR 

, XK2ZR  , 

XX3ZR  , 

XK  100 

XK200 

, X X 300 

,XX1U0 

, XK2U0  , XK3U0  , 

RATS 

78. 

♦XKlflO 

,XK2flO  , 

XK3R0  , 

XK1Z0 

XK2Z0 

, XX  3Z0 

.xxiuu 

, XK2UU  , XK3UU  , 

RATS 

79. 

♦XKlflU 

, XK2RU  , 

XK3RU  , 

XK1ZU 

XK2ZU 

, XK3ZU 

, XK1RR 

XK2RR  , XX 3RR  , 

RATS 

80. 

♦xxizn 

XK2ZR  , 

XK32R  , 

XK1ZZ 

XK2ZZ 

, XX  3ZZ 

,XXPI  11 

, XXP I 2 1 , XXP 131, 

RATS 

81 . 

♦ XKPI 12 

;XXP122, 

XXP132, 

xx  pm 

XXP123 

, XXP 133 

, P A 1 

,PA2 

RATS 

82. 

83. 

89. 

85. 

86. 

87. 

88. 

89. 

90. 

91 . 

92. 

93. 
99. 

95. 

96. 


COrron  /rats/ 

♦ DPDV<3,  8).  DEPDEYt  2 . 8),  OPOLt 3,  3),  PR0D5< 3,  69),  PR00912,  29) 

corron  /raIs/ 

♦ PV  .PS  .PP  .PR  ,P0  ,PVV  ,PSV  ,PPV  .PRY 

♦ POV  PG6  .PPG  . PR6  . P06  .PPP  ,PRP  .POP  ,PRR 

♦POR  ,P00  , PL6  ,PLP 

EQUI VALENCE! PRODl .PRODS ) 

REAL  RAGBV,  RU,  R,  LV,  LGAR,  LPSI,  LR,  LRHO,  LRU,  LR,  LTAU,  NOR 

dORRON  /D/.  - ... 

♦ X,  H.  XU  9 ),  RAGBV,  ERR.  09,  010,  C(90>,  CSAVE(90),  V,  GAR,  P$I, 
♦ALT, RhO.RU, «.  TAU,  HT,  LV.  lGAR  LPSI,  LR.  LRHO.  LRU.  LR.  LTAU. 

♦ LMT  0109,  0110.  BV( 90  ),  Z S A V E ( 20  ),  0T(20),  NP0lNT(20),  6elT(  20 ) 
D I REN5I0N  NOR(20) 


RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

D 

0 

0 

D 

JUL21 
0 
D 
D 


97. 

98. 

CORRON  /AXLE/  ' 

♦AV  .AG  ,AP 

,AR 

, AY  Y 

,AGY 

. APY 

, ARY 

,AY6  , 

AXLE 

AXLE 

99. 

♦ AGG 

, APG 

, ARG 

, AVP 

AGP 

, APP 

, ARP 

, AYR 

>6R 

AXLE 

100. 

♦ APR 

. ARR 

,AYO 

, AGO 

, APO 

, ARO 

, ayu 

, A6U 

/ APU  , 

AXLE 

101. 

♦ ARU 

, A YR 

, AGR 

, APR 

. ARR 

, A Y Z 

, AGZ 

,APZ 

,ARZ 

AXt_E 

102. 

♦EAVV 

,EAGY 

, EAP  Y 

.EARY 

EAVG 

,eagg 

, EAP6 

,earg 

,EAYP  , 

AXLE 

103. 

♦ EAGP 

, EAPP 

, EARP 

,EAVR 

, EAGR 

EAPR 

EARR 

, eayo 

EAGO 

AXLE 

109. 

♦ EAPO 

EARO 

, EAVU 

,EA6U 

, EAP  U 

,EAnu 

, EAYR 

, EAGR 

, EAPR  , 

AXLE 

105. 

♦ EARR 

eayz 

,EA6Z 

,EAPZ 

, EARZ 

, AVVV 

,A6V\7 

, APYY 

, ARY  Y , 

AXLE 

106. 

•AVGV 

, AGGY 

, APGY 

, ARGY 

A YP  Y 

, AGP  Y 

, APPV 

, ARPY 

, A VR  Y , 

AXLE 

107. 

♦ A6RV 

, APR  Y 

, ARR  V 

' AvOV 

, AGO  Y 

, APOV 

, AROY 

, AVUV 

,A6uv  ; 

AXLE 

108. 

♦ APUV 

, aruy 

, AYRY 

, AGRY 

, APRV 

arry 

, AYZY 

, A6Z  V 

/ APZ Y , 

AXLE 

109. 

• ARZY 

, ayyg 

,AGVG 

, A R Y 6 

ARYG 

, A YGG 

, AGG6 

, APG6 

, AR66  . 

AXLE 

no. 

♦ AYP6 

,AGPS 

,APPG 

, AflPG 

AYRG 

,AGR6 

, APRS 

, ARRG 

,AY06 

AXLE 

in. 

♦ AGOG 

, APOG 

, AROG 

, A VUG 

,AGUG 

, APU6 

ARUG 

, AYRG 

. AGRG  , 

AXLE 

1 12. 

♦ APRS 

ARRG 

, ayzg 

, A6ZG 

, APZG 

, ARZ6 

, AYYP 

,A6VP 

APYP 

AXLE 

113. 

♦ ARYP 

, A YGP 

,AG6P 

APGP 

ARGP 

, A YP  P 

, AGPP 

, APPP 

,ARPP  , 

AXLE 

119. 

♦ AYRP 

, AGRP 

, APRP 

, Amflp 

, A YOP 

, AGOP 

, AP  OP 

, AROP 

, A YUP  , 

AXLE 

115. 

♦ AGUP 

, APUP 

ARUP 

, A YRP 

,A  GRP 

, APRP 

ARRP 

, A YZP 

,AGZP  , 

AXLE 

116. 

* APZP 

. ARZP 

, A Y VR 

, AGYR 

, AP  YR 

, ARYR 

,aygr 

, AG6R 

, APGR 

AXLE 

117. 

118. 

CORRON  /AXLE/ 
• ARGR  . A YPR 

, AGPR 

, APPR 

ARPR 

, AVRR 

, AGRR 

, APRR 

, ARRR  , 

AXLE 

AXLE 

119. 

♦ AYOR 

, AGOR 

, APOR 

, AROR 

, AYUR 

, AGUR 

, APUR 

, AflUR 

, AVAR  , 

AXLE 

120. 

♦ AGRA 

,APRR 

, ARRR 

, AYZR 

, AGZR 

, APZR 

,ARZR 

, AVYO 

AGYO 

AXLE 

121. 

♦ APYO 

ARYO 

,aygo 

,AG60 

APGO 

, ARGO 

, AYPO 

, AGPO 

,appo  ; 

axle 

122. 

♦ ARPO 

A y BO 

. AGRO 

, APRO 

ARflO 

, A VOO 

, AGOO 

, APOO 

, AROO  , 

AXLE 

123. 

♦ AYUO 

,AGUO 

,APUO 

, ARUO 

, AVRO 

, AGRO 

APRO 

, ARRO 

AVZO  , 

AXLE 

129. 

♦ AGZO 

, APZO 

, ARZO 

, A Y YU 

, AG  YU 

, AP  YU 

, ARYU 

, AVGU 

t AGGU  , 

AXLE 

125. 

♦ APSU 

, AR6U 

, AVPU 

,AGPU 

APPU 

, ARPU 

, A VRU 

,agru 

f apru  ; 

AXLE 

126. 

♦ ARRU 

,AYOU 

, A60U 

, APOU 

AflOU 

, A VUU 

,AGUU 

,APUU 

, ARUU  , 

AXLE 

127. 

♦ AVRU 

,A6RU 

, APnu 

, ARRU 

, A YZU 

, AGZU 

, AP  ZU 

, ARZU 

, A V YR  , 

AXLE 

128. 

♦AGYR 

, AP  YR 

, ARYR 

, AVGfl 

, A66R 

, APGR 

, ARGR 

, AVPR 

,a6pr  ; 

AXLE 

129. 

♦ APPR 

ARPR 

,AVRR 

AGRR 

APRR 

, ARRR 

.AYOR 

, AGOR 

. APOfl  . 

AXLE 

130. 

♦ AROR 

AY  UR 

, AGUR 

AP  UR 

,ARUR 

, A YRR 

AGRR 

.APRR 

, ARRR  , 

AXLE 

131. 

♦ AYZR 

AGZR 

,apzr 

, ARZR 

'aVYZ 

, AGYZ 

AP  VZ 

, ARYZ 

>YGZ 

AXLE 

132. 

♦ AGGZ 

, AP  GZ 

, APIGZ 

, A YPZ 

AGP  Z 

,APPZ 

, ARPZ 

,AVRZ 

,agrz  ; 

AXLE 

133. 

♦APRZ 

, ARRZ 

, A YOZ 

, AGOZ 

, APOZ 

,AROZ 

, AYUZ 

, AGUZ 

,APUZ  , 

AXLE 

139. 

♦ ARUZ 

, A YRZ 

, AGRZ 

, APRZ 

, ARRZ 

,ayzz 

, AGZZ 

, AP ZZ 

,ARZZ 

AXLE 

135. 

136. 

CORRON 
♦ A YLV 

/axle/ 

,aglv 

,aply 

, ARLY 

, A YLG 

, aglg 

, aplg 

. arlg 

.AYLP  . 

AXLE 

AXLE 

137. 

♦ A6LP 

,aplp 

, ARlP 

, A V YLV 

, AGYLY 

, apyly 

, ARYLY 

.AY6LV  .AGGLY  . 

AXLE 

136. 

♦APGLV 

, ARSLY 

, ayply 

, AGPLY 

, apply 

, arply 

, AVfiLV 

. AGPLY 

.aprly  . 

AXLE 

139. 

♦ARRLY 

, A YOLY 

, AGOL Y 

, APOLV 

, AROLV 

, ayuly 

, AGULV 

.APULY  .ARULY  . 

AXLE 

190. 

♦AVRLY 

.A6RLY 

, aprlv 

, ARRLY 

, ayzlv 

, agzlv 

, APZLY 

.ARZLV 

.AVVLG  . 

AXLE 

191. 

♦ASYLG 

AP  YlG 

, ARVLG 

, AVGLG 

, AGGLG 

,APGlG 

, arglg 

. A YPL&  .AGPLG  , 

AXLE 

192. 

♦APPLG 

,ARPLG 

,avrls 

, AGRL6 

aprlg 

, ARRlS 

AYOlG 

.AGOLG 

. apolg  . 

AXLE 

193. 

♦AROLG 

, ayulg 

,AGulG 

, APULG 

, ARULG 

, AYRlG 

, AGRLG 

, APRL6  ,ARRLG  , 

AXLE 

199. 

♦ayzlg 

,agzlg 

,AP2lS 

,arzlg 

A YYLP 

, AuYlP 

, APYLP 

, ARYLP  ,AYGLP  , 

axle 

195. 

♦agglp 

, APGLP 

.arglp 

,ayplp 

, AGPLP 

,APPlP 

ARPLP 

.AYRLP  , AGRLP  , 

axle 

196. 

♦APRLP 

, ARRLP 

, A YOLP 

, agolp 

, apolp 

,AROlP 

, AYULP 

, AGULP  , ARULP  , 

AXLE 

197. 

♦ARULP 

.AYRLP 

.agrlp 

, APrtLP 

, ARRLP 

,AYZlP 

,AGZLP 

. APZLP  .arzlp 

AXLE 

196. 

199. 

CORRON 

♦NU 

/cntrl/ 

.ITER  IT  APA 

INOX( Hi 

. ITAPB 

, JRI N 

, JRAX 

, LINES 

, XPT 

, ROW 

cntrl 

cntrl 

1150. 

♦ XARO 

, NEWNOR 

, CNT  016 

,RHQC 

, RHOP 

, NPT5 

, RIMES  , 

cntrl 
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151 . 

152. 

153. 
159. 

155. 

156. 
151  . 

158. 

159. 

160. 
161  . 
162. 
163. 
169. 
165  . 
166. 
16?  . 
166. 

169. 

170. 
171  . 

172. 

173. 
179. 
175. 
1 76. 
1 7 7 _ 

178. 

179. 

180. 
181  . 
182. 
163. 
189. 

185. 

186. 
187  . 
188. 

189. 

190. 
191  . 

192. 

193. 
I9n. 

195. 

196. 

197. 

198. 

199. 

200. 
201  . 
202, 


•KP AGE  , NNP  ,NUP  . URC  , TRSTR  ,IflAX  .KTIflE  KONVER  NOPRNT,  CNTRL 

♦ J NBDRY , NUP AGE, I VARY ( 2 0 > NN,  NDVARY,  PLAST,  ZLAST,  KODES  CNTRL 

LOGICAL  INBDRY,  NEUNOR,  KONVER,  NOPftNT,  NUr AGE  CNTRL 

DIMENSION  AV(l),  AY  1 «PC  32  > , AU(l2),  AXLE(  1 ) APPLY 

01  PENSION  AUY( 9,  29).  UU<  9 . 8),  AYY( 9 1).  ZZ( 9,  3 >.  AUU( 9,  9).  APPLY 

*AYLV(9,  1).  AULt(  9 , 9),  AU&(9,  3)  APPLY 

EQUIVALENCE  1 AY  AV  V 1 , (AVT,  AbKl)),  ( AVQ,  AU(  5)1.  (AVA,  AU(9U,  APPLY 
*(AGT,  AU(2>),  ( AGO  Abd(  6 ) ) . ( A6A  AUU0>>,  (APT,  AU(3>),  APPLY 

*(APD,  AW(  7 > > (APA,  AU(11>>,  (A«T,  AW(9)>,  ( AXLE,  AY)  APPLY 

EQUIVALENCE  (AYY,  AY Y V ) (AYlY,  AWLV  >,  ( AVTfl,  AUV( 1,  19)>,  APPLY 

•(Avon,  AUY(  1 , 20  > ),  (AV&W,  AUYl  1 , 21)),  (A6T6,  AU6( 2.  1>),  APPLY 

♦(  AGOG,  AU6(2,  2)),  ( A6A6,  AU&(2.  3l).  (AGAV,  AUY(2,  3>),  APPLY 

♦ (AGAR,  AUV(2,  12)),  ( AGTft,  AtdY(  2,  19)),  (A6&n,  AUY(2,  26)),  APPLY 

♦ ( AGAM,  AWY(2,  2D),  (APTG,  AUG(  3,  1 ) ),  (APDG,  AWG(  3,  2)),  APPLY 

*(  AP  AG , AWG<3,  31).  (APAY,  AWY(  3,  3)),  (APAR,  A«Y(  3,  12)1,  APPLY 

♦ (APTfl,  AUY(  3*,  19)1,  (APOfl,  AUY(  3,  20)),  (APAfl,  AUY(3,  21)),  APPLY 

♦ t AFlTR,  AWYC9,  10)),  (AVTO,  AuiW(  1 , 9)),  ( AVT  A AUM( 1 , 7)>,  APPLY 

♦ ( AGTO,  AUbl(2,  9)),  (A6TA,  AWUK2,  7)),  (APTO,  AUW(  3,  9)),  APPLY 

♦ IAPTA,  AU«(3,  7)),  (AnTT,  AUUI(9,  1>),  ( AVDT,  AMW(1,  2)),  APPLY 

*(  AVDD,  AUUd,  5)),  (AVOA,  AUUd,  8)),  ( A6DT  AUN(  2,  2)),  APPLY 

♦<  AGDD,  AUW(2,  5)>,  (ASOA,  AWW(  2,  8>),  ( APDT  AWM(  3,  2)),  APPLY 

♦(  APDO,  AWW(3,  5)),  (APOA,  AUteU  3,  8)>,  (AVAT,  AUU(1,  3)),  APPLY 

*(  AYAO,  AUWC1,  6)),  ( A VAA , AUW(  1 , 9)),  (AGAT,  AUU<2,  3)),  APPLY 

♦ (AGAD,  AWU(  2 , 6)),  (AGAA,  AUUd,  9)),  (APA  T,  AUU( 3,  3)),  APPLY 

♦ (APAD,  AWW(3,  6)1,  ( APAA, . AUU(  3,  9)),  ( AGTLG,  AULYd,  9)),  APPLY 

♦ (AGDlG,  AWLV(2,  5)),  (A6AL6,  AULY(2,  6)),  (APTlG,  AWLV(  3,  9>),  APPLY 

♦(  AP0L&,  AULY<  3,  5)),  (APALfi,  AWLV(  3,  6)),  ( A6TLP,  AWLV(2,  7)),  APPLY 

♦(AGOLP,  AULY(2,  8)),  (AGALP,  AWLY( 2,  9)),  (APTlP,  AULYt 3,  7)>,  APPLY 

♦ (APDLP,  AWLYO,  8 ) ),  (APALP,  AULY( 3,  9))  APPLY 

EQUIVALENCE  < ANT  Y AUY(  A,  1 1 ) JUL21 

EQU1YALENCE( AYAY,  AUY( 1 , 3>),  (AVAR,  AUY( 1 , 12))  APPLY 

EQUIVALENCE  (AYIrtP,  UN)  APPLY 

DATA  AU/ 12*0. /,  ANY/ 96*0 . / , AUU/36*0./,  AULY/36*0./,  AWG/12#0./  APPLY 
DO  90  I = 1,  86  APPLY 

90  AXLC( 1 > r 0.  APPLY 

TCOAE  = T*CODAE  APPLY 

TSDAE  = T*510AE  . APPLY 

D8CA  x DB*COSA  APPLY 

DBSA  x DB*S1NA  APPlY 

D6RCA  x DBR*C05A  APPLY 

OBRSA  x OBR*SINA  APPLY 

6EI5P  = 6R*I$P  APPLY 

CONST  x 3600 . *GR  JUL21 

AY  x (TCOAE  - DBCA  - DRAG )/R  APPLY 

AI9  x -F  VAC/GEI SP  APPLY 

IF( J 1 .EO.  9)  Art  x -5FC*T/C0N5T  JUL21 

1F( KOOE  .EQ.  9)  GO  TO  51  APPLY 

AX  x ( TSDAE  - DBSA  ♦ LIFT >/ft  APPlY 

AG  x AX«QOSPHI  APPLY 

AP  x AX*5 J NPHl  APPLY 

COnPUTE  THE  EXPLICIT  FIRST  PARTIAlS  OF  THE  A-VECTOR  UITH  RESPECT  APPLY 
TO  THE  STATE  AND  DECISION  VECTORS.  APPLY 


203, 

209. 

205. 

206. 

51 

A V Y = 
AYR  x 
Avn  = 
IP(  J1 

-DBAGV/n 

( -DBRCA  - DRAGR  )/R 
-AY/N 

- 9)  511,  512,  512 

APPLY 

apply 

apply 

JUL21 

511—] 

207. 

511 

AAT  x 

-(1.  - ISPF*FVAC/ISP 1/&EISP 

JUL2 1 

^ "" 

208. 

ANY  x 

0. 

JUL21 

209. 

ARR  x 

AE»PAR«A*T 

apply 

210. 

GO  TO 

513 

JUL21 

513  — 

211. 

512 

ART  x 

-SFC/CONST 

JUL21 

212. 

ANY  x 

-5FCY*T/C0NST 

J0L21 

213. 

A«R  x 

•$FCR+T/COItST 

JUL21 

. 

219. 

513 

AVT  x 

COOAE/M 

JUL21 

215. 

AYO  = 

T5DAE/R 

APPLY 

216, 

AYA  = 

(-TSOAE  ♦ OBSA  - 0RA6A)/R 

APPLY 

217. 

AXT  = 

SIDAE/R 

APPLY 

218. 

AXO  x 

-TCOAE/R 

APPLY 

219. 

IFdCOOE  .EQ.  9)  60  TO  52 

APPLY 

52—i 

220. 

AX Y x 

Li  FT  Y/R 

APPLY 

221. 

AXR  x 

( -OBRSA  ♦ LIFTR )/R 

APPLY 

1 

222. 

axr  x 

IlIFTR  - AD/A 

APPLY 

| 

223. 

AGY  = 

AX Y+C0SPH1 

APPLY 

51-1 


6 OCT  72  G. 01-99 


22*1. 

868  s AXR»COSPHI 

APPLY 

225. 

AGR  = AXR'CDSPH) 

apply 

226. 

APV  = AXV*S1NPHI 

APPLY 

227. 

APR  = AXR*SINPHI 

APPLY 

228. 

APR  = AXfl*SINPHl 

APPLY 

229. 

AXA  = (TCOAE  - DBCA  9 LlFTAl/R 

APPLY 

230. 

AST  = AXT»C0SPMI 

APPLY 

231  . 

AGD  = AXD*C0SPHI 

APPLY 

232. 

ASA  r AXA*COSPMl 

APPLY 

233  . 

APT  = AXT«SINPHI 

APPLY 

239. 

APO  = AXD*S!NPHl 

APPLY 

235. 

APA  s AXA»S1NPHI 

APPLY 

236. 

C 

IS  ALPHA  NONOPTI RAL . 

apply 

237. 

52 

IFCHOOE  .ST.  2)  GO  TO  102 

APPLY 

To2- 

238. 

C 

CORPUTE  THE  STARREO  FIRST  PARTIALS  OF  THE  A-VECTOR  WITH  RESPECT 

apply 

239. 

c 

TO  THE  STATE. 

apply  * 

** 

290. 

CALL  RATRlTI AYIRP,  AVT,  DEPDEY  9.  2,  6) 

APPLY 

291 . 

CALL  RATADDI  EAVV,  AYY,  AYIRP,  9.  8) 

APPLY 

292. 

c 

corpute  the  total  fir$t  partIalS  of  the  a-vector  WITH  RESPECT  TO 

APPLY 

293. 

c 

THE  COSTATE. 

APPLY 

299 . 

101 

iFtXONVER)  RETURN 

APPLY 

295. 

CALL  ttATRLT ( A VLY  AVT,  DPOL,  9,  3.  3) 

apply 

296. 

c 

ADD  THE  CONTRIBUTIONS  DUE  t6  PHI  TO  THE  ABOVE  PARTIALS. 

APPLY 

297  . 

A6LS  = AGLG  - AP«PLG 

APPLY 

298. 

ASLP  = A6LP  - AP»PLP 

APPLY 

299. 

APLG  = APLS  9 A6*PL6 

APPLY 

250. 

APLP  = APLP  9 AG*PLP 

APPLY 

251  . 

GO  TO  103 

apply 

103-9 

252. 

c 

CORPUTE  THE  STARRED  FIRST  PARTIALS  OF  THE  A-VECTOR  WITH  RESPECT 

apply 

253. 

c 

TO  THE  STATE 

apply 

259. 

102 

CALL  RATnLT<  AYIRP  AVT,  DPDY#  9,  3,  8) 

apply 

255. 

c 

IS  PHI  NONOPTIRAL 

apply 

256. 

1 F( KOQE  .GT.  3)  GO  TQ  109 

apply 

109  — 

257  . 

CALL  RATADD4  EAVV,  AYY  AYIRP  9.  8) 

APPLY 

258. 

60  TO  101 

apply 

101 

mmJ 

259. 

c 

CORPUTE  THE  CONTRIBUTIONS  DUE  TO  THE  DECISION  VECTOR  TO  THE  TOTAL 

apply 

260. 

c 

FIRST  PARTIALS  OF  THE  A-VECTOR  WITH  RESPECT  TO  THE  STATE. 

apply 

- 

261  . 

103 

CALL  WATnLT( AYIRP  AYT,  DPOY,  9,  3,  6) 

apply 

262. 

c 

CORPUTE  THE  TOTAL  FIRST  PARTIALS  OF  THE  A-VECTOH  WITH  RESPECT  TO 

apply 

263. 

c 

THE  STATE. 

apply 

269. 

109 

CALL  RATADDIAVV,  AYY  AYIRP,  9,  6) 

apply 

265. 

c 

ADD  THE  CONTRIBUTIONS  DUE  TO  PHI  TO  THE  ABOVE  PARTIALS. 

apply 

266. 

AGG  * AGG  - AP*PG 

APPLY 

267. 

APG  s AP6  9 A6*P6 

apply 

268. 

c 

IS  THIS  A CONVERGED  TRAJECTORY. 

APPLY 

269. 

1FC  KONYER ) RETURN 

apply 

270. 

c 

clear  the  array  of  second  partials  with  respect  to  the  state 

APPLY 

271. 

00  105  1 S 61,  329 

APPLY 

2 72. 

105 

AXLE( 1 )=  0. 

apply 

273. 

c 

CORPUTE  THE  EXPLICIT  5EC0N0  PARTIALS  WITH  RESPECT  TO  THE  STATE. 

apply 

279. 

IF( J 1 - 9)  10501,  10502,  10502 

JUL21 

1050) 

— 1 10502- 

275  . 

10501 

ARTT  = <ISPFF*FVAC  9 2.MSPFM1.  - I $PF*F V AC/ I SP > >/GE I SP/ I SP 

JUL21 

276. 

ARTY  = 0. 

JUL21 

277. 

ARTR  s AE* PAR* ARTT 

APPLY 

276. 

60  TO  10503 

JUL21 

10503— j 

279. 

10502 

ARTT  = 0. 

JUL21 



280. 

ARTY  = -SFCY/CONST 

JUL21 

261  . 

ARTR  : -SFCH/CONST 

JUL21 

* 

282. 

10503 

AY YY  = -ORAGYY/R 

JUL21 

263. 

AYRY  = -ORAGYR/R 

APPLY 

289. 

AYRV  = DRAGY/R««2 

apply 

285. 

AY  YR  = AYRY 

apply 

286. 

AYRR  s -( OBRR*CO$A  9 ORAGRR  )/R 

apply 

287. 

AYRR  c (DBRCA  9 DRASR  )/R**2 

apply 

288. 

A Y YR  = AYRY 

APPLY 

289. 

AYRR  = AYRR 

APPLY 

290. 

AYRR  = 2 . *AY/R9*2 

APPLY 

291. 

IFU1  - 9)  10509,  10505,  10505. 

JUL21 

10509 

— 1 10505—1 

292. 

10509 

ARVR  = 0. 

JUL21 

293. 

ARRV  = 0. 

JUL21 

299. 

ARYY  = 0. 

JUL21 
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295  . 
296. 

AARR  = AE*(  P ARR*AAT  ♦ PAR* AATR  ) 
60  TO  10506 

APPLY 

JUL21 

10506—| 

297. 

10505 

Anvv  = 

-SFC V V*T /CONST 

JUL21 

298. 

AAVR  = 

-SFCVH*T/CONST 

JUL21 

299. 

AMR  V = 

AAVR 

JUL21 

300. 

AflRR  = 

-5FCHH*T /CONST 

JUL21 

301  . 

10506 

1 F( KOOE  . EQ . 9)  GO  TO  1051 

JUL21 

1051  — 

302. 

AX V V - 

LlFTVV/A 

APPLY 

303. 

AXRV  s 

L1FTVR/A 

APPLY 

309. 

AXAY  = 

(LlFTVA  - AXV1/A 

APPLY 

305  . 

AG  V V = 

AX V V^COSPMI 

APPLY 

306. 

AGRV  = 

AXRV*COSPHI 

APPLY 

307  . 

AG«V  = 

AXAV*C0SPH1 

APPLY 

308. 

A P V V s 

AXW*S1NPHI 

apply 

309. 

APR  V = 

AXRY*SINPHI 

apply 

310. 

AP«V  = 

AXAV*S 1 NPHI 

apply 

311  . 

TEflP 1= 

S I NPHI *P6 

apply 

312. 

A6VG  = 

-AXV*TEAP1 

apply 

313. 

AGRG  = 

-AXR*TEAP1 

apply 

319. 

AGflG  s 

-AXA*TEAP1 

apply 

315. 

TEHP2= 

COSPHUPG 

APPLY 

316. 

APV6  « 

AXV*TEAP2 

apply 

317. 

APRS  = 

AXR*TEAP2 

APPLY 

318. 

APnG  = 

AXA*TEAP2 

APPLY 

319. 

AXRV  - 

(LIFTRR  - DBRR*SINA)/A 

APPLY 

320. 

Axnv  = 

(LIFTRA  - AXR  1/A 

apply 

321  . 

AGVR  = 

AGRV 

apply 

322. 

AGRR  = 

AXRY*COSPH I 

apply 

323. 

AGAR  s 

AXAV*C0SPHI 

apply 

329. 

APVR  = 

APRV 

apply 

325. 

APRR  - 

AXRY*S1NPHI 

apply 

326. 

APAR  = 

AXAY*SINPHI 

apply 

327  . 

axav  = 

(LIFTAA  - 2 . *AXA  )/A 

apply 

328. 

ag  vn  = 

AGAV 

apply 

329. 

AGRA  s 

AGAR 

apply 

330. 

AGAA  s 

AXAV*COSPMI 

apply 

331  . 

APVA  s 

AP  AV 

apply 

332. 

APRA  s 

APAR 

apply 

333. 

Apron  = 

A X AV*S I NPHI 

apply 

339. 

C 

COnPuTE 

THE  EXPLICIT  SECOND 

PART1ALS 

WITH 

RESPECT 

TO 

THE 

STATE 

apply 

335  . 

C 

AND  DECISION  VECTORS 

apply 

336. 

1051 

AVAV  = 

-DRAG VA/A 

apply 

337. 

AVAR  s 

( D8RSA  - ORAGRAl/A 

apply 

338. 

A VTA  = 

-AVT/fl 

apply 

339. 

A VDA  = 

-AVD/A 

apply 

390. 

AVAA  s 

-AVA/A 

apply 

391. 

IFtKODE 

. EQ . 9)  GO  TO  1052 

APPLY 

1052-1 

392. 

AX VA  - 

LIFTVA/A 

t 

APPLY 

393. 

AXRA  s 

(LIFTRA  - D8RCA  )/A 

apply 

399. 

AXAT  = 

-AXT/A 

APPLY 

395. 

AXAD  = 

-AXD/A 

APPLY 

396. 

AXAA  = 

(LIFTAA  - AXAl/A 

APPLY 

397  . 

AGAV  = 

AX  VA*COSPHl 

apply 

398. 

AGAR  = 

AXRA*C0SPHI 

apply 

399. 

AGTA  = 

AXflT*CO$PMI 

apply 

350. 

AGOA  - 

AXAD*C0SPHI 

apply 

351. 

AGAA  = 

AXAA*COSPHl 

apply 

352. 

AP  A V = 

AX  VA*SINPHI 

apply 

353. 

APAR  s 

AXRA*S1NPHI 

apply 

359. 

APTA  - 

AXAT*SUPHl 

apply 

355. 

APDA  - 

AXAQ*SUPHI 

apply 

356. 

APAA  = 

AXAA*SINPHI 

APPLY 

35  7. 

C 

COAPUTE 

THE  EXPLICIT  SECONO 

PARTIAlS 

WITH 

RESPECT 

TO 

THE 

DECISION 

apply 

358. 

c 

VECTOR. 

apply 

359. 

1052 

AVTQ  = 

AXT 

APPLY 

360. 

AVTA  =- 

AXT 

apply 

361 . 

AVDT  = 

AVTD 

apply 

362. 

AVOD  = 

AXD 

apply 

363. 

AVDA  =- 

AXO 

apply 

369. 

AVAT  = 

AVTA 

APPLY 

365. 

AVAD  s 

AVDA 

APPLY 

366. 

AVAA  s 

(-TCDAE  + OBCA  - OR AGAA  )/A 

apply 

367. 

1 Ft KOOE 

.EQ.  9)  GO  TO  1053 

APPLY 

,05n 
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AXTD  =-AVT 

AXT  A = AVT 

AGTD  = AXTO*COSPMI 

AGT  A = AXTA*COSPHI 

APTO  = AXTD^SINPHI 

APTA  = AXTA*SI NPHI 

AXDD  =-AVD 


AVO 

AGTD 

AXDD*COSPHl 

AXDA+COSPHI 

APTD 

AXD0*$1NPH1 
AXDA+S I NPHI 

( -TSOAE  ♦ DBSA  4 LIFTAA  )/H 
AGTA  • 

A6DA 

AXAA*C05PHI 

APTA 

APDA 

axra»sinphi 


389 . 

1053 

KSTAR  = 2 

apply 

390. 

I F( KOOE  .GT.  2)  KSTAR  = 3 

apply 

391. 

II  s -7 

apply 

392. 

III  = -2 

apply 

393. 

00  109  I = 1,  8 

apply 

399. 

11  = 114  8 

APPLY 

395. 

III  = ill  4 3 

APPLY 

396. 

JJ  a -2 

apply 

397. 

DO  106  J = 1,  8 

apply 

398. 

JJ  a JJ  4 3 

apply 

399. 

106 

CALL  WATWLTC  WW(  1 , J ).  AWYC  1 , JJ  ) . DPOY{  1 I ) 9,  3,  1) 

apply 

900. 

CALL  WAT  ADD(  AYYC  l , ll),  AYYC  1 , it),  WW,  9,  8) 

APPLY 

901  . 

KK  = -2 

APPLY 

902. 

DO  107  A = 1 , KSTAR 

apply 

903. 

KK  = KK  4 3 

apply 

909. 

107 

CALL  WATWlTCZZCI,  A),  AWWU,  KK  ),  DPDY(  1 I >,  9,  3,  1) 

APPlY 

905. 

CALL  WAT  ADD( Z Z , 2Z,  AWYCl,  til),  9,  KSTAR  ) 

apply 

906  . 

1 F t KOOE  .GT.  2)  GO  TO  106 

apply 

108—1 

907  . 

CALL  WATWlTC  WW  ZZ,  OEPOEY.  9,  2.  8) 

APPlY 

908. 

CALL  WATADDC AYYC l,  11),  AYYC  l , it),  WW,  9,  8) 

apply 

909. 

CALL  WA7WLT(WW,  AVT,  PftOOlCl,  II),  9,  2,  8) 

apply 

910  . 

60  TO  109 

apply 

109 — 11 

911  . 

106 

call  WATWLTCWW,  ZZ,  OPDY  9,  3,  6) 

APPLY 

912. 

CALL  WATADDC AYYC 1,  II),  AYYC  1 , II),  WW.  9,  8) 

apply 

913. 

CALL  WATWLTCWW,  AYT,  Pfcj)D5Cl,  II),  9,  3,  8 ) 

apply 

919. 

109 

CALL  WATAOOC  AYYC  1,  11),  AVYC1,  II),  WW,  9,  8) 

apply 

915. 

I F( KOOE  .GT.  3)  RETURN 

apply 

916. 

AGT6  = -AXT^TEWPl 

apply 

917. 

AGOG  = -AXD*TEftPl 

apply 

918. 

AGAG  a -AZA4TEWP1 

apply 

919. 

APTG  = AXT»TEWP2 

apply 

920. 

APOG  = AX04TEWP2 

apply 

921. 

APA6=  AXA«TEWP2 

apply 

922. 

I F( KOOE  .EQ.  3)  GO  TO  1091 

apply 

1091 

923. 

CALL  WATWLTCWW,  AWG,  OEPDEY,  9,  2,  8) 

apply 

929. 

GO  TO  1092 

APPlY 

1092— 1 

925. 

1091 

CALL  WATWLTCWW,  AWG,  DPOY,  9,  3,  8) 

apply 

rzj 

1092  CALL  WATADDC AYYC 1,  9).  AV V( 1 * 9).  WW,  9,  6) 

: CLEAR  THE  ARRAY  OF  SECOND  PAftTIALS  WITH  RESPECT  TO  THE  STATE  ANO 

Z COSTATE. 

00  110  1 = 337  932 

110  AXLE  C I )=  0. 

1 F ( KOOE  .£0.  2)  GO  TO  1101 

: COMPUTE  THE  EXPLICIT  SECOND  PARTIAlS  WITH  RESPECT  TO  THE  STATE  AND 

u COSTATE. 

TEflPl  = SINPH1 *PL6 
TEWP2  = COSPHI *PLS 
TEWP3  = SlNPHI*PtP 
TEWP9  = C05PHI»PLP 
A6VLG  =-AXY*TEHPl 
AGRlG  =-AXR*TEWPl 
AGHL6  =-AXW*TE*Pl 


APPLY 

APPLY 

APPLY 

APPLY 

APPLY 

APPLY  1101 
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<?bZ 


**1 . 

APYL6 

= AXVMEAP2 

APPLY 

**2. 

APRLfi 

= AXR#TE*P2 

apply 

**3. 

APALG 

= AXfl*TEWP2 

apply 

***. 

AGVLP 

=-AXV*TEAP3 

APPLY 

**5. 

A6RLP 

r-AXR*TE«P3 

APPLY 

**6. 

A6ALP 

=-AXn*TEAP3 

APPLY 

**7 . 

APYLP 

= AXY«TEAP* 

APPLY 

**8 . 

APALP 

= AXR«TEMP* 

apply 

**9. 

APHLP 

= AXA«TEAP* 

APPLY 

*50 , 

A6TL6 

=-AXT*TEHP 1 

APPLY 

*51. 

A6DL6 

=-AXD*TE«Pl 

APPLY 

*52. 

A6AL6 

=-AXA»TEAPl 

APPLY 

1*53. 

APTL6 

s AXT*TE*P2 

apply 

*5*. 

AP0L6 

= AX0*T£MP2 

APPLY 

*55. 

APAL6 

= AXA*TENP2 

APPLY 

*56. 

agtlp 

5-AXT*TEAP3 

APPLY 

*57. 

agdlp 

=-AX0*TEAP3 

apply 

*58. 

a&alp 

=-AXA*TEAP3 

apply 

*59. 

aptlp 

= AXT*TE«P* 

apply 

*60. 

APOLP 

s AXD'TEAP* 

APPLY 

*61 . 

APALP 

= AXA*TEAP* 

APPLY 

*62. 

1101 

111=  -2 

APPLY 

*63. 

II  = -7 

apply 

*6*. 

DO  11*  I = 1,  3 

apply 

*65. 

II  * II  ♦ 8 

apply 

*66. 

III  = III  ♦3 

APPLY 

*67. 

IFiXODE  .ED.  3)  60  TO  113 

apply 

113 

*68. 

JJ  = -2 

apply 

*69. 

DO  111  J = 1,  8 

apply 

*70. 

JJ  = JJ  ♦ 3 

APPLY 

*71. 

111 

CALL  *ATALT(w*ll,  J>.  A*Yll,  JJ1,  OPOUl,  I),  *,  3,  1) 

apply 

*72. 

CALL  RATADDC AYLY( 1 , if),  AYLVCl,  1 1),  Wd,  *,  8) 

apply 

*73. 

XX  = -2 

apply 

*7*. 

DO  112  X = 1,  2 

APPLY 

*75. 

XX  = XX  ♦ 3 

apply 

*76. 

122 

CALL  rtA7/?LT<  ZH  1 . X 7.  Atftff  2 , AX),  DPDU  1 , J >,  *,  3,  1> 

apply 

*77. 

CALL  HATAODUZ,  ZZ,  AulV( 1,  111),  *.  2) 

APPLY 

*78. 

CALL  WATrtLTttttf,  ZZ,  DEPOEY,  *.  2,  8) 

APPLY 

*79. 

CALL  RATADDt  AVLYt  1.  II).  AVLYl  l II),  fcltf,  *,  8) 

APPLY 

*80. 

CALL  MATrtLT( Wd,  AVT,  PR009< 1,  if),  *,  2,  8) 

apply 

*81 . 

60  TO  11* 

apply 

11*— j 

*82. 

113 

CALL  RATflLT (Will,  A*LY(1,  III),  OPDY,  *,  3.  8) 

APPLY 

iJ 

*83.  11*  CALL  HATADOt AYLY< l,  II),  AYlY(1,  II),  Wtf,  *,  8) 

*8*.  R£TUB« 

*85.  END 


APPLY 

APPLY 

APPLY 
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DESCRIPTION 


STORAGE 

block” loE 


subroutine 

SUBR  CODE 


3 av/ 3\„ 


3av/ 3v 


MV*  8(S»V8V)/dh  0 

#vyv  a< Siv/8v )/av  0 


Ayv  a(6a¥/8V)/aV  1 


CODAE  c o s ( a - ) I 


Total  nozzle  aiit  araa 


The  first  entry  In  a » 3 a»trl*  that  contains 
8a/dX#,  da/dX>  and  d»/dX^ 

The  first  aord  of  a four  aord  array  that  contains 
the  vector  of  applied  accelerations  defined  by 
Equation  2.4-2  In  Wo  l . I of  this  document. 

The  first  entry  in  a 4x8  sitrli  that  contains  the 
total  partial  derivatives  of  the  a vector  alth 
respect to  the  QL  state  vector  (excluding  the 
heating  state), 
da/dy . 

The  first  entry  In  a *1*8  sitrli  that  contains 
d(S e/5y  )/dh 

The  first  entry  In  a 4x8  natrli  that  contains 
d( 5a/8y  J/dW. 

A 4x3  array  containing  A0 

A 4x3  array  containing 

A 4x4  array  containing  dlAp)/dXy,  dlA^T/dX^  and 

d(Ap)/dX+ 

'A  4x4  array  containing  A-p 
A 4 ■ 2 4 array  containing  Apy 

The  first  aord  of  a four  aord  array  that  contains 
the  vector  of  applied  accelerations  defined  by 
Equation  2.4-2  in  Wo  I . I of  this  doegaent. 

The  first  entry  In  a 4x8  natrlx  that  contains 
a<8a/5 f )/3W. 

See  syahel 


See  syahel 


COS#  1 $«•  »»■*•* 


/OVNA 

/( 

84  > 

APPLY 

i 

AE 

ARCIN 

0 

AE 

I ISPULS 

i 

AE 

NLDRY 

r 

AE 

TH2 

i 

AE 

/AXLE 

/( 

335  ) 

apply 

n 

APLP 

NLDRW 

I 

APLP 

/AXLE 

/< 

1 ) 

APPLY 

n 

AW 

APPLY 

0 

AXLE 

NLDRY 

i 

AW 

/AXLE 

/( 

5 ) 

apply 

n 

AWW 

- 

NLDRW 

1 

A W W 

/AXLE 

/I 

165  ) 

APPLY 

0 

AWWR 

NLDRW 

i 

AW  WR 

/AXLE 

/l 

64  ) 

APPLY 

0 

A WWW 

apply 

I 

AYV 

NLDRW 

I 

A WWW 

/ APPLY 

/(* 

) 

apply 

D 

AW 

/APPLY 

/l* 

) 

APPLY 

C 

AUG 

/APPLY 

/l  * 

> 

apply 

c 

AWLY 

/APPLY 

/<* 

) 'APPLY 

c 

AUU 

/APPLY 

/<* 

) 

APPLY 

c 

AUY 

/AXLE 

/< 

1 ) 

apply 

n 

AW 

apply 

0 

AXLE 

NLDRW 

I 

AW 

/AXLE 

/( 

64  ) 

apply 

0 

AWWW 

apply 

I 

AYY 

NLDRW 

I 

AWWW 

/OVNA 

/( 

151  ) 

AL1 

1 

CODAE 

AL4 

I 

COO  AE 

AL6 

I 

CODAE 

AL7 

I 

CODAE 

AL8 

i 

COO  AE 

AL4 

i 

CODAE 

apply 

i 

CODAE 

CONTRL 

i 

CODAE 

NLDRW 

i 

CODAE 

TH3 

i 

CODAE 

UT 

0 

CODAE 

/DYNA 

/( 

10  ) 

ALl 

i 

COSA 

AL4 

i 

COSA 

AL6 

i 

COSA 

ALT 

i 

COSA 

AL8 

i 

COSA 

AL4 

i 

COSA 

APPLY 

i 

COSA 

CONTRL 

i 

COSA 

NLORW 

i 

COSA 

OUTPUT 

i 

COSA 

TH3 

i 

COSA 

UT 

* 

COSA 

/OVNA 

/( 

43) 

ALl 

i 

COSPHI 

AL4 

i 

COSPHI 

APPLY 

i 

COSPHI 

ARC1N 

0 

COSPHI 

CONTRL 

n 

COSPHI 

OUTPUT 

I 

COSPHI 
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FORTRAN 

SYMBOL 


WAT  H 
SYMBOL 


CODE 


DESCRIPTION 


ggjg 


OB 

1 

Bait  drag  ( LBS ) 

/DVNA 

/< 

163)  AL) 

OB 

b 

AL9 

OB 

AL6 

DB 

AL7 

db 

AL8 

DB 

AL9 

DB 

APPLY 

DB 

CONTRL 

DB 

NLDRV 

DB 

OUTPUT 

DB 

STATEF 

DB 

TN3 

OB 

• 

UT 

OB 

DBR 

3D.  / dR 

I 

5*«  syabel 

/OVNA 

/( 

66)  AL1 

OBR 

0 

AL  H 

OBR 

AL6 

DBR 

AL7 

OBR 

ALB 

DBR 

AL9 

DBR 

APPLY 

DBR 

STATEF 

OBR 

TH3 

DBR 

UT 

DBR 

DBRR 

a8Db/aR2 

I 

Saa  syabel 

/DVNA 

/< 

87)  AL9 
AL6 

DBRR 

DBRR 

AL7 

DBRR 

ALB 

DBRR 

. 

- 

• • . — - - 

_ AL9 

DBRR 

APPLY 

DBRR 

STATEF 

DBRR 

TH3 

DBRR 

UT 

DBRR 

OEPDEV 

6p/6y 

I 

A 2*8  aatrlx  that  contains 

/WATS 

/( 

285  ) ALGCON 

W 

DEPDEY 

tp/Cy  = »p/»y|«  = [Dditant 

APPLY 

OEPDEV 

DPDL 

dp/dX 

! 

A 3x3  natrix  that  contains  da/dXv,  dn/dX,  and 

/WATS 

/< 

301  ) ALGCON 

OPDL 

«./ax* 

APPLY 

DPDL 

OPOV 

dp/dy 

I 

A 3x6  natrix  that  contains  tho  total  first  partial 

/WATS 

n 

261  ) ALGCON 

DPDV 

derivatives  of  the  1 a *p 1 ane - eontr o 1 vector  art  the 
6L  state. 

APPLY 

DPDY 

DRAG 

0 

1 

Aerodynaalc  drag  < LBS ) 

/OVNA 

n 

69)  AL5 

DRAG 

AL7 

DRAG 

AL8 

DRAG 

AL9 

DRAG 

apply 

DRAG 

contrl 

ORAG 

ENVPRQ 

DRAG 

NLDRV 

ORAG 

OUTPUT 

DRAG 

TH3 

DRAG 

UT 

w 

DRAG 

ORAGA 

dD/dtt 

1 

Sea  syabel 

/OVNA 

n 

72)  AL1 

DRAGA 

AL5 

DRAGA 

AL7 

DRAGA 

alb 

DRAGA 

AL9 

DRAGA 

apply 

DRAGA 

TH3 

DRAGA 

UT 

w 

ORAGA 

DRAGAA 

d2D/a«* 

I 

See  syabel 

/OVNA 

/< 

78)  ALl 
ALS 

DRAGAA 

ORAGAA 

AL7 

DRAGAA 

alb 

DRAGAA 

AL9 

DRAGAA 

APPLY 

DRAGAA 

TH3 

DRAGAA 

UT 

w 

ORAGAA 
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FORTRAN 

SYMBOL 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


OR  AGR 


DR  AGRA 


oragrr 


ORAGV 


OR A6VA 


DRAGVR 


ORAGVV 


EAVV 


F VAC 


STORAGE 

WlT 


3D/3R 

I 

S»«  syabol 

/DYNA 

/( 

71  ) AL5 

I 

DA  AGP 

ALT 

I 

OR  AGR 

ALB 

I 

DR  AGR 

AL* 

I 

OR  AGR 

apply 

1 

DR  AGR 

TH3 

1 

OR  AGR 

UT 

ft 

0RA6R 

}aD/3R3« 

J 

5##  s/abaf 

/DYNA 

/< 

77)  AL1 
AL5 

I 

I 

DRAGRA 

ORAGRA 

ALT 

I 

DRAGRA 

AL0 

1 

ORAGRA 

AL9 

I 

DRAGRA 

APPLY 

I 

DRAGRA 

TH3 

I 

DRAGRA 

UT 

ft 

DRAGRA 

32D/3R2 

I 

S«i  lyibol 

/DYNA 

/( 

76)  AL5 
alt 

I 

I 

ORAGRR 

ORAGRR 

AL8 

I 

ORAGRR 

AL9 

I 

ORAGRR 

APPLY 

l 

ORAGRR 

TH3 

1 

ORAGRR 

UT 

ft 

DRAGRR 

3D/3V 

I 

Sm  tyabal 

/DYNA 

/( 

70)  AL5 

I 

ORAGV  ■ 

alt 

I 

DRAGV 

alb 

I 

DRAGY 

AL9 

I 

DRAGV 

apply 

I 

DRAGV 

*■  * 

* 

" 

TH3 

I 

OftAGV 

UT 

ft 

ORAGV 

>aD/3V3« 

I 

$•«  syabel 

/DYNA 

/( 

75)  AL1 
AL5 

I 

DRAGVA 

DRAGVA 

AL7 

I 

DRAGVA 

ALB 

1 

ORAGVA 

AL9 

1 

DRAGVA 

APPLY 

I 

DRAGVA 

TH3 

I 

DRAGVA 

UT 

ft 

DRAGVA 

>2D/3V3R 

1 

$••  syabal 

/DYNA 

/t 

?H>  AL5 
alt 

1 

1 

ORAGVR 

DRAGVR 

AL8 

I 

ORAGVR 

AL9 

I 

ORAGVR 

apply 

I 

ORAGVR 

TH3 

I 

ORAGVR 

UT 

ft 

DRAG.VR 

32D/3V2 

I 

Saa  tyabal 

/DYNA 

/( 

73)  AL5 
alt 

1 

1 

DRAGVV 
DR  AG V V 

alb 

I 

DRAGVV 

AL9 

1 

ORAGVV 

APPLY 

I 

ORAGVV 

TH3 

I 

DRAGVV 

UT 

ft 

DRAGVV 

6 »Y/6  » 

I 

The  first  entry  In  a 4x0  aatrli  that  contains,  »her» 

/AXLE 

/( 

37)  APPLY" 

I 

EAVV 

• is  opt  1 aa 1 , 

NLORY 

I 

EAVV 

0a/0y  = da/dyl.  - caastaat 

Mhen  a is  neaopttaal. 

5 a/f  y = da/ dy 

I 

Total  vacwua  thrust  (rackat)  (LBS) 

/DYNA 

/( 

33)  APPLY 

I 

F VAC 

ARCIN 

ft 

F VAC 

IHPVLS 

ft 

F VAC 

nldav 

1 

F VAC 

STATEF 

ft 

F VAC 

TH2 

1 

F VAC 

DESCRIPTION 


storage 
“block LOC 


SUBROUTINE 

"Tubr  code" 


the  ••rib. 

( FT/SEC2  ) 


1 Vicgga  specific  inputs 


aiff/aT  * *•« 

d2Ieo/3TI  1 


I Thrust  option  flap. 

Jl  s 1:  Constant  thrust; 

Jl  = 2:  Input  taeuga  thrust; 

Jl  s 3 : Poacrcd  total  acceleration  Unit; 
Jl  = 1:  Air. breather  engine. 


Steering  vector  flag 

KODE  s 0:  Free  fall,  • = # - 0, 

RODE  s lr  Both  n and  # optlnal  ; 

KOOE  = 2:  • optlnal  and  # = 0, 

KODE  s 3:  • noneptiaal  and  A optlnal; 

KCQE  = 9:  Vertical  rise  or  pttchover; 

KODE  : 5:  i nonoptlaal  and  # s 0. 

Logical  flag  that  Indicates  to  the  OL  nodule  that 
the  Ql  iteration  is  converged. 


d2L/3«* 


See  syahel 


I See  syefcel 


/6L0BAL/< 

1 ) 

AL5 

I 

6R 

APPLY 

I 

GR 

BRANPT 

I 

GR 

COSTAB 

I 

GR 

COST  A 1 

I 

GR 

1NTRPT 

1 

GR 

OUTPUT 

I 

GR 

PDBCQL 

I 

GR 

0LT0S2 

I 

GR 

SALVE 

I 

GR 

STATEF 

I 

GR 

TH3 

I 

GR 

/DVNA 

/( 

15  > 

APPLY 

I 

ISP 

.ARC  IN 

0 

ISP 

INPULS 

0 

ISP 

/DVNA 

/( 

179  ) 

apply 

I 

ISPF 

INPULS 

0 

ISPF 

/DVNA 

/( 

180  ) 

APPLY 

I 

ISPFF 

INPULS 

0 

ISPFF 

/DVNA 

/l 

173  ) 

apply 

I 

Jl 

ARCIN 

0 

Jl 

CONTRL 

N 

Jl 

FORCES 

I 

Jl 

nplane 

I 

Jl 

STATEF 

I 

Jl 

THROTL 

A 

Jl 

/0VNA 

/( 

* 25) 

apply 

r 

KODE 

ARCIN 

0 

KODE 

CONTRL 

N 

KODE 

FORCES 

1 

KODE 

NLORV 

I 

KODE 

STATEF 

I 

KOOE 

/ CNTRL 

/( 

28  ) 

ALGCON 

I 

KONVER 

apply 

I 

KONVEfi 

ARCIN 

I 

KONVER 

C0H0N0 

0 

KONVER 

GROPE 

0 

KONVER 

NLDRV 

I 

KONVER 

OUTPUT 

I 

KONVER 

RKUTT1 

I 

KONVER 

/DVNA 

/( 

60  ) 

AL9 

I 

LIFT 

AL5 

1 

LIFT 

AL6 

I 

LIFT 

apply 

1 

LIFT 

CONTRL 

I 

LIFT 

ENVPRQ 

I 

LIFT 

OUTPUT 

I 

LIFT 

TH3 

I 

LIFT 

UT 

0 

LIFT 

/DVNA 

/( 

63  ) 

AL1 

I 

LI  FT  A 

AL9 

I 

L1FTA 

AL5 

I 

LIFTA 

AL6 

I 

LIFTA 

APPLY 

I 

LIFTA 

TH3 

I 

LIFTA 

UT 

0 

LIFTA 

/DVNA 

/( 

199  ) 

AL1 

I 

LIFTAA 

AL9 

I 

LI  FT  AA 

AL5 

I 

LIFTAA 

AL6 

I 

LIFTAA 

APPLY 

I 

LIFTAA 

TH3 

I 

LIFTAA 

UT 

0 

LIFTAA 

6 OCT  72  G.OIrNN 


FORTRAN 

SYMBOL 


WAT  H 
SYMBOL 


CODE 


DESCRIPTION 


LIFTN  dL/da  1 5#«  lyabol 


LiFiBA  a2L/3»d«  1 *••»»■*•* 


LIFT nn  d2L/da2  * S«« 


LIFTR  3L/3R  * Stt  tyabol 


LIFTS*  32L/3R3«  ' s,t  *»"b#l 


LIFTRK  a2L/8R3«  1 5t*  *»,b#l 


LIFTRR  d^L/dR^  * S««  lytkei 


LIFTV  0 L/dV  1 s*«  »»•*«* 


LIFTVA  d2L/dVdot  I S.«  syabe I 


LI  Alva  a2L/dV3a  1 5t* 


STORAGE 
BLOCK LOT 


/DYNA  /(  81) 


/DYNA  /(  85) 


/DYNA  /(  64) 


/DYNA  /(  62) 


/DYNA  /(  66) 


/DYNA  /(  83) 


/DYNA  /(  67) 


/DYNA  /(  61) 


/OVNA  /(  66) 


/DYNA  /(  82) 


SUBR 

CODE  VAR 

AL4 

I 

LIFTN 

AL5 

I 

LIFTN 

AL6 

I 

LIFTN 

APPLY 

I 

LIFTN 

TM3 

I 

LIFTN 

UT 

0 

LIFTN 

AL1 

I 

LIFTNA 

AL4 

I 

LIFTNA 

AL5 

I 

LIFTNA 

AL6 

1 

LIFTNA 

APPLY 

I 

LIFTNA 

TH3 

I 

LIFTNA 

UT 

0 

LIFTNA 

AL4 

1 

LIFTNN 

AL5 

I 

LIFTNN 

AL6 

I 

LIFTNN 

APPLY 

I 

LIFTNN 

TH3 

I 

LIFTNN 

UT 

0 

LIFTNN 

AL4 

I 

LIFTR 

AL5 

I 

LIFTR 

AL6 

I 

LIFTR 

APPLY 

I 

LIFTR 

TH3 

I 

LIFTR 

UT 

0 

LIFTR 

ALl 

1 

liftra 

AL4 

I 

liftra 

AL5 

I 

LIFTRA 

AL6 

I 

LIFTRA 

APPLY 

I 

LIFTRA 

TH3 

I 

LIFTRA 

UT 

0 

LIFTRA 

AL4 

I 

LIFTRN 

AL5 

1 

LIFTRN 

AL6 

I 

LIFTRN 

APPLY 

I 

LIFTRN 

TH3 

I 

LIFTRN 

UT 

0 

LIFTRN 

AL4 

1 

LIFTRR 

AL5 

I 

LIFTRR 

Al6 

I 

LIFTRR 

APPLY 

I 

LIFTRR 

TH3 

I 

LIFTRR 

UT  . 

0 

LIFTRR 

AL4 

I 

LIFTV 

AL5 

r 

LIFTV 

AL6 

i 

LIFTV 

APPLY 

i 

LIFTV 

TH3 

i 

LIFTV 

UT 

0 

LIFTV 

ALl 

I 

LIFTVA 

AL4 

I 

LIFTVA 

AL5 

I 

LIFTVA 

AL6 

1 

LIFTVA 

APPLY 

I 

LIFTVA 

TH3 

I 

LIFTVA 

UT 

0 

LIFTVA 

AL4 

I 

LI  FT VN 

AL5 

I 

LI  FT VN 

ALB 

I 

LI  FT  VN 

APPLY 

I 

LIFTVN 

T M3 

I 

LI  FT  VN 

UT 

0 

LIFTVN 

6 OCT  72  G. 01-44 


FORTRAN  HATH 

SVHBOL  SVHBOL 


Ectftc  fuel  contunptlon  of  jlrbreather 

code  DESCRIPTION 


storage  Subroutine  usage 

BLOCK LOG  SUBR  CODE VAR 


LIFTVR 

32L/3V3R 

l 

S • • tyabol 

/DVNA 

/( 

65  ) 

Am 

AL5 

I 

I 

LIFTVR 

LIFTVR 

AL6 

l 

LIFTVR 

APPLY 

I 

LIFTVR 

T H3 

I 

LIFTVR 

UT 

0 

LIFTVR 

LI  FT VV 

32L/3V2 

I 

Sae  -tyabol 

/DVNA 

n 

69) 

AL9 

AL5 

1 

I 

LIFTVV 

LIFTVV 

Al6 

1 

LIFTVV 

APPLY 

I 

LIFTVV 

TH3 

I 

LIFTVV 

UT 

0 

LIFTVV 

r 

* 

I 

Ran 

( G'S  ) 

/O 

/( 

97) 

ALA 

1 

R 

AL7 

I 

n 

AL8 

1 

N 

AL9 

I 

H 

apply 

1 

H 

BRANPT 

1 

H 

C05TAB 

] 

R 

COST  AI 

1 

H 

INTRPT 

1 

H 

NlDRV 

1 

H 

OUTPUT 

1 

H 

SALVE 

1 

H 

STATEF 

I 

H 

WRAP  UP 

I 

n 

PAR 

3P  /3R 

l 

/DVNA 

n 

18) 

APPLY 

1 

PAR 

• 

TH2 

I 

PAR 

PARR 

a2Pt/3R2 

1 

Sot  tyabol 

/DVNA 

/( 

22  ) 

apply 

TH2 

1 

I 

PARR 

PARR 

PG 

* 

i 

So*  tyabol 

/HATS 

/< 

551  ) 

ALH 

n 

PG 

9 

APPLY 

i 

PG 

ARC1N 

0 

PG 

CONTRL 

0 

PG 

PLG 

I 

Sot  tyabol 

/HATS 

/( 

570  ) 

APPLY 

1 

PLG 

ARC1N 

0 

PL6 

CONTRL 

0 

PLG 

plp 

V 1 

/HATS 

/t 

571  ) 

apply 

1 

PLP 

K 

ARC1N 

0 

PLP 

CONTRL 

0 

PLP 

PROD  1 

8( Sp/Sy  )/dy 

I 

A 2 «6s  aotrlt  that  contains  tha  total 

first 

/HATS 

/{ 

310  ) 

ALGCON 

1 

PR0D1 

portialt  of  tho  aatrli  DEPDEV  art  tha 

QL  state. 

ALGCON 

1 

PRODS 

APPLY 

1 

PR001 

APPLV 

I 

PR0D5  . 

PR0D5 

at  Sp/Sy  )/dy 

I 

A 2i69  aatrli  that  contains  tho  total 

first 

/HATS 

/( 

310) 

ALGCON 

1 

PR0D1 

partial*  of  tho  aatrli  DEPDEV  art  tho 

Du  state . 

ALGCON 

1 

PR005 

APPLV 

1 

PP.0D1 

APPLV 

1 

PR005 

PRO09 

J 

A 2tbH  aatrli  that  contains  8( Sp/S*  )/dX„, 

/HATS 

n 

502  ) 

ALGCON 

I 

PR0D9 

d(6p/6y)/BX,  and  a<8p/Sy>/8X* 

APPLV 

1 

PR0D9 

SFC 

1 

/DVNA 

n 

225  ) 

APPLV 

1 

SFC 

SFCH 

I 

Partial  of  SFC  art  b 

/DVNA 

/( 

227  ) 

APPLV 

1 

SFCH 

SFCHH 

I 

Second  partial  of  SFC  art  h 

/DVNA 

/i 

229  ) 

APPLV 

I 

SFCHH 

SFCV 

I 

Partial  of  SFC  art  V 

/OVNA 

/< 

226  ) 

APPLV 

I 

SFCV 

SFCVH 

I 

Second  partial  of  SFC  art  V and  h 

/DVNA 

n 

230  ) 

APPLV 

1 

SFCVH 

5FCVV 

I 

Second  partial  of  SFC  art  V 

/DVNA 

/( 

228  ) 

APPLV 

1 

SFCVV 

fc  OCT  72  G. 01-99 
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Purpose 


ARCEN  handles  the  interfacing  of  dynamic  quantities  between  the  present 
subarc  and  the  subsequent  subarc. 


r-/ 


ARCEN 


SUBROUTINE  ARCEN 


ARCEN 
ARCEN 

THIS  ROUTINE  HANDLES  INTERFACING  OF  OYNAWIC  QUANTI-  ARCEN 
TIES  BETWEEN  PRESENT  AND  SUBSEQUENT  ARCS.  ARCEN 

ARCEN 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DVNA 
OYNA 


LOGICAL  SWITCH,  I LOAD 

REAL  MACH  ISP,  ISPV,  ISPR,  ISPfl,  ISPT,  ISPVV,  1SPVR,  ISPVH, 
♦ISPVT,  ISPRR,  ISPRfA,  ISPRT,  ISPRft,  ISPMT,  ISPTT,  LIFT,  LIFTY, 
•LlFTR,  LIFTA,  LIFT V&,  LlFTYfi,  LIFTVA,  LlFTRR,  LIFTRA,  flUR,  lIFTAA, 
•IRATED,  ISPF,  ISPFF 
REAL i MACH  V MACHfi,  AACHVR,  AACHRR 
REAL  LIFTA,  LIFTVA,  LIFTRA,  LIFTAA,  LIFTAA 
COAAON  /DYNA/ 

.SINGAA.COSGAA,OAEG 
TAAP  , P A 
PARR  , RORR 
QYR  , QRR 


ISPT 


LIFTAA, DBR 
SINPSI ,COSP 
AKIN  ,COO 
XJv  ,XJR 
C0S2GA, CA 

caoaa  

ipow 


XCG 


, X ARC 
DYNli 
, ZCG 


• XX  TIME  SI NGAA 

•COSA  , DYNO 11 , OAEGAT 

• ROR  , CSR  , TEAPRR 

• QV  , QR  , Q V V 

•FVACT  , F YACYY , F VAC VR 

• ISPV  I SPR  1 SPA 

• ISPRA  , ISPRT  I SPAA 

•LIFTYV,LIFTYR, LIFTVA 
•DRAGYY,DRAGVR,DRAGVA 
•LIFTYA,LIFTRA, LIFTAA 
*W  SINPHI  COSPHI 

♦AUR  , XK6  , XKP 

•XC6AA  , ZCGA  ,ZCGAA 
•AACHRR, SIN2R0,C0S2R0 
•CWAA • , C AO  ,CAOA 

•ULFTYA,ULFTRR,ULFTfiA 
•CDOAA  , CL AAA  ,CLOA 
•SID  DELTAE , CDE 

• OB  , ULF  T , CULFT 

COAAON  /DYNA / 

•ATT  ,J1  ,J2 

♦1LOAO  ,FKA  ,FKAA 

•CLAA  , CLAA  ,CD 

•OYNl 99, DYN200, XACGV 

• X^CGRR, XACGRA,  XACGRA 

•DYN2 1 7 , I DAA  TA I RB 

• SFCY  SF CH  ,SFCVY  ISFCHH  jSFCVH 

REAL  AAGBV,  AU,  A,  LY,  LGAA,  LPSI,  lR,  LRHO,  LAU,  lh,  ltau,  NOA 

• . LHT 
COAAON  /D/ 

• X,  H.  XUH).  AAGBV;  ERR,  D9,  010,  CMO),  CSAYE(NO),  Y,  6AA,  P$I, 
•ALT , RHO  AU , A TAU,  HT,  LY,  LGAA,  LPSI,  LR,  LRHO,  LAU,  LA,  LTAU, 

• LHT,  D 1 09 , 0110,  &Y(90),  2SAYE(20>,  QT<20),  NP0INT(20>,  0ElT(  20 ) 
DIMENSION  N0A(26> 

EQUIVALENCE  (NOA,  V) 

COAPUTE  TRAJECTORY  TIAE  AT  WHICH  NEXT  ARC  BEGINS 
TSTART  = TSTART  ♦ TAU 
RETURN 
END 


J3  , X ACGA 
SWITCH, INQF 
COA  , COA ' 
XACGR  ,XACGA 


0AEGA2 

,R 

,6  , S I NA  , 

JUL21 

RO 

, cs 

TEAPR  , P AH 

OYNA 

CSRR 

, KOOE 

, AACH  Q 

DYNA 

F V AC 

, F VAC  V 

F V ACR  F YACA  , 

DYNA 

T 

, AACH V 

AACHR  ,ISP 

DYNA 

1SPVR 

, 1 SPYA 

, ISPYT  , ISPRR  , 

DYNA 

LIFT 

, LIFTY 

, LI FTR  , LIFTA  ' 

DVNA 

DRAG 

, OR  AGY 

ORAGR  , DR AGA  , 

DYNA 

ORAGAA 

, ALPHA 

, PH I , LIFTA  , 

DYNA 

DBRR 

GAAAAD 

, AE  , T AX 

DYNA 

SINRHO 

COSRHO 

SI NROR , COSROfi, 

DYNA 

CDOA 

, clo 

,FK  , XCGA  , 

DVNA 

XJVV 

, X J VR 

, X JRR  AACHYR 

OYNA 

CAA 

, CAA 

, CAAA  , CAAA 

OYNA 

ULFTV 

,ulftr 

,ULFTYY,ULFTYR, 

OYNA 

TSTART 

,6H 

, GRR  , LIFTAA, 

OYNA 

CT 

, CODAE 

SIDAE  , COO 

DYNA 

XJ 

, XACG 

, CALPHA, alaax  , 

DYNA 

tiaes 

, XACGAA 

, I RATED, FRATED 

DYNA 

DYNA 

FVACF 

, ULFTAA 

, 1 5PF  , ISPFF  , 

DVNA 

Cl 

,CLA 

,CLA  ,Claa  , 

OYNA 

COAA 

, COAA 

, CDAA  , 0YN19B, 

DYNA 

XACGVV 

, xacgvr 

, XACG VA, XACGV A, 

OYNA 

RORRR 

, 0YN2 1 H 

, DYN2 1 5 , 0YN21 6, 

DYNA 

TARBVV 

, TARBHH 

,TARBVH,SFC  , 

JUL21 

AUG09 

0 

D 

D 

D 

JUL21 

0 

0 

0 

ARCEN 

ARCEN 

ARCEN 

ARCEN 


TAU 

r 

t Subarc  d«r«tlot 

(SEC) 

/ 0 

/< 

98) 

ARCEN 

I 

TAU 

1 MARC 

n 

TAU 

NLORV 

i 

TAU 

OUTPUT 

I 

TAU 

STATE? 

I 

TAU 

tstart 

A Trajectory  tlua  at  uhtch  present  subarc 

coaaencid. 

/OYHA 

/( 

1 HI  ) 

ARCEN 

n 

TSTART 

ARCIN 

n 

TSTART 

5TATEF 

I 

TSTART 

trajim 

0 

TSTART 

I 
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SUBR0UTINE 

ARCIN 


Purpose 


ARCIN  handles  the  initialization  of  arc-dependent  flags  and  parameters. 


/ 


& 76 


ARCIN 


MAUii'  ■ 

<'U  tMt 
s Vt  iu  cut  ? 


T 1 HE 

At  ROD'YMAWtt 
I OAP  FLA6 


A N V 

x^APPUXED  LOAO^^  yeS 
ON  TH&  VfeHKie  >— 
At  AU  ? 


Eero  oui 
m-  plans 

CONTROL 

vaaioR 


/TfiiT 
MOME NT 
BALANCING 


^/xS  THIS  \y 
POWERED  FL16HT 


SET  BLEND 

factor  to 

UNITY 


TNiriAll*t  f.TEtK- 
IMG  vttroK  tiac.^ 
love,  TO  S':  .* 

NONOpTXMAt  and 
<s> 


<C  IMOUE 


RETURN 


■RE  T URtJ 


_\ 

NO 

l 

SET  UP  FOR 

state  xwcqaAu- 
TV  tf  ONE  t S 

PRESENT 
} 

! 

f ReTURN 

V J 

INITIALIZE 

COSIN t Of 
OPTIMAL 
BANK  ANGLE 


7<r 


mm 


SUBROUTINE  ARCI N 

THIS  ROUTINE  HANDLES  THE  INITIALIZATION  OF  ARCADE* 
PENDENT  FLAGS  AND  PARAMETERS. 

DIMENSION  XX<1> 

REAL  MAGBV,  MU,  M,  LV,  LGAM,  LPSI,  LR,  LRHO,  LMU,  LM,  LTAU,  NOM 

Common  /o/ 

•X,  H.  X I(  9 >,  MA6B  V ERR,  D9,  DIO,  C€  MO  >,  CSAVE(90>,  V,  6AM,  PSI, 
•ALT,AH0,MU,M,  TAU,  HT,  LV,  LGAM,  LPSI,  LR,  LRHO,  LMU,  LM,  LTAU, 
•LHT  0109,  0110,  &V(90>,  ZSAVE(iO),  QT(2o5,  NP0INT(26>,  6ELT<  26 ) 
DIMENSION  NOM< 26) 

EQUIVALENCE  (NOM,  V) 

COMMON  /CNTRL/ 

• NU  , ITER  , I TAPA  ,ITAP0  ,JMIN  ,JMAX  , LINES  ,KPT  ,MOM 

• KARD  ,IN0X(9)  ,NEUNOM,CNTOU,RHOC  ,RHOP  ,NPTS  , MINES  , 

*KP AGE  , NNP  ' ,NUP  ,IARC  , TR5TR  ,IMAX  ,KTIHE  ,KONVER,NOPRNT , 

• INBDRV,NUPAGE, IVARV( 20  ),  NN,  NOVARY,  PLASt,  ZLAST,  K0DE5 
LOGICAL  1 NBDRY  NEUNOM,  KONVER,  NOPANT,  NuPAGE 
LOGICAL  SNITCH,  I LOAD 

REAL  MACH,  ISP,  1SPV,  ISPR,  1 SPM,  ISPT,  ISPVV,  ISPVR.  ISPVM, 
•ISPVT,  1S0RR,  ISPRM,  ISPRT,  ISPM*.  ISPAt,  ISPtT,  Lift,  L1FT$, 

• LIFTR.  LIFTA,  LIFTV&,  Li  FT VR,  LlFtVA,  Ll^TRR,  LlFTRA,  MUR,  lIfTAA, 
•IRATED,  I SPF,  ISPFF 

REAL  MACHV,  MACHR,  MACHVR , MACHRR 

REAL  LIFTM,  LIFTVM,  LIFTRM,  LIFTMM,  LIFTMA 

COMMON  /DV&A/ 

•XX  ,TIME  ,SINGAM,C0S6AM, OMEGA  0MEGA2, R ,G  ,$INA  , 

•cosa  ,ovnoii,ome6at!tamp  ,pa  >0  ,cs  !tempr  ,PAR  ' 

• ROR  , CSR  TEflPRR  PARR  RORR  ,CSRR  ,K00E  MACH  ,Q  ' 

•QV  ,QR  , Q V V , 0 VR  , QRR  ,FVAC  1FVACV  'FVACR  ,FVACM  , 

♦FVACT  , FVACVV,FVACVR,F  VACRR, FVACT T, T ,RACHV  >ACHfi  ,I$P 

• ISPV  , I SPR  , I SPM  :iSPT  ,ISPVV  , I SP VR  , ISPVM  'iSPVT  ,ISPRR  , 

•ISPRM  , ISPRT  , I SPMR  'ISPMT  , ISPTT  , LIFT  ,LlFTV  !lIFTR  , LIFTA  , 

•LIFTVV, L IFTV8,LlFTVA,LlFTRR, LI FTRA, DR A6  ,ORAGV  , DRAGR  , OR'AGA  ' 

• OR AG VV, OR AG VR, DRAG V A, Oil AGRR, OR AGRA, DR AG A A, ALPHA  ,PHI  , LIFTM  , 

•LIFTVM,LIFTRM, LIFTRM, LIFTMA, OBR  , DBRR  , GAMMAO, AE  ,TAX  , 


•N  ,SINPHI,COSPHI,S1NPSI,COSPSI,SINRHO,COSRHO,S1NROR,COSROR, 

•MUR  , XKG  ,XKP  AKIN  ,C00  ,CDOM  , ClO  ,FK  ,XCGM  , 
•XCGMM  , ZCGM  ,ZCGMM  ,XJV  ,XJR  ,XJVV  ,XJVR  ,XJRR  , MACHVR, 

•MACHRR, S1N2R0,C0S2R0,C0S2GM, CM  ,CMA  ,CMM  ,CMAA  ,CMMM  , 

•CMAM  , CMO  ,CMOM  , CMOMM  , CMAMM  ,ULFTV  ,ULFTR  ,ulftvv,ulftvr, 

*ulftva,ulftrr,ulftra,ipom  ,XARC  ,TSTART,GH  ,grr  ,LIFTAA, 

•CDOMM  CLAMM  ,CLOM  ,CLOMM  ,0YN199,CT  , CODAE  ,S1DAE  rcoo  , 

•SID  ,DELTAE,COE  xcg  ,zcg  ,xj  ,xmcg  CALPHAALMAX  , 
•OB  ,ULFT  ,CULFT  ,ULFTA  ,TSTAGE, TIMES  , XMCGAA, I RATED, FfiATEO 

COMMON  /OYNA/ 

♦MTT  ,J1  ,J2  ,J3  ,XMCGA  ,FVACF  ,ULFTAA,ISPF  , ISPFF  , 

•ILOAD  , fxm  ,fkmm  ;$witch,inqf  ,cl  ,cla  ,clm  ,CLAA  , 

•CLMM  , CLAM  , CO  ,COA  , COM  ,COAA  ,CDMM  ,COAM  ,0VN196, 

•0VN199, DYN200, XMCGV  ,XMCGR  ,XMCGM  , XMCGVV, XMC6VR, XHCGVM, XMC6VA, 

♦ XMC6RR, XMCGRM, XMCGRA, XMCGMM, XMCGMA, RORRR  , 0YN2 19 , 0YN215 , 0YN216, 

• 0YN21 7, I DAM  TA1RB  , TA I RBV, TAI RBH, TARB VV, T AfiBHH, TARBVH, SFC 

•SFC V , SFCH  ;SFCVV  , SFCHH  ,SFCVH 

COMMON/ARCOAT/ 


•SREF 

,EJ 

,XI$P 

,tmult 

, OTNC 

,OTP  I 

ARCOAT 

• IATM 

, I MODE 

'JAER 

, JPRO 

, Qmax 

, GRAX 

ARCOAT 

•XLMAX 

HOMAX 

, GMOOT 

,alfmax 

, PHMAI 

,MAEA 

ARCOAT 

•MAEB 

,MA£C 

,MAEO 

, MAEE 

,MAEF 

, MAE6 

ARCOAT 

•MT 

>I$P 

,MXC6 

, MZC6 

,MMOA 

MHDB 

ARCOAT 

•MOB 

, XC6R 

, ZCGR 

\ XE 

,11 

XT 

ARCOAT- 

•OREF 

DIMENSION 

, MCNO 
ARCOAt 90  ) 

, RHOB 

,QMULT 

, REMAX 

,FRATE 

ARCOAT 

ARCOAT 

EQUIVALENCE!  SREF  ARCDA 1 
DIMENSION  PROOK  2,  69) 
COMMON  /MATS/ 


ARCOAT 

MATS 

MATS 


•PI 

,P2 

,P3 

, XX 1 

, XK2 

, XX3 

, XK  IT 

, XK2T 

, XK3T  , 

MATS 

• XX 10 

, XK 20 

, XX30 

. XK  1 A 

, XK2A 

,XK3A 

, VDA 

, GOA 

, pda  , 

HATS 

• XM19 

, XM20 

, XM2  1 

'XM22 

. XK  ITT 

. XK2TT 

;XK3TT 

, XK 1 TO 

XK2T0  , 

MATS 

•XK3T0  , XK 1TA 

. XK2T A 

. XK3TA 

. XK 1 00  , XK2DD 

XK300 

XK  1 DA 

, XK20A  , 

MATS 

•XK30A 

, XX 1 AA 

, XX2AA  , XK3AA 

,XM9l 

, XMM2 

,XM93 

,XR*9 

MATS 

• XXIV 

,XK2V 

, XK3V 

, XK  1G 

, XK2G 

, XK 36 

* XX1P 

, XK2P 

,XK3P  , 

MATS 

• XX 1R 

, XX2R 

XK3R 

:xkio 

, XK20 

, XK30 

, XK  1 U 

' XK2U 

,XK3U  , 

MATS 

• XX 1M 

, XK2M 

, XK3M 

, XK  1 Z 

, XK2Z 

.XK3Z 

XK  1 VT 

, XK2 VT 

XK3  VT  , 

MATS 

•XX1VD  , XX2V0 

XK  3 YD  , XX 1 VA 

.XK2VA  .XK3VA 

XX1G7 

,XK26T 

,XX3GT  , 

MATS 

•XK1G0  , XK2G0 

, XK3G0  , XX IGA 

, XK2GA 

, XK3GA 

XK1PT 

\ XK2PT 

, XK3PT 

MATS 

6 OCT  72  6 .01-99 


I \ 


♦ XK1PD  , XK 2PD  , XK  3PD  ,XK1PA 

♦ XK1R0  , XK  2 RD  , XK  3RD  ,XK1RA 

♦ XKIOO  , XK20D  , XK  30D  ,XKI0A 
♦XMUO  ,XK2UD  ,XK3UD  ,XKIUA 

COnnON  /oats/ 


♦XK1NO  ,XK2flD  ,XK3RD  ,XK1RA  ,XK2«A  .XK3RA  XK  1 ZT  XK22T  XX  3ZT  , 

* XK 1 ZD  ,XX2Z0  , XK  3ZD  ,XX1ZA  ,XX22A  ,XX3ZA  XX1VV  ,XX2VV  ,XX3VV  ' 

* X K 1 G V ,XK2GV  ,XK3GV  ,XK1  Pv  ,XX2PV  XX3P  V ,XX1RV  ,XK2RV  ,XXjRV  , 

• XKiOV  , XK  20  V , XK  30 V ,XK1UV  ,XK2UV  ,XK3UV  ,XK1AV  .XK2AV  ,XK3RV  , 

* XK  1 Z V ,XK2ZV  , XX  3Z V ,XK1GG  ,XK266  'XK3G6  ^KlPG  ;XK2PG  ,X*3P6  , 

♦XK 1 RG  , X X2RG  ,XX3RG  ,XK10G  ,XK20G  . XX 306  XX1UG  ,XK2U6  , XK3UG  , 

♦ XKlnG  ,XK2RG  , XX3AG  ,XK1ZG  ,XX2ZG  ,XX3ZS  ,XX1PP  XX2PP  ,XX3PP  , 

♦mftP  ,XK2RP  ,XK3RP  ,XK10P  ,XK20P  ,*K3CP  ,XK1UP  ,XK2UP  ,XK30P  , 

• XXlflP  t XX 2flP  ,XK3f«»P  ,XX1ZP  XX2ZP  ,XX3ZP  ,XXlfift  ,XX2PR  ,XX3RA  , 

* XK  1 OR  ,XK20R  ,XK30R  ,XX1UR  XX  2UR  ,XX3uR  ,XX1AR  ,XX2RR  ,XK3P»R  . 

•XK1ZR  , XK2ZR  ,XK3Zfi  ,XK100  ,XK200  ,XX300  'XXIUO  ,XX2U0  ,XK3U0  , 

•XKlfiO  ,XK2Afl  ,XX3R0  ,XX1Z0  ,XK2Z0  XX3Z0  .XX1UU  ,XK2UU  XK3UU  , 

•XKinu  , XK  2RU  ,XK3RU  , XK  \ Zu  , XK22U  .XK3ZU  ,XR\m«  .XK2RR  ,XK3Rrt  , 

• XK 1 ZR  ,XK2ZR  ,XK3ZR  ,XK1ZZ  ,XK2ZZ  ,XX3 ZZ  #XKPI 1 1, XKPI21  XKPJ31 , 

•XKPI 12, XKP 1 22, XKPI 32, XKPI 13, XKPI 23, XKPI 33, PA 1 ,PA2 


♦XK1GV  ,XK2GV  ,XK3GV  ,XK1PV 


* XK 1 Z V ,XK2 U , XK  3Z V / XK 1G6 
♦XK  1 RG  , XK2RG  , XK3RG  ,XK10G 

♦ XKlnG  ,XK2RG  ,XK3RG  ,XK1ZG 
♦XKlftP  XK2RP  ,XK3RP  ,XKiOP 

♦ XXlflP  XX  2rtP  ,XX3rtP  ,XX1ZP 

* XK 1 OR  , XX 20R  , XX30R  ,XX1UR 

♦ XX1ZR  .XK2ZR  , XX 3ZR  .XX100 
•XKino  ,xx2*fl  ,xk3r0  ,xxizo 
♦XKinU  ,XK2RU  ,XK3RU  , xk  \ zu 

• xxizr  ,XK2zn  ,xx3ZR  ,xxizz 
♦XKPI 12, XKPI 22, XKPI 32, XKPI 13 

COflRON  /WATS/ 


XK2PA  fXK3PA  ,XK1RT  XK2RT  ,XK3RT 
XK2RA  ,XK3RA  ,XK10T  ,XK20T  ,XK30T 
XK20A  XK 30 A .XK1UT  ,XX2UT  ,XK3UT 
XK2UA  , XK30A  , XK \RT  ,XK2nT  ,XK3WT 


♦OPOV<  3,  8),  OEPDEVI 2,  8J,  0PDU3,  31,  PR005(3,  6A),  PR009(2,  ZH ) 

corwom  / wftts/  # 


♦PV  P6  ,PP  ,PR 

♦POV  PGG  , PPG  , PRS 

♦FOR  ,POO  .PLG  .PLP 
EQU 1 V ALENCEt  PnOD 1 , PRODS  > 
GCTtWOM/ global/ 


♦GR  ,ER  tOWSZ  , XlAWRP  VWURF  ,LU«  ,T0  .EPSlON  INNER  , 
♦ITRWAX. JJOPt 6)  ,IFATAL.NARC  NdR AM  #«FARC  ,ID(H)  #KTAB(20), 

♦ I T AB( 20  ) Sl6.nAXTAB.&W,PSIftF  IPFlGI, IPFl62#IPFl63# IPFLGi. 
♦INEOFU20),  ITP50.  kSOL.  I MARK , K6lO0l(  1 > 

DATA  XRCIN  / 6HARC I N /.  RAO/57 .19^7795130623/ 

SAVE  THOSE  flu ANT  I T f ES  THAT  ARE  NOT  INITIALIZED 


WTTS  s HTT 
SAV2  s ALPHA 
S AV3  f TSTART 
SAVH  - DELTAE 
SAV5  * TSTA6E 


PS  = 0. 

PLG  * 0. 

PLP  = 0. 

00  101  I = 13,  218 
101  XX( n = 0. 


CLEAR  THOSE  QUANT ITI ES  THAT  SHOULD  BE. 


IDAH  s-l 
WTT  = HTTS 
ALPHA  = 5AV2 
TSTART  = SAV3 
OELTAE  = SAV^ 
TSTAGE  = SAV5 

X ARC  - ! ARC 


RESTORE  QUANTITIES  SAVED  ABOVE 


STORE  THE  ARC  NO.  IN  FLOATING  PT. 


CHECK  FOR  AIRBREATHER 
I F( J PRO  .NE.  2)  GO  TO  1011 

AIRBREATHER  INITIALIZATION 
CALL  INBVPD(WNOB) 

Jl  = M 

IPON  9 | 

IF(nO0  . 6T . 0)  I PON  = 2 
GO  TO  109 

WAS  A NEN  THRUST  TABLE  NO.  INPUT  FOR  THIS  ARC , 


102  IF(p»TT  .LE.  ,0)  60  TO  107 

VES.  CHECK  THE  INITIAL  VAlUE  IN  THE  TABLE. 
CALL  5PLINEW1TT  0..  FVAC.  F V ACT . FVACTT > 

IFIFVAC)  103.  lOM.  105 

LESS  THAN  ZERO.  PRINT  WARNING 


RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

RATS 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

JUL21 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

JUL21 

JUL21  1011- 


139  . 

1011 

IF{RT 

.LT.  0 ) 60  TO  102 

JUL21 

i so: 

C 

VES.  REINITIALIZE 

INTERNAL  IHRuST  TABLE  NO.  AND 

ARCIN 

1 M 1 . 

C 

IGNITION  TIRE. 

ARCIN 

1 m2  . 

ATT  = 

RT 

ARCIN 

1 m3  . 

TSTAGE 

= TSTART 

ARCIN 

1 MM  . 

C 

IS  THERE  A POSITIVE 

THRUST  TABLE  NO. 

ARCIN 

ARCIN  TO  7 — 

ARCIN 

ARCIN 

ARCIN  10M— 1 1 03- 
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215. 

216. 
217. 
216. 


6 OCT  72  G. 01-99 


150.  103  CALL  ERROR! XRCIN,  1,  DUMMY) 

151 . 60  TO  107 

152 . C EXACTLY  ZERO. 


153. 

159. 


178. 

179. 
160. 


192. 

193. 
199. 

195. 

196. 

197. 

198. 

199. 

200. 


201. 

202. 

203. 


209. 

205. 


SEE  IF  CONSTANT. 


ARC  1 N 
ARC  IN 
ARCIN 


109 


IF< ABSiFVACT)  4 AB$( F VACTT ) .EQ.  0.)  60  TO  103 

SET  FLAGS  ANO  PARAMETERS  FOR  POWERED  FL16NT 


ARCIN 

ARCIN 


155.  105  1P0U  = 1 ARCIN 

156.  J1  * 2 ARCIN 

157.  At  = TMULT*EJ  ARCIN 

156.  C TEST  FOR  BASE  DRAG  TABLE.  ARCIN 

159.  IF1NDB  .GT.  0)  IPOW  = 2 ARCIN 

160.  C TEST  FOR  ISP  LOSSES.  ARCIN 

161.  IFiMlSP  .LE.  0 .OR.  FRATE  .GT.  0.1  GO  TO  106  ARCIN 

162.  C ISP  LOSSES  INPUT  BUT  NOT  FRATE.  PRINT  WARNING  ANO  ARCIN 

163.  C USE  INITIAL  VALUE  OF  FVAC.  ARCIN 

169.  CALL  ERROR! XRCIN,  2,  DUMMY ) ARCIN 

165.  FRATE  = FVAC  ARCIN 

166.  C SCALE  FRATE  AND  ISP  FOR  PERCENTAGES  ANO  INITIALIZE  ARCIN 

167.  C NET  THRUST  ARCIN 


166.  106  FRATED  = FRATE/ 100. ♦TNULT 

169.  1RATE0  = XISP/100. 

170.  T s FVAC 

171.  GO  TO  109 

172.  C SEE  IF  FRATE  WAS  INPUT 


ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 


1 73.  107  IF!  FRATE  .LE.  0.)  GO  TO  106  ARCIN 

179.  C YES.  USE  FRATE  FOR  VACUUM  THRUST  ARCIN 

175.  FVAC  = TflULT*FRAT£  ARCIN 

176.  GO  TO  105  ARCIN 

177.  C SET  FLAGS  ANO  PARAMETERS  FOR  UNPOWERSP  FLIGHT. ARCIN 


106 


J1  = 1 
ISP  = 1. 


CHECK  FOR  AERODYNAMIC  LOAD  ON  THE  VEHICLE. 


ARCIN 

ARCIN 

ARCIN 


181.  109  IFiSREF  .GT.  0.  .AND.  1 ATM  .LT.  21  1 LOAD  = .TRUE. 

182.  C SEE  IF  THERE  ARE  ANY  APPLIED  LOAOS  ON  THE  VEHICLE 

183.  C AT  ALL 

189.  IFdPOW  .NE.  0 .OR.  I LOAD ) 60  TO  110 

185.  C NO  APPLIED  LOADS.  ZERO  OUT  IN  PLANE  CONTROL  ANO 

166.  C RETURN 

187.  T = 0. 

168.  OELTAE  = 0. 

189.  ALPHA  s 0. 

190.  RETURN 

191 . C 


initialize  bivariate  aero  oata  if  called  for 


ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN' 

ARCIN 

ARCIN 

ARCIN 


110  IFdLOAD  .ANO.  JAER  .EQ.  21  CALL  INBVAO 

SET  ENGINE  DEFLECTION  FLAG  FOR  ZERO  ENGINE  OEFLEC- 
T ION 


J2  * 1 
1F1JAER  .NE. 


TEST  FOR  MOMENT  BALANCE 
3 > GO  TO  1103 
YES.  MOMENT  BALANCING 


IFdPOW)  1101,  1101,  1102 

UNPOwERED.  SET  BLEND  FACTOR  TO  1. 


ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 


1101 


XJ  = 1. 

GO  TO  1103 


POWERED.  SET  FlA6  FOR NONZERO  OEFlECTION 


ARCIN 

ARCIN 

ARCIN 


1102  J2  c 2 


SET  STEERING  FLA6S  AMD  PARAMETERS 


ARCIN 

ARCJN 


206.  1103  KODE  = 5 

207.  C CONVERT  ALPHA  LIMIT  TO  RADIANS 

208.  ALMAX  = ALFMAX/RAO 

209.  IFdMOOE  .LT.  9)  GO  TO  111 

210.  C GRAVITY  TURN 

211.  COSPHI  = 1. 

212.  J3  = 2 

213.  IF  ( INODE  .LT.  5 > J3  * 6 

219.  RETURN 


AftllN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 

ARCIN 


111  I F C INODE 


J3  s 1 
KODE  = 9 


.LT.  3)  60  TO  112 

VERTICAL  RISE  OR  P1TCH0VCR 


ARCIN 

ARCIN 

ARCIN 

ARCIN 


T5F 


10TM 


106—1 


m=r 


105- 


109H 


110—1 


1103 

1101  — 1 1102—v 


1103H 


111-1 


TTTn 


j 
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fortran 

SYMBOL 


n AT  H 
SYMBOL 


CODE 


DESCRIPTION 


AC 

A _ 

0 

Total  nozzle  etlt  iraa 

(FT*  ) 

/OYNA  /( 

69) 

APPLY 

| 

AE 

till 

ARC  1 N 

0 

AE 

I flPULS 

I 

AE 

nldrv 

1 

AE 

TH2 

I 

AE 

ALFHAX 

a 

1 

Waal aua  angle  of  attack 

( OEG) 

/ ARCDAT/( 

16) 

ARCIN 

1 

ALFHAX 

WAX 

NPLANE 

1 

ALFHAX 

ALWAX 

Ot 

0 

Wagnttuda  of  angle  of  attack  constarlnt 

( RAOS > 

/DYNA  /< 

162  ) 

ARCIN 

0 

ALHAX 

••I 

NPLANE 

I 

ALHAX 

ALPHA 

a 

n 

Anglo  of  attack 

(RAD) 

/DYNA  /( 

79) 

AEROCO 

1 

ALPHA 

ALGCON 

a 

ALPHA 

AL2 

I 

ALPHA 

ARCIN 

N. 

ALPHA 

CONTRL 

n 

ALPHA 

ENYPRO 

l 

ALPHA 

WO  HE  CO 

1 

ALPHA 

NPLANE 

1 

ALPHA 

OUTPUT 

1 

ALPHA 

' 

TRAJ1N 

0 

ALPHA 

UT 

i 

ALPHA 

WRAP UP 

i 

ALPHA 

COSPHI 

cot# 

0 

Saa  syebol 

/DYNA  /( 

93) 

AL1 

i 

COSPHI 

ALA 

i 

COSPHI 

APPLY 

i 

COSPHI 

ARCIN 

0 

COSPHI 

CONTRL 

H 

COSPHI 

- 

- 

....  _ . - - 

- 

* - 

. - . 

OUTPUT 

I 

COSPHI 

deltac 

$ _ 

M 

Engine  deflection 

(RAOS) 

/DYNA  /( 

155  ) 

ALGCON 

n 

deltae 

*E 

ARCIN 

a 

deltae 

CONTRL 

a 

deltae 

DL1 

I 

DELTAE 

OUTPUT 

I 

oeltae 

TRAJIN 

0 

DELTAE 

UT 

I 

deltae 

EJ 

A 

I 

Nozzle  eilt  area 

(FT2) 

/ ARCOAT/( 

2) 

ARCIN 

I 

EJ 

frate 

« 

Input  rated  vacua*  thrust  per  angina 

(LBS) 

/ARCOAT/l 

92) 

ARCIN 

w 

FRATE 

frateo 

0 

IS  of  the  aaxlnu*  rocket  vac«u*  thrust 

( LftS  > 

/DYNA  /( 

171  ) 

ARCIN 

0 

FRATEO 

1RPULS 

frated 

F VAC 

n 

Total  vacua*  thrust  (rocket) 

( LBS  > 

/DYNA  /( 

33) 

APPLY 

FYAC 

ARCIN 

a 

F VAC 

1RPULS 

n 

FYAC 

NLDRV 

FYAC 

statef 

a 

FYAC 

TH2 

FYAC 

FVACT 

i 

Not  used. 

/DYNA  /( 

37) 

ARCIN 

FVACT 

STATEF 

A 

FVACT 

TH2 

FVACT 

FVACTT 

1 

Net  used. 

/DYNA  /( 

91  > 

ARON 

FYACTT 

STATEF 

a 

fvactt 

TH2 

FYACTT 

GArt 

> 

i 

Relative  flight  path  angle. 

(RAO) 

/0  /( 

92) 

ARCIN 

6AH 

ENYPRO 

GAN 

OUTPUT 

GAM 

5TATEF 

GAH 

WRAP UP 

GAN 

GAHWAD 

0 

Pitch  rote 

(RAO/SEC) 

/OVNA  /( 

68) 

AL9 

GAaaAO 

ARCIN 

0 

GAHHAD 

CONTRL 

GAaaAO 

NLDRV 

GAaaAD 

GHOOT 

i 

Pitch  rate 

(0E6/SECI 

/AACUATM 

15) 

ARCIN 

i 

GaoOT 

6 OCT  72  G. 01-99 


U»C 

1 l 

/cntrl  /( 

2*»> 

ARCIN 

1 

JARC 

BCOidO 

M 

i ARC 

ftWORY 

M 

I ARC 

SRAttPT 

1 

1 ARC 

CHEC* 

M 

X A&C 

COST  AD 

I 

I A3C 

COST  AI 

1 

l ARC 

ENOPT 

l 

IARC 

FORCES 

I 

IARC 

INARC 

fl 

I APC 

intrpt 

I 

IARC 

HA61C 

R 

1 ARC 

MARCH 

1 

1 A?.C 

qltosz 

I 

HOC 

salve 

M 

I ARC 

WPAPUP 

M 

IARC 

I ATM 

I 

Atnoaphere  option  flag 

/ARCDAT/C 

7 I 

ARCIC 

1 

I AT  M 

MLORf 

l 

l*rn 

OUTPUT 

l 

I ATP, 

STATEF 

1 

I ATM 

I DAM 

0 

Optional  at no  spheric  calculations  flag. 

/DVNA  n 

216  ) 

ARC7M 

0 

1 DAM 

I OAM  £ .1:  Coopute  33pa/dft3; 

error 

1 

IBAM 

mplane 

0 

1 Dam 

I0AM  = 0:  No  optional  c a 1 £ u 1 at  1 ens ; 

STATEF 

t 

I 0 AM 

I OAM  = l:  Coopute  d3p#/dR3,  pi#  80a/3R(  etc. 

WRAP UP 

0 

lOAf- 

I LOAD 

M 

Laglcal  flag  that  Is  true  If  there  Is  any 

/OVNA  /( 

181  > 

ARCIN 

M 

1L0AD 

eeradyneolr  /oaf  on  the  vehicle. 

contrl 

I 

U04D 

NPLAfeE 

1 

I LO  A.0 

- 

UT 

1 

I LOAD 

1MODE 

S 

Control  node  optlee  flag 

/ ARCOAT / ( 

8) 

ARCIN 

1 

I MODE 

CONTRL 

1 

IH30E 

NPLANE 

] 

1 MODE 

IKEQPL 

( 

A 20  nor d array  that  contains  the  code  nunber  of 

/ GLQSAL/i 

721 

ARC!  it 

1 

IAEBFl 

the  stale  variables  Inequality  constraint  that 
applies  on  each  tubtre,  ft  taro  entry  indicates 
that  po  SVIC  applies. 


JNOF 

M 

Stole  variable 

Inequality  constraint  flog. 

/DVNA 

/f 

185  ) 

ARCIN 

M 

UJCF 

1AJ0F  = C: 

No  5 V l C In  effect; 

•PLANE 

M 

I»8F 

IN8F  = 1 : 

Oynanlc  pressure  1C  In  effect; 

I«QF  = fl; 

Heating  rate  SVIC  In  effect; 

1NBF  = f: 

Reynelds  nunber  SVIC  in  effect. 

IPOtt 

« 

/OYNA 

/( 

13$) 

ARC  J R 

M 

I?D« 

IPOW  = 0: 

No  thrust  and  no  base  drag 

FORCES 

I 

IPOW 

IPOW  = 1: 

Thrust,  but  n#  base  drag 

•PLANE 

1 

IPOW 

IPOW  = 2: 

Thrust  and  base  drag 

STATEF 

I 

IPOW 

THROTL  1 IPO** 


!***«  0 IS  #1  the  saiiagi  rate#  l*p  /crrci  /&*»*  n WO)  ARCIN  0 IftftUQ 

5F  <5CCSI  IflPULS  I JfUT£D 

ISP  I 0 Vacuus  specific  Ippulse  tSECS)  /DVKA  /<  AS)  APPLY  I JSP 

3 AR  C I W C It? 

MPULS  0 15? 

1 Aeredypas)  c nodal  option  flag  /AB  CDAT/t  $ ) AEROCD  1 JAcR 


ARCItt  I J AES 
OUTPUT  1 JAER 
STATEr  I JAER 
UT  I JAER 


JFRO 

1 

Propulsion  nodal  notion  flea 

/ARCOAT/1 

10) 

ARCIN 

1 

JPRO 

1MPULS 

I 

jpao 

Jl 

0 

Thrust  optlo 

n flag. 

/OVNA  /( 

173) 

APPLY 

1 

Jl 

Jl  = 1: 

Conatant  thrust; 

ARCIN 

0 

Ji 

Jl  = 2: 

Input  vicuus  thrust; 

CONTRL 

M 

ji 

Jl  = 3: 

Ponersd  total  acceleration  Unit; 

FORCES 

1 

ji 

Jl  = A: 

Air-breather  engine. 

APlA^E 

I 

ji 

STATEF 

1 

ji 

ThROTL 

M 

ji 
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FORTRAN 

MATH 

DESCRIPTION 

_ , STORAGE  , , 

SUBROUTINE  USAGE 

SYMBOL 

SYMBOL 

CODE 

Bloch  ioc 

SUBR  CODE  VAR 

J2 

0 

Engine  deflection  option  flag* 

J2  = l:  Constant  engine  deflection) 
J2  = 2:  Moaent  balancing. 

/DYNA  /(  17M) 

ARCIN  0 J2 
CONTRL  I J2 
NPLANE  1 J2 

J3 

0 

Angle  of  attack  option  flag. 

J3  = 1:  Opttnal  angle  of  attacki 
J3  = 2:  Constant  angle  of  attack) 
J 3 = 3:  Untriaaed  lift  Halt; 

/DYNA  /(  ITS) 

ARCIN  0 33 

CONTRL  M J3 
NPLANE  H J3 
OUTPUT  I J3 

J3 
J 3 
J 3 
J 3 
J 3 
J 3 


M:  Vertical  rise  or  pitchever) 

5 : Unpoaer ed  total  accaltrotloa  Halt; 
6:  Gravity  turn) 

7:  Dynealc  priiturt  constraint; 

Hasting  rate  constraint; 


- 6:  Heating 
s *:  Reynolds  nuaber  constraint. 


RODE 

0 

Stearing  vector  flag 

/DYNA 

/( 

2$  ) 

APPLY 

1 

KODE* 

KOBE  = 0:  Fret  fall,  m - 4 

= 0, 

ARCIN 

0 

KODE 

KODE  = 1:  Both  a and  A opt 

iaal  ) 

CONTRL 

N 

KODE 

RODE  = 2:  « optlaal  and  4 ■ 

6 0; 

FORCES 

1 

KODE 

KODE  = 3:  • nonoptiaal  and 

# opf 1 ae 1; 

nldrv 

I 

KODE 

KODE  = A:  Vertical  rise  or 

p 1 tchover  t 

STATEF 

I 

KOBE 

KODE  = 5:  • nonoptiaal  and 

d = 0 . 

KONVER 

1 

Logical  flag  that  Indicates  to 

the  QL  nodule  that 

/CNTRL 

/( 

28) 

AL6C0N 

I 

KONVER 

the  QL  iteration  is  convsrgtd. 

APPLY 

1 

KONVER 

ARCIN 

1 

KONVER 

CO  HO  MO 

0 

KONVER 

GROPE 

0 

KONVER 

NLDRV 

1 

KONVER 

OUTPUT  1 

KONVER 

RKUTT1 

I 

KONVER 

LGAM 

X 

1 

/O 

/( 

101) 

ALl 

I 

LGAM 

* 

ARCIN 

I 

LGAM 

CONTRL 

1 

LGAM 

NLDRV 

I 

LGAM 

OUTPUT 

I 

LGAM 

WRAPUP 

I 

LGAM 

LPS1 

\ 

I 

Relative  atlauth  angle  costate 

/D 

/( 

102) 

ALl 

1 

LPSI 

ARCIN 

I 

LPSI 

CONTRL 

I 

LPSI 

NLDRV 

I 

LPSI 

OUTPUT 

I 

LPSI 

WRAPUP 

I 

LPSI 

MDB 

I 

Curve  nuaber  - base  drag  tabta 

/ ARCQAT/t 

31) 

ARCIN 

I 

MDB 

STATEF 

I 

MDB 

Ml  SP 

1 

/ ARCDAT /( 

26) 

ARCIN 

1 

Ml  SP 

IMPULS 

I 

MISP 

NT 

I 

Car  ve  nuaber  -thrust  table 

/ ARCDAT/< 

25) 

ARCIN 

I 

MT 

NTT 

N 

Teble  nuaber  for  tebulotcd  rocket  vacuua  thrust 

/OYNA 

/( 

172) 

ARCIN 

M 

MTT 

STATEF 

I 

MTT 

PG 

0 

Sea  syabal 

/MATS 

/( 

551  ) 

ALA 

M 

PG 

7 

APPLV 

l 

PG 

ARCIN 

0 

PG 

CONTRL 

0 

PG 

PLG 

0 

See  syabal 

/MATS 

/l 

570) 

APPLV 

1 

PLG 

* 7 

ARCIN 

0 

PLG 

CONTRL 

0 

PLG 

PLP 

0 

See  syabol 

/MATS 

/( 

571  ) 

APPLY 

1 

PLP 

V 

ARCIN 

0 

PLP 

CONTRL 

0 

PLP 

SREF 

$ 

I 

Aerodynaaic  reference  eree 

(FT2) 

/ARC0AT/( 

1 > 

ARCIN 

1 

SREF 

*ref 

BNORV 

I 

ARCOA 

CHECK 

I 

ARCDA 

FETCH 

I 

ARCOA 

SALVE 

I 

ARCDA 

STATEF 

I 

SREF 

UT 

I 

SREF 

WRAPUP 

I 

ARCDA 

6 OCT  72  6.01-HA 
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FORTRAN 

5YA80L 


DESCRIPTION 


O Thrust 


I Thrust  Multiplier  or  number  of  engines 

A Trajectory  flat  at  phich  present  rocket  englr 
t gnT ted. 


0 Qussftfne  at  aMch  present  •eubare  coaaence-d. 

1 Vacuum  specific  Impulse 
0 Control  blend  factor 

0 Fraction  of  subarc  that  hat  transpired 


/DVNA 

/( 

HZ  > 

AL6C0N 

n 

T 

AL1 

I 

T 

AL9 

I 

T 

AL6 

I 

T 

AL7 

I 

T 

AL8 

I 

T 

AL9 

I 

T 

APPLY 

I 

T 

ARCIN 

0 

T 

CONTRL 

« 

T 

DL2 

I 

T 

inputs 

I 

T 

OUTPUT 

I 

T 

T Ml 

I 

T 

TH2 

I 

T 

TH3 

I 

T 

TH9 

I 

T 

/ ARCDAT/I 

H ) 

ARCIN 

I 

TNULT 

STATEF 

I 

TAULT 

/DYNA 

/< 

167) 

ARCIN 

n 

TSTAGE 

STATEF 

I 

TSTAGE 

TRAJIN 

0 

TSTAGE 

/DYNA 

n 

l9l  ) 

ARCEN 

n 

TST  ART 

ARCIN 

n 

TSTART 

STATEF 

I 

TST  ART 

TRAJIN 

0 

TSTART 

/DYNA 

/( 

190) 

ARCIN 

0 

XARC 

STATEF, 

I 

X ARC 

/ARCOAT fK 

3) 

ARCIN 

1 

X1SP 

IrtPULS 

I 

XISP 

/DYNA 

/( 

159) 

ARCIN 

0 

Xj 

DL2 

I 

XJ 

OUTPUT 

1 

XJ 

STATEF 

I 

XJ 

UT 

1 

XJ 

/OYNA 

/( 

1 ) 

ARCIN 

0 

XX 

ERROR 

I 

XX 

OUTPUT 

1 

XX 

STATEF 

n 

XX 
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Purpose 

Given  the  matrix  A in  Equation  16.6-29  in  Vol.  I,  BASIS  determines  the 
matrix  A*  in  Equation  16.6-33  in  Vol.  I. 


BASIS 


1. 

2. 

3. 

9. 

5. 

6. 
7. 
6. 
9. 

10. 

11. 

12. 

13. 

19. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 
23. 

2*t . 

25. 

26. 
27. 
26. 
29. 


102 


SUBROUTINE  B AS  I S( A ft,  N)  BASIS 

BASIS 

GIVEN  A SET  OF  ft  LINEARLY  INDEPENDENT  ROW  VECTORS  IN  BASIS 
THE  EUCLIDEAN  SPACE  E**N,  WHICH  ARE  STORED  IN  THE  BASIS 
FIRST  ft  ROWS  OF  THE  ftATfifx  A THIS  ROUTINE  GENERATES  BASIS 
A SET  OF  N Li  NEARLY  INDEPENDENT  ROW  VECTORS  IN  E**N.  BASIS 

BASIS 

0 1 ftENSI  ON  A(  N N ) LNZEOO)  BASIS 

ROW  REDUCE  THE  FIRST  ft  ROWS  OF  A BASIS 

DO  105  1 = 1,  ft  BASIS 

DO  1 ON  J = 1,  N BASIS 

FIND  LEADING  NON-ZERO  ENTRY  IN  1-TH  ROW  BASIS 

I F ( ABS<  AC  I , J ) ) . LE  . 0.)  GO  TO  10*1  BASIS 

STORE  COLUrtN  NUftBER  IN  WHICH  LEADING  NON-ZERO  OCCURS  BASIS 
LNZE( I)  = J BASIS 

NORftALlZE  I^TH  ROW  BY  LEADING  NON-ZERO  ENTRY  BASIS 

FNZE  = AC  I,  J)  BASIS 

DO  101  K = 1.  N BASIS 

A(  I A)  = AC  I A >/FftZE  BASIS 

All.  J)  = 1 BASIS 

ANNIHILATE  NON-ZERO  ENTRIES  ABOVE  AND  BElOW  LEADING  BASIS 
NON-ZERO.  BASIS 

00  103  A * 1,  ft  BASIS 

IF(  A . Efl . 1)  GO  TO  103  BASIS 

IFCABSCAtft,  ill  .Lt.  0.)  BO  TO  103  BASIS 

AAJ  = AC  A J)  BASIS 

DO  102  L = 1,  N BA5IS 

ACA,  L)  = A(  A L)  - AA J*AC  I , L ) BASIS 

AC  A*  il  s 0 BASIS 


10-*- 


103 

103—1 


30. 
31  . 

103 

CONTINUE 
GO  TO  105 

BASIS 

BASIS 

105— ] 

32. 

109 

CONTINUE 

BASIS 

rr 

33. 

105 

CONTINUE 

BASIS 

39. 

C 

GENERATE  REMAINING  N 

- n ROW 

VECTORS  BY  STORING  A 

BASIS 

35. 

c 

ONE  IN  THOSE  COLUMNS 

THAT  00 

NOT  CONTAIN  A LEADING 

BASIS 

36. 

c 

NON-ZERO  ENTRY. 

BASIS 

37  . 

L c ft  ♦ 1 

BASIS 

30. 

Ms|| 

BASIS 

39. 

DO  108  1 s L,  N 

BASIS 

90. 

DO  107  J = 1,  N 

BASIS 

91. 

DO  106  A = 1,  ftA 

BASIS 

92. 

106 

IFCLNZE(A)  .Efl.  J>  60  TO  107 

BASIS 

107 

93. 

AC  I J1  = 1 

BASIS 

99. 

LNZEC I ) = J 

BASIS 

95. 

flAr  ftA*  1 

BASIS 

96  . 

60  TO  108 

BASIS 

106— | 

97  . 

107 

CONTINUE 

BASIS 

rt 

98. 

108 

CONTINUE 

BASIS 

99. 

RETURN 

BASIS 

50. 

END 

BA515 
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SUBR0UTINE 

BC0ND 


Purpose 

BCOND  sets  up  the  state 
target  conditions  blocks 


initial  conditions 
ITC  and  JTAB. 


block  I1C  and  the  state 


1 . 
2. 
3. 
9. 

5. 

6. 
7. 
6. 
9. 

>0. 
1 1 . 
12. 
13. 
19. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 
23. 
29. 

25. 

26. 

27 . 

28. 

29. 

30. 

31 . 

32. 

33. 
3s. 

35. 

36. 

37 . 

38. 

39. 

90. 

91. 

92. 

93. 
99. 

95. 

96. 

97. 

98. 

99. 

50. 

51. 

52. 

53. 
59. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 
63. 
69. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 
79. 
75. 


C 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 


c 

c 


SUBROUTINE  BCOND 

THIS  ROUTINE  SETS  UP  THE  STATE  INITIAL  CONDITIONS 
BLOCK  IIC  AND  THE  STATE  TARGET  CONDITIONS  BLOCKS 
ITC  AND  JTAB 


COPmON  /CNTRLA 

*NU  , ITER  .1TAPA  ,ITAPB  ,JflIN  ,JflAX  . LINES  ,KPT  ,flOn 

• KARO  , 1 N D X ( 9 ) , NEklNOfl,  CNTOl6,RHOC  ,RHOP  ,NPTS  ,PUNES  , 

*KP AGE  , NNP  ,NUP  .IARC  TRSTR  I P1A  X KT  l AE  KONVER  NOPRNT  . 

• INBDRY,NUPAGE, I VARV( 20  ),  HH , NOVARY,  PLAST  ZLAST,  KOD£$ 

LOGICAL  INBDRY,  NEWNOA,  KQNVER  NOPRNT  NURA6E 

COAAON  /PC/ 

• PCI  ,N  PC3  . 1 DP  #PC5  ,PC6  ,PC7  ,AAXBC  ,NAUX 

COAPlON/GLOBAL/ 

• GR  ,ER  ,OAG  l , XL AARF , YAURF  ,LUA  .TO  *EP  SLON , I NNER  , 

♦ITRAAX, J JOPt 6 ) .IFATAl.NARC  ,NBRAN  NFARC  ,10(9)  ,KTAB(20>, 

• ITAB(2G),  SIGAAXTABGfl,PSIhF  I PFlG 1 , 1 PFL62, IPFLG3, I PFLG9 , 

♦ I NEQFLt  20  ) . 1TPS0.  K$OL,  INARK . K6lOBL( 7 ) 

COAflON  /BLOCK/  1 1 Cl  TO.  20),  1 1 lT(  10.  20),  I T C < 10  20  ).  JTAB(20), 

• I TCT(  10  20  ),  LTAB(  20  ),  NOttNOH  N0C<20),  VALlCClO,  20), 

*VALTC( 10,  20),  IPAY 

REAL  AAGfcV,  AU,  A,  LY,  L6AH,  LPSI,  LB,  LRHO,  LAU,  LA,  LTAU,  NON 

• , LHT 
COAAON  /O/ 

• X,  H,  X I { 9 > , AAGBV,  ERR,  09,  DIO,  C(90),  CSAVE(90),  V,  GAN,  P$I, 
*AlT  , RHO  AU , A.  TAU,  HT,  LV,  l&AA,  LPSI,  LR , LRHO,  LAO,  LA,  LTAU, 

• LHT,  0109,  DUO,  B V(  9 0 ),  ZSAV£<20),  0T(2O),  NP0INT(20),  6elT(20) 
DIMENSION  N0AC20) 

EOUJ VALENCE  (NOA,  V) 

D I HENS  I ON  C0ND$(  900  >,  FICC  1 ),  FTC(  1 ),  FTRNS<  1 ),  INTR117). 

• 1 RTSll  7 ) I 5 01  17),  I STATEC  12  i,  1TRNS(24),  JTC<12),  KTC(li), 

• ATC(  1 ),  VTC<  1 ),  TABLEl 1 ) 

EQUIVALENCE  (FlC,  CONDS),  1FTC,  C0NDS(301)>,  ( VTC,  I TCI  5 1 > ), 

• ( ATC , ITCU01M,  (ITRNS,  FTfiNS),  (NRTS,  I RT§  ) , (ITABLE,  TABLE) 

OATA  NS/9/,  INTft/8,  1,  2,  9,  7,  3,  5,  6,0,9.0.21,0.  29.  29,  Z*Q /, 

• 1 50/ 128  1,  2,  8,  69,  9,  16,  32,0,256,0,31,6.31,  9§,  2*6/, 

• I ALL /5 1 1 / , 1ST  AT  E/1,  2,  9,  8,  16,  32,  69,  128,  256,  3*0/, 
•FLSHFT/9.096E3/, 

•IRTS/6,  3,  8603?,  98325,  938336,  2,  86037,  98325,  1,  529336.  1, 
•913697,  2,  98329,  938336,  1,  938336/, 

•ITRNS/2,  25,  0,  16,  1.,  I,  25,  0,  2,  26,  0,  27,  0,  1,10,1.  ,2, 

:se.!s,!s-.L»i-  “• 

IARC  s 1 

SET  INTEGRATION  CONTROL  PARAAETERS  SO  THAT  SUBROU- 
TINES ARCIN  AND  ARCEN  NILL  BE  CALLED  BY  FORCES  UHEN 
FETCH  CALL  FORCES. 


KPT  = 1 
NPTS  = 1 


CALL  READASt  9 , 

00  101  I B 1, 
00  101  J = 1 , 

1 1 ci  i,  j)  = 6 
ITCl  I.  J)  = 0 
VALIC(I,  J)  = 
101  VALTCC I,  J 1 S 


CALL  FETCH! 0) 


READ  INITIAL  AND  TARGET  CONDITIONS  INTO  ARRAY  CONOS 
CONOS,  900,  21) 

CLEAR  STATE  INITIAL  AND  TARGET  CONDITION  BLOCKS 
9 

NARC 


0 

0 

6ET  INITIAL  VALUE  OF  STATE  ANO  COSTATE  OFF  THE  INI- 
TIAL ARC  FILE 


STORE  INITIAL  STATE  ANO  COSTATE 
DO  102  1 = 1,  18 

102  ZSAVEl I ) = n6a< I ) 

INITIALIZE  FIRST  COlUAN  OF  IIC  TO  KNONN  CONDITION 
00  103  1=1.9 

103  IICU,  1 ) = 1 


INTERPRET  INPUT  CONDITIONS 


INOX  £ -2 
JNDX  = -1 

DO  109  IARC  - 1,  NARC 

STORE  NUflBEfi  OF  STATED  INITIAL  CONDITIONS  FOR  THIS 
ARC 


BCOND 

BCOND 

BCOND 

BCOND 

BCOND 

BCOND 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

PC 

PC 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

BLOCK 

BLOCK 

BLOCK 

D 

0 

0 

D 

JUL21 

0 

0 

D 

BCOND 

BCOND 

BCOND 

BCOND 

BCOND 

BCOND 

BCOND 

BCOND 

BCOND 

BCOND 

BCOND 

BCONO 

BCOND 

BCONO 

BCONO 

BCOND 

BCONO 

BCONO 

BCONO 

BCONO 

BCONO 

BCONO 

BCONO 

BCONO 

BCONO 

BCONO 

BCOND 

BCONO 

BCONO 

BCOND 

BCONO 

BCOND 

BCONO 

BCONO 

BCONO 

BCONO 

BCONO 

BCOND 

BCOND 

BCONO 

BCONO 

BCONO 

BCOND 

BCOND 

BCOND 


NOS  1 C = I TAB! I ARC  > BCONO 

IF!  NOSIC  .LE.  0)  60  TO  105  BCONO  105- 

1 NTERPRET  THE  STATED  INITIAL  CONDITIONS  BCONO 

00  10**  1=  1,  NOSIC  BCONO 

INOX  = 1 NOX  4 3 BCONO 

ICOOE  ^ FICt INOX)  4 .5  BCONO 

IF  INIT.  COND.  COOE  . SE . 10  ASSURE  STATE  CONTINUOS  BCOND 

1 r < I CODE  ,6E.  10)  ICOOE  = 0 BCOND 

JVN  = FICt  INOX  41)  4 .5  BCONO 

TRANSLATE  STEEP.  OESC.  VARIABLE  NO.  TO  QL  NO.  BCONO 

1VN  = lNTR(JVN)  BCOND 

SKIP  INIT.  CONO.  ON  TRAJ.  TIRE  BCOND 

I F(  I VN  .EQ.  0)  60  TO  109  BCONO  10**- 

1ICUVN,  1 ARC  ) r ICOOE  BCONO 

CONVERT  DESIRED  VALUE  TO  INTERNAL  UNITS  BCOND 

VALICIIVN,  I ARC  ) = SOflGUVN,  FlClINDX  * 2)>  * BCONO 


92. 

93. 

C 

109 

CONTINUE 

STORE  NURBER  OF  TARGET  CONDS.  FOR  THIS  ARC 

BCOND 

BCOND 

99. 

105 

NRBR  = KTAB< IARC) 

BCONO  * 

95. 

L-  0 

BCONO 

96 . 

I F( NRBR  . LE . 0)  GO  TO  10B 

97. 

C 

INTERPRET  TARGET  CONDS. 

BCONO 

90. 

00  107  I = I NRBR 

BCONO 

99. 

JNOX  = JNDX  4 2 

BCONO 

100. 

FWRD  = ABS( FTC! JNDX ) ) 

BCONO 

101 . 

IWRD  s l.E-6*FWR0  4 .5 

BCONO 

102. 

GtVRD  = IURO 

BCONO 

103. 

JNRO  = FtfRD  - l.E6*6WRD  4 .5 

BCONO 

109. 

c 

CHECK  FOR  PAYOFF  CONDITION 

BCONO 

105. 

IFUWRD  .LT.  2)  60  TO  106 

BCONO  106—1 

106. 

1 P AY  = ItfRD 

BCOND  1 

107. 

GO  TO  107 

BCONO  | 

106. 

106 

L = L ♦ 1 

BCONO 

109. 

ITC(L,  IARC)  c I WRD 

BCONO 

no. 

c 

CONVERT  DESIREO  VALUE  TO  INTERNAL  UNITS 

BCOND 

111. 

VALTC(  L,  IARC)  S SORGUNRO,  FTC(JNDX  4 1)) 

BCOND 

112. 

107 

CONTINUE 

BCOND 

113. 

C 

STORE  ACTUAL  NURBER  OF  TARGETS  IN  JTAB 

BCONO 

119. 

106 

J T AB<  IARC)  s L 

BCONO 

115. 

c 

HAKE  SURE  PAYOFF  UAS  ON  LAST  ARC 

BCONO 

116. 

109 

IF!L  .LT.  NRBR  .AND.  IARC  .NE.  NARC > CALL  ERROR! XBCNDS,  • 

-1,  1) 

BCONO 

117. 

c 

super i rpose  input  initial  gross  rass 

BCONO 

118. 

IF!  1 1 C(  1 , 1)  .EQ.  1)  ZSAVE! 7 ) = VALlC(7.  1) 

BCOND 

1 19. 

c 

DETERMINE  THE  COSTATE  INITIAL  AND  TARGET  CONDITIONS 

BCONO 

120. 

CALL  RAGIC 

BCOND 

121  . 

c 

STORE  TRANS VERSALl TV  CONDITIONS  FOR  END  OF 

LAST 

BCOND 

122. 

c 

BRANCH 

BCOND 

123. 

RA  = 9 - JTABt  NARC  ) 

BCOND 

129. 

oo  no  i = i ra 

BCOND 

125. 

no 

I TCT( I . NARC)  s I 

BCOND 

126. 

LTAB( NARC  ) = RA 

BCOND 

127. 

c 

TEST  FOR  BRANCH  PR0BLER 

BCOND 

126. 

I F ( NFARC  .EQ.  NARC)  RETURN 

BCOND 

129. 

c 

STORE  TRAN5VERSALITY  CONDITIONS  FOR  END  OF 

FIRST 

BCOND 

130. 

c 

BRANCH 

BCOND 

131. 

RA  = 9-  - JTAB!  NFARC ) 

BCOND 

132. 

DO  111  I r 1.  RA 

BCOND 

133. 

in 

I TCT! I NFARC)  = I 

BCOND 

139. 

LTAB! NFARC)  = RA 

BCOND 

135. 

RETURN 

BCOND 

136. 

END 

BCOND 
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V*. 


DESCRIPTION 


STOBftGE 

BLOCK LOC 


SUBROUTINE 
SUBR  CODE 


H Sufaarc  fivabtr . 


W A 10x20  array  containing  the  Initial  condition 
codec  for  the  OL  state  vector.  The  colunn* 
correspond  to  subarc  starting  points,  the  roai;  to 
QL  state  variables. 


ft  An  array  of  four  aords  that  Indicate  to  Adaas- 

Moulton  Integration  In  what  order  the  derivatives 
of  the  particular  and  homogeneous  solutions  are 
stored.  ...... 

I A 20  aord  array  containing  tha  ngabir  of  nonzero 

state  Initial  conditions  specified  at  the  beginning 
of  each  subarc. 

0 A 10x20  array  containing  the  initial  condition 
codes  for  the  OL  costate  vector.  The  columns 
correspond  to  subarc  starting  points,  the  roas,  to 
0 L costate  variables. 


0 A 10x20  array  containing  tha  OL  costate  analog  to 
tha  array  1 1 CT . Tha  coiuans  correspond  to  subarc 
and  points.  The  nonzero  entries  in  a coigan  are 
the  nuabirt  of  those  coaponents  of  the  vector  9 ia 
Equation  16.6.3S  of  Voiuae  I of  the  PADS  document 
that  contain  the  value  of  a costate  target 
condition  that  applies  at  the  and  of  the 
corresponding  subarc. 

ft  An  array  containing  tha  number  of  nonzero  entries 
In  each  coiuun  of  the  array  IiCT. 


0 The  subarc  point  nutsber.  KPT  = 1 on  the  first 

point  of  subarc,  and  KPT  - NPTS  on  the  last  point 
of  tha  subarc. 


I A 20  aord  array  centaining  the  ngabir  of  state 
target  conditions  specified  at  the  end  of  each 
sgbarc. 


2s  > 

ARCIN 

I 

1 ARC 

BCOND 

ft 

I ARC 

BNDR  V 

ft 

I ARC 

BRANPT 

I 

I ARC 

CHECK 

ft 

I ARC 

COSTAB-  1 

I ARC 

COST  AI 

I 

I ARC 

ENOPT 

1 

I ARC 

FORCES 

1 

I ARC 

INARC 

n 

I ARC 

INTRPT 

I 

I ARC 

MAGIC 

rt 

I ARC 

MARCH 

I 

I ARC 

QLTOSZ 

I 

I ARC 

SALVE 

n 

I ARC 

WRAP  UP 

it 

1 ARC 

1 ) 

BCOND 

ft 

1IC 

BRANPT 

I 

lie 

CHECK 

I 

lie 

COSTAB 

I 

lie 

COST  AI 

I 

IK 

COST  AO 

I 

lie 

INTRPT 

I 

IK 

SALVE 

I 

IIC 

11  ) 

BCOND 

ft 

INDK 

MADAMS 

ft 

1NDX 

SALVE 

0 

INDK 

S5  ) 

BCOND 

i 

ITAB 

SOI  ) 

BCOND 

0 

ITC 

BRANPT 

i 

ITC 

CHECK 

i 

ITC 

COSTAB 

i 

ITC 

COST  AI 

i 

ITC 

ENDPT 

i 

ITC 

INTRPT 

i 

ITC 

621  ) 

BCOND 

0 

ITCT 

BRANPT 

1 

ITCT 

CHECK 

I 

ITCT 

COSTAB 

0 

ITCT 

COST  AI 

0 

ITCT 

INTRPT 

I 

ITCT 

MAGIC 

0 

ITCT 

601  ) 

BCOND 

ft 

JTAB 

BRANPT 

r 

JTAB 

CHECK 

i 

JTAB 

COSTAB 

i 

JTAB 

COST  AI 

i 

JTAB 

ENOPT 

i 

JTAB 

INTRPT 

i 

JTAB 

MAGIC 

i 

JTAB 

8) 

BCOND 

0 

KPT 

BNDRV 

0 

KPT 

FORCES 

I 

KPT 

MAGIC 

0 

KPT 

RKUTTl 

] 

KPT 

SALVE 

ft 

KPT 

WRAP UP 

ft 

KPT 

25  ) 

BCOND 

I 

KTAB 
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FORTRAN 

SYflBOL 


LTAB 


NARC 


NF  ARC 


NON 


NPTS 

VALIC 

VALTC 

ZSAVE 


NATH 

5YNB0L 


V 


code  DESCRIPTION 


0 An  array  containing  the  nuaber  of  nontcro  entries 
in  each  celyan  of  the  array  ITCT. 


1 Nuaber  of  subtree  In  the  problca. 


f Nuaber  of  the  last  subarc  on  the  first  branch.  If 
the  problea  la  not  a branch  probiea.  then  NFARC  = 
NARC. 


I 


< FT/SEC) 


0 The  total  nuaber  of  points  in  the  subarc. 


N A 10*20  array  containing  the  desired  values  of  ail 
the  fixed  (fcnoan)  QL  state  variables.  The  coluans 
correspond  to  the  subarc  starting  points,  the  rosi, 
to  OL  stata  variables. 

0 A 10*20  array  containing  tht  desired  values  of  the 
state  target  conditions  phosc  codes  appear  in  the 
array  IICT. 


0 A taenty  aord  array  containing  the  values  froa  the 
Initial  arc  of  the  stata  and  costata  at  the  initial 
point  of  the  trajectory. 


/BLOCK  /X  621 ) BCON0  0 LTAB 
BRANPT  I LTAB 
COSTAB  0 LTAB 
COSTAI  0 LTAB 
I NTRPT  t LTAB 
MAGIC  M LTAB 

/GLOBAL/C  IB)  BCONO  I NARC 
BNORY  I NARC 
CHECK  I NARC 
ENOPT  I NARC 
ENVPRQ  1 NARC 
FETCH  I NARC 
1 NARC  I NARC 
MAGIC  I NARC 
OLTOSZ  I NARC 
SALVE  I NARC 
WRAP0P  I NARC 

/global/i  20 ) bcono  i nfarc 

BNORY  I NFARC 
BRANPT  1 NFARC 
COSTAB  I NFARC 
ENVPRQ  I NFARC 
INTRPT  1 NFARC 
MAGIC  I NFARC 
OLTOSZ  I NFARC 
SALVE  I NFARC 

/O  /(  91)  AL1  I Y 

AL9  ~ I V 
AL7  I V 
ALB  1 V 
AL9  I V 
BCONO  I NON 
BNORY  0 NON 
BRANPT  N NON 
CONTRL  I Y 
ENOPT  I NON 
ENVPRQ  I V 
FETCH  0 NON 
INTERP  N V 
INTRPT  N NON 
NLDRV  0 NON 
NLORY  I V 
OUTPUT  I Y 
PDBCQL  I v 
STATEF  1 Y 
NRAPUP  I V 

/ CNTRL  /(  19)  BCONO  0 NPTS 

BNORY  0 NPTS 
FORCES  I NPTS 
INARC  N NPTS 
HA6IC  0 NPTS 
SALVE  N NPTS 
WRAP UP  0 NPTS 

/BLOCK  /(  862)  BCONO  N YALIC 

SALVE  I VALIC 


/BLOCK  /(  1062)  BCONO  0 VALTC 
BRANPT  I VALTC 
CHECK  I VALTC 
ENOPT  I VALTC 
INTRPT  I VALTC 

/D  /(  151)  BCONO  0 ZSAVE 

BRANPT  1 ZSAVE 
COSTAB  1 ZSAVE 
COSTAI  I ZSAVE 
INTRPT  I ZSAVE 
PDBCQL  I ZSAVE 
SALVE  I ZSAVE 
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SUBR0UT INE 
BLINE 


Purpose 


BLINE  interpolates  the  bivariate  tabular  functions.  In  addition,  it 
computes  the  first  and  second  partials  of  these  functions  by 
the  derivatives  of  the  bicubic  spline  interpolating  function. 


•See  Section  17.7  of  Vol.  I. 


-It 


BLINE 


1. 

2. 

3. 

9. 

5. 

6. 

7. 

8. 

9. 

10. 

11. 

12. 

13. 

19. 

15. 

It. 

17. 

18. 

19. 

20. 
21. 
22. 
23. 
29. 

25. 

26. 


100 


subroutine  bli ne( ft,  n,  ui  bline 

BLINE 

THIS  ROUTINE  CORPUTES  THE  BIVARIATE  AERODYNARIC  BLINE 

LIFT  AND  DRAG  COEFFICIENTS  AND  THEIR  FIRST  AND  BLINE 

SECOND  PARTIALS.  A IS  THE  CURRENT  ANGLE  OF  ATTACK,  BLINE 
R IS  RACH  AND  U = CL,  CLA,  CLR,  CLAA  CLRR,  CLAR,  BLlNE 

CD,  COA,  COR,  CDAA,  CORR,  CDAN  BLINE 

BLINE 

real  a,  K,  nniN,  rrax,  rach  bline 

COnnON  /BICUBE/  ARIN,  ARAX,  IF;  IFRAX,  RAIN,  RRAX,  IR,  I RflAX  BLlNE 

HUNIT.  IRECT,  IREC,  fcl  32  ),  T(  160  ),  KNOTS!  1 1 BLlNE 

DIMENSION  U(  12),  ALFA(l),  RACH( 1 ) BLlNE 

EQUIVALENCE  (ALFA,  KNOTS  ),  (RACH,  KN0TS(32>)  BLlNE 

EQUIVALENCE  BlINE 

MCLOO,  C(  1)),  (CLOi,  C(  5)),  ( CL02 , C<  9)),  (CL03,  C(13)>,  BLlNE 

►(  CLIO,  C(  2 > >,  ( CLl  1 C<  6 > >,  ( CL  1 2,  CMC)),  !Cl13,  C(ID),  BlINE 

MCL20,  C<  3)),  (CL21,  C(  7)),  CCL22,  C(U>),  (CL23,  C(  15  ) ),  BLlNE 

► ( CL30,  C(  9>),  (CL31,  C(  8)),  (CL32,  C(12)>,  (CL33,  C(16>>,  BLlNE 

►(  CDOO,  C(  17)),  (CD01,  C(  2 1 ) ),  (C002,  C(25>),  (CD03,  C(29)),  BLlNE 

XCDIO,  C(  18  ) ),  ( CD  1 1 C(  22  ) ) , (C012,  C(26>),  (C013,  C(30)),  BLINE 

KCD20,  C(  19)),  (CD21,  C<23)),  (C022,  C(27)),  (CD23,  C<31)),  BLlNE 

KC030,  C(  20  ) ) (CD31,  C(29)),  (CD32,  C(28)),  ( CD33,  C(  32 ) ) BLlNE 

SEE  IF  RACH  IS  WITHIN  RANGE  BLlNE 

IF(RRlN  .LE.  R .AND.  R . LE . RRAX)  GO  TO  101  BLlNE 

CONTINUE  BLINE 

SEE  IF  ALPHA  IS  WITHIN  RANGE  BLlNE 


27.  101  IF( ARIN  .LE.  A .AND.  A .LE.  ARAX)  GO  TO  103 

28.  C NO.  FORCE  ALPHA  TO  APPROPRIATE  LIRIT. 

29.  I F( A .LT.  ARIN)  A = ARIN 

30.  IF!  ARAX  .LT.  A)  A = ARAX 

31.  C FIND  LARGEST  RACH  ENTRY  .LE.  CURRENT  RACH  NO. 


BLINE 

BLINE 

bline 

bline 

bline 


101 

Tos 


3 


To  9— | Itis 


32. 


33. 

39. 


35. 

36. 


37. 

38. 


103  1FCR  - RACH(IR))  109,  1 09,  105 


109 


IR  = IR  - 
GO  TO  103 


1 


BLINE 


BLINE 

BLINE 


105  IF(  n - RACHMR  4 D)  109,  106,  107 


BLINE 


106  IF! IR  . G£ . IRRAX)  GO  TO  109 


BLINE 


Tot— j Tor- 


3103" 


109-1 


1 109* 
109- 


107 


IR  = IR  ♦ 
GO  TO  103 


BLINE 

BLINE 


103- 


Tia^rn- 


39. 


90. 
91  . 
92. 


93. 


95. 

96. 

97. 


109  I F( A - ALFA! IF))  110,  119,  111 


BLINE 


no 


IF  s IF  * 1 
GO  TO  109 


FINO  LARGEST  ALPHA  ENTRY  . UE . CURRENT  ALPHA 


BLINE 

BLINE 

BLINE 


111 


I F(  A - ALFAMF  4 1))  UHt  112,  113 


BLINE 


T i z — i nH 


112  1F( IF  .GE.  IFRAX)  GO  TO  119 


BLINE 


113 


IF  = IF  4 
GO  TO  109 


CORPUTE  DISTANCES  FROM  GRID  POINTS 


BLINE 

BLlNE 

BLINE 


119-1 


119“ 

119- 


j 1 09—1 


109-* 


98.  119  H = A - ALFA(IF)  BLlNE 

99.  K = R - RACH!  IR ) BLINE 

50.  C FINO  APPROP I ATE  GRID  RECTANGLE  AND  STORE  ITS  SPLINE  BLlNE 

51.  C COEFFICIENTS  IN  C ARRAY.  NOTE  EACH  RECORO  CONTAINS  BLINE 

52.  C FIVE  RECTANGLES  BLINE 

53.  JRECT  : IR  + IRRAX*!  IF  - 1)  BLINE 

59.  I F( JRECT  .EQ.  IRECT)  60  TO  117  BLINE 

55.  IRECT  = JRECT  BLlNE 

56.  JREC  = (IRECT  - 1 >/5  ♦ 2 BLlNE 

57.  IfURCC  .EQ.  IREC)  GO  TO  115  BLlNE 

56.  irec  r jrec  bline 

59. CALL  READRS!  1UN1T,  T,  UP,  IREC) BLINE 


60. 
61 . 
62. 
63. 


115 


116 


IB  ? 32*! IRECT  - 5*IREC 
DO  116  I = 1,  32 
J = I ♦ IB 
C(I>  = T(J> 


♦ 9) 


BLINE 

BLINE 

BLINE 

BLINE 


117- 


n 


69.  117  CONTINUE 

65.  CLO  = CLOO  ♦ K*!CL01 

66.  CLl  = CLIO  ♦ X*(CLll 

67.  CL2  = Cl20  ♦ K*( CL2 1 

68.  CL 3 = CL30  ♦ K*(CL31 


K*<  CL02  * K*CL03 ) ) 
K*t CL12  ♦ K*CLl 3 ) ) 
K*<  Cl22  4 K*CL23  ) ) 
K*( Cl32  4 X*CL33 ) ) 


BLINE 

BLINE 

BLINE 

BLINE 

BLINE 
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compute  cl 

Ut n = CLO  4 H*( CL  1 4 H»(Cl2  4 H*CL3)) 

COO  - CDOO  4 KMCD01  4 K*(  CD02  ♦ K*CD03>> 

COl  = COlO  4 K*( CD11  4 MCC012  4 K#C013)) 

CD2  = CD20  4 K»( CD2 1 4 *♦< C022  ♦ K*CD23)) 

C03  = COSO  4 K*( CD31  4 K»< C032  4 K*C033>> 

COMPUTE  CD 

U( 7 I = COO  4 H*( COl  4 H*t CD2  4 H*CD3)> 

CLOPP  = K»CL03 

CLOPP  = CLOPP  4 CLOPP  4 CLOPP  4 CL02L 
CLOP  = CLOl  4 CL02  4 CLOPP) 

CUPP  = K*CL  1 3 

CUPP  = CUPP  4 CUPP  4 CL1PP  ♦ CL12 
CUP  = CLll  + KMCL12  + CUPP) 

CL2PP  = K*CL23 

CL2PP  = CL2PP  4 CL2PP  4 CL2PP  ♦ CL22 
CL2P  = CL21  4 H»(CL22  4 CL2PP  ) 

CL3PP  = K*CL33 

CL3PP  = CL3PP  + CL3PP  4 CL3PP  * CL32 
CL3P  = CL31  ♦ K*t CL32  4 CL3PP ) 

UXX  s H*Cl3 

UXX  = UXX  4 uxx  4 uxx  4 CL2 

COMPUTE  CLA  AMO  CLN 
Ut 2 ) £ CL  1 4 H*( CL2  4 uxx ) 

U1  3 1 = CLOP  4 H*(  CUP  4 H*(CL2P  4 H*CL3P)) 

COOPP  = X*C003 

COOPP  = COOPP  4 CDOPP  4 COOPP  4 CD02 
COOP  s COOl  4 K*t  CD02  4 COOPP) 

COlPP  = K*CD13 

CD1PP  = CD1PP  4 CD1PP  4 COlPP  4 CD12 
CO  1 P ae  COl)  4 X«(C012  4 COlPP) 

CD2PP  = X»CD23 

CD2PP  = C02PP  4 CD2PP  4 C02PP  4 C022 
CD2P  = C021  4 CD22  4 C02PP  ) 

CD3PP  = X*C033 

C03PP  = C03PP  4 C03PP  4 C03PP  4 C032 
C03P  s C031  4 K*( CD32  4 CD3PP ) 

VXX  = H*C03 

VXX  = VXX  4 VXX  4 VXX  4 CD2 

COMPUTE  CDA  AMO  COM 
U(6>  = CD)  4 H*(  C02  4 VXX) 

Ut  9 ) = COOP  + H*( CD1P  + H*( CD2P  ♦ H#CD3P)> 

COMPUTE  ClAA,  CLMM  AMD  ClAM 

U( H ) = UXX  4 UXX 

UYV  = CLOPP  + H»t CL1PP  ♦ H*( CL2PP  ♦ H*CL3PP)> 

U( 5 ) = UVY  4 UYY 

Ut  t>)  = Clip  4 H»t  CL2P  ,+  CL2P  4 HMCL3P  ♦ Cl3P  4 Cl3P>> 
COMPUTE  COAA  COMM  AMO  CDAM 
Ut  10>=  VXX  4 VXX 

VYY  s COOPP  4 H*<  COlPP  4 H*t  CD2PP  ♦ H*C03PP>) 

Ut 11  )£  VYY  4 VYY 

Ut  12  )=  CD1P  4 H*< C02P  4 C02P  4 HM C03P  4 C03P  4 C03P)) 

AETURM 

END 


DUNE 

BLlNE 

DUNE 

DUNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BlINE 

BLlNE 

BlINE 

BlINE 

BlINE 

BLlNE 

BLINE 

BLlNE 

BUNE 

BlINE 

BlINE 

BlINE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BLlNE 

BlINE 

BlINE 

BlINE 

BLlNE 

BlINE 

BlINE 

BLlNE 

BLlNE 

BlINE 
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FORTRAN 

SYMBOL 


MAT  M 
SYMBOL 


COOE 


DESCRIPTION 


BL 


STORAGE 
OCR LI 


SUBROUTINE  USAGE 
SUBR  CODE  VAR 


ALFA 

i 

A 31  aord  array  containing  the  aesh  i q , i|#...fin 

/ BI CUBE/( 

209  ) 

BL1NE 

I 

ALFA 

AMAX 

* N 

i 

Tha  largest  value  of  the  first  Independent  variable 
of  a bi var 1 at*  tab  1 a - 

/BICUBE/I 

2 ) 

BLINE 

I 

AMAX 

AMIN 

X0 

i 

The  saailest  value  of  the  first  independent 
variable  of  a bivariate  table. 

/BICUBE/t 

1 ) 

BLINE 

I 

AMIN 

C 

0 

A 32  aord  array  containing  the  spline  coefficients 
for  the  tao  bivariate  functions  at  rectangle  IRECT. 

/BI CUBE/< 

12  ) 

BLINE 

BLINE 

0 

I 

C 

CLOO 

CLOO 

I 

A 32  aord  array  containing  the  spline  coefficients 
for  the  tao  bivariate  functions  at  rectangle  IRECT. 

/BI CUBE/< 

12  ) 

BLINE 

BLINE 

0 

I 

C 

CLOO 

IF 

n 

Last  file  In  the  grid  In  ahtcb  Interpolation 
occurred . 

/BICUBE/t 

3 ) 

BLINE 

m 

IF 

IFMAX 

N 

i 

Total  nuaber  of  files  In  grid. 

/BICUBE/t 

' H ) 

BLINE 

i 

I F MAX 

IR 

m 

Last  rank  in  the  grid  in  phich  interpolation 
o ccurrid. 

/BICUBE/t 

7 ) 

BLINE 

m 

IR 

IREC 

n 

Logical  record  on  IUNIT  that  contains  spline 
coefficients  for  rectangle  IRECT. 

/BICUBE/t 

II  ) 

BLINE 

it 

IREC 

IRECT 

« 

Grid  rectangle  associated  pith  IR  and  IF. 

/BICUBE/t 

10) 

BLINE 

m 

IRECT 

IRMAX 

1 

Total  nuabar  of  ranks  in  grid. 

/BICUBE/t 

8 ) 

BLINE 

I 

IRMAX 

I UNIT 

I 

Logical  unit  nuaber  on  phich  bicubic  spline 
coefficients  are  stored  for  this  table. 

/BICUBE/t 

9 ) 

BLINE 

I 

IUNIT 

MACH 

I 

A 31  aord  erray  containing  the  aesh  yg,  yj,...#yn 

/BICUBE/t 

235  ) 

BLINE 

I 

MACH 

MMAX 

I 

The  largest  value  of  the  second  independent 
variable  of  a bivariate  table. 

/§I CUBE/( 

. 6). 

BUNE 

I 

MMAX 

nniN 

y0 

i 

The  saailest  value  of  the  second  independent 
variable  of  a bivariate  table. 

/ BI CUBE/ ( 

5 ) 

BLINE 

I 

MM  I N 

T 

i 

A 160  aord  erray  containing  logical  record  IREC. 

/BICUBE/t 

99  ) 

BLINE 

I 

T 

6 OCT  72  G.Ql-NA 


SUBR0UT INE 
BNDRY 


Purpose 


BNDRY  controls  the  computation  of  the  state  and  costate  target  misses 
and  the  partials  of  these  misses  with  respect  to  the.c's.* 


*See  Sections  16.6  and  17.4  of  Vol.  I. 


/QQ 


BNDAY 


17. 

18. 

19. 

20. 
21. 
22. 
23. 
29. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
39. 

35. 

36. 

37. 

38. 

39. 

90. 

91 . 

92. 

93. 
99. 

95. 

96. 

97. 

98. 

99. 

50. 

51. 

52. 

53. 
59. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 
63. 
69. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 
79. 
75. 
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SUBROUTINE  BNDRY  (PZ,  DPZIOC,  K ) 


COMMON /ARCDAT/ 


THIS  ROUTINE  CONTROLS  THE  COMPUTATION  OF  THE  STATE 
AND  COSTATE  TARGET  MISSES  AND  THE  PARTI ALS  OF  THOSE 
PUSSES  WITH  RESPECT  TO  THE  MULTIPLIERS  OF  THE  HOMO- 
GENEOUS SOLUTIONS,  OR  C*S,FOR  SHORT.  THE  PARTIALS 
ARE  STORED  IN  DPZIOC.  THE  MISSES,  IN  PZ. 


BNDRV 

BNORY 

BNDRY 

BNDRY 

BNDRV 

BNDRY 

BNDRV 

ARCDAT 


9. 

♦ SREF 

,EJ 

,XISP 

.TMULT 

OTNC 

, OTP  I 

, ARCDAT 

10. 

♦ I ATM 

, I MODE 

,JAER 

* JPRO 

, QMAX 

, GMAX 

, ARCDAT 

11. 

♦ XLMAX 

, HDMAX 

, GMDOt 

,AlFMAX 

, PHMAX 

, MAE  A 

, ARCDAT 

12. 

♦ MAEB 

>AEC 

, MAED 

,«A££ 

,MAEF 

, MAEfi 

, ARCDAT 

13. 

*MT 

>ISP 

, MXCG 

>ZCG 

MUD  A 

, MNDB 

, ARCDAT 

19. 

♦ MOB 

, XCGR 

, ZCGR 

,KE 

,ZE 

XT 

, ARCDAT 

15. 

♦ DREF 

, MCND 

, RHOB 

,omult 

, REMAX 

, FRATE 

ARCDAT 

16. 

DIMENSION 

ARCDA(90) 

ARCDAT 

EOUI VALENCE! SREFARCDA ) 

COMMON  /EVAL/  SGN  SPARTC18),  MAPI  10),  PZI(90>,  NOCK,  S(18,  91), 

♦ TEMPI  90 ),  0Z(  18 ),  OC,  L,  $1(18,  91) 

COMMON/GLOBAL/ 

♦ 6R  ,ER  ,OMGZ  , XLAMRF  YMURF  ,LUM  ,T0  , EPSLON, I NNER  , 

♦ ITRflAX, JJOP(  6)  I FAT  AL, NARC  NBRAN  NFARC  ,10(9)  ,KTAB(20), 

♦I TAB( 20  ),  SI G, MAXTAB, GM  PS  I RF  , IPFlGI, IPFLG2,IPFlG3, IPFLG9, 

♦ INEOFL(20>,  ITPSO,  KSOL  I NARK ,K6lO*L( 7 ) 

COMMON  /CNTRL/ 

♦NU  , ITER  , I TAPA  ,ITAP8  ,JMlN  ,JMAX  , LINES  ,KPT  ,MOM 

♦ KARO  , I NOX(  9 ) ,NEUJN0M,CNTC16,RH0C  ,RHOP  ,NPTS  , MINES  , 

♦KPAGE  , NNP  ,NUP  ,IARC  , TRSTfi  ,IMAX  , KT I ME  .KONYER.NOPRNT, 
♦INBDRYNuPAGE, I VARY( 20  ),  NN,  H OVARY,  PLAST,  ZLAST,  KOOES 

LOGICAL  INBDRY,  NEWNOM,  KONYER,  NCPnNT , NUPAGE 

REAL  MAGBY,  MO,  M,  LY,  LGAH,  LPSI,  LR,  LRHO,  LMU,  LM,  LTAU,  N0« 

*,  LHT 
COMMON  /D/ 

♦X,  H,  X I ( 9 ) , MAGBY,  ERR,  09,  DIO,  C(90),  C$AVE(90),  Y,  GAM,  PSI, 
♦ALT, ftHO,MU,n,  TAU,  HT,  LV,  LGAM.  LPSI,  LR,  LRHO.  LMU,  LM,  LTAU, 
♦LHT,  0109,  0110,  oV( 96 ),  ZSAVE(2G),  QT(20),  NP0lNT(20),  DElT( 20 ) 
DIMENSION  N0M( 20  > 

EQUIVALENCE  ( NOM,  V) 

COMMON  /Z/  Z(  50 ) 

COMMON  /BLOCK/  1 1 C(  10,  20),  IICTdO,  20),  ITCdO,  20),  JTAB(20), 
*ITCT(  10,  20),  LTAB(  20 ),  NOKNON,  N0C(2O),  VALlCdO,  20), 

♦YALTC( 10,  20),  IPAV 
COMMON  /PC/ 

♦ PCI  ,N  ,PC3  ,IOP  ,PC5  ,PC6  , PC 7 ,MAXBC  ,NAUX 
DIMENSION  P21K),  DPZ1DCU,  K) 

DATA  SPART/18#0/,  OC/l.E-5/,  MAP/8,  1,  2,  9,  7,  3,  5,  6,  0,  9/ 
DATA  BNDRY X/6HBNDRYC/ 

SET  INTEGRATION  CONTROL  FLAGS  SO  THAT  FORCES  MILL 
CALL  ARCEN  AND  AftClN 

KPT  = 1 
NPTS  = 1 

INITIALIZE  NUMBER  OF  TARGET  MISSES  COMPUTEO  SO  FAR 

L = 0 

SET  PAYOFF  SIGN 
SGN  = SIGNd.,  SIS) 

00  105  I ARC  ? 1,  NARC 

READ  IN  THE  DATA  FOR  THIS  SuBARC 
CALL  READM$(9,  ARCDA,  92,  I ARC) 

SET  in6epenoent  variable 

X = I ARC 

STORE  NUMBER  OF  C^S  THAT  HAVE  INFLUENCE  ON  THIS  ARC 
NOCK  = NOC( I ARC  ) 

COMPUTE  RECORO  SIZE  FOR  THIS  ARC 
NN  = N*( NOCK  ♦ 1 ) 

COMBINE  UP  TOTAL  SOLUTION  CORRESPOND! NG  TO  THE  LAST 
POINT  OF  THIS  ARC  AftO  STORE  IN  NOM  ARRAY 
CALL  R£A0AS( 9 1 , S,  NN,  2* I ARC  ) 

CALL  MATMLKZ,  SCI.  2),  C,  18,  NOCK,  1) 
call  MATADOCI,  Z,  S,  18,  1) 

DO  101  I = 1.  18 
101  NOA(  I ) = Zd  I 
CALL  FORCES 

IS  THIS  THE  LAST  ARC 

1 Ft  I ARC  .EO.  NARC)  GO  TO  109 

NO.  IS  THIS  A BRANCH  PROBLEM. 


ARCDAT 

EVAL 

EVAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

0 

0 

D 

0 

JUL21 

D 

D 

D 

Z 

BLOCK 

block 

block 

pc 

PC 

BNDRY 

BNDRY 

BNDRY 

BNDRV 

BNDRY 

BNDRY 

BNDRV 

BNDRY 

BNDRY 

BNDRY 

BNDRY 

BNDRV 

JUL19B 

JUL19B 

JUL21 

BNDRY 

BNDRY 

BNDRY 

BNDRV 

BNDRY 

BNDRY 

BNDRY 

BNDRY 

BNDRY 

BNDRY 

BNDRY 

BNDRY 

BNDRY 

BNDRY 

BNDRY 

BNDRY 
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FORTRAN 

SYMBOL 


RATH 

SYMBOL 


COOE 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


SUBROUTINE  USAGE 
SlTbR  CODE  VAR 


ARCDA 

s . 

1 

/ AACDAT/( 

1 ) ARCIN 

I 

SREF 

r#t 

bndrv 

1 

ARCDA 

CHECK 

I 

ARCDA 

FETCH 

I 

ARCDA 

SALVE 

I 

ARCDA 

STATEF 

I 

SREF 

UT 

I 

SREF 

WRAP  UP 

I 

ARCDA 

C 

c 

I 

A fo  rt*  a o r d «rny  containing  the  v ■ c t o r of  c ' s , 

/D 

/( 

11)  BNDRV 

I 

C 

i.t-  the  aultlpl itrs  for  the  honogenaout 

BRANPT 

I 

C 

solutions. 

GROPE 

1 

C 

INTRPT 

I 

c 

NEWCS 

M 

c 

NLDRV 

I 

c 

NOftNAL 

I 

c 

WRAP  UP 

1 

c 

oc 

Ac . 

D 

Sasll  perturbation  of  a c. 

/EVAL 

/( 

867)  BNDRV 

D 

DC 

1 

BRANPT 

I 

DC  * 

ENOPT 

I 

DC 

INTRPT 

I 

DC 

I ARC 

I 

n 

Subarc  nuabar. 

/cntrl 

/( 

2H  ) ARCIN 

I 

I ARC 

BCONO 

m 

I ARC 

BNDRV 

M 

I ARC 

BRANPT 

1 

1 ARC 

CHECK 

fl 

I ARC 

COSTAB 

i 

I ARC 

COSTA! 

I 

I ARC 

ENDPT 

I 

I ARC 

FORCES 

I 

1 ARC 

INARC 

M 

I ARC 

INTRPT 

I 

I ARC 

MAGIC 

M 

I ARC 

MARCH 

I 

I ARC 

OLTOSZ 

I 

I ARC 

SALVE 

M 

I ARC 

tdRAPUP 

M 

I ARC 

KPT 

0 

The  subarc  point  nuaber . KPT  - I on  the  first 

/Cntrl 

/( 

8)  BCOND 

0 

KPT 

point  of  subarc,  and  KPT  = NPTS  on  tho  last  point 

BNDRV 

0 

KPT 

of  tha  subarc. 

FORCES 

I 

KPT 

MAGIC 

0 

KPT 

RKUTT1 

I 

KPT 

SALVE 

H 

KPT 

URAPUP 

M 

KPT 

L 

* 

Total  nuabar  of  target  conditions  to  satisfy  in  the 

/EVAL 

/( 

666)  BNDRV 

ft 

L 

problea. 

BRANPT 

M 

L 

ENOPT 

h 

L 

INTRPT 

M 

L 

WAP 

0 

A 10  aord  array  that  naps  the  steepest  descant 

/EVAL 

/( 

20)  BNDRV 

D 

HAP 

state  rector  Into  the  OL  state  vector. 

BRANPT 

HAP 

ENDPT 

MAP 

INTRPT 

MAP 

N 

I 

Total  nuaber  of  OL  state  and  costate  variables.  M 

/PC 

/( 

2)  BNDRV 

N 

= 18. 

CHECK 

N 

INARC 

N 

LI  NOR  V 

H 

NLDRV 

N 

NOMNAL 

N 

RKUTT1 

N 

SALVE 

N 

WRAP UP 

H 
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<??/ 


DESCRIPTION- 


smm. ... 

TlOCK LOT 


SUBROUTINE  USAGE 
SUBR  CODE  VAR 


1 Nuaber  of  subarcs  In  the  problto. 


Nuaber  of  the  Iasi  subarc  on  the  stem  of  a branch 
problca.  If  ihc  problem  is  not  a branch  problem 
then  NBRAN  = 0. 


Number  of  the  last  subarc  on  the  first  branch.  If 
the  problea  is  net  a branch  probiea,  then  NFARC  - 
NARC. 


H The  nuaber  of  quantities  currently  being 
numerically  Integrated. 


An  array  containing  a running  total  of  the  nuaber 
of  free  <«nknoen)  state  and  costate  variables  at 
the  start  of  each  subarc. 


Equation  17.9-N  of  Vo  I . I of  this 


0 Re  letii 


IB)  BC0N0 

1 

NARC 

BNDRV 

I 

NARC 

CHECK 

1 

NARC 

ENDPT 

I 

NARC 

ENVPRQ 

I 

NARC 

FETCH 

I 

NARC 

INARC 

I 

NARC 

flAGIC 

I 

NARC 

QLTOSZ 

I 

NARC 

SALVE 

I 

NARC 

URAPUP 

I 

NARC 

19)  BNDRV 

I 

NBRAN 

BRANPT 

I 

NBRAN 

COST  AB 

I 

NBRAN 

ENVPRQ 

I 

NBRAN' 

INTRPT 

I 

NBRAN 

AAGIC 

I 

NBRAN 

QLTOSZ 

I 

NBRAN 

SALVE 

I 

NBRAN 

20)  BCDND 

I 

NFARC 

BNDRV 

I 

NFARC 

BRANPT 

I 

NFARC 

COSTAB 

I 

NFARC 

ENVPRQ 

I 

NFARC 

INTRPT 

I 

NFARC 

flAGIC 

I 

NFARC 

QLTOSZ 

I 

NFARC 

.SALVE 

I 

NFARC 

52)  BNDRV 

n 

NN 

INARC 

A 

NN 

flADAflS 

I 

NN 

flAGIC 

A 

NN 

NO ANAL 

I 

NN 

RKUTT1 

I 

NN 

RKUTT2 

I 

NN 

SALVE 

A 

NN 

NR AP  UP 

A 

NN 

892)  BNDRV 

I 

NOC 

BRANPT 

I 

NOC 

COSTAB 

0 

NOC 

COST  AI 

0 

NOC 

COST  AO 

0 

NOC 

INARC 

NOC 

INTRPT 

NOC 

SALVE 

NOC 

URAPUP 

NOC 

70)  BNDRV 

A 

NOCK 

BRANPT 

NOCK 

ENDPT 

NOCK 

INTRPT 

NOCK 

91 ) AL1 

V 

AL9 

V 

alt 

V 

ALB 

V 

AL9 

V 

BCOND 

NOfl 

BNDRV 

0 

NOW 

BRANPT 

A 

Non 

CONTRL 

V 

ENDPT 

NOfl 

ENVPRQ 

V 

FETCH 

0 

NOfl 

INTERP 

A 

V 

I NTRPT 

A 

NOfl 

NLDRV 

0 

NOfl 

nldrv 

V 

OUTPUT 

V 

PDBCQL 

V 

STATEF 

V 

URAPUP 

V 

6 OCT  7 2 G. 01-99 


DESCRIPTION 


STORAGE 
BLOCK LOC" 


ubroutine 

SUBR  CODE 


0 Tha  total  nuabcr  of  point*  In  tha  »uberc. 


I A NO  no rd  array  that  contains  tha  target  condition 
•Isst*  for  aiJ  the  target  condition*  fn  tha 
problem. 

1 An  lBiHl  array  used  to  store  tha  particular  and 

honogeneous  solutions  on  the  early  side  of  a corner 
point. 

0 Sign  of  the  variable  SIS  In  the  65th  aord  of  coseon 
block  /GOBAL/. 

SGN  = ♦ : payoff  to  be  aaiialtedx 

SGN  = payoff  to  be  ainlolted. 

1 Payoff  sign. 

SIG  < 0:  Payoff  to  be  alniaixad; 

S1G  > 0:  Payoff  to  be  nexiaixed. 

0 An  16  nor d array  ahose  first  nine  entries  receive 
the  values  of  the  partial  derivatives  art  the  state 
of  those  target  conditions  computed  in  subroutine 
POBCQL. 

0 The  quas I t i ■*  var I ab I e . 


I A 20  aord  array  used  to  store  the  total  linear 
solution  froa  the  preceding  QL  Iteration. 


19) 

BCOMD 

0 

NPT5 

BNDRV 

0 

NPTS 

FORCES 

I 

NPTS 

INARC 

A 

NPTS 

AA6IC 

0 

NPTS 

SALVE 

A 

NPTS 

yRAPUP 

0 

NPTS 

30) 

BNDRV 

1 

PZI 

BRANPT 

A 

PZI 

ENDPT 

A 

PZI 

1NTRPT 

A 

PZI 

Tl) 

BNDRV 

1 

S 

BRANPT 

I 

s 

ENDPT 

I 

s 

INTRPT 

I 

s 

1 1 

BNORV 

0 

SGN 

ENDPT 

1 

SGN 

65) 

BNORV 

I 

SIG 

2) 

BNORV 

D 

SPART 

BRANPT 

I 

5P  ART 

ENDPT 

] 

SPART 

INTRPT 

I 

SPART 

1) 

ALN 

I 

X 

BNORV 

0 

X 

ERROR 

I 

X 

FETCH 

0 

X 

FORCES 

I 

X 

INARC 

A 

X 

INTERP 

I 

X 

AAOAA5 

A 

X 

rkutti 

A 

X 

RKUTT2 

A 

X 

SALVE 

A 

X 

STATEF 

1 

X 

WRAP UP 

A 

TT 

1 ) 

BNDRV 

1 

z 

BRANPT 

I 

z 

ENDPT 

1 

z 

ENVPRO 

I 

z 

INTERP 

0 

z 

INTRPT 

I 

z 

LINDRV 

I 

z 

NOANAL 

A 

z 

OUTPUT 

I 

z 

rkutti 

0 

z 

RKUTT2 

A 

z 

SALVE 

A 

z 

WRAP UP 

A 

z 
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SUBROUTINE 

BRANPT 


Purpose 


BRANPT  evaluates  the  state  and  costate  target  misses  at  a branch  point 
and  their  partials  with  respect  to  the  c's.* 


See  Sections  16.6  and  17.4  of  Vol.  I 


branpt 


SUBROUTINE  BRANPTC DPZ1DC,  KK  ) 

THIS  ROUTINE  EVALUATES  THE  STATE  AND  COSTATE  TARGET 
PUSSES  AT  A BRANCH  PT.  ANO  THE  P ART  I AtS  OF  THOSE 
PUSSES  W/RESP.  TO  THE  C*S 

REAL  HA6BV,  HU,  H,  LV,  L6AH,  LPSI,  LR,  LRHO,  LHU,  L«,  LTAU,  NO* 

• LHT 
COHHQN  /0/ 

•X,  H * XI(H>,  HAGBV,  ERR,  09,  DIO,  C(HQ>,  CSAVE(hO),  V,  GAN,  P$I, 
•ALT,AHO,HU,«,  TAU,  HT,  LV,  LG  AN  LPSI,  LR.  LRHO,  LHU,  L*,  LTAU. 

• LHT,  0109,  DUO.  §V(h6>,  ZSAVE(io),  Q T C 20  J NPOlNTdO),  6elT(26) 

0 inENSI ON  NOH( 20  ) 

EQUIVALENCE  (NON,  V) 

CONNON  /CNTRL/ 

*NU  ; ITER  , I T AP A ,1TAPB  ,J*1N  ,JNAX  , LINES  ,XPT  ,NON  , 

• KARO  , I NDX( H ) , NEWNON, CNTO 1 6, RHOC  ,RHOP  ,NPTS  , NINES  , 

•KPAGE  ,NNP  ,NUP  ,IARC  ,TRSTR  ,INAX  ,KTINE  .XONVER.NOPRNT, 

• INBORV  NUPAGE I VARY( lo  1 NN,  NOvARY,  PLA5T  ZlAST,  K00£$ 

LOGICAL  INBORV,  NEWNON,  KONVER,  NOPRNT,  NUPAGE 
CONNON/ GLOBAL/ 

•GR  ,ER  . ONGZ  , XLAHRF , YNURF  ,LUN  ,T0  , EPSLON, I NNER  , 

• ITRNAX, JJOP(  6 ) ,IFATAL,NARC  ,NBRAN  ,NFARC  , 10(H)  KTAB(  20 ), 

• ITAB(  20 ),  SIG,HAXTAB  6fl,PSInF  IPFlGI , IPFl62, IPFLG3, IPFlGh, 
*INEQFl(20),  itPSO,  K50l,  INARK,K6lOBL( 7 > 

COrmON  /BLOCK/  IlCdG,  Z0>,  IltTdO,  20),  1 TCC  10,  20),  JTAB(20>, 

• ITCTtlO,  20),  LTAB( 20  i,  NQKNOW  N0C(20),  VALlCdO,  20), 

♦VALTC( lO,  20),  IPAY 

COflmGN  /EVAL/  SGN,  SP  ART(  18 ) , BAP(IO),  PZl(HO),  NOCK,  SUB,  Hi), 

• TEnP(HO),  DZ(18),  DC,  L,  SI(18,  Hi) 

COnnON  fit  Z(50> 

DlnENSIONDPZIDC(KK,  KK),  AB(27,  ZD.  BB(27),  VALC27),  ZZ<18>, 

• ZZZ(IB),  TimiB),  SB(ie,  hd,  tondfe) 

NTARG  = JTAB(NBRAN) 

NTARG  = LTAB(NBRAN) 

ASSIGN  113  TO  LABL 
KARC  = NBRAN  ♦ 1 
LARC  = NF ARC  ♦ 1 


BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

0 

0 

0 

0 

JUL21 

0 

D 

D 

CNTRl 

cntrl 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

global 

BLOCK 

BLOCK 

BLOCK 

EVAL 

EVAL 

Z 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 


39. 

101 

NA  = 0 

BRANPT 

HO. 

I F ( NTARG  .L£.  0)  GO  TO  LABL 

JUL19B 

HI. 

C 

SET  UP  THOSE  ROUS  OF  AB  THAT, RESULT  FRO*  THE 

INITIAL  BRANPT 

H2 . 

C 

CONDITIONS  ON  THE  STATE 

BRANPT 

H3. 

DO  102  I = 1,  27 

BRANPT 

HH. 

00  102  J = 1,  27 

BRANPT 

H5. 

102 

AB(  I , J ) r 0 

BRANPT 

H6. 

DO  lin  I = 1,  9 

BRANPT 

H7. 

C 

FIRST  ARC  OF  FIRST  BRANCH 

BRANPT 

h8  . 

IF(IIC(I,  KARC)  - 1)  103,  10H,  105 

BRANPT 

H9 . 

c 

CONTINUOUS  ST  ATE 

BRANPT 

50. 

103 

HA  = NA  ♦ 1 

BRANPT 

51. 

AB(HA,  I ♦ 9)  s 1 

BRANPT 

52. 

AB(HA,  I ♦ 18)  = -1 

BRANPT 

53. 

GO  TO  108 

BRANPT 

5H. 

C 

KNOWN  STATE 

BRANPT 

55. 

10H 

HA  = HA  ♦ 1 

BRANPT 

56. 

AB(HA,  I ♦ 9)  = 1 

BRANPT 

57. 

GO  TO  108 

BRANPT 

58. 

105 

IF( I IC( I KARC)  - 5)  108,  106,  107 

BRANPT 

59. 

C 

.KNOWN  DROP  WEI6HT 

BRANPT 

60. 

106 

HA  = HA  • iff 

BRANPT 

61 . 

AB(HA,  I = -1 

BRANPT 

62. 

AB(HA,  I,  ♦ 18)  = 1 

BRANPT 

63. 

GO  TO  J08 

BRANPT 

6H . 

C 

r SIZING  OROP  WEIGHT 

BRANPT 

65. 

107 

HA^S  HA  ♦ I 

BRANPT 

66. 

WPRQ  = GR*(ZSAVE(7)  - A) 

BRANPT 

67. 

CALL  WTDRP(WPRO,  WDRP,  DWDRP,  3) 

BRANPT 

68. 

AB(HA,  1 ♦ 9)  s -1 

BRANPT 

69. 

AB( HA , I + 18)  = 1.  - DWDRP 

BRANPT 

70. 

C 

FIRST  ARC  OF  SECOND  BRANCH 

BRANPT 

o - i ) 109,  no,  in 
CONTINUOUS  STATE 
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73. 

79. 

75. 

76. 

77. 

109 

C 

AA  = RA  * ■ 1 
AB<  RA  I ) = 1 
AB(  AA  I ♦ 18)5  -1 
GO  TO  119 

KNOWN  STATE 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

78. 

79. 

80. 

no 

AA  = AA  ♦ 1 
AB<  AA,  I)  = 1 
GO  TO  119 

BRANPT 

BRANPT 

BRANPT 

81  . 

in 

IFtllCd,  LARC)  - 5)  119,  112,  113 

BRANPT 

Trr=r 

82 . 

c 

KNOWN  DROP  WEIGHT 

BRANPT 

, j 

83. 

89. 

85. 

86. 

112 

«A  = AA  ♦ 1 
AB!  AA,  |)s-I 
AB(HA,  I ♦ 18)  = 1 
GO  TO  119 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

87. 

113 

AA  = AA  ♦ 1 

BRANPT 

88. 

imicu,  LARC)  .LT.  7)  60  TO  1131 

BRANPT 

1131 — | 

89. 

90. 

91. 

92. 

93. 

c 

WEIGHT  DISTRIBUTION  PROA  STEM  TO  BRANCHES. 

AB( AA,  I > = -1 
AB(AA,  I 4 9)  = -1 
AB(AA,  1 ♦ 18)  5 1 
GO  TO  119 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

9*1 . 

C 

SIZING  DROP  WEIGHT 

BRANPT 

95. 

96. 

97. 

98. 

1131 

WPRO  r 6RMZ$AVE(7)  - A) 

CALL  UTORPIWPRO,  WDRP,  DWDRP,  3) 

AB(AA,  I ) = -1 

AB(AA,  1 4 18)  r l.  . DWDRP 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

L 99. 
100. 

119 

CONTINUE 
60  TO  LABL 

BRANPT 

BRANPT 

101  . 

c 

ARE  THERE  ANY  STATE  TARGET  CONDITIONS  TO  BE  SATIS- 

BRANPT 

102. 

c 

PIED  AT  THE  END  OF  THE  STEA 

BRANPT 

103. 

c 

ARE  THERE  ANY  COSTATE  TARGETS  TQ  BE  SATISFIED 

BRANPT 

109. 

115 

IFtATARG  .LE.  0)  GO  TO  121 

BRANPT 

121  — 

105. 

c 

YES.  ADO  ROWS  TO  AB  AATRlX  THAT  RESULT  FROA  STATE 

BRANPT 

106. 

c 

TARGET  CONDITIONS.  AT  THE  SAME  TIflE,  EVALUATE  THESE 

BRANPT 

107. 
- 108. 

109. 

110. 
111. 

c 

TARGETS*  AISSES  AND  THEIR  PARTIALS  W/RESP.  TO  C*S. 
00  120  I = 1,  ATARG 

AA  ~ AA  4 1 

KOOE  = I TC< I NBRAN  ) 

K = L 4 I 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

112. 

IFtKODE  .GT.  11  ) GO  TO  117 

BRANPT 

117  — 

113. 

119. 

115. 

c 

S1APLE  RELATIVE  STATE  AATCH 
KOOE  = AAP(KOOE) 

AB(AA,  KOOE  4 18)  r 1 

BRANPT 

BRAtiPT 

BRANPT 

116. 

117. 

c 

COflP.  AND  STORE  TARGET  AlSS 
PZI(K)  - NOA(KOOE)  - VAlTCU,  IARC) 

BRANPT 

BRANPT 

116. 
r 119. 

c 

STORE  PARTS.  W/RESP.  TO  C*S 
DO  116  J = 1,  NOCK 

BRANPT 

BRANPT 

L 120. 
121. 

116 

DPZIOCU,  J)  = S(  KOOE , J 4 1) 
GO  TO  126 

BRANPT 

BRANPT 

1 

122. 

c 

COAPLEX  CONDITION  ON  THE  STATES 

BRANPT 

123. 
129. 
r 125. 

117 

1 SKIP  5 0 

CALL  PDBCOLtKOOE,  VAL,  SPART,  RUAAV,  1,  I SIC  I P > 
00  11*  J 5 1,  9 ' 

BRANPT 

BRANPT 

BRANPT 

u 126. 

118 

AB(  AA,  J ♦ 18)  = SPART(J) 

BRANPT 

127. 

128. 

C 

COAP.  AND  STORE  TARGET  AlSS. 
PZHK)  = VAL  - VALTCU,  NBRAN) 

BRANPT 

BRANPT 

i 

j 

129. 

130. 
r 131. 

c 

COAP.  AND  STORE  PARTS. W/RESP. TO  C*S  OF  TARGET  AlSS 
CALL  AATALT!  TEAR . SPART,  S<1,  2),1,  18,  NOCK) 

00  119  J = 1,  NOCK 

BRANPT 

BRANPT 

BRANPT 

L 132. 

119 

OPZI  0C(  K , J)  = TEAPCJ) 

BRANPT 

“ 133. 

120 

CONTINUE 

BRANPT 

139. 

C 

ARE  THERE  ANY  COSTATE  TARGET  CONDITIONS 

BRANPT 

IF(  NTARG  . LE  . 0 ) 60  TO  191  BRANPT 

VES.  COrtPLETE  AND  INVERT  AB  NATRIX  BRANPT 

CALL  BASIS!  AB,  #1A  27)  BRANPT 

CALL  GJRViAB,  27.  I.E-12,  IERR ) BRANPT 

SET  UP  THE  BB  VECTOR  SO  THAT  THE  TRANSVERSALlTV  BRANPT 

CONDITIONS  CAN  BE  EVALUATED  BRANPT 

KNOCK  s NOC(KARC)  BRANPT 

KROCK  = NOC(LARC)  BRANPT 
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0 


[ 


200. 

201. 

202. 

203. 

209. 

205. 

206. 
207. 
200. 

209. 

210. 
211. 
212. 
213. 
219. 
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193. 

199. 

195. 

196. 

197. 

198. 

199. 

150. 

151. 

152. 

153. 
159. 

155. 

156. 

157. 

158. 

159. 

160. 
161. 
162. 
163. 
169. 

165. 

166. 

167. 

168. 

169. 

170. 

171. 

172. 

173. 
179. 

175. 

176. 

177. 


185. 

86. 


196. 

197. 


198. 

199. 


CALL  RE ADHSC  9 1 SI.  18»< KNOCK  ♦ 1),  2*NBRAN  4 1)  BRANPT 

CALL  MATHLTCZZ,  SIC  1.  21,  C,  18,  KNOCK,  U BRANPT 

CALL  HATAODCZZ,  ZZ,  Si,  18,1)  BRANPT 

CALL  REA0HSC91,  SB,  18*(  KR6cK  ♦ 1),  2*NFARC  4 l)  BRANPT 

CALL  HATHLTC  ZZZ,  SBC  1,  2),  C,  18,  CROCK,  1>  BRANPT 

CALL  HATADDCZZZ,  ZZZ,  SB,  18,  I ) BRANPT 

00  122  I = 1,  9 BRANPT 

J = I ♦ 9 BRANPT 

BBU  ) = -ZZZC  J ) BRANPT 

BB(  J ) = -ZZ<J)  BRANPT 

122  BBU  4 9)  = NOHCJ)  BRANPT 

IF  = HA  4 1 BRANPT 

IL  = 27  - HA  BRANPT 

IP  = L 4 ATAR6  BRANPT 

C ~ CQnP.  THE  TRANSVERSAL1TY  CONDITIONS  BRANPT 

CALL  MATHLTC VAL,  BB,  AB(1,  IF),  1,  27,  lL>  BRANPT 

C STORE  THE  n6n-TRIVIAL  TRANSVERSAL  I TV  CONDITIONS  AS  BRANPT 

C COSTATE  TARGET  HISSES  BRANPT 

00  123  I = 1,  NTAR6  BRANPT 

J = ITCTC 1 , NBRAN > BRANPT 

K = IP  4 I BRANPT 

123  PZKK)  = VAL(J)  BRANPT 

C COMPUTE  THE  PARTS. U/RESP. TO  THE  C*5  OF  THE  COSTATE  BRANPT 

C TARGET  HISSES  BRANPT 

00  190  IC  = 1,  KROCK  BRANPT 

C COMPOTE  THE  STATE/COSTATE  PERT.  RESULTING  FROM  PERT.  BRANPT 

C OF  THIS  C.  BRANPT 

CALL  HATHLTtOZ,  SBC 1 , IC  4 1),  DC,  IB,  1,  1>  BRANPT 

C ADO  STATE/COSTAfE  P&RT.  TO  BASE  VALUE  OF  STATE/CO-  BRANPT 

C STATE  VECTOR  BRANPT 

CALL  HATAQDC  TIH,  ZZZ,  OZ,  18,  1>  BRANPT 

IFUC  - KNOCK  - 1)  1*9,  125,  12?  BRANPT 

C THIS  C HAS  AN  EFFECT  ON  THE  FIRST  BRANCH.  COMP.  ITS  BRANPT 

C EFFECT  ON  THE  STATE/COSTATE  VECTOR  AT  THE  START  OF  BRANPT 

C THE  FIRST  BRANCH. , BRANPT 


118.  129  CALL  HATHLTIDZ,  SlU,  1C  ♦ 1),  DC,  IB,  l,  i>  BRANPT 

179.  CALL  MATAODCTOH,  ZZ,  OZ,  18,  1)  BRANPT 

180.  GO  TO  127  BRANPT 

181.  C THIS  C ANO  All  SUBSEQUENT  C«S  IN  THIS  LOOP  ARE  TO  BRANPT 

182.  C HAVE  NO  EFFECT  ON  THE  FIRSJ  BRANCH.  RESTORE  THE  BRANPT 

183.  C STATE/COSTATE  VECTOR  AT  THE  START  OF  THE  FIRST  BRANPT 

189. C BRANCH  TO  ITS  BASE  VALUE. BRANPT 


125 

126 


DO  126  I = 1,  18 
TOH<  I > = ZZ(  I ) 


BRANPT 

BRANPT 


187.  127  I Ft IC  - NOCK  - 1 ) 128,  129,  132  BRANPT 
186.  C THIS  C HAS  AN  EFFECT  ON  THE  STEH.  COflP . ITS  EFFECT  BRANPT 
189.  C ON  THE  STATE/COSTATE  VECTOR  AT  THE  ENO  OF  THE  STEH  BRANPT 


190.  128  CALL  HATHLTCDZ,  SCI,  IC  4 l)f  DC,  18,  1,  1)  BRANPT 

191.  CALL  HATAODC  NON,  Z,  DZ,  16,  1)  BRANPT 

192.  GO  TO  131  BRANPT 

193.  C THIS  C ANO  ALL  SUBSEQUENT  C*S  IN  THIS  LOOP  ARE  TO  BRANPT 

99.  C HAVE  NO  EFFECT  ON  THE  STEH.  RESTORE  THE  STATE/CO-  BRANPT 

195.  C STATE  VECTOR  AT  THE  END  OF  THE  STEH  TO  ITS  BASE  VAl.  BRANPT 


129 

130 


00  130  I = 1.  18 

Nom  i ) = z<  n 


BRANPT 

BRANPT 


131  CALL  FORCES 


RECOHPUTE  BB  VECTOR 


BRANPT 

BRANPT 


132  00  133  1=1,9 
J = I ♦ 9 

BBC  I ) = -TIHC J > 

BBC  J ) = -TOHCJ) 

133  BBC J 4 9)  = NOHC  7) 

RECOHPUTE  AB  HATRI1*5  INVERSE 
ASSIGN  139  TO  LABL 
GO  TO  101 

139  IFCHTARG  .LE.  0)  GO  TO  138 
DO  137  1 = 1,  HTARG 
HA  = HA  4 1 
KOOE  = ITCC1,  NBRAN) 

K = L 4 I 

I F C KOOE  .GT.  11)  GO  TO  135 
KOOE  = HAP(KODE) 


BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 

BRANPT 


129— 9125-1 127-1 


127- 


131—1 


138- 


135 — j 


1 01  -J 


ABtflA,  RODE  4 18)  = 1 
SO  TO  137 


217. 

135 

I SRI P = 0 

BRANPT 

218. 

CALL  PDBCOLl RODE . VAL,  SP ART  RUflflV , 1,  1 SKIP  > 

BRANPT 

r 219. 

DO  136  j s 1.  9 

BRANPT 

L 220. 

136 

AB( NA,  J ♦ 18)  s SPARTC J > 

BRANPT 

L-  221. 

137 

CONTINUE 

BRANPT 

222. 

138 

CALL  BASIS! AB . HA , 27) 

BRANPT 

223. 

CALL  GJRV(A8,  27,  i.E-12,  I ERR ) 

BRANPT 

229. 

C 

COUP.  PERT.  TRANS.  CONOS. 

BRANPT 

225. 

CALL  flAT«LT(VAL.  BB,  ABU,  IF).  1,  18,  ID 

BRANPT 

226. 

C 

c6nP.  DIVIDED  DIFF.  PARTIAlS  OF  THE  COSTATE 

BRANPT 

227. 

c 

TARGETS  W/RESP.  TO  THIS  C. 

BRANPT 

r 228. 

DO  13J  I = 1,  NTARS  _ ... 

BRANPT 

J 229. 

J = ITCTU,  NBRAN ) 

BRANPT 

230. 

R = IP  ♦ I 

BRANPT 

L 231. 

139 

0P2  IDC(  K !C>  = IVALU)  * PZI  ( K > )/DC 

BRANPT 

■—  232. 

190 

CONTINUE 

BRANPT 

233. 

c 

INCBEflENT  THE  NUDBEB  OF  STATE/COSTATE  TARGET  I9ISSES 

BRANPT 

239. 

c 

EVALUATED  SO  FAR 

BRANPT 

HI  L s L ♦ NTARS  ♦ NTAR6 
RETURN 
END 
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FORTRAN 
5 YABOL 


MATH 

SVABOL 


COOE 


DE5CRIPTI0IM 


STORAGE  SUBROUTINE  USAGE 

Tlock loT"  subr  code  VAR 


DC 


Ac, 


02  Acjhjt  I’) 


SR 


9f 


I ARC  I 


lie 


ITC 


I TCT 


A forty  »ord  array  containing  the  vector  of  c's. 

/O 

/( 

11  ) BNDRV 

I 

c 

l.a.  the  nultlpliers  for  the  hoaogeneout 

BRANPT 

I 

c 

solutions. 

GROPE 

I 

c 

INTRPT 

I 

c 

NEWCS 

A 

c 

NLORV 

I 

c 

NOrtNAL 

I 

c 

URAPUP 

I 

c 

Snail  perturbation  of  a c. 

/EVAL 

/< 

867)  BNDRV 

D 

DC 

BRANPT 

I 

DC 

ENDPT 

I 

DC 

INTRPT 

I 

DC 

An  18  nord  array  that  contains  the  second  tern  on 

/EVAL 

/< 

849)  BRANPT 

I 

DZ 

the  right  hand  side  of  Equation  1 7 . Yi  1 1 of  Vo  I . I of 

ENDPT 

I 

OZ 

this  docunent. 

INTRPT 

I 

DZ 

Gravitational  acceleration  at  surface  of  the  earth. 

/GLOBAL/* 

1)  AL5 

I 

6R 

(FT/SEC2) 

APPLY 

I 

GR 

BRANPT 

I 

6R 

COSTAB 

I 

GR 

COST  AI 

1 

GR 

INTRPT 

I 

GR 

OUTPUT 

I 

GR 

PDBCQL 

I 

SR 

QLTOSZ 

I 

GR 

SALVE 

I 

GR 

STATEF 

1 

GR 

T M3 

I 

GR 

/ CNTRL 

/< 

24)  ARC1N 

I 

I ARC 

BCOND 

A 

I ARC 

BNORV 

A 

I ARC 

BRANPT 

I 

I ARC 

CHECK 

A 

I ARC 

COSTAB 

I 

I ARC 

COSTA] 

I 

1 ARC 

ENDPT 

I 

1 ARC 

FORCES 

I 

I ARC 

INARC 

A 

1 ARC 

INTRPT 

I 

I ARC 

AAGIC 

A 

1 ARC 

AARCH 

1 

I ARC 

QLTOSZ 

I 

I ARC 

SALVE 

A 

I ARC 

URAPUP 

A 

I ARC 

A 10x20  array  containing  the  initial  condition 

/BLOCK 

/( 

1)  BCONO 

A 

1IC 

codes  for  the  QL  state  vector.  The  colunns 

BRANPT 

1 1 C 

correspond  to  subarc  starting  points,  the  romt , to 

CHECK 

lie 

QL  state  variables. 

COSTAB 

lie 

COST  AI 

lie 

COSTAO 

lie 

INTRPT 

lie 

SALVE 

lie 

A 10x20  array  containing  the  initial  condition 

/BLOCK 

/( 

401)  BCONO 

0 

ITC 

codes  for  the  QL  costate  vector.  The  colunns 

BRANPT 

ITC 

correspond  to  subarc  starting  points,  the  rons,  to 

CHECK 

ITC 

QL  costatt  variabits. 

COSTAB 

ITC 

CO  ST  A I 

ITC 

ENDPT 

ITC 

INTRPT 

ITC 

A 10x20  array  containing  the  QL  costate  analog,  to 

/BLOCK 

/( 

621)  BCOND 

0 

I TCT 

the  array  1 1 CT . The  colunns  correspond  to  subarc 

BRANPT 

I TCT 

end  points.  The  nonzero  entries  in  a colunn  are 

CHECK 

ITCT 

the  numbers  of  those  conponents  of  the  vector  8 in 

COSTAB 

0 

1 TCT 

Equation  16.6.3**  of  Volune  I of  the  PADS  docunent 

COST  A I 

0 

ITCT 

that  contain  the  value  of  a costate  target 

INTRPT 

I 

ITCT 

condition  that  applies  at  the  end  of  the 

AAGIC 

0 

ITCT 

corresponding  tub arc. 
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FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


BLOCK 


-STQHft^E. 


loc 


SUBROUTINE  USAGE 
SUBR  CODE  VAR 


JTAB 

1 

An  array  containing  the  number  of  neniero  entries 

/BLOCK 

/( 

601  ) 

BC0ND 

M 

JTAB 

in  each  colunn  of  the  array  I I CT . 

BRANPT 

I 

JTAB 

CHECK 

I 

JTAB 

COSTAB 

I 

JTAB 

COST  Al 

I 

JTAB 

ENDPT 

I 

JTAB 

INTRPT 

1 

JTAB 

MAGIC 

I 

JTAB 

L 

n 

Total  nuaber  of  target  conditions  to  satisfy  In  the 

/EVAL 

/< 

866  ) 

BN0RV 

M 

L 

prob 1 ca. 

BRANPT 

M 

L 

ENDPT 

M 

L 

INTRPT 

M 

L 

LTAB 

i 

An  array  containing  the  nuaber  of  nonzero  entries 

/BLOCK 

/< 

821  ) 

BCOND 

0 

L7AB 

— 

in  each  coluan’  of  the  array  ITCT.  - • 

BRANPT 

I 

LTAB 

COSTAB 

0 

LTAB 

COST  AI 

0 

LTAB 

INTRPT 

I 

LTAB 

MAGIC 

M 

LTAB 

n 

■ 

I 

Mats  <6'S> 

/O 

/( 

9?) 

AH 

I 

M 

ALT 

1 

M 

ALB 

1 

M 

AL9 

I 

M 

APPLY 

I 

M 

BRANPT 

I 

M 

COSTAB 

I 

M 

COST  AI 

1 

M 

INTRPT 

I 

M 

m 

■ 

ftLORV 

1 

H 

OUTPUT 

I 

M 

SALVE 

] 

M 

STATEF 

I 

M 

NRAPUP 

I 

M 

HAP 

I 

A 10  aord  array  that  aapt  the  steepest  descent 

/EVAL 

/< 

20) 

BNDRY 

0 

MAP 

state  vector  into  the  Ql  state  vector. 

BRANPT 

I 

MAP 

ENDPT 

I 

MAP 

INTRPT 

I 

MAP 

NBA  AM 

N, 

I 

Nuaber  of  the  last  subarc  on  the  stea  of  a branch. 

/SL0BAL/( 

19  ) 

BNDRY 

I 

NBRAN 

I 

problea.  If  the  probiea  is  not  a branch  probiea. 

BRANPT 

I 

NBRAN 

then  NBRAN  = 0. 

COSTAB 

I 

NBRAN 

ENVPRQ 

I 

NBRAN 

INTRPT 

I 

NBRAN 

MAGIC 

I 

NBRAN 

0LT0S2 

I 

NBRAN 

SALVE 

1 

NBRAN 

NF  ARC 

N* 

i 

Nuaber  of  the  last  subarc  on  the  first  branch.  If 

/GLOBAL/! 

20) 

BCOND 

I 

NF  ARC 

2 

the  probiea  is  not  a branch  probiea,  then  NF  ARC  = 

BNORV 

I 

NF  ARC 

NARC. 

BRANPT 

I 

NF  ARC 

COSTAB 

I 

NF  ARC 

ENVPRQ 

I 

NF  ARC 

INTRPT 

I 

NF  ARC 

MAGIC 

I 

NFARC 

QLTOSZ 

I 

NF  ARC 

SALVE 

I 

NFARC 

NOC 

i 

An  array  containing  a running  total  of  the  nuaber 

/BLOCK 

/< 

8R2  ) 

BNDRY 

I 

NOC 

of  free  (unknoan)  state  and  co'state  variables  at 

BRANPT 

I 

NOC 

the  start  of  each  subarc. 

COSTAB 

0 

NOC 

COST  AI 

0 

NOC 

COST  AO 

0 

NOC 

INARC 

I 

NOC 

INTRPT 

I 

NOC 

SALVE 

I 

NOC 

WBAPUP 

I 

NOC 

NOCK 

a. 

i 

The  nuaber  of  c's  in  the  vector  Ct  defined  by 

/EVAL 

/< 

70) 

BNDRY 

M 

NOCK 

I 

Equation  17  >H-H  of  Vol.i  of  this  docuaant. 

BRANPT 

I 

NOCK 

ENOPT 

I 

NOCK 

INTRPT 

I 

NOCK 

6 OCT  72  G.Ol-HH 


/£>'■ 


FORTRAN 

SYMBOL 


DESCRIPTION 


SI  OR  AGE 
BLOCK  LOC 


subroutine  usag 
SUBRCOOl WAR 


R e I at  i v a velocity. 


A HO  word  array  that  contains  the  targe 
al  ss«t  for  all  the  target  conditions  in 
problem. 


I An  18x91  array  used  to  store  the  particular  and 
homogeneous  solutions  on  the  early  side  of  a co 
point. 


do  cun  nt . 

I A 10x20  array  containing  the  desired  values  of  the 
state  target  conditions  mhose  codes  appear  in  the 
array  I1CT. 


point  of  the  trajectory. 


( FT/ SEC  ) 

/D 

/( 

91  > 

ALl 

1 

V 

AL9 

I 

V 

AL  7 

I 

V 

AL8 

I 

V 

AL9 

I 

V 

BCOND 

I 

NOft 

BNDRV 

0 

NO  ft 

BRANPT 

n 

NOft 

CONTRL 

i 

V 

ENBPT 

i 

NOft 

ENVPRO 

i 

V 

FETCH 

0 

NOft 

INTERP 

n 

V 

INTRPT 

n 

NOft 

NLDRV 

0 

NOft 

nldrv 

i 

V 

OUTPUT 

r 

V 

PDBCOL 

i 

V 

STATEF 

i 

V 

WRAP  UP 

i 

V 

t condition 

/EVAL 

/( 

30  ) 

BNDRV 

i 

PZI 

the 

BRANPT 

PZI 

ENDPT 

ft 

PZI 

INTRPT 

It 

PZI 

liar  and 

/EVAL 

/< 

71  ) 

BNORV 

I 

s 

of  a corner 

BRANPT 

I 

s 

CNOPT 

1 

s 

INTRPT 

I 

s 

liar  and 

/EVAL 

/( 

869  ) 

BRANPT 

I 

SI 

>f  a corner 

INTRPT 

1 

51 

a receive 

/EVAL 

/( 

2 ) 

BNORV 

0 

SPART 

t the  state 

BRANPT 

I 

SPART 

i ubr  out i ne 

ENDPT 

I 

SPART 

INTRPT 

I 

SPART 

lose  of  the 

/EVAL 

n 

609  ) 

BRANPT 

I 

TEftP 

1 .1  of  this 

ENDPT 

I 

TEftP 

INTRPT 

1 

TEftP 

lues  of  the 

/6L0CK 

/( 

1062  ) 

BCOND 

0 

VALTC 

! ar  in  the 

BRANPT 

I 

VALTC 

CHECK 

1 

VALTC 

ENDPT 

I 

VALTC 

INTRPT 

I 

VALTC 

linear 

n 

/( 

1 ) 

BNDRV 

1 

Z 

I . 

BRANPT 

1 

Z 

ENDPT 

I 

Z 

ENVPRO 

I 

z 

INTERP 

0 

z 

INTRPT 

1 

z 

UNORV 

1 

z 

NORMAL 

n 

z 

OUTPUT 

i 

z 

* 

RKUTT1 

0 

z 

RKUTT2 

ft 

z 

SALVE 

ft 

z 

WRAP UP 

ft 

z 

s from  the 

/D 

/< 

151  > 

BCOND 

0 

2SAVE 

the  initial 

BRANPT 

ZSAVE 

C05TAB 

ZSAVE 

COSTA! 

ZSAVE 

INTRPT 

ZSAVE 

PDBCOL 

ZSAVE 

SALVE 

ZSAVE 
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SUBR0UTINE 

CHECK 


Purpose 

CHECK  initializes  the  flags  and  parameters  needed  by  QL  module  to  carry 
out  the  integration  and  solution  of  the  trajectory  optimization  problem. 


/6/7 


CHECK 


1. 

PROGRAM 

CHECK 

CHECK 

2. 

C 

CHECK 

3. 

C 

THIS  1 

ROUTINE  HANDLES  THE 

INITIALIZATION  OF  THOSE 

CHECK 

9. 

C 

FLAGS 

AND  PARARETERS  THAT 

ENABLE  QL 

TO  CARRY  OUT 

CHECK 

5. 

C 

THE  INTEGRATION 

AND  SOLUTION  OF  THE 

0PTIRIZAT10N 

CHECK 

*• 

c 

PROBLER. 

CHECK 

t. 

c 

CHECK 

8. 

COnnON/  ORBIT/  VI. 

GARI, 

PSII, 

XRUI, 

Pf 

ORBIT 

9. 

• ECC, 

AINCL . 

ARGP, 

ASCNOD 

SRIRAJ 

APOGEE. 

ORBIT 

10. 

* PERGEE, 

ANOfILY 

C AP  X # 

CAPY, 

ASYRP , 

ENER6Y. 

ORBIT 

11. 

* HflNTfl, 

DVIDV, 

DVlDG, 

ORBIT 

12. 

* DVIDH  , 

OV I DPI . 

D V I DPS, 

DVIDRO, 

DVIDRU, 

DGIDV. 

ORBIT 

13. 

* DGIDG  , 

OGI DH 

DGIDfl  , 

OGIOPS, 

DG1DR0, 

0G1DRU, 

ORBIT 

19. 

♦ DPIDV  , 

DPIDG. 

DPIDH  , 

DP  I DR  , 

OPIDPS, 

DPIDRO, 

ORBIT 

15. 

* DPIDPJU. 

DNIDV, 

ORIOG  ; 

DR1DH  , 

DRIDR  , 

DRIOPS 

ORBIT 

16. 

* OPIIDRO, 

onionu, 

, DPCV  , 

0PD6  r 

DPDH  , 

DPDR  , 

ORBIT 

17. 

* DP DPS  , 

DPDRC  . 

„ DPDRU  . 

OECD V , 

DECDG 

DECDH  . 

ORBIT 

18. 

♦ OECDn  . 

DECDPS, 

, OECORO, 

OECDRU, 

DIDV  , 

DIOG  . 

ORBIT 

19. 

* OIDH  , 

D 1 DR  , 

DIOPS  f 

DIORO  . 

DIDRU  , 

DBEDV  , 

ORBIT 

20. 

9 OBEOG  , 

OBEDH  . 

, OBEDR  , 

DBEOPS, 

DBEQRu 

DBEDRU. 

ORBIT 

21. 

« DNODV  , 

DNODG  . 

DNODH  . 

dnodr  , 

DNODPS, 

ONODRO. 

ORBIT 

22. 

9 DNOOnU, 

DSROV. 

QSrtDG, 

DSROH, 

osrdr, 

DSRDPS 

ORBIT 

23. 

COiWON/ORBIT/ 

ORBIT 

29. 

9 DSPIORO. 

OSRDRU, 

OAPDV, 

DAPDG, 

DAPDH, 

DAPDR  , 

ORBIT 

25. 

9 OAPOPS, 

DAPORO 

DAPORU , 

OPEOV, 

DPEDS, 

OPEOH  . 

ORBIT 

26. 

• DPEDfn 

DPEOPS 

, DPEORO 

DPEDRU 

.DANOV 

.danCig 

, ORBIT 

27. 

9 DANOH  , 

DANDR  . 

OANDP  S , 

DANORO, 

Dandru. 

DC  XD V , 

ORBIT 

28. 

* DCXOG  ; 

DCXDH  , 

DCXDR  , 

DCXDPS, 

DCXDRO J 

DCXORU. 

ORBIT 

29. 

* OCYOV  , 

DCYOG  , 

OCYOH  , 

OCYDR  . 

QCYOPS, 

OCYDRO, 

ORBIT 

30. 

* DC YDWU, 

DASDV  , 

OASOG  , 

DASDH  , 

OASOR  , 

DASDPS, 

ORBIT 

31. 

9 DASQRO, 

OASORU. 

DENDV  , 

DENDG  , 

DENDH  , 

DENDR  , 

ORBIT 

32. 

9 OENDPS. 

OENDRO, 

DENDHU, 

OROOV  , 

DRODG  , 

DRODH  , 

ORBIT 

33. 

9 OrtOOPl  . 

DROOPS. 

OROORO. 

ORODRU 

ORBIT 

39. 

DIMENSION  ORBPRPU  18  ] 

i.PPOt  7.18) 

ORBIT 

35. 

equivalence 

: C VI  .0R9PRRM  DVIDV, 

,PPO  ) 

ORBIT 

36. 

COewnON/ORBIT/  VPIXRF. 

snxlrr.csxlrr.soown. 

SCROSSTD , 

TC 

ORBIT 

37. 

9 SNPSR 

CSPSR 

, SNGI 

,CSGI 

,sp$ii 

.CPSII 

, ORBIT 

38. 

9 5T0T 

CS1 

, SNI 

, sngnu 

, CS ANO 

. COSORU 

, ORBIT 

39. 

9 siNOnu  , 

tht 

#NTFUEL 

ORBIT 

90  . 

c 

CHECK 

91. 

REAL  HA 6 

CHECK 

92. 

LOGICAL  RECVCL 

CHECK 

93. 

EXTERNAL  NUCASE.  EXIT 

CHECK 

99. 

COrtflON/ ARCDAT / 

ARCDAT 

95. 

• 5REF  , 

EJ 

,XISP 

. trult 

,OT«C 

.OTPI 

, ARCDAT 

96. 

9 I ATW  , 

IRODE 

,JAER 

,JPRO 

ORAX 

, GRAX 

, ARCDAT 

97. 

9XLPIAX  , 

HORAX 

,GRDOT 

.ALFRAX 

.PHRAX 

, RAEA 

, ARCDAT 

98. 

♦flAEB  , 

RAE.C 

, RAED 

, RAEE 

, RAEF 

RAEG 

, ARCDAT 

99. 

9WT  , 

RISP 

, RXCG 

, RZCG 

RtVOA 

RNDB 

, ARCDAT 

50. 

9«DB  . 

XCGR 

ZCGR 

,XE 

,ZE 

.XT 

, ARCDAT 

51. 

90REF 

RCND  . 

, RHOB 

, QRULT 

RERAX 

FR  ATE 

ARCDAT 

52. 

01  PENSION 

ARCDA( 90  ) 

ARCDAT 

53. 

EQU I VALE«CE< SREF . ARCOA  ) 

ARCDAT 

59. 

COPUnON  / RAP/  AAP(IO) 

NAP 

55. 

COrtflON  /CNTRl/ 

CNTRl 

56. 

9NU  .ITER 

.ITAPA 

I T APB  , JPlIN  , J RA  X 

, LINES  , KPT  , ROR  , 

CNTRl 

57. 

• KARO  , I NOX( 9 i 

,NEuiN0l1,CNT0i6,RH0C 

, RHOP  NPTS  .RINES  , 

CNTRL 

58. 

*KP AGE  . NNP 

.NUP 

. I ARC  . TRSTR  .IRAX 

.KTIRE  . KONVER. NOPRNT. 

CNTRL 

59. 

9INBDRY.NUPAGE.IVARV( 

20),  NN , NOVARY.  PLAST.  ZlAST. 

KOOES 

CNTRL 

60. 

LOGICAL  INBDRV.  NEWNOfl . KONVER , 

NOPfiNT. 

NUPAGE 

CNTRL 

61 . 

REAL  NAGBV, 

flU.  R.  LV . LGAR.  LPSI.  LR.  LRHO.  LRU. 

LR.  LTAU,  NOR 

D 

62. 

9 LHT 

D 

63. 

COrtflON  /D/ 

D 

69. 

• X,  H,  X I ( 9 ) 

, RAGB V . 

ERR.  09.  010.  C(90>, 

CSAVE(90) 

. V.  GAR.  PSI. 

D 

65. 

9ALT,HH0.FIU, 

R.  TAU.  HT.  LV.  LGAfl 

1.  LPSI.  LR.  lRHO-  LRU.  LR.  LTAU. 

JUL21 

66. 

9LHT.  Dl09. 

D 1 1 0 . BV(9t)).  lSAVE(20).  Q t(  20  ) . NP01NT12&).  DElT(20) 

D 

67. 

0 WIENS  ION  NQrt<  20 ) 

D 

66. 

EQUIVALENCE 

I NOR,  V) 

D 

69. 

connON  /pc/ 

PC 

70. 

•PCI  . N 

.PC3 

,IQP  ,PC5 

,PC6 

PC7  , RA  XBQ  .NAUX 

PC 

71. 

COnflON/GLOBAL/ 

Global 

72. 

•GR  .ER 

. 0RG2 

, XlARRF, YRuRF  ,lun 

.TO  .EPSLON. INNER  . 

Global 

73. 

•ITflrtAX, JJ0P<6) 

.IFATAl.NARC  .nbran 

. NFARC  .10(9)  .KTA8(20). 

Global 

79. 

• IT AB<  20  ) . SIG.PIAXTAB 

.gh.psiRf  , 

IPFLG1 . IPFLG2. IPFLG3. IPFLG9. 

global 

75. 

• INEQFU20), 

ITPSO,  K 

Sol,  inark. 

KGLOBlI  7 ) 

Global 
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/£// 


q 


c 

c 

c 

c 


76. 

COMMON  /BLOCK/  IlCdO,  20>#  1 1 CTC  10,  20).  ITCdO, 

20),  JTAB(  20  ), 

BLOCK 

77. 

MTCTllO,  20).  LTAB(  20 ) , NOKNOW,  N0C<20>,  VALlCC  10, 

20), 

BLOCK 

7S. 

♦VALTCdO,  20),  IPAY 

BLOCK 

79. 

DIMENSION  TABLE!  1 ) . TEMP(25>,  1TEMP150),  NUd  > 

CHECK 

80. 

EQUIVALENCE  (ITABLE,  TABLE! 

CHECK 

81. 

OATA  MAP/2*5,  7,  9,  2*6,  2,  6,  9,  0/ 

JUL21 

82. 

DATA  RAO/57.295  77 95130823/ 

CHECK 

83. 

OATA  CHECKX  /6H  CHECK/ 

CHECK 

B9. 

9 FORMAT!  IH1 , 29HMAXIMUM  NUMBER  OF  I TER AT 1 ONS= , 13, 

1 3X . 1 7H0ES  I RED 

CHECK 

88. 

♦ACCURACY:,  E13.6) 

CHECK 

86. 

6 FORMAT! 1H  , 26HAD AMS-MOULTON  INNER  LOOPS=.  12) 

CHECK 

87. 

10  FORMAT! 1H0,  23X,  27H****B0uNDARY  CONDI T IONS»*** ) 

CHECK 

88. 

11  FORMAT! 1H0.  10HSUBARC  NO..  I3/1H0.  2X.  7HPERTURB . 

III.  15HT0 

MATCH 

CHECK 

89. 

♦ BOUND-/ 1 H . 12HVARI ABLE  NO..  7X.  17HARY  CONDITION  NO..  7X, 

12HT0 

CHECK 

90. 

* THE  VALUE,  7X,  12HAT  THE  POINT/) 

CHECK 

91 . 

12  FORMAT!  1H  , 5X,  12*  11X,  18,  19X,  E13.6,  11X,  I3-) 

- 

* CHECK 

92. 

13  FORMAT! 1H0,  95HT0TAL  NUMBER  OF  BOUNDARY  CONDITIONS 

TO  MATCH:, 

13) 

CHECK 

93. 

INARK  = )1 

CHECK 

99 . 

C 

CHECK 

95. 

C 

CHECK 

96. 

C 

ZERO  OUT  CONTROL  BLOCK. 

CHECK 

97. 

C 

CHECK 

98. 

DO  101  I = 1,  51 

CHECK 

99. 

101  NUd)  = 0 

CHECK 

100. 

C 

INITIALIZE  REF.  LATITUDE  AND  LONGITUDE  QUANTITIES. 

CHECK 

101. 

YMXRF  = YMuRF/RAD 

CHECK 

102. 

SNXLMR  = SIN(XLAMRF/RA0) 

CHECK 

103. 

CSXLMR  = COS! XLAMRF/RAD) 

CHECK 

109. 

SNPSR  = SIN! PSIRF/RAD  ) 

CHECK 

105. 

CSPSR  = COS! PSIRF/RAD  ) 

CHECK 

106. 

IERR  : 0 

CHECK 

107. 

C 

CHECK 

108. 

C 

GET  THE  START  TIME  FOR  THE  CASE. 

CHECK 

109. 

C 

i 

CHECK 

110. 

CALL  SECOND! TRSTR ) 

CHECK 

111. 

c 

CHECK 

112. 

c 

CHECK  AND  PRINT  MAXIMUM  NUMBER  OF  ITERATIONS  AND  DESIRED  ACCURACY. 

CHECK 

113. 

c 

CHECK 

119. 

IF! ITRMAX  .lT.  1)  ITRMAX  = 10 

CHECK 

115. 

IFilTRMAX  .GT.  25)  ITRMAX  = 25 

CHECK 

116. 

IF! EPSlON  .lT.  l.E-8)  EPSlON  = 5.E-2 

CHECK 

117. 

WRITE! 6,  9)  ITRMAX,  EPSlON 

CHECK 

118. 

c 

CHECK 

119. 

c 

CHECK  AND  PRINT  NUMBER  OF  A0AMS-MOULTON  INNER  LOOPS. 

CHECK 

120. 

c 

CHECK 

121. 

IF! INNER  .LT.  1 ) INNER  = 1 

CHECK 

122. 

IF! INNER  .6T.  5)  INNER  = 5 

CHECK 

123. 

WRITE! 6,  6)  INNER 

CHECK 

129. 

c 

CHECK 

125. 

c 

CHECK  AND  PRINT  BOUNDARY  CONDITIONS. 

CHECK 

126. 

c 

CHECK 

127. 

WRI TE( 6,  10) 

CHECK 

128. 

CALL  BCuMO 

CHECK 

129. 

WR I TE!  6,  19) 

CHECK 

130. 

19  FORMAT! 1H0,  29HSTATE  INITIAL  CONDITIONS/) 

CHECK 

131. 

15  FORMAT! 1H  , 2016) 

CHECK 

132. 

00  102  I = 1,  9 

CHECK 

133. 

102  WRITE! 6,  15)  !IIC(I,  J ),  J = 1,  NARC ) 

CHECK 

139. 

WRITER,  16) 

CHECK 

135. 

16  FORMAT! 1H0,  26HC0STAT E INITIAL  CONDITIONS/) 

CHECK 

136. 

DO  103  I : 1,  9 

CHECK 

137. 

103  WRITE!  6,  15)  ( IICTCI,  J ),  J = J,  NARC) 

CHECK 

138. 

WRITE! 6,  17) 

CHECK 

139. 

17  FORMAT! 1H0,  23HSTATE  TARGET  CONDITIONS/) 

CHECK 

190. 

DO  109  I : I,  9 

CHECK 

191. 

109  WR  I TE!  6,  15)  <ITC(I,  J ),  J s 1.  NARC) 

CHECK 

192. 

WR I TE( 6,  18) 

CHECK 

193. 

18  FORMAT! IMO,  25HC0STATE  TARGET  CONDITIONS/) 

CHECK 

199. 

00  105  I = 1,  9 

CHECK 

195. 

105  WR  1 TE!  6 . 15)  (ITCTCI.  J).  J = 1.  NARC) 

CHECK 

196. 

c 

COMPUTE  MAGNITUDE  OF  DESIREO  END  CONDITION  VECTOR 

CHECK 

197. 

MA6BV  : 0 

CHECK 

198. 

DO  202  I ARC  = 1,  NARC 

CHECK 

199. 

II  = JTAB(IARC) 

CHECK 

150. 

IF!  1 1 .LE.  0)  GO  TO  202 

CHECK 

ZQl— 


6 ocr  n 6\0i-«n 


/ 6/9 


DO  201  1-1,11 

201  AAG8V  = MAG8V  4 ABS<VALTC(|t  IARQ) 

202  C0MT1MUE 

C COMPUTE  CONVERGENCE  CRITERION  FOR  C SOLUTION 

err  = i.e-r*SQRT<  floats  noknomh 

c 

c STORE  INTEGRATION  STEP-SIZES. 

00  131  1 ARC  = 1,  NARC 

CAUL  READMSt  AfiCDA,  Hi,  I ARC ) 

131  DELT(IARC)  s ARCDA(5) 

C SET  MISC.  FLAGS  AND  PARAMETERS 

KARO  = NOKNOW 
NO  = NMKARD  ♦ 1) 

NNP  - N 

_ NilP..  jf  NNP *1  HARD,  4 1 ) 

LINES  = 1 4 (N  - l)/5 

MINES  = 1 4 ( KARO  - l)/5 

KPAGE  = -1 

RHOC  = l .E38 

RHOP  = 1.E38 

INBDRV  - .TRUE. 

CALL  INARC 

return 

END 
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FORTRAN 

SYMBOL 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


ARCOA 


C5P5R 

CSXLftR 

OELT 

EPSLON 
ERR 
1 ARC 


I1C 


hct 

inark 

INBORV 

INNER 

nc 


s 


ref 


coi(^r  ) 

cost p-pr 


€ 


I 


I 


0 

0 

0 


n 

0 

ft 


1 


I 


0 


0 

n 

I 


1 


(FI2) 


C«  1 1 nc  of  reference  szlnuth 
Cos! nc  of  ref erne cc  latitude 

A tnenty  word  array  containing  the  quasitine 
conpute  interval  for  each  sobarc. 

QL  iteration  convergence  criterion. 

Convergence  criterion  of  Iteration  for  the  e's. 

Sober c nonber . 


A 10*20  array  containing  tbe  initial  condition 
codes  for  tbe  QL  state  vector.  Tbe  colonns 
correspond  to  subarc  starting  points,  tbe  rons,  to 
OL  state  variables. 


A 10*20  array  containing  tbe  target  condition  codes 
for  the  state  vector.  The  colonns  correspond  to 
tbe  subarc  end  points.  The  nonzero  entries  In  a 
colunn  are  the  state  tar  get  condition  codes  that 
apply  at  the  end  of  the  corresponding  subarc. 

Logical  unit  on  ahich  initial  and  converged  arcs 
are  stored.  INARK  = 11. 


Net  used. 

Nuober  of  Adans - Noe  I ton  inner  loops. 

A 10*20  array  containing  the  initial  condition 
codes  for, the  QL  costate  vector.  Tbe  colunns 
correspond  to  subarc  starting  points,  the  roes,  to 
QL  costate  variables. 


'ana  na» 


/ ARCDAT/f 

1) 

*SCIN 

I 

SREF 

SNORT 

I 

ARCOA 

CHECK 

I 

ARCOA 

FETCH 

I 

ARCOA 

SAL9E 

I 

ARCOA 

STATEF 

I 

SREF 

BT 

l 

SREF 

tHn  AP  UP 

I 

ARCOA 

/ORBIT  /< 

1521 

CHECK 

0 

C5P5R 

FCBCQL 

I 

C5PSR 

/ORBIT  /( 

19?1 

CHECK 

0 

CSXLftR 

FD9C0L 

I 

CSXLftR 

/0  /( 

2111 

CHECK 

0 

CELT 

ERROR 

I 

CELT 

INARC 

1 

CELT 

/GLOBAL/I 

B 1 

CHECK 

n 

EPSLON 

GfidPE 

i 

EPSLON 

/D  /( 

8) 

CHECK 

0 

ERR 

NEsftCS 

i 

ERR 

/CNTRL  /( 

2N1 

ARC1N 

i 

I ARC 

A CO  NO 

H 

1 ARC 

SNORT 

M 

1 ARC 

SRANPT 

I 

1 ARC 

CHECK 

ft 

I ARC 

COSTAB 

1 

1 ARC 

COSTA! 

I 

I ARC 

endft 

I 

I ARC 

FORCES 

I 

I ARC 

IN  ARC 

■n 

I ARC 

INTRPT 

i 

I ARC 

fMSfC 

ft 

I ARC 

MARCH 

I 

I ARC 

oltosz 

i 

I ARC 

SALdE 

H 

I ARC 

ftfnAPUP 

It 

1 ARC 

/BLOCK  /( 

11 

SCO  NO 

ft 

IIC 

SRANPT 

I 

IIC 

CHECK 

I 

IIC 

COSTAS 

1 

IIC 

COSTA! 

1 

IIC 

COST  AO 

I 

IIC 

INTRPT 

I 

lie 

SALdE 

I 

IIC 

/BLOCK  /( 

2G11 

CHECK 

1 

1 1CT 

costab 

ft 

II CT 

COSTA! 

ft 

IICT 

COSTAO 

0 

1 1 CT 

fMGlC 

0 

IICT 

SALdE 

! 

IICT 

/GLOBAL/C 

951 

CHECK 

0 

INARK 

FETCH 

1 

INARK 

INARC 

1 

INARK 

AARCH 

i 

INARK 

HR AP  UP 

1 

INARK 

/CNTRL  /< 

3G1 

CHECK 

0 

INBORV 

/GL0BAL/( 

91 

CHECK 

ft 

INNER 

aadahs 

I 

INNER 

/BLOCK.  /( 

NC  1 1 

SCO  no 

0 

ITC 

SRANPT 

1 

1TC 

CHECK 

I 

ITC 

costab 

I 

ITC 

COSTA! 

1 

ITC 

ENDPT 

1 

ITC 

INTRPT 

I 

ITC 
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SYMBOL 


MAJH 

SYMBOL 


COO€ 


DESCRIPTION 


irT%-  ww 


1 TCT 

1 

A 10*20  array  containing  tha  Ql  coatata  analog  to 
tha  array  II CT . Tha  ce luani  correspond  to  subarc 

/BLOCK 

/( 

621  ) 

8CQN0 

0 

I TCT 

BRANPT 

1 

1 TCT 

and  points.  Th*  nontaro  entries  in  a column  are 

CHECK 

I 

I TCT 

the  numbers  of  those  components  of  tha  vector  6 In 

COSTAB 

0 

I TCT 

Equation  16. 6*3*1  of  Voiuae  I of  the  PADS  document 

COST  AI 

0 

I TCT 

that  contain  the  value  of  a costate  target 

1NTRPT 

1 

1TCT 

condition  that  applies  at  the  end  of  the 
corresponding  subare. 

MAGI  C 

0 

ITCT 

ITRMAX 

M 

/GLOBAL/t 

10) 

CHECK 

M 

ITBMAX 

GROPE 

I 

ITRMAX 

JTAB 

1 

An  array  containing  the  nyaber  of  nomero  entries 

/BLOCK 

/( 

601  ) 

BCONO 

M 

JT  Aft 

In  each  coluan  of  the  array  JICT. 

BRANPT 

I 

JTAD 

CHECK 

I 

JTAB 

COSTAB 

I 

JT  AB 

COST  Al 

I 

JTAB 

ENDPT 

I 

JTAB 

INTRPT 

I 

JTAB 

MAGIC 

I 

JTAB 

HARD 

M 

The  total  number  of  heaogencoas  solutions 
eventually  to  be  integrated. 

/CNTRL 

/( 

10) 

CHECK 

n 

KARO 

HP  AGE 

0 

Not  used. 

/cntrl 

/( 

21  ) 

CHECK 

0 

KP  AGE 

GROPE 

0 

KPAGE 

LIMES 

0 

Not  used. 

/CNTRL 

/( 

7 ) 

CHECK 

0 

LINES 

MA6BV 

M 

The  magnitude  of  all  of  tha  desired  values  of  the 

/O 

/( 

7 ) 

CHECK 

M 

MAGBV 

state  target  conditions. 

MEWCS 

I 

MAGBV 

MAP 

D 

An  array  that  naps  the  Initial  arc  state  and 

/MAP 

/( 

1 ) 

CHECK 

D 

MAP 

costate  into  the  QL  state  and  cestata. 

1 NARC 

I 

MAP 

MINES 

0 

Not  used. 

/cntrl 

/( 

20  ) 

CHECK 

0 

MINES 

N 

I 

Total  number  of  QL  state  and  costate  variables.  N 

/PC 

/( 

2) 

BNDRY 

1 

N 

- 18. 

CHECK 

I 

N 

INARC 

I 

N 

L1NDRV 

I 

N 

nldrv 

1 

N 

NQMNAL 

I 

N 

RKUTT1 

I 

N 

SALVE 

I 

N 

WRAP  UP 

I 

N 

NARC 

I 

Nuaber  of  suborcs  In  the  problem. 

/global/I 

18) 

BCOND 

1 

NARC 

3 

BNDRY 

I 

NARC 

CHECK 

1 

NARC 

ENDPT 

1 

NARC 

ENVPRQ 

1 

NARC 

FETCH 

1 

NARC 

1 NARC 

1 

NARC 

MAGIC 

I 

NARC 

QLTOSZ 

1 

NARC 

SALVE 

I 

NARC 

WRAP UP 

l 

NARC 

MNP 

* 

M 

Number  of  QL  state  and  costate  ear  1 ab les .< 18  ) 

/cntrl 

/( 

22  ) 

CHECK 

M 

NNP 

1NTERP 

I 

NNP 

NOKNOW 

I 

The  total  number  of  free  (unknoan)  state  and 

/block 

/( 

8R1  ) 

CHECK 

I 

NOKNOW 

costate  variables  over  all  the  subarea. 

COHOMO 

I 

NO  KNOW 

COSTAB 

M 

NCKNOW 

COST  A 1 

m 

NOKNOW 

COSTAO 

M 

NO  KNOW 

GROPE 

I 

NOKNOW 

MAGIC 

I 

NOKNOW 

MU 

0 

The  largest  number  of  quantities  requiring 
numerical  integration  par  QL  iteration. 

/cntrl 

/( 

1 ) 

CHECK 

0 

NU 

NUP 

0 

Same  as  NU. 

/cntrl 

/< 

23) 

CHECK 

0 

NUP 

GROPE- 

I 

NUP 

INARC 

I 

NUP 

PS  I RE 

* 

I 

Reference  exiauth.  (DEG) 

/global/( 

68) 

CHECK 

I 

PSIRF 

r 
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DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK LOC“  SU8R  CODE  VAR 


RMOC 

0 

The  Magnitude  of  the  error  in 

the  current  OL 

/CNTRL 

/( 

17  ) 

CHECK 

0 

RHOC 

iteration. 

GROPE 

n 

RHOC 

RHOP 

0 

Th«  Magnitude  of  the  error  in 

the  preceding  QL 

/CKTRl 

/( 

18  ) 

CHECK 

0 

RHOP 

i ter  at  ion. 

GROPE 

ft 

RHOP 

SNPSR 

si  n(  *r  ) 

0 

Sine  of  reference  ailauth 

/ORBIT 

/( 

152  ) 

CHECK 

0 

SNPSR 

PDBCQl 

I 

SNPSR 

SNXLHR 

s i n(  p ~ pr  ) 

0 

Sine  of  reference  latitude 

/ORBIT 

/( 

IMA) 

CHECK 

0 

SNXLftR 

P08C0L 

I 

SNXlftR 

TRSTR 

I 

Not  used. 

/CNTRL 

/( 

25) 

CHECK 

I 

TRSTR 

ET  1 HE 

ft 

TRSTR 

VALTC 

I 

A 10«20  array  containing  the 

desired  * a 1 ues  of  the 

/BLOCK 

/( 

1062  ) 

BCOND 

0 

VALTC 

state  target  condition*  phot* 

codes  appear  in  the 

BRANPT 

I 

VALTC 

err  ay  IICT. 

CHECK 

1 

VALTC 

ENDPT 

I 

VALTC 

INTRPT 

I 

VALTC 

XLAftRF 

I 

Reference  latitude. 

( DEG ) 

/GLOBAL/I 

N ) 

CHECK 

I 

XLAftRF 

YHURF 

"r 

I 

Reference  longitude. 

( OEG ) 

/GLOBAL/t 

5 ) 

CHECK 

1 

VftURF 

YftXRF 

O 

0 

Reference  longitude 

(RAO) 

/ORBIT 

/( 

1M5) 

CHECK 

0 

VftXRF 

PD6CBL 

I 

VHXRF 
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SUBROUTINE 

C0H0M0 


Purpose 

COHOMO  calls  in  the  solution  for  the  c's. 


COHOAO 


1. 

2. 

3. 

9. 

5. 

6. 

7. 

8. 

9. 

10. 

11. 

12. 

13. 

19. 

15. 
U. 
17. 

16. 

19. 

20. 
21. 
22. 


C 

t 

c 


c 

c 

c 


PROGRAM  COHOAO 


THIS  ROUTINE  CALLS  IN  THE  SOLUTION  FOR  THE  C*S. 

COrtflON  /CNTRL/ 

*NU  . ITER  , I T APA  , I T APB  ,JAIN  ,JAAX  , LINES  ,KPT  ,AOA 

♦karo  !inox(9>  'newaioaIcwtou^hoc  ,RHOP  ,NPTS  ,A1NES  , 

•KPAGE  ,NNP  NUP  !lARC  ,TRSTR  ,IAAX  .KTlAE  , KON  VER , NOP  RNT , 

♦ I NBDRY  NUPAGE , IVARYlio),  NN,  NOVARY,  PLAST,  ZLAST,  KODES 
LOGICAL  1NBDRY,  NEWNOA,  KONVER,  NOPftNT,  NUPAGE 
DIMENSION  PARTS! 90,  HO) 

COflflON  /BLOCK/  IldlO,  20),  I ICT<  10,  20),  ITC(  10.  20).  JTAB<20), 
♦1TCT110.  20),  LTA&120),  NOKNQW,  N0C(2O>,  VALIC! lO,  20), 

*VALTC< l6,  20),  1 PAY 

SET  OL  CONVERGENCE  FLAG  SO  THAT  FORCES  DOES  NOT 
WORK  TOO  HARO 
KONVER  * .TRUE. 

CALL  NENCSt PARTS,  NOKN0N ) 

RESTORE  OL  CONY.  FLAG. 

KONVER  s .FALSE. 

RETURN 

END 


COHOAO 

COHOAO 

COHOAO 

COHOAO 

CNTRL 

CNTfiL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

COHOAO 

BLOCK 

BLOCK 

BLOCK 

COHOAO 

COHOAO 

COHOAO 

COHOAO 

COHOAO 

COHOAO 

COHOAO 

COHOAO 
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FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


. pia  .... 

Block loc 


SUBROUTINE  USAGE 
SUBR  'CODE  VA*r 


KONVER 


NOKNOU 


0 Logical  flag  that  indicates  to  the  QL  aodule  that 
the  QL  Iteration  is  converged. 


I The  total  nuaber  of  free  (unknoan)  state  and 
costate  variables  over  all  the  sgbarcs. 


/ CNTRL  /(  28)  ALSCON  I KONVER 

APPLY  I KONVER 
ARCIN  I KONVER 
COHOMO  0 KONVER 
GROPE  0 KONVER 
NLDRV  I KONVER 
OUTPUT  I KONVER 
RKUTT1  I KONVER 

/BLOCK  /(  8**1)  CHECK  1 NO  KNOW 

CO  HOMO  I NO  K NOW 
COSTAB  « NO KNOW 
COST  A 1 M NOKNOU 
COSTAO  a NOKNOU 
GROPE  I NOKNOU 
MAGIC  I NOKNOU 
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SUBR0UTINE 

C0NTRL 


Purpose 

CONTRL  controls  the  calculation  of  the  control  vector 


/C29 


CMTRL 


I A I 


IT 


UlfUL; 

£ LAC-  • 
1 K A.  0 5 = v 


i 


- i>  mis 

•’  A \|.  k)  1 C M 
K l $>f-  ' HlTC^i^vtS 

C,U 


>fcS 


[COMPUTE.  0 FOR 
VERTICAL  KISS./ 
^jPircHOVtk  VJ0T£: 
^VAlUfc  Lies  IM  4-ST 
Ok  4-Trt  QUADRANT 
0MlY. 


YEi 


\ 

OPA55 

\ 

l. 

t oA 

\ 

MO 

1 

ma*6  i 

M6X.T 

PASS 
LAST  : 

-rue 

IfASS 

* z 

\ 

! 

Kfe^uAce:  0 

&v  rrs 
SUPPLeMtMT 

Comi^u  r e 

the 

WAMtLTODVAM 

FOR  TKIS 

VALUE 

OF  <P 

COMPUTE  'IOUL  H 

Pavi  tals  or  | 

TM-  AKtf.  c*OU“l  KOL  ! 

AMU  &ET  ^\b£&-  ! 

i MiG*  V t C T OK  F .A  & | 

r 


r t: 


1 


i : 


CONTRL 


SUBROUTINE  CONTRL 


3. 

A. 

5. 

C 

C 

THIS 

CQRRON/ARCDAT/ 

ROUTINE 

TAKES  CARE  OF 

THE  CONTROL 

CALCULA1 

6. 

♦ SREF 

,EJ 

,XISP 

, TflULT 

,DTNC 

, DTP  I 

7. 

♦ IATH 

, I RODE 

, JAER 

, JPRO 

,QRAX 

,S«AX 

B. 

♦ XLRAX 

, HDRAX 

, GODOT 

alfrax 

P HRAX 

,«AEA 

9. 

♦ RAEB 

,RAEC 

MAEO 

,RAEE 

, RAEF 

,«AEG 

10. 

♦ HT 

,«ISP 

, F1XC6 

,nzc6 

rtUDA 

,hwdb 

11 . 

♦rob 

. XCGR 

. ZCGR 

,XE 

,ZE 

,XT 

12. 

13. 

♦ DREF 
DIMENSION 

,RCNO  RHOB 

ARCOAt  HO ) 

,onuLT 

REftAX 

,frate 

equivalence*  SBEF,ARCOA) 

LOGICAL  SWITCH,  IlOAD 

REAL  RACH  ISP,  ISPV,  1SPR,  ISPR,  ISPT,  ISPVV,  ISPVfi,  ISPVH> 

♦ I SP  VT , ISPRR,  ISPRR,  I5PRT,  I5PHH,  ISPRT,  ISPTT,  LIFT,  LlFTV, 
♦LlFTR  LlFTA,  LIFTW,  LIFTER,  lIFTVA,  liftrr,  LIFTRA,  rtUR,  LIFTAA, 
♦IRATEO,  I SPF , ISPFF 

REAL  RACHV,  HACHR,  HACHVR,  RACHRR 

REAL  LIFTR,  liftvh,  LIFTRR,  LIFTRR,  LlFTHA 

CORRON  /DYNA/ 

*XX  ,TIRE  ,SINSAR  CDSGArt,OHEGA  , 0HE6A2  R ,6  ,SlNA  , 

♦ COSA  ,OYNOn,OREbAT  TARP  ,PA  ,RO  ,CS  , TERPR  ,PAR 

“ROR  , C SR  ,TERPRR  PARR  , RORR  ,CSRR  RODE  ,RACH  ,0 

OV  , QR  , Q V V ,QVR  ,ORfi  ,FVAC  ,FVACV  ,FVACR  , F V ACR 


♦ F V ACT  ,FVACVV,FVACVR  ,F  V ACRR  , F V ACT  T , T RACHV  RACHfi  ,ISP 

♦ISPV  ISPR  • , 1 SPR  ISPT  , I SP  W W I SP  VR  ,ISPVR  ,ISPwT  ,ISPRR 
♦I5PRR  , I SPRT  , I SPRR  ,ISPRT  ,ISPTT  .LIFT  ,LlFTV  ,lIFTR  ,LIFTA 

♦ LIFTW, LIFTVR, LIFTVA, lIFTRR,  LlFTRA, DRAG  DRAGV  DRASR  , DRAGA 
*DRAGWY,ORAGVR,DRAoYA/OfiAGRR,ORAGRA,ORAGAA  ALPHA  ,PHI  , LlFTR 

mi  icTu*  i iCTDm  i tCTmm  i ictma  nac  nano  r.&nwiiAn 


♦LIFTVR/lIFTRR,LIFTRR,LIFTRA,DBR  ,DBRR  GARRAD,  AE  ,TAX  , 
*W  , SINPH1,C0SPHI , SI  WPS  I ,COSPSI , $ 1 NRHO , COSRMO , S I NROR , COSROR , 

♦ RUR  ,XK&  , XfcP  ,AKI H , CDO  ,CO(m  ,CLO  FK  , XCGR  , 

♦xcgrr  ,zcgr  ,ZCGRR  ,xjv  ,xjr  ,xjvv  ,xjvr  ,XJRR  ,hachvr, 

♦RACHRR, SlN2RO,CQS2fiOf C0S2GR,Cr  ,CRA  CRH  C«AA  ,CflflR  , 

♦ char  ,cro  ,cno « ,crgrr  ,cnAni<i  ,ulftv  ,ulftr  ,ulftvv,ulftvr, 

♦ULFTVA, UlFTRR,ULFTRA, IPOW  ,XARC  , TST  ART , GH  GRR  , LIFTAA, 

•CDorm  ,clarr  ,clqr  ,clgrr  ,oynih9,ct  ,codae  ,sidae  ,cod 

*S  1 D ,DElTAE,CDE  XCb  , ZCG  , X J ,XRCG  , CAlPHA, alrax  , 

*DB  , ULFT  ,CULFT  ,ULFTA  , TST  AGE, T I RES  , XRC6AA , I R ATED , FR ATED 
CORRON  /QYMA/ 

♦ ATT  ,J1  ,J2  J 3 ,XRCGA  ,FVACF  ,UlFTAA,ISPF  , ISPFF  , 

♦ILOAD  ,FKfl  ,FKRR  SWITCH, Inqf  ,Cl  ,Cla  ,Clh  ,Claa  , 

♦ CLRR  ,CLAR  ,CD  ,CDA  Com  CO AA  , CORR  ,CDAR  ,DYN198, 

♦ OYhim,DYN200,  XRCGV  XRCGR  ,XRCGR  , XFICG  V V,  XRCGVR , XRCGVIH,  XRCGVA, 
♦XRCGRR,  XRCGRR,  XRCGRA  XRCGRR, XRCGRA, RORRR  ,0Y«2lH,DYN215,DYN2H, 
♦QYN217,I0AR  , T A I RB  TAIRBV,TaIRBH,TARBYY,TARBHH, TARB VH  5f C 

♦ SFC  V , SFCH  ,SFCVV  ,SFCHH  ,SFCYH 

REAL  HA68V,  HU,  fl,  LV,  LGAfl,  LPSI,  LR,  LRHO,  LRU,  LR,  LlAu,  NON 

♦ . LHT 

Cohron  /d/ 


♦ X,  H,  X I ( H ) 
♦ALT. fiHO.RU.R. 

RA&BV, 

ERR,  09 

. 010. 

C(H0  ). 

CSAVE(HO),  V. 

GArt,  PSI, 

0 

TAU.  HT.  LV_ 

LGAn.  LPSI.  Lfi 

. LRHO 

LflU. 

Lfl,  LTAU, 

JULZl 

♦ LHT,  D109,  DUO,  &V(h6>,  ZSAYE(20> 
DIMENSION  NORC 20  ) 

EQUIVALENCE  (NOR,  V) 

DIMENSION  PROO  1(2,  6H  ) 

corron  /rats/ 

, QT( 20  ),  NP0INT( 20  ) 

, 6elT<20> 

0 

0 

0 

WATS 
HAT  S 

♦PI  ,P2 

,P3 

, XX  ) 

, XX 2 

, XX 3 

XX  1 T 

XX2T 

,XX3T  , 

WATS 

♦ XK I 0 XK20 

, XX 30 

XX  1 A 

, XX2A 

, XX  3 A 

, VDA 

, GOA 

,POA 

HATS 

♦XR19  ,Xrt20 

, XH21 

, XM22 

,XX1TT 

, XX2T T 

, XX3TT 

XX 1 TO 

, XX2TD  , 

HATS 

♦ XK3T0  , XK  1 T A 

, XX2TA 

, XX3TA 

, XX 1 DO 

, X X 200 

, XX  30D 

, XXI  DA 

,XX2DA  , 

HATS 

♦XK30A  XXI AA 

, XX2AA 

, XX3AA 

, xnsi 

, xnn2 

,XPH3 

, XPHH 

,xnn5  , 

HATS 

♦XXIV  XX2 V 

, XK3 V 

, XX  1 G 

, XX2G 

, XX3G 

,XX1P 

, XX2P 

, XX3P  , 

HATS 

♦ XX 1R  XX2R 

, XX 3R 

,XX10 

, XX20 

, XX 30 

, XX  1 u 

, XX2U 

,XX3U  , 

HATS 

♦xxin  xx2R 

, XX  3R 

XX  1 z 

, XX2Z 

, XX3Z 

, XX1VT 

XX2  VT 

, XX  3 VT  , 

HATS 

♦XXIVC  XX2V0 

, XX3VD 

, XXI VA 

, XX  2 V A 

, XX  3 VA 

X X 1 GT 

, XX2GT 

,XX36T  , 

HATS 

♦ XX 1 GO  , XX2GD 

, XX3GD 

, XX1GA 

, XX2GA 

, XX3GA 

, XX1PT 

, XX2PT 

XX3PT  , 

HATS 

♦ XX 1 PD  XX2PD 

, XX3PD 

, XX 1 P A 

, XK2PA 

, XX3PA 

, XX1RT 

, XX2RT 

XX  3RT  , 

HATS 

♦XX1RD  , XX2RD 

XX  3RD 

, XX 1 R A 

, XX2RA 

, XX  3R A 

, XX10T 

XX20T 

XX  30T  , 

HATS 

♦XX10D  , XX20D 

, XX300 

, XX 1 0 A 

, XX20A 

, XX30A 

XX  1 UT 

XX  2UT 

, XX 3UT  , 

HATS 

♦XX 1 UD  , XX2U0 
COnnON  /n ATS/ 

, XX3UD 

, XX1UA 

,XX2UA 

, XK3UA 

, XXlflT 

,XX2rtT 

, XK  3AT 

HATS 

HATS 

♦XXlrtO  , XX2RD 

, XX  3/90 

,XX1WA 

, XX2«A 

, XK 3PJA 

, XX 1 ZT 

, XX2ZT 

,XX3ZT  , 

HATS 
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91  . 

*0P0V(3.  8).  0EPDEY(2.  6).  0P0LT3.  3).  PRQ05(  3.  69  ).  PR0D9<2. 

29  ) 

HATS-- 

92. 

COMMON  /HAtS/ 

' 

HATS 

93. 

*PV  , P6 

,PP  .PR  ,P0  ,PVV  PGV  ,PPV  . PR  V 

HATS 

99. 

*POV  ,PGG 

, PPG  PRG  , POG  ,PPP  PRP  .POP  , PRR 

HATS 

95. 

*POR  .POO 

PL6  .PLP 

HATS 

96. 

EQUIVALENCE! PRODl .PRflD5  ) 

HATS 

97. 

DATA  PI/3. 19159265358979/ 

CONTRL 

98. 

C 

initialize  pass  flag 

CONTRL 

99. 

IPASS  = 0 

CONTRL 

100. 

C 

is  this  any  nonoptimal  control  rode  other  than 

VERT. 

CONTRL 

101  . 

C 

R1SE/PITCH0VER. 

CONTRL 

102. 

I F ( I MODE  .GT . 

3)  GO  TO  103 

CONTRL 

103. 

c 

NO.  IS  BANK  ANGLE  TO  BE  OPTIMIZED. 

CONTRL 

109. 

IF! I MODE  .EQ. 

1 ) 60  TO  102 

CONTRL 

105. 

c 

NO.  IS  THIS  VERT.  RISE/PITCHOVER 

CONTRL 

106. 

IF! I NODE  .£0. 

3)  GO  TO  101 

CONTRL 

107. 

c 

NO.  OPTIHAL  ANGLE  OF  ATTACK  BUT  BANK  ANGLE  ZERO. 

CONTRL 

108. 

KODE  = 2 

CONTRL 

109. 

GO  TO  103 

CONTRL 

1 10. 

c 

COMPUTE  BANK  ANGLE  FOR  VERT.  RISE/PITCHOVER 

CONTRL 

111. 

101  XKG  - < V**2/B 

- G)*C056AM  ♦ OM£GA*COSRHO*<  2.*V*SINP5I  4 R*0ME6A 

CONTRL 

112. 

**!  COSRHO*COSGAM  ♦ SINRHOvCOSPSUSINGAH)  ) - v*gammao 

CONTRL 

76. 

*XK1ZD 

XK2ZD 

XK3Z0 

. XK  1 Z A 

, XK  2ZA 

XK3ZA 

XK1VV  . XK2VV 

, XK3VV 

77. 

•XK1GV 

XK2GV 

XK36V 

, XK1PV 

XK2P  V 

XK3PV 

XK1RV 

, XK2RV 

X K 3R  V 

78. 

♦XKlOV 

XK20V 

XK  30  V 

XK  1 UV 

X K 2U  V 

XK3UV 

XK1HV 

, XK2HV 

X K 3HV 

79. 

♦XKIZV  , 

XK2ZV 

XK3ZV 

XK  1 GG 

XK2GG 

XK3G6 

XK1PG 

, XK2PG 

XK  3P6 

80. 

*XK1RG  , 

XK2RG 

XK3RG 

XK  106 

, XK20G  , 

XK 306  . 

XK1UG 

, XK2UG 

XK  3U6 

81  . 

* XK IMG  , 

XK2MG 

XK3M6 

, X K 1 ZG 

XK2ZG 

XK3Z6 

XK1PP  . XK2PP 

XK  3PP 

62. 

•XK1RP  , 

XK2RP 

XK3RP 

, XKIOP 

, XK20P  , 

XK30P  , 

XK 1 UP  , XK2UP 

XK3UP 

63. 

* XK IMP  , 

XK2MP 

XK3MP 

XK  1 ZP 

f XK2ZP  , 

XK3ZP  , 

XK1RR  XK2RR 

. XK3RR 

89  . 

•XKlOR  , 

XK20R 

, XK30R 

, XK l UR 

XK2UR  , 

XK3UR  # 

XK1MR  ,XK2HR 

XK  3HR 

65  . 

♦XKIZR  , 

XK2ZR 

, XK3ZR 

,XK100 

,XK200  , 

XK 300  , 

XK1U0  , XK2U0 

, XK3U0 

86. 

♦XK1M0  , 

XK2M0 

> XK3M0 

# XK 1 ZO 

, XK2Z0  , 

XK3Z0  . 

XK 1 00  . XK2UU 

, XK3UU 

87. 

* XK 1 MU  , 

XK2MU 

. XK3MU 

. XK1ZU 

XK2ZU  , 

XK3ZU  . 

XK1MH 

, XK2HH 

, XK3HH 

86. 

•XK1ZPI  , 

XK2ZM 

, XK3ZH 

XK  1 ZZ 

XK2ZZ  , 

XK3ZZ  , 

XKPI 11 # XKP I 2 1 

XKP 131 

89. 

90. 

•XKPI 12, 
COMMON 

XKP122 

/MATS/ 

, XKP 1 32 

, XKPI  13 

XKP I 23, 

XKP I 33# 

P A 1 

, P A2 

113. 

1H. 

115. 

116. 
117. 
ue. 

119. 

120. 


HATS 

WATS 

HATS 

HATS 

HATS 

HATS 

HATS 

HATS 

HATS 

HATS 

HATS 

HATS 

HATS 

HATS 

HATS 


XKP  = V*C0S6An*SlNRH0*!  V/(  R*C0SfiHQ  )* COSG AM* S I NP $ I ♦ 2.*0HEGA>  CONTRL 

* ♦ OmEGA«COSRHO*! R* 0ME6 A* S I NRHO* S I NP S 1 * 2 . * V*COSPSI *$ I NGAN  ) CONTRL 

DENOfl  = $QRT!XKG**2  4 XK P**2>  CONTRL 

SlNPHl  = S I GN(  1 . XK6  )*XKP/OENOH  CONTRL 

COSPHI  = ABS! XKS  )/DENOH  CONTRL 

PHI  = AT AN2! S I NP H I COSPHI  ) CONTRL 

GO  TO  103  CONTRL 

COMPUTE  OPTIHAL  BANK  ANGLE.  CONTRL 


121.  102  KOOE  * 1 

122.  CGLG  = L6AR*C0SGAH 

123.  OEN0H2  = LPSI**2  ♦ C6L6**2 

129.  DENOH  s SORT( 0EN0H2  1 

125 . SINPHI  * LPSI/DENOH 

126.  I F ( COSPHI * C6LG  .LT.  0.)  SlNPHl  = -SINPHI 

127.  COSPHI  ; S I GN!  l . t COSPHI >*AB5( CGLfi  l/OENOH 

126.  PHI  = ATAN2! SlNPHl,  COSPHI) 

129.  PG  = 5INGAH*lPSI*LGAH/OENOH2 

130.  PLG  = -LPSMC0SGAH/DEN0H2 

131.  PLP  = CGLG/0EN0H2 

132.  C COMPUTE  IN-PLANE  CONTROL 


CONTRL 

CONTRL 

CONTRL 

CONTRL 

CONTRL 

CONTRL 

CONTRL 

CONTRL 

CONTRL 

CONTRL 

CONTRL 

CONTRL 


103- 

102- 


103- 


163- 


133. 

139. 

135. 

136. 

137. 
136. 


103  CALL  NPLANE  CONTRL 

IS  THIS  THE  FIRST  BANK  ANGLE  PASS.  CONTRL 

IF( 1PASS  .NE.  0)  GO  TO  109  CONTRL 

YES.  HAY  NE  TRY  THE  SUPPLEMENT  OF  THE  BANK  ANGLE.  CONTRL 
IFtlflOOE  .NE.  J .OR.  .NOT. ROAD  .OR.  PHMAX  .GT.  0.)  GO  TO  105  CONTRL 

YES.  IS  THIS  THE  LAST  BANK  AN&lE  PASS.  CONTRL 


105- 


139.  109  I F(  I PASS  .LE.  1 ) GO  TO  106  CONTRL 

190.  C YES.  COHPUTE  PART1ALS  OF  IN-PlANE  CONTROL  W/RESP.  CONTRL 

191.  C TO  STATE  AND  COSTATE.  CONTRL 


f 06 — i 


192. 

193. 
199. 

195. 

196. 

197. 
196. 


105  CALL  ALGCNVfJl.  J2.  J 3)  CONTRL 

SET  CONTROL  FLAG  IN  CASE  ALPHA  IS  SATISFYING  AN  IN-  CONTRL 
EQUALITY  CONSTRAINT  AND  RETURN  CONTRL 

IFUnOOE  .LE.  2 .ANO.  J3  . NE . 1)  KOOE  = 1 4 2*K00E  CONTRL 

RETURN  CONTRL 

COMPUTE  NEG.  SECONO  PARTIAL  OF  HAHIlTONIAN  U/RESP.  CONTRL 

TO  BANK  ANGLE  CONTRL 
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N A 

Vi 

\ 


199. 

106 

YLTOT  = (LGAM*COSPHI  ♦ LPSUSINPHI /COSGAfn  )*(  T*S10AE 

-OB*S 1 NA  + LI FT  ) 

CONTRL 

150. 

C 

TEST  FOR  MAXIMIZING  HAMI  LTONI  AN  . 

CONTRL 

151  . 

I FI YLTOT  .GE.  0. ) 60  TO  109 

CONTRL 

109—1 

152. 

C 

MINIMIZING.  IS  THIS  THE  FIRST  PASS. 

CONTRL 

153. 

IF( IPASS  .HE.  0)  60  TO  106 

CONTRL 

159. 

c 

YES.  WAKE  THE  NEXT  PASS  THE  LAST. 

CONTRL 

155. 

IPASS  = 2 

CONTRL 

15b. 

c 

COMPUTE  SUPPLEMENT  OF  BANK  ANGLE 

CONTRL 

157. 

107 

PHI  = PHI  ♦ $I6N( 1 . , 5INPHI  )*PI 

CONTRL 

158. 

SINPHI  = -SINPHI 

CONTRL 

159. 

C05PHI  = -COSPHI 

CONTRL 

160. 

KODE  = 1 

CONTRL 

lbl. 

c 

IF  THE  PRECEEDIN6  PASS  BROUGHT  ABOUT 

THROTTLING, 

CONTRL 

162. 

c 

TURN  THROTTLING  OFF 

CONTRL 

163. 

I F(  SWITCH-  >-Jl  = 2 • 

CONTRL 

16*4. 

GO  TO  103 

CONTRL 

165. 

c 

RESTORE  SAVED  QUANTITIES  FROM  PRECEED 

NG  PASS 

CONTRL 

166. 

108 

T = TSAV 

CONTRl 

167. 

OELTAE  = DELSAV 

CONTRL 

168. 

ALPHA  = ALFSAV 

CONTRL  1 

169. 

PHI  = PHI SAV 

CONTRl  1 

170. 

SINPHI  - SINSAV 

CONTRL 

171. 

COSPHI  = COSSAV 

CONTRl 

172. 

J1  = J1S 

CONTRl 

173. 

J 3 = J3S 

CONTRl 

179. 

60  TO  105 

CONTRl 

175. 

c 

COMPUTE  HAMILTONIAN  FOR  THIS  PASS 

CONTRl 

176. 

109 

HSTAR  = V*LV*tT*CO0AE  - DB*COSA  - DRAG)  ♦ YLTOT 

CONTRl 

177. 

c 

IS  THIS  THE  FIRST  PASS 

CONTRL 

178. 

I F< IPASS  .EQ.  0)  60  TO  110 

CONTRl 

110  — 

179. 

c 

UIAS  THIS  PASS  BETTER  THAN  THE  LAST. 

CONTRl 

160. 

IF( HSTAR  .GT.  HSTARS)  GO  TO  105 

CONTRl 

181. 

GO  TO  108 

CONTRl 

162. 

c 

SAVE  NECESSARY  QUANTITIES  IN  CASE  THE 

NEXT  PASS  IS 

CONTRL 

183. 

c 

NOAST  THAN  THIS  PASS 

CONTRl 

18**. 

no  ipass  * i 

CONTRL 

185. 

HSTARS  = HSTAR 

CONTRL 

186. 

TSAV  = T 

CONTRL 

187. 

DELSAV  r DELTAE 

CONTRL 

168. 

ALFSAV  = ALPHA 

CONTRl 

189. 

PHI SAV  = PHI 

CONTRL 

190. 

SINSAV  = SINPHI 

CONTRL 

191. 

COSSAV  = COSPHI 

CONTRL 

192. 

J1S  = J1 

CONTRL 

193. 

J3S  = J3 

CONTRl 

199. 

60  TO  107 

CONTRl 

195. 

END 

CONTRL 

105 


105 


103-1 


6 OCT  72  6 . 0* 


fortran 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


BLOCK 


tm*  ‘pm  ■w» 


ALPHA  tt  M Angle  of  ftttftck 


CODAE  cost  a- 4^ ) I S««  lysbel 


COSA  coso  I So*  sytbol 


COSGAM  co>7  1 S«o  eyobol 


COSPHI  COS#  M See  tyftbol 


COSPSI  COS#'  1 Sftft  syftbol 


COSRHD  COsp  1 See  syftbol 


(RAD)  /DYNA  /( 


/DYNA  /( 


/DYNA  /< 


/DYNA  /( 


/DYNA  /( 


/DYNA  /( 


/DYNA  /( 


79)  AERDCO 

I 

ALPHA 

AL6C0N 

M 

alpha 

AL2 

I 

ALPHA 

ARCIN 

M 

ALPHA 

CONTRL 

n 

ALPHA 

ENVPRO 

I 

alpha 

MO  ME  CO 

I 

alpha 

NP  LANE 

I 

ALPHA 

OUTPUT 

I 

ALPHA 

TRAJIN 

0 

ALPHA 

UT 

i 

ALPHA 

WRAP  UP 

i 

ALPHA 

151  ) AL1 

i 

CODAE 

AL9 

i 

CODAE 

AL6 

i 

CODAE 

AL7 

i 

CODAE 

AL8 

i 

CODAE 

AL9 

i 

COOAE 

APPLY 

i 

CODAE 

CONTRL 

i 

CODAE 

NLDRY 

i 

CODAE 

TH3 

i 

CODAE 

UT 

0 

CODAE 

10)  AL1 

I 

COSA 

ALA 

I 

COSA 

AL6 

I 

COSA 

ALT 

I 

COSA 

ALB 

I 

COSA 

AL9 

I 

COSA 

apply 

1 

COSA 

CONTRL 

I 

COSA 

NLDRY 

I 

COSA 

OUTPUT 

I 

COSA 

TH3 

I 

COSA 

UT 

M 

COSA 

A)  AL1 

I 

COSGAM 

ALA 

I 

COSGAM 

AL7 

I 

COSGAM 

ALB 

I 

COSGAM 

AL9 

I 

COSGAM 

CONTRL 

I 

COSGAM 

NLORV 

I 

COSGAM 

OUTPUT 

I 

COSGAM 

PDBCOL 

I 

COSGAM 

STATEF 

M 

COSGAM 

93)  AL1 

J 

COSPHI 

ALA 

I 

COSPHI 

APPLY 

I 

COSPHI 

ARCIN 

0 

COSPHI 

CONTRL 

M 

COSPHI 

OUTPUT 

I 

COSPHI 

95  ) ALA 

I 

COSPSI 

AL7 

I 

COSPSI 

ALB 

r 

COSPSI 

AL9 

i 

COSPSI 

CONTRL 

i 

COSPSI 

NLDRY 

i 

COSPSI 

PDBCOL 

i 

COSPSI 

STATEF 

0 

COSPSI 

97)  ALA 

i 

COSRHO 

AL7 

i 

COSRHO 

ALB 

i 

COSRHO 

AL9 

i 

COSRHO 

CONTRL 

i 

COSRHO 

NLDRY 

i 

COSRHO 

OUTPUT 

i 

COSRHO 

PDBCOL 

i 

COSRHO 

STATEF 

M 

COSRHO 

6 OCT  72  G.0I-S9 


Vs 

V 


FORTRAN 

Symbol 


MATH 

SYMBOL 


COOE 


DESCRIPTION 


BLOCK 

l06 

SUBA 

C00£  VAR 

/DVNA 

/( 

163  ) 

ALl 

I 

DB 

AL9 

I 

DB 

AL6 

I 

DB 

AL7 

1 

DB 

AL8 

I 

DB 

AL9 

I 

DB 

APPLY 

I 

DB 

CONTfiL 

I 

DB 

NLDRV 

I 

DB 

OUTPUT 

I 

OB 

STATEF 

I 

DB 

TH3 

1 

DB 

UT 

I 

DB 

/DYNA 

/( 

155  ) 

ALGCON 

m 

DELTAE 

ARCIN 

m 

DELTAE 

CONTRL 

n 

DELTAE 

DL1 

i 

DELTAE 

OUTPUT 

I 

DELTAE 

TRA31N 

0 

DELTAE 

UT 

i 

DELTAE 

/DVNA 

/( 

69  ) 

AL5 

i 

DRAG 

AL7 

i 

DRAG 

AL8 

i 

ORAG 

AL9 

i 

DRAG 

APPLY 

i 

DRAG 

CONTRL 

i 

DRAG 

ENVPRfl 

i 

ORAG 

NLDRV 

i 

ORAG 

OUTPUT 

i 

DRAG 

T M3 

i 

DRAG 

UT 

m 

DRAG 

/DYNA 

/( 

8) 

AL9 

i 

G 

AL7 

l 

G 

AL8 

i 

G 

AL9 

i 

G 

CONTRl 

i 

6 

NLDRV 

i 

G 

STATEF 

it 

6 

/DYNA 

/( 

88  ) 

AL9 

i 

&AMMAD 

ARCIN 

0 

GAftftAD 

CONTRL 

I 

GAMMAD 

NLDRV 

1 

GArtMAD 

/DYNA 

/( 

181  ) 

ARCIN 

ft 

I LOAD 

CONTRL 

I 

1 LOAD 

NP  LANE 

I 

I LOAD 

UT 

1 

I LOAD 

/ ARCDAT/t 

8) 

ARCIN 

I 

INODE 

CONTRl 

I 

I MODE 

NP  LANE 

I 

I MODE 

/DYNA 

/( 

173  ) 

apply 

I 

J1 

ARCIN 

0 

31 

CONTRL 

ft 

J1 

FORCES 

1 

31 

NPLANE 

I 

J1 

STATEF 

I 

31 

THROTL 

ft 

31 

/DYNA 

/( 

1 79  ) 

ARCIN 

0 

JZ 

CONTRl 

I 

32 

NPLANE 

I 

J2 

/DYNA 

/( 

1 75  ) 

ARCIN 

0 

33 

CONTRl 

ft 

33 

NPLANE 

ft 

33 

OUTPUT 

I 

J3 

OB 


I Bate  drag 


( LBS  ) 


OELTAE 


DRAG 


M Engine  deflection 


I Aaredynantc  drag 


SAMMAD 


I LOAD 


IMOOE 


J1 


32 


33 


I I nst ant mioui  gravitational  acceleration 


I Pitch  rata 


Logical  flag  that  is  tru*  if  there  is  any 
aerodynaaic  load  on  the  vehicle. 


I Control  node  option  flag 


Thrgst  option  flag. 

J1  = 1:  Constant  thrust; 

J1  = 2:  Input  vacuun  thrust; 

J1  = 3:  Poaered  total  acceleration  Mi 
J1  s 9:  Air-breather  engine. 


( FT/5EC2  ) 


I Engine  deflection  option  flag. 

J2  = 1:  Constant  engine  deflection; 

JZ  - 2:  Aoaent  balancing. 

A Angie  of  attack  option  flag. 

J3  = 1:  Opt  1 aa I angle  of  attack; 

33  = 2:  Constant  angle  of  attack; 

J 3 s 3:  Untrinned  Jiff  Malt; 

33  = A:  Vertical  rise  or  pitchover; 

33  = 5:  Unpoaered  total  acceleration  Malt; 
33  = 6:  Gravity  turn; 

33  =■  7:  Oynaalc  pressure  constraint; 

33  - 6:  Heating  rate  constraint* 

J3  = 9:  Reynolds  ngaber  constraint. 


6 OCT  72  G. 01-99 


FORTRAN 

SYMBOL 


MAT  H 
SYMBOL 


CODE 


DESCRIPTION 


STflBjee,.. 

BLOCK  lEIT 


toki  “gy 


KOOE 

M 

St  ear  1 fig  vector  flag 

/DYNA 

/( 

25  ) APPLY 

I 

KOOE 

KOOE  = 0:  Fra.  fall,  a = A = 0; 

ARCIN 

0 

KODE 

KOOE  - 1:  Both  • and  d optlaal  ; 

CONTRL 

M 

KODE 

KODE  = 2:  « optlaal  and  d = 0; 

F0RCE5 

I 

KODE 

KOOE  = 3:  « nonoptlaa)  and  d cptlaa); 

NLDRY 

I 

KODE 

KOOE  = Hi  Vertical  rise  or  pltchover; 

STATEF 

I 

KODE 

KODE  = 5:  • nonoptlaal  and  d - 0. 

LGAM 

X 

I 

Ra  1 at  1 vc  flight  path  angle  coatatc 

/D 

/( 

101  ) AL1 

I 

LGAM 

9 

ARCIN 

I 

LGAM 

* 

CONTRL 

1 

LGAM 

NLDRY 

I 

LGAM 

OUTPUT 

I 

LGAM 

URAPUP 

I 

LGAM 

LIFT  - 

L 

1 

Aerodyftaal c lift 

( LBS) 

/DYNA 

/( 

60  ) ALN  * 

1 

LIFT 

AL5 

I 

LIFT 

AL6 

I 

LIFT 

APPLY 

I 

LIFT 

CONTRL 

I 

LIFT 

ENYPRO 

I 

LIFT 

OUTPUT 

I 

LIFT 

TH3 

I 

LIFT 

UT 

0 

LIFT 

LPSI 

I 

Ra  lati ve  axlauth  angle  coat at a 

/0 

/( 

102)  ALl 

1 

LPSI 

* 

ARCIN 

I 

LPSI 

CONTRL 

I 

LPSI 

NLDRY 

I 

LPSI 

OUTPUT 

I 

LPSI 

URAPUP 

I 

LPSI 

LV 

X 

I 

Relative  velocity  cost at a 

/D 

/( 

100)  ALl 

I 

LV 

* 

CONTRL 

I 

LY 

NLDRY 

I 

LV 

OUTPUT 

f 

LV 

URAPUP 

I 

LV 

OMEGA 

at 

I 

[RAD/SEC ) 

/DYNA 

/( 

5)  AL* 

I 

OMEGA 

AL7 

I 

OMEGA 

CONTRL 

I 

OMEGA 

PDBCQL 

I 

OMEGA 

TRAJIN 

M 

OMEGA 

P6 

4 

0 

Sea  tyabol 

/MATS 

/( 

551)  ALA 

M 

PG 

9 

APPLY 

1 

P6 

ARCIN 

0 

P6 

CONTRL 

0 

PG 

PHI 

4 

M 

Bank  aogla 

(RAO) 

/DYNA 

/( 

80)  CONTRL 

M 

PHI 

OUTPUT 

I 

PHI 

URAPUP 

I 

PHI 

PHMA* 

1 

Belly  demo  flag 

/ARCOAT/( 

17)  CONTRL 

I 

PHMAX 

PLG 

4 * 

0 

See  syabal 

/MATS 

/( 

570)  APPLY 

I 

PLG 

^9 

ARCIN 

0 

PLG 

CONTRL 

0 

PLG 

PLP 

4 x 

0 

See  ayabal 

/MATS 

/( 

571  ) APPLY 

I 

PLP 

ARCIN 

0 

PLP 

CONTRL 

0 

PLP 

R 

R 

I 

Radial  distance  froa  earth  center  to  vehicl 

le 

/DYNA 

/( 

7)  ALM 

I 

R 

(FT) 

AL7 

l 

R 

AL8 

I 

R 

ALf 

I 

R 

CONTRL 

I 

R 

ENYPRO 

I 

R 

NLDRY 

I 

R 

PDBCQL 

I 

R 

QlTOSZ 

I 

R 

STATEF 

M 

R 

6 OCT  72  G . 01 -NS 


FORTRAN  aatw 

SYMBOL  SYnBOL 


COOE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

block  Toe  subr  cooe  var 


SI  DAE 


SINA 


SIN6AA 


SINPHI 


SINPSI 


SINRHO 


SWITCH 


s I n<  a- tg) 


s i no 


sin  r 


sin# 


sin#' 


s i np 


I Set  synbol 


I Stt  tynbol 


1 Set  tynbol 


A Stt  lytbel 


I Stt  tynbol 


I St*  synbej 


I Logical  flag  that  It  true  if  this  is  the  coapute 
point  at  phlch  the  poaered  acceleration  constraint 
coitmcci. 


/DYNA  /( 


/DYNA  /( 


/DYNA  /( 


/DYNA  /( 


/DYNA  /( 


/DYNA  /( 


/DYNA  /( 


152  ) 

ALl 

1 

SIDAE 

ALM 

I 

51  DAE 

AL6 

I 

SIDAE 

ALT 

I 

SrOAE 

AL0 

I 

SIDAE 

AL9 

I 

SIDAE 

APPLY 

I 

SIDAE 

contrl 

I 

SIDAE 

TH3 

1 

SIDAE 

UT 

0 

SIDAE 

9 ) 

ALl 

I 

SINA 

ALM 

I 

SINA 

AL6 

I 

SINA 

AL7 

I 

SINA 

alb 

I 

SINA 

AL9 

I 

SINA 

APPLY 

I 

SINA 

CONTRL 

I 

SINA 

OUTPUT 

I 

5 I NA 

TH3 

I 

SINA 

UT 

It 

SINA 

3) 

ALl 

I 

SINGAfl 

ALM 

I 

SIN6AH 

AL7 

I 

5INGAA 

ALB 

I 

SINGAfl 

AL9 

I 

SINGAfl 

contrl 

1 

SINGAfl 

nldrv 

I 

SINGAfl 

PDBCOL 

I 

SINGAfl 

statef 

n 

SINGAA 

92) 

ALl 

I 

SINPHI 

ALM 

I 

SINPHI 

APPLY 

I 

SINPHI 

CONTRL 

A 

5 I NP HI 

OUTPUT 

I 

SINPHI 

99) 

ALM 

I 

SINPSI 

ALT 

I 

SINPSI 

AL8 

I 

SINPSI 

AL9 

1 

SINPSI 

CONTRL 

I 

SINPSI 

NLDRV 

I 

SINPSI 

PDBCOL 

1 

SINPSI 

STATEF 

0 

SINPSI 

96  ) 

ALM 

I 

SINRHO 

AL7 

I 

S JNRHC 

ALB 

I 

S I NR HO 

AL9 

I 

SINRHO 

contrl 

I 

SINRHO 

NLDRV 

I 

SINRHO 

output 

I 

SINRHO 

PDBCOL 

I 

SINRHO 

STATEF 

A 

SINRHO 

IBM) 

CONTRL 

I 

SWITCH 

NPLANE 

J 

SWITCH 

THROTL 

0 

SWITCH 

6 OCT  72  6 . 0 1 — 


FORI  RAM  RATH 

SVRBOL  SYABOL 


CODE 


DESCRIPTION 


PAfiL- 

BLOCK  LOC 


SUBROUTINE  USA6E 
SUBR  CODE  VAR 


T T A Thrust 


v V 1 Rilitlu  filD(lt). 


XKG 

k 

A A l gebra  » c 

aquation 

used 

7 

pilchovir 

XKP 

A Algebraic 

aquation 

used 

W 

p \ t c ho  >tr 

(LBS)  /DYNA  /(  92)  AL6C0N  A T 

AL1  I T 
AL  H I T 

AL6  I T 
AL7  I T 
AL8  I T 
AL9  1 T 
APPLY  I T 
ARC1N  0 T 
CONTRL  A T 
OL2  I T 
IAPULS  I T 
OUTPUT  I T 
TH1  1 T 
TH2  I T 
TH3  I T 
TH9  I T 

( FT/SEC  ) /D  /(  91 > ALl  IV 

AL9  1 V 
AL7  I V 
ALB  I V 
AL9  I V 
BCOND  I NOA 
BNORY  0 NOA 
BRANPT  A NOA 
CONTRL  I V 
ENOPT  I NOA 
ENVPRQ  I V 
FETCH  0 NOA 
INTERP  A V 
INTRPT  A NOA 
NLDRV  0 NOA 
NLDRV  1 V 
OUTPUT  I V 
POBCOL  I V 
STATEF  I V 
UJRAPUP  I V 


1 o 

vert lea J 

rise  and 

/DVNA 

/( 

10)  ) 

AL9 

CONTRL 

I 

A 

XKG 

XK6 

in 

vertical 

rise  and 

/ DYNA 

/( 

102  ) 

AL9 

CONTRL 

1 

A 

XKP 

XKP 

6 OCT  72  6.01-99 


SUBR0UTINE 

C0STAB 


Purpose 


COSTAB  determines  the  costate  initial  and  target  conditions  at  a branch 
point. * 


*See  Sections  16.6,  17.1  and  17.2  in  Vol.  I. 


t/o 


COSTAB 


subroutine  costab 

THIS  ROUTINE  DETERMINES  THE  COSTATE  INITIAL  AND 
TARGET  CONDITIONS  FOR  A BRANCH  POINT. 

COMMON/GLOBAL/ 

»GR  ,ER  , OMGZ  XLAMRF , YMURF  , LUM  .TO  , EPSLON , I NNER  . 

♦ I TRRAX  J J 0P( 6 S , 1FATAL.NARC  NBRAN  NF ARC  .10(H)  KTABt  20  ), 

♦ I TAB( 2u  ),  SIG.WAXTA8. GM, PSI RF  , J PFlGI , IPFLG2, IPFL63, I PFLG9, 
*INE0FL(26),  itPSO,  K§OL  I NARK , K6L0BLC 7) 

REAL  MAGBV,  MU,  M,  LV,  LGAM,  LPSI,  LR,  LRHO,  LMU,  LN,  LTAU#  MOM 

donnON  /D/ 

♦ X,  H,  X I ( 9 ),  MAGBV,  ERR,  09,  DIO,  C<90),  CSAVE(HO),  V,  GAM,  PSI, 
*AlT,hH0,MU,M  TAU,  HT,  LV,  LGAM  LPSI,  LR,  LRHO , LMU,  LN,  LTAU, 
•LHT.  Dl69,  DilO,  Bv<h6),  2$AVEC20),  QT<  20 NPOINTC20),  DELT<20> 

DIMENSION  A0MC26) 

equivalence  (non,  v> 

COMMON  /CNTRL/ 

*NU  , I TER  , ITAPA  , ITAPB  ,JMIN  ,JMAX  , LINES  ,KPT  ,MOM 
•KARD  , I NDXC  9 1 NEWNOM, CNTO 1 6 , RHOC  ,RHOP  ,NPTS  , MINES  , 

♦KPAGE  , NNP  , NUP  , I ARC  , TRSTR  ,INAX  .KTIME  , KONVER, NOPRNT , 

♦ INBDRV,NUPAGE,IVARV(  ^0),  NN,  NOVARV,  PLASt,  /LAST  XODES 
LOGICAL  INBDRV , NEWNOM,  KONVER,  NOPRNT,  NUPAGE 

COMMON  /BLOCK/  IICllO,  20),  1ICTC10,  20),  ITC(  10,  20),  JTABC20), 
•ITCTilO,  20),  LT  AB( 20 ),  NOKNOU,  N0CC20),  VAlIC(  l6,  20), 

♦ V AlTC(  16,  20),  I PAY 

DIMENSION  ABC  27 , 27  ),  SPARTC9),  MAP(lO) 


DATA  MAP  /8  , 1, 
DO  101  1 r 1,  27 
DO  101  J = 1,  27 
101  ABC  I , J)  = 0 
. NNTTC  = 0 
NA  : 0 

LARC  = NFARC  ♦ 1 


CUSTAB/6HC0STAB/ 


DO  113  I = 1, 


SET  UP  THOSE  RONS  OF  THE  AB  MATRIX  THAT  RESULT  FROM 
THE  INITIAL  CONOS . ON  THE  STATE. 

9 

FIRST  ARC  OF  FIRST  BRANCH 


COSTAB 

COSTAE 

COSTAB 

COSTAB 

COSTAB 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

0 

0 

0 

0 

JUL2I 

D 

0 

D 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

BLOCK 

BLOCK 

BLOCK 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 


HO  . 

IFCIICU,  IARC)  - 1 ) 102,  103,  10* 

COSTAB  102-^103-1 

HI  . 

C 

CONTINUOUS  STATE 

COSTAB  f 

92. 

102 

MA  = MA  4 1 

COSTAB  " 

93. 

AB(  MA,  I ♦ 9)  = 1 

COSTAB 

99. 

AB( MA  I ♦ 18)  = -1 

COSTAB 

95. 

GO  TO  107 

COSTAB 

96. 

C 

KNOWN  STATE 

COSTAB 

97. 

103 

MA  = MA  +1 

COSTAB  J 

98. 

AB(  MA,  I ♦ 9)  = 1 

COSTAB 

99. 

GO  TO  107 

COSTAB 

50. 

109 

1 F C 1 1 Cl  I IARC)  - 5)  107,  165,  106 

COSTAB  I'OS— 1IO6-1 

51. 

c 

KNOWN  DROP  WEIGHT 

COSTAB  j 

52. 

105 

MA  s MA  ♦ 1 

COSTAB  4 

53. 

AB( MA,  I ♦ 9 > s -1 

COSTAB 

59. 

AB( MA,  I ♦ 18)  = 1 

COSTAB 

55. 

GO  TO  107 

COSTAB 

56. 

c 

SIZING  DROP  WEIGHT 

COSTAB 

57. 

106 

MA  s MA  ♦ 1 

COSTAB  J 

58. 

CALL  FETCH! -NBRAN ) 

COSTAB 

59. 

WPRO  = 6R*( Z5 A VEC  7 ) - M 1 

COSTAB 

60. 

CALL  WTDRPt  WPRO,  WDRP,  DWORP,  3) 

COSTAB 

61 . 

AB(  MA  I 4 9)  = -1 

COSTAB 

62. 

AB(  MA  I 418)  = 1.  - DWORP 

COSTAB 

63. 

c 

FIRST  ARC  OF  SECOND  BRANCH 

COSTAB 

69. 

107 

I F(  1 1 C ( I , LARC)  - 1 ) 108,  109.  110 

COSTAB  fG8— i1G9-i 

65. 

c 

CONTINUOUS  STATE 

COSTAB  i 

66. 

108 

MA  = MA  4 1 

COSTAB  ^ 

67. 

AB(  MA  11=1 

COSTAB 

68. 

ABC  MA,  1 ♦ 18)  = -1 

COSTAB 

69. 

60  TO  113 

COSTAB 

70. 

c 

KNOWN  STATE 

COSTAB 

71. 

109 

MA  = MA  4 1 

COSTAB  ^ 
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$1 

V 


AB(M,  I)  £ 1 
60  TO  113 


79. 

75. 

C 

no 

IFCIICCI,  LARC)  - 5)  113',  111,  112 
.KNOWN  DROP  WEIGHT 

COSTAB 

COSTAB 

76. 

in 

BA  s BA  ♦ 1 

COSTAB 

77. 

ABC  HA  I > x -1 

COSTAB 

78. 

ABC  HA  I ♦ 18)  = 1 

COSTAB 

79. 

GO  TO  113 

COSTAB 

80. 

112 

BA  : BA  ♦ 1 

COSTAB 

81  . 

IFCIICCI.  I ARC  ) .LT.  7)  GO  TO  1121 

COSTAB 

1121- 

82. 

C 

WEIGHT  DISTRIBUTION  FROM  STEP)  TO  BRANCHES 

COSTAB 

83. 

ABC*A,  I ) = - 1 

costab 

8*4. 

ABC  HA  J 4 9)  x -1 

COSTAB 

85  . 

ABC  HA,  I 4 18)  = J 

COSTAB 

86. 

GO  TO  113 

COSTAB 

87. 

C 

SIZING  DROP  WEIGHT 

COSTAB 

88. 

1121 

CAUL  FETCHl-NFARC) 

COSTAB 

89. 

WPRO  = 6R*C  ZSAVEC 7 ) - H> 

COSTAB 

90. 

CALL  WTDRPC  WPRO  WDRP,  DWDRP,  3) 

COSTAB 

91  . 

ABC  HA , I > s -1 

COSTAB 

92. 

ABC  HA , I 4 18)  : 1.  • OWORP 

COSTAB 

93. 

113 

CONTINUE 

COSTAB 

99. 

C 

STORE  NUMBER  Of  STATE  TARGET 

CONDS. 

AT  END  OF 

STErt 

COSTAB 

95. 

PITARG  = JTABC  NBRAN  ) 

COSTAB 

96. 

C 

ARE  THERE  ANV  STATE  TARGET  CONDS. 

COSTAB 

irit'IJHHto  . LL  . Vi  bU  IU  111 

CO  ST  AB 

1 1 7 

98. 

C 

yes.  ado  rows  to  ab  matrix 

THAT  RESULT  FROH 

THE 

COSTAB 

99. 

C 

TARGET  CONDS.  ON  THE  STATE. 

COSTAB 

100. 

00  116  I x 1,  NTARS 

COSTAB 

101. 

HA  x NA  4 l 

COSTAB 

102. 

KODE  = ITCC I,  NBRAN) 

COSTAB 

103. 

IfCKOOE  .GT.  11)  GO  TO  119 

COSTAB 

119—1 

109. 

C 

SIMPLE  RELATIVE  STATE  HATCH 

COSTAB 

105. 

<0D£  = MAP(KODE)  ♦ 18 

COSTAB 

106. 

ABC  MA,  KOBE)  = 1 

COSTAB 

107. 

GO  TO  116 

COSTAB 

108. 

C 

COMPLEX  CONO.  ON  THE  STATES 

COSTAB 

109. 

119 

ISK1P  = 0 

COSTAB 

no. 

CALL  FETCHC -NBRAN) 

COSTAB 

in . 

CALL  POBCQlCKOOE,  DUMflY,  SPART,  RUNNY,  1, 

ISK1P) 

COSTAB 

112. 

00  U5  L x 19,  2^ 

COSTAB 

113. 

115 

ABC  HA,  L)  x SPARTCL  - 18) 

COSTAB 

119. 

116 

CONTINUE 

COSTAB 

115. 

c 

ARE  THERE  ANY  TRANS YERSAlI TV 

C OMDS. 

AT  ALL 

COSTAB 

116. 

117 

IFCha  .GE.  27)  GO  TO  132 

COSTAB 

T3I= 

117. 

c 

YES.  COHPLETE  AND  INVERT  AB 

HATRU 

COSTAB 

ne. 

CALL  BASIS! AB,  HA,  27) 

COSTAB 

119. 

CALL  6JRVCAB,  27,  l.E-12.  I ERR ) 

COSTAB 

120. 

c 

HAKE  SURE  INVERSION  WORKED 

COSTAB 

121. 

I FC  I ERR  .NE.  0)  CALL  ERRORC CuSTAB,  -1,  1) 

COSTAB 

122. 

c 

analyze  transversalIty  Cohos 

COSTAB 

123. 

L = HA  4 1 

COSTAB 

129. 

DO  131  J X L,  27 

COSTAB 

125. 

DO  116  I x i;  9 

COSTAB 

rncTBD 

1 0 1 ..... 

126 . 

118 

IrlABSCABCI,  J))  .GT.  l.E-12)  60  TO  123 

LUb  1 HP 

1 C J 

127. 

c 

TOP  THIRD  OF  COLUDNxZERO,  SO 

THIS  TRANS.  COND 

. DOES 

COSTAB 

126. 

c 

NOT  INVOLVE  2N0  BRANCH 

COSTAB 

129. 

DO  119  I x 10,  18 

COSTAB 

130. 

D1FF  = ABSC  ABi  1 J)  - ABU  4 * J)) 

COSTAB 

131. 

119 

IFCOIFF  .GT.  l.£-12>  GO  TO  121 

COSTAB 

121 

132. 

KK  x 0 

COSTAS 

133. 

00  120  I x 10,  16 

COSTAB 

139. 

I FC  ABSC  ABC  I , J))  .LE.  l.E-12)  GO  TO  120 

COSTAB 

120—i 

135. 

KK  x KK  4 1 

COSTAB 

136. 

IFCKK  .GT.  1)  GO  TO  130 

COSTAB 

137. 



II  = I - 9 

COSTAB 

1 

CONTINUE 

CONTINUOUS  COSTATE  BETWEEN  5TEH  AND  1ST  BRANCH 
1 1 C T C H I ARC  ) £ 0 
GO  TO  131 
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i KK  : 0 

DO  122  I = 10,  27 

I Ft  KK  . EQ . 0 .AND.  1 .ST.  16)  GO  TO  130 
1 F( A&Sl A6( I J))  .LE.  1 .E-12  > SO  TO  122 
KK  = KK  + 1 

IFt KK  .GT.  1 ) 60  TO  130 

II  = I - 9 

1 CONTINUE 

KNOWN  COSTATE  AT  START  OF  1ST  BRANCH 
1 1 CT(  II,  1 ARC  1 = 1 

SO  TO  131 

i DO  129  I = 10,  16 

1 Ft  ABS( AB( I J))  . 6T  , l.E-12)  GO  TO  130 

fllODLE  THIRO  OF  COlUHN=ZERO,  SO  THIS  TRANS.  CONO. 
DOES  NOT  INVOLVE  1ST  BRANCH 

00  125  1=1.9 

DIFF  = ABSt  Ad(  1 , J)  - ABC  1 ♦ 18,  J)> 

1 Ft  01 FF  .GT.  1 .E-12)  60  TO  127 
KK  = 0 

DO  128  I = 1,  9 

1 Ft  ABSt  AB( I , J))  .LE.  1 -E-12  ) GO  TO  126 
KK  a KK  ♦ 1 

I Ft KK  .GT.  1 ) GO  TO  130 

II  = 1 

CONTINUE 

CONTINUOUS  COSTATE  BETWEEN  ST  EH  ANO  2ND  BRANCH 
IICTt II,  LARC)  = 0 

GO  TO  131 

KK  = 0 " ” ~~  ” 

DO  129  I = 1,  27 

I Ft  KK  .EQ.  0 .AND.  I .GT.  9)  GO  TO  130 
I Ft  ABSt  ABt  I J))  .LE.  1 .E-12  ) GO  TO  128 
KK  = KK  ♦ 1 

I Ft  KK  .GT.  1)  GO  TO  130 

II  - 1 

I Ft  I .EQ.  9)  I s 18 
continue 

KNOWN  COSTATE  AT  START  OF  SECOND  BRANCH 
IICTt II,  LARC)  = 1 
GO  TO  lh 

IF  THIS  IS  A LT Alt  HATCH  AND  TAU  FOR  THE  LAST  ARC 
OF  THE  STEP!  WAS  KNOWN  PASS  THIS  TRANS.  COND . UP 
AS  TRIVIAL 

I Ft  J .EQ.  26  .AND.  I I Ct  8 , NBRAN)  .EQ.  1)  GO  TO  131 
DO  1301  1=1.9 

DIFF  = ABSt  ABt  I,  J)  - ABt  I ♦ 9,  J)> 

IFiQlfF  .ST-  1 .E-12 ) 60  JO  1303 
DIFF  = ABSt  ABt  I , J)  - ABt  I ♦ 18,  J)) 

IFtDIFF  .GT.  1 .E-12 ) 60  TO  1303 
KK  = 0 

DO  1302  I = 1,  9 

I Ft  ABSt  ABt 1 , 3)).LE.  1 .E-12  > 60  TO  1302 
KK  = KK  + 1 

I Ft KK  .GT.  1 ) GO  TO  1303 

II  = I 

CONTINUE 

COSTATE  DISTRIBUTION  ACROSS  BRANCH  PT 
IICTt II,  LARC)  = 7 
60  TO  131 

ANOTHER  NOW-TRIVIAL  TRANS  COND.  STORE  THE  SHIFTED 
COL.  NO.  AS  A POINTER  TO  THE  COSTATE  TARGET  CONO. 

NNTTC  = NNTTC  ♦ 1 

I TCTt  NNTTC , NBRAN)  = J - WA 

CONTINUE 

STORE  THE  NUMBER  OF  COSTATE  TARGETS  TO  BE  SATISFIED 
AT  THE  BRANCH  POINT.  

LT  ABt NBRAN ) = NNTTC 

UPDATE  THE  NUMBER  OF  UNKNOWN  STATE  AND  COSTATE 
INITIAL  CONDITIONS 
00  133  I = 1,  9 


COSTAB 

COSTAB 

COSTAB 

COSTAB 


COSTAB 

COSTAB 

C05TAB 

COSTAB 

COSTAB 

COSTAB 


COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 
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a 


212. 

213. 

219. 

215. 

216. 
217. 
216. 

219. 

220. 


IF(  I AB$(  1 1 Cl  1 . 1 ABC  ) - 3)  .LT.  2)  NOKMOU  = NOKNOW  ♦ 1 
133  1F< 1 1 CT( I 1 ARC  ) .EO.  2)  NOKMOy  = NOKNOW  ♦ 1 
NOC(IARC)  = NOKNOtf 
00  13H  1 = 1.  9 

IF<  I ABS(  1 1 C(  f . LARC)  - 3)  .t.T.  2)  NOKNOU  = NOKMOW  ♦ 1 
139  IFUICTU,  LARC)  .EQ.  2)  NOKNOW  = *0**0*  ♦ 1 
NOC(LARC)  = NOKNOW 
RETURN 
ENO 


COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 

COSTAB 
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/ o v</ 


FORTRAN 

SYftBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


SUBROUTINE  USAGE 
SUBR  CODE VAR 


STORAGE 
BLOCK LOC 


£R 


I ARC 


1IC  . 


I ICT 


ire 


ITCT 


JTAB 


9r 


I 


I 


I 


I 


A 


f 


0 


I 


6r a* I t at 1 ona 1 acceleration  at  surface  of  the  earth  /6L0BAL/( 

( FT/SEC2  > 


Subarc  ftuabir. 


/CNTfiL  /( 


A 10*20  array  containing  the  initial  condition  /BLOCK  /( 

codes  for  the  QL  state  vector.  The  coluans 
correspond  to  subarc  starting  points,  the  roas,  to 
QL  st  ate  variables. 


A 10*20  array  containing  the  target  condition  codes  /BLOCK  /( 

for  the  state  vector.  The  coluans  correspond  to 

the  subarc  end  points.  The  nonzero  entries  In  a 

coluan  are  the  state  target  condition  codes  that 

apply  at  the  end  of  the  corresponding  subarc. 

A 10*20  array  containing  the  initial  condition  /BLOCK  /( 

codes  for  the  QL  costate  vector.  The  coluans 
correspond  to  subarc  starting  points,  the  roas,  to 
QL  coatate  variables. 


A 10*20  array  containing  the  QL  costate  analog  to  /BLOCK  /( 

the  array  I I CT  . The  coluans  correspond  to  subarc 

end  points.  The  nonzero  entries  in  a coluan  are 

the  nuabers  of  those  coaponents  of  the  vector  6 in 

Equation  16.6-3**  of  Voluae  I of  the  PAD$  docuaent 

that  contain  the  value  of  a costate  target 

condition  that  applies  at  tha  end  of  the 

corresponding  tubarc. 

An  array  containing  the  nuaber  of  nonzero  entries  /BLOCK  /( 
in  each  coluan  of  the  array  1 I CT . 


1 ) AL5 

J 

GR 

APPLY 

I 

GR 

BRANPT 

I 

GR 

COSTAB 

I 

GR 

costai 

I 

GR 

INTRPT 

I 

GR 

OUTPUT 

I 

GR 

PDBCQL 

I 

GR 

QLTOSZ 

I 

GR 

SALVE 

l 

GR 

STATEF 

I 

6R 

TH3 

I 

GR 

2*4  > ARCIN 

1 

I ARC 

BCOND 

ft 

I ARC 

BNDRV 

ft 

I ARC 

BRANPT 

I 

1 ARC 

CHECK 

ft 

I ARC 

COSTAB 

I 

I ARC 

costai 

I 

1 ARC 

ENDPT 

I 

I ARC 

FORCES 

I 

1 ARC 

INARC 

ft 

1 ARC 

INTRPT 

I 

I ARC 

AAGIC 

ft 

I ARC 

MARCH 

I 

I ARC 

QLTOSZ 

I 

I ARC 

SALVE 

ft 

1 ARC 

kIRAPUP 

ft 

1 ARC 

1 ) BCOND 

ft 

IIC 

BRANPT 

I 

IIC 

CHECK 

I 

IIC 

COSTAB 

I 

IIC 

COSTAI 

I 

IIC 

COSTAO 

I 

nc 

INTRPT 

I 

IIC 

SALVE 

I 

IIC 

2 01  ) CHECK 

I 

I ICT 

costab 

ft 

II  CT 

costai 

ft 

I ICT 

costao 

0 

I ICT 

AAG1C 

0 

I ICT 

SALVE 

I 

11  CT 

*<01  ) 6C0NO 

0 

ITC 

BRANPT 

I 

ITC 

CHECK 

1 

ITC 

costab 

I 

ITC 

costai 

I 

ITC 

ENOPT 

1 

ITC 

INTRPT 

I 

ITC 

621  ) BCOND 

0 

ITCT 

BRANPT 

I 

ITCT 

CHECK 

I 

ITCT 

COSTAB 

0 

ITCT 

costai 

0 

ITCT 

INTRPT 

I 

ITCT 

MAGIC 

0 

ITCT 

601  ) BCOND 

ft 

JTAB 

BRANPT 

JTAB 

CHECK 

JTAB 

COSTAB 

JTAB 

costai 

JTAB 

ENDPT 

JTAB 

INTRPT 

JTAB 

MAGIC 

JTAB 
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FORTRAN  WAT  H 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK  lEC  5 UBR  COD^ VAR 


LTAB 

0 

An  array  c o nta 1 n 1 ft 

1 the  nuaber  of  nonjero  entries 

/BLOCK 

/( 

821  ) 

BCOND 

0 

LTAB 

in  each  col uan  of 

the  array  ITCT. 

BfiANPT 

I 

LTAB 

COSTAB 

0 

LTAB 

COST  A1 

0 

LTAB 

INTRPT 

I 

LTAB 

MAGIC 

m 

LTAB 

ft 

■ i 

flats 

( 6'S  ) 

/D 

/( 

97  ) 

AL9 

i 

N 

AL7 

i 

« 

alb 

i 

it 

AL9 

i 

ft 

APPLY 

i 

it 

branpt 

i 

ft 

COSTAB 

I 

ft 

COST  AI 

i 

ft 

INTRPT 

i 

ft 

nlorv 

i 

it 

OUTPUT 

i 

ft 

SALVE 

i 

ft 

STATEF 

i 

it 

WRAP UP 

i 

ft 

NBRAM 


NFARC 


hoc 


NO KNOW 


ZSAVE 


1 Nuaber  of  the  last  tubirc  on  the  stea  of  » branch  /GLOBAL/( 
problea.  If  th*  prpbita  is  not  a branch  prcbJea, 
than  NBRAM  s 0. 


I Nuaber  of  th«  last  subarc  on  the  first  branch.  If  /GL0BAL/( 
the  problem  Is  not  a branch  problta,  then  NFARC  - 
NARC. 


0 An  array  containing  a running  totaJ  of  the  nuaber  /BLOCK  /( 
of  free  ( unknoan)  state  and  costate  variables  at 
the  start  of  each  subarc. 


M The  total  nuaber  of  free  (unknoan)  state  and  /BLOCK  /( 

costate  variables  Over  ali  the  subarcs. 


I A taenty  aord  array  containing  the  values  froa  the  /D  /( 

initial  arc  of  the  state  and  costate  at  the  initial 
point  of  tha  trajectory. 


19  ) BNORY 

I 

NBRAN 

BRANPT 

I 

NBRAN 

costab 

I 

NBRAN 

ENVPRQ 

I 

NBRAN 

INTRPT 

I 

NBRAN 

MAGIC 

I 

NBRAN 

QtTOSZ 

I 

NBRAN 

SALVE 

I 

NBRAN 

20  BCONO 

I 

NFARC 

BNORY 

I 

NFARC 

branpt 

I 

NFARC 

costab 

I 

NFARC 

ENVPRQ 

I 

NFARC 

INTRPT 

I 

NFARC 

MAGIC 

I 

NFARC 

QLTOSZ 

I 

NFARC 

SALVE 

I 

NFARC 

892  ) BNORY 

I 

NOC 

BRANPT 

I 

NOC 

COSTAB 

0 

NOC 

COST  AI 

0 

NOC 

COST  AO 

0 

NOC 

INARC 

I 

NOC 

INTRPT 

I 

NOC 

SALVE 

1 

NOC 

UR  ft PUP 

I 

NOC 

891  ) CHECK 

I 

NOKNON 

COHOMO 

I 

NO KNOW 

COSTAB 

M 

NO  KNOW 

COST  A I 

M 

NOKNOW 

COST  AO 

M 

NO  KNOW 

GROPE 

I 

NOKNOW 

MAGIC 

I 

NOKNOW 

151  ) BCOND 

0 

25AVE 

BRANPT 

I 

ZSAVE 

COSTAB 

I 

ZSAVE 

COST  A I 

1 

ZSAVE 

INTRPT 

I 

ZSAVE 

PDBCQL 

I 

ZSAVE 

SALVE 

I 

ZSAVE 
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SUBR0UTINE 

C0STAI 


Purpose 

COSTAI  determines  the  costate  initial  and  target  conditions  at  an  inter- 
mediate point.* 


•See  Sections  16.6,  17.1  and  17.2  in  Vo  I.  I. 


/&</£ 


COST  At 


SUBROUTINE  COSTA! 

THIS  ROUTINE  DETERMINES  THE  COSTATE  INITIAL  CONDI- 
TIONS ON  THE  LATE  SIDE  OF  AN  I NTERHEOI ATE  POINT  AND 
WHICH  TRANSVERSALITY  CONDITIONS,  IF  ANY,  MUST  BE 
SATISFIED  ON  THE  EARLY  SIDE. 

COMMON/ GLOBAL/ 

*GR  ,ER  OMGZ  XLAHRF , YMURF  ,LUM  ,TO  , EPSlON, I NNER  , 
*ITfiMAX,JJOP<  6^  ,1FATAL,NARC  ,NBRAN  ,NFARC  ,10(9)  , KTABt  26 ), 

*ITAB(26),  S1G,MAXTAB,GH,PSIRF  , IPFLG1, IPFLG2, I PFL63, JPFL69 
* INEOFlI 26  ),  itPSO,  KSOL . I NARK, KGlOBLi 7 ) 

COMMON  /BLOCK/  1 1 C(  10,  $0  >,  IlCTdO,  20),  I TCI  10/20),  JTAB(  20  ), 
*ITCT(10,  20),  LTAB(20),  NOKNOW,  N0C(20),  VALlCdO,  20t, 

♦VAlTCI l6,  20 ^ IPAY 
COMMON  /CNTRL/ 

*NU  , I TER  I TAP A ,ITAPB  ,JMN  ,JHAX  , LINES  ,KPT  ,HOH  , 

♦KARD  ,INDX(9>  NEWNOM,CNTOl6,RHOC  ,RHOP  NPTS  ‘ , HINES  , 

♦ KPASE  , NNP  ,NUP  ,IARC  ,tRSTR  , IMAX  KT I ME  .KONVEfl.NOPRNT, 

*INBORY  NUPAGE, IVARY(20),  NN,  NOTARY,  PLAST,  ZLAST;  KOOES 
LOGICAL  inbory,  neunom,  konver,  nopAnt,  nuPage  ' 

REAt  HAGBV,  MU,  A,  LV,  LGAH,  LPSI,  Lfi,  LRHO,  LHU,  LA;  LTAU,  NOA 
*,  LHT  t 

COMMON  /D/ 

♦X,  H_  Xl(9>,  AAGBY,  ERR.  D9 , 010,  C(90>,  CSAYE(hO),  V,  GAA,  PS1, 

*alt,Rho,au, a,  tau,  ht,  ly,  lgaa,  lpsi,  lr,  lRho,  lau;  lm,;  ltau. 

♦LHT,  D)  09,  Dl  1 0,  69(90),  ISAYEiiO),  0T<20),  NP0!nT(20),  D£lT(26) 

dimension  noa(26)  * 1 

EQUIVALENCE  (NOA,  9 ) ‘ 

DIAENSION  Aide,  16),  SPART(9),  AAP(IO) 

DATA  HAP  /8, 1,2,9, 7, 5, 5, 6, 0,9/,  CUSTAI/6MC05TAI/ 

initialize  the  nuaber  OF  NON-TRIVIAL  TRANS.  CONOS. 
AND  THE  NUABER  OF  STATE  INITIAL  AND  TARGET  CONDS. 
FOR  THIS  INTERMEDIATE'  PT. 

NNTTC  =0 
AA  x 0 

DO  101  I = I,  16 
00  101  J = 1,  18 
101  Aid,  J>  x 0 

SET  UP  THOSE  ROWS  OF  THE  AI  AATRI X THAT  RESULT  FROA 
STATE  INITIAL  CONDITIONS 
DO  10?  1 = 1,  9 

IFdICd,  I AnC ) - 1 ) 102,  103,  109 
CONTINUOUS  STATE 


COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

GLOBAL 

6L0BAL 

GLOBAL 

global 

GLOBAL 

BLOCK 

BLOCK 

BLOCK 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

D 

D 

0 

D 

JUL21 

D 

D 

D 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI  102-n  103-1  ION- 


95. 

102 

HA  x ha  ♦ 1 

v COSTAI 

96. 

AKHA,  I>  x 1 

COSTAI 

97. 

AKHA,  I ♦ 9>  x -1 

COSTAI 

98. 

GO  TO  107 

COSTAI 

99. 

C 

KNOWN  STATE 

COSTAI 

50. 

103 

HA  x HA  ♦ 1 

COSTAI 

51. 

AH  HA,  I)  x 1 

COSTAI 

52. 

GO  TO  107 

COSTAI 

53. 

109 

1F( 1 1 C< I I ARC  ) - 5 ) 107,  105,  106 

COSTAI 

T05— 1IO6-1 

59. 

C 

FIXED  OROP  WEIGHT 

COSTAI 

1 

55. 

105 

HA  x ha  4 1 

COSTAI 

56. 

AKHA,  I ) = -1 

COSTAI 

57. 

AKHA,  I ♦ 9)  x 1 

COSTAI 

58. 

GO  TO  10? 

COSTAI 

59. 

C 

SIZING  DROP  WEIGHT 

COSTAI 

60. 

106 

HA  x HA  4 1 

COSTAI 

61. 

CALL  FETCHt -I ARC  ♦ 1) 

COSTAI 

62. 

UPRO  x 6R*( ZSAVEC  7 ) - H) 

COSTAI 

63. 

call  WTORP(WPRO,  WORP,  DWDRP,  3) 

COSTAI 

69. 

AKHA,  I)  x -1 

COSTAI 

65. 

AKHA,  I ♦ 9 ) = 1 . - DWDRP 

COSTAI 

107  CONTINUE  COSTAI 

STORE  NUMBER  OF  STATE  TARGETS  COSTAI 

HTAR6  x JTA0< I ARC  - 1)  COSTAI 

ARE  THAN  ANY  STATE  TARGETS  AT  THIS  POINT  COSTAI 

IFCPITARG  -LE.  0)  GO  TO  111  COSTAI  HI- 

VES. ADO  THOSE  ROWS  TO  AI  RESULTING  FROM  TARGETS.  COSTAI 
DO  110  I x 1,  HTARG  COSTAI 
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73. 
7<» . 

75. 

76. 

77. 

78. 

79. 

80. 


86. 

87. 


[ 


89. 

90. 

91. 

92. 

93. 
99. 

95. 

96. 

97. 
96. 
99. 

100. 

101. 

102. 

103. 

109. 

105. 

106. 
107. 
106. 


109. 

no. 

111. 

112. 

113. 

119. 


1121. 


122. 

123. 

129. 

125. 

126. 
127. 


MA  = MA  ♦ 1 

KODE  = ITCd,  I ARC  - 1) 

IFtKOOE  .67 . 11)  GO  TO  108 

SIMPLE  RELATIVE  STATE  WATCH 
KODE  - MAP(KODE)  4 9 
AURA.  KODE)  = 1 
60  TO  110 

COMPLEX  TAR6ET  CONDITION  ON  STATES 


COST  AI 
COSTAI 
C0STA1 
COSTAI 
COSTAI 
COSTAI 
COSTAI 
COSTAI 


81.  108  ISKIP  = 0 

82.  CALL  FETCH! -I ARC  ♦ 1) 

83.  CALL  POBCQLt KODE  DUMMY , SPART,  RUMMY , 1,  ISKIP) 

84 . DO  109  L = 10.  18 

85.  109  AltMA,  L)  = SPABTtL  * 9) 


COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 


110  CONTINUE 


ARE  THERE  ANY  TRANSVERSALITY  CONDITIONS  AT  THIS  PT. 


COSTAI 

C0STA.1 


111  I Ft  MA  . 6E . 18)  GO  TO  121  , COSTAI 

YES.  COMPLETE  AND  INVERT  AI  MATRIX.  COSTAI 

CALL  6ASI St  AI , MA,  18)  • . COSTAI 

CALL  GJRVCAI,  18,  l.E-12,  IERR ) COSTAI 

MAKE  SURE  INVERSION  WORKED  . COSTAI 

I FI IERR  .NE.  0)  CALL  ERRORt  CuSTAI , -1.  1>  » COSTAI 

ANALYZE  TRANSVERSALITY  CONOS.  COSTAI 

L = MA  ♦ 1 COSTAI 

DO  120  J > L,  16  COSTAI 

CHECK  FOR  CONTINUOUS  COSTATE  COSTAI 

DO  112  1=1.9  COSTAI 

01FF  = ABS(  Aid  , J)  - AUI  + 9,  J)>  COSTAI 

IFtDIFF  .GT.  l.E-12)  60  TO  115  COSTAI 

112  CONTINUE  COSTAI 

TOP  HALF  OF  COL.  EQUALS  BOTTOM  half.  CHECK  NUMBER  COSTAI 
OF  NONZERO  ENTRIES.  COSTAI 

KK  = 0 COSTAI 

00  119  I = 1,  9 COSTAI 

lFt  ABSt  Alt  I , J)).LE.  l.E-12)  GO  TO  119  COSTAI 

KK  = KK  ♦ 1 COSTAI 

IFtKK  - 1)  119,  113,  119 COSTAI 


113  II  = 1 


COSTAI 


119  CONTINUE 

CONTINUOUS  COSTATE 
IICTtll, >1  ARC ) = 0 
60  TO  120 

CHECK  FOR  KNOWN  COSTATE 


COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 


115.  115  KK  = 0 

116.  DO  118  1=1,  16 

117.  IFtKK  .EO.  0 .AND.  I .6T.  9)  60  TO  119 

116.  I Ft  ABSt  A I ( I , J ) ) . l£ . l.E-12)  60  TO  116 

119.  KK  = KK  ♦ 1 

120.  IFtKK  - 1)  116,117,119 


COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 

COSTAI 


117  II  = I 


COSTAI 


116  CONTINUE  COSTAI 

C KNOWN  COSTATE  COSTAI 

IICTtll,  1 ARC  ) = 1 COSTAI 

60  TO  lio  COSTAI 

C IF  THIS  IS  A LTAU  MATCH  AND  TAU  FOR  PfiECEEDING  ARC  COSTAI 

C IS  KNOWN,  PASS  UP  TRANS.  COND.  AS  TRIVIAL.  COSTAI 


108 — a 


uo-i 


T TF 


115- 


119 

1 13 — 1 1 19H  I 


119* 


120-, 


118 

117 — 1 1 1 e 


119- 

119- 


120- 


Tnr= 


128.  119  IFt  J .EQ.  17  .ANO.  110(8,  IARC  - 1)  .EQ.  1)  GO  TO  120  COSTAI 

129.  C ANOTHE  NON-TRIV.  TRANS.  COND.  STORE  SHIFTED  COLUMN  COSTAI 

130.  C NO.  IN  COSTATE  TARG.  CONO.  ARRAY  COSTAI 

131.  NNTTC  = NNTTC  4 1 COSTAI 

132.  I T C T I NNTTC,  1ABC  - 1 ) = J - MA COSTAI 


133. 

139. 

135. 


120  CONTINUE 


STORE  TOTAL  NUMBER  OF  NON-TRIV.  TRANS.  CONOS.  F OR 
THIS  POINT 


COSTAI 

COSTAI 

COSTAI 


d 


136.  121  LTABdARC  - I > = NNTTC  COSTAI 

137.  C UPDATE  TOTAL  NUMBER  OF  UNKNOWN  INITIAL  STATES/CO-  COSTAI 

138.  C STATES  THROUGH  THIS  ARC  ANO  STORE  RESULT  COSTAI 

139.  DO  122  I = 1,  9 COSTAI 

140.  I F( I ABSt 1 1 C( I IARC)  - 3)  .LT.  2)  NOKNGW  = NOKNOW  4 1 COSTAI 

191.  1 22  IFtllCTtl,  IAfiC)  .EQ.  2)  NOKNOW  = NOKNOW  4 1 COSTAI 

142.  NOCt IARC)  --  NOKNOW  COSTAI 
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DESCRIPTION 


Gravitational  acceleration  et  lurface  of  the  earth. 

<FT/SECZ> 


S Mb arc  number . 


A 10*20  array  containing  the  Initial  condition 
codes  tor  the  OL  state  vector.  The  coluent 
correspond  to  subarc  starting  points,  the  roes,  to 
OL  state  variables. 


A 10*20  array  containing  the  target  condition  codes 
for  the  state  vector.  The  columns  correspond  to 
the  subarc  end  points.  The  nonzero  entries  in  a 
column  are  the  state  target  condition  codes  that 
apply  at  the  end  of  the  cor respond i ng  suberc. 

A 10*20  array  containing  the  Initial  condition 
codas  for  the  0L  costata  vector.  The  columns 
correspond  to  subarc  atarting  points,  the  roes,  to 
QL  costate  varlablea. 


0 A 10*20  array  containing  tha  OL  costate  analog  to 
the  array  1 1 CT . The  columns  correspond  to  subarc 
end  points.  The  nonzero  entries  In  a column  »r« 
the  numbers  of  those  components  of  the  vector  6 in 
Equation  16.6*34  of  Volume  2 of  the  PADS  document 
that  contain  tha  value  of  a costata  target 
condition  that  applies  at  tha  and  of  the 
corresponding  subarc. 

1 An  array  containing  the  number  of  nonzero  entries 
in  each  column  of  tha  array  1ICT. 


SUB&OU 

TIN 

LOC 

SUftfl 

m 

£ VAf 

1 ) 

AL5 

l 

GR 

APPLY 

i 

GR 

BRANPT 

i 

GR 

costab 

i 

GR 

costai 

i 

GR 

INTRPT 

2 

GR 

OUTPUT 

I 

GR 

PDBC0L 

1 

GR 

QLTOSZ 

1 

GR 

SALVE 

J 

GR 

STATEF 

I 

GR 

TH3 

I 

GR 

24) 

ARCIN 

I 

I ARC 

BCOND 

ft 

I ARC 

BNDRV 

ft 

I ARC 

BRANPT 

I 

I ARC 

CHECK 

« 

I ARC 

COSTAB 

I 

I ARC 

costai 

l 

I ARC 

ENOPT 

I 

I ARC 

FORCES 

I 

(ARC 

INARC 

* 

I ARC 

INTRPT 

1 

(ARC 

flAGJC 

n 

I ARC 

WABCH 

i 

(ABC 

OLTOSZ 

i 

(ARC 

SALVE 

ft 

l ARC 

URAPUP 

n 

I ARC 

1 ) 

BCOND 

ft 

(IC 

BRANPT 

1 

IIC 

CHECK 

i 

lie 

COSTAB 

i 

lie 

COSTAI 

1 

IIC 

COST  AO 

i 

IIC 

INTRPT 

I 

(IC 

SALVE 

i 

nc 

201  ) 

CHECK 

I 

1ICT 

costab 

ft 

1 1 CT 

COSTAI 

ft 

1 1 CT 

COSTAO 

0 

1 1 CT 

WAG!  C 

0 

1 1 CT 

SALVE 

I 

11  CT 

401  ) 

BCOND 

0 

1TC 

BRANPT 

1 

1TC 

CHECK 

• 

ITC 

CO STAB 

I 

1TC 

COSTAI 

I 

ITC 

ENOPT 

I 

ITC 

INTRPT 

I 

ITC 

621  ) 

BCOND 

0 

ITCT 

BRANPT 

I 

I TCT 

CHECK 

I 

ITCT 

COSTAB 

0 

ITCT 

COSTAI 

0 

ITCT 

INTRPT 

I 

ITCT 

rtAGIC 

0 

ITCT 

601  ) 

SCONO 

ft 

JTAB 

BRANPT 

JTAB 

CHECK 

JTAB 

COSTAB 

JTAB 

COSTAI 

JTAB 

ENOPT 

JTAB 

INTRPT 

JTAB 

WAGIC 

JTAB 
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HIM  RAN 
SYMBOL 


HATH 
5 YMBOL 


CODE 


DESCRIPTION 


N 

V i 


LTAB 


a 


HOC 


NOKNOW 


ZSAVE 


0 An  array  containing  tha  nunber  of  nonzero  entries  /BLOCK  /( 
in  each  coluan  of  the  array  ITCT. 


( Maas 


< 6'S  ) /D  n 


0 An  array  containing  a running  total  of  the  nunber  /BLOCK  /( 
of  free  (unknown)  state  and  costate  variables,  at 
the  start  of  each  subarc. 


M The  total  nunber  of  free  (unknown)  state  and  /BLOCK  /( 

co state  variables  over  ail  the  sub arcs. 


I A twenty  word  array  containing  the  values  froa  the  /D  /( 

initial  arc  of  the  state  and  costatc  at  the  initial 
point  of  the  trajectory. 


821)  BCOND  0 LTAB 
BRANPT  1 LTAB 
COSTAB  0 LTAB 
COSTA!  0 LTAB 
INTRPT  I LTAB 
MAGIC  M LTAB 

97 ) AL4  I « 

ALT  1 M 
ALB  I M 
AL9  1 M 
APPLY  I M 
BRANPT  I M 
COSTAB  I A 

co st ai  i n 

1NTRPT  I A 
NLDRV  I A 
OUTPUT  1 A 
SALVE  I A 
STATEF  I A 
WRAP  UP  1 A 


892) 

BNORV 

1 

NOC 

BRANPT 

I 

NOC 

COSTAB 

0 

NOC 

COSTAI 

0 

NOC 

COST  AO 

0 

NOC 

INARC 

I 

NOC 

INTRPT 

1 

NOC 

SALVE 

I 

NOC 

WRAP UP 

I 

NOC 

841  ) 

CHECK 

1 

NOKNOW 

COHOAO 

I 

NOKNOW 

COSTAB 

A 

NO  KNOW 

COSTAI 

A 

NO KNOW 

COST  AO 

A 

NOKNOW 

GROPE 

I 

NOKNOW 

MAGIC 

I 

NOKNOW 

151  ) 

BCOND 

0 

ZSAVE 

BRANPT 

1 

ZSAVE 

COSTAfi 

I 

ZSAVE 

COSTA! 

I 

ZSAVE 

INTRPT 

1 

ZSAVE 

PO0COL 

I 

2SAVE 

SALVE 

I 

ZSAVE 
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SUBR0UTINE 

C0STAO 


Purpose 

CUSTAO  determines  the  costate  initial  conditions  at  the  initial  point.* 


*See  Sections  16.6  and  17.1  in  Vol.  I. 


COST AD 


SUBROUTINE  COSTAO 

THIS  ROUTINE  DETERMINES  THE  COSTATE  INITIAL  CONDS . 
AT  THE  INITIAL 

COMMON  /BLOCK/  IICUO,  20),  IlCTdO,  20),  ITC(  10.  20).  JTABl  20 ), 
* I TCT<  10.  20).  LTAB<2oV  HOknOld,  NOCI20),  YALlCdt,  20), 

*VALTC< l6,  20^,  I PAY 


DIMENSION  A0(  9. 

* 


10. 

00  101  I 

11. 

DO  101  J 

12. 

101 

A OC  1 , J) 

13. 

HA  = 0 

19. 

C 

15. 

C 

16. 

DO  102  I 

17. 

ifutcir 

18. 

MA  = MA  < 

19. 

AO<MA,  1 

20. 

102 

CONTINUE 

21. 

C 

9) 


l' 


i,  ?. 


I 


SET  UP  THOSE  SONS  OF  AO  RESULTING  FROM  STATE  INITIAL 
CONDS 


COSTAO 

COSTAO 

COSTAO 

COSTAO 

COSTAO 

BLOCK 

BLOCK 

BLOCK 

COSTAO 

COSTAO 

COSTAO 

COSTAO 

COSTAO 

COSTAO 

COSTAO 

COSTAO 

COSTAO 

COSTAO 

COSTAO 


n 


COSTAO 

ARE  THERE  ANV  KNOWN  COSTATES  AT  THE  INITIAL  PT.  COSTAO 

22.  lFlrtA  .GE.  9)  GO  TO  105  COSTAO 

23.  C YES . FINO  OUT  WHICH  ONES  ARE  KNOWN  COSTAO 

29.  CALL  BASI S( AO,  MA,  9)  COSTAO 

25.  CALL  GJRVtAO,  9,  l.E-12,  IERR)  COSTAO 

26.  L = MA  ♦ 1 COSTAO 

27.  DO  109  J = L,  9 COSTAO 

28.  DO  103  I = I,  9 COSTAO 

29.  IF( ABS( A0( I . J))  .LE.  l.E-12)  GO  TO  103  COSTAO 

30.  1 2£T(  1 , 1)  =,1  COSTAO 

31-  GO  TO  109  . COSTAO 


105- 


103 

109— | 


32. 


103  CONTINUE 


COSTAO 


33. 

39. 

35. 

109 

c 

c 

CONTINUE 

SET  TOTAL  NUMBER  OF  UNKNOWN  INITIAL  STATES/COSTATES 
TO  8 ANO  STORE. 

COSTAO 

COSTAO 

COSTAO 

36. 

105 

NQKNOW  ; 

8 

COSTAO 

37. 

NOC< 1 > = 

NOKNOW 

COSTAO 

38. 

RETURN 

COSTAO 

39. 

ENO 

COSTAO 
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FORTRAN 
S YPIBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


storage  

BLOCK LOC  ^UBR  CODE VAR 


lie 


IlCT 


NOC 


NO KNOW 


I A 10i20  Array  containing  the  Initial  condition  /BLOCK  /< 

codes  for  the  QL  state  sector.  The  columns 
correspond  to  subarc  starting  points,  the  rpns,  to 
QL  state  variables. 


0 A 10*20  array  containing  the  target  condition  codes  /BLOCK  /< 
for  the  state  rector.  fhe  cc/uans  correspond  to 
the  subarc  end  points.  The  nonzero  entries  in  a 
colunn  are  the  state  target  condition  codes  that 
apply  at  the  end  of  the  corresponding  subarc. 

0 An  array  containing  a running  total  of  the  number  /BLOCK  /( 
of  free  (unknoan)  state  and  costate  variables  at 
the  start  of  each  subarc. 


A The  total  nuaber  of  free  (unknoan)  state  and  /BLOCK  /( 

costate  variables  over  all  the  subarcs. 


- 1 ) BCOND 

A 

1IC 

BRANPT 

I 

1IC 

CHECK 

I 

lie 

COST  AB 

I 

lie 

COSTAI 

1 

lie 

COST  AO 

I 

IK 

INTRPT 

I 

IIC 

SALVE 

1 

IIC 

201)  CHECK 

I 

II  CT 

COS TAB 

A 

IICT 

COSTAI 

A 

II  CT 

COST  AO 

0 

IICT 

AAGIC 

0 

IICT 

5ALVE 

r 

IICT 

0H2  ) BNDHY 

i 

NOC 

BRANPT 

i 

NOC 

COSTAB 

0 

NOC 

COSTAI 

0 

NOC 

COST  AO 

0 

NOC 

INARC 

I 

NOC 

INTRPT 

I 

NOC 

SALVE 

I 

NOC 

WRAP  UP 

1 

NOC 

6H1  ) CHECK 

I 

NOKNOW 

C0H0A0 

I 

NOKNOW 

COSTAB 

n 

NOKNOW 

COSTAI 

A 

NOKNOW 

COST  AO 

A 

NOKNOW 

GROPE 

1 

NOKNOW 

MAGIC 

I 

NOKNOW 
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SUBR0UTINE 

DL1 


/ 

/ 


Purpose 

DL.1  evaluates  the  constant  engine  deflection  constraint. 


6 


C ' 


vx 

u 


OLI 


1.  sues  out  i he  on 

2.  C 

3.  C THIS  ROUTINE  APPLIES  WHEN  ENGINE  DEFLECTION  IS  A 

H.  C CONSTANT 

5.  C 

6.  C 

7.  logical  Switch  iloao 


8. 

REAL  AACH.  ISP.  75PY 

, 7 SPR . 

1 SPA 

75P7,  ISP  VY 

ISPYP.  7SPYA. 

9. 

• 1 SP  YT 

I $PRR , 1SPRR, 

I SPRT. 

1 SPAA . 

ISPAT.  ISPTT 

LIFT. 

LI  FT  V . 

10. 

•LIFTR, 

L1FTA,  LIFTYY 

. LlFTYR.  lift 

YA.  LlFTRR.  LIFTRA,  AUR.  LIFTA 

11  . 

•IRATED 

I5PF.  ISPFF 

12. 

REAL  AACHY.  RACHR.  RACHVR. 

AACHRR 

13. 

REAL  liftr.  HFTYA. 

LIFTRA, 

L1FTAP 

, LIFTRA 

19. 

CORRON 

/DYNA/ 

15. 

• XX 

TIRE  ,SINGAA 

, COSGAR 

OAEGA 

0AEGA2,R 

,G 

, S I NA  , 

16. 

• COSA 

DYN01 1 , OftEGAT 

, T ARP 

, pa 

, RO  ,C$- 

TEAPR 

,P«R 

17. 

• ROR 

CSR  , TEAPfiR 

, P ARR 

, RORR 

, CSRR  XODE 

AACH 

18. 

• AY 

OR  , Q YV 

, OvR 

, ORR 

,FYAC  F VAC  Y 

,FYACR 

F YACA  . 

19  . 

*F  Y ACT 

FVACYY, FYACVR 

,fyacrr 

F Y ACTT 

T AACH V 

AACHR 

,ISP 

20. 

• ISPV 

ISPR  , 1 SPA 

, ISPT 

, ISPYY 

I SP  VR  I 5P  YA 

. ISPVT 

, I SPRR  , 

21  . 

•ISPRfl 

ISPRT  , I SPAA 

, I SPAT 

, 1SPTT 

LIFT  ,LIFTY 

,L1FTR 

, LIFTA  , 

22. 

•liftvy 

L1FTYR,LIFTYA 

, LlFTRR 

, L I FTR  A 

DRAG  DR AGY 

DRAGR 

. DRAGA  , 

23. 

•DR AG YY 

DRA6VR, ORAGYA 

,oragrr 

DRAGR  A 

.dragaa. alpha 

PHI 

, LIFTA  . 

29  . 

•LlFTYR 

LIFTRA, Li ftra 

L I FT  AA 

, DBR 

DBRR  GAAAADAE 

/TAX 

25. 

• tf 

S J NPH I , COSPHI 

, SINPSI 

, COSPSI 

. SINRHO. CDSRHD. SINRDR 

, COSROR/ 

26. 

♦ RUR 

XXG  , X KP 

, AX  I N 

, CDO 

,CDOA  ,Cl0 

, F X 

z XCGA  , 

27. 

•XCGRR 

ZC6R  , ZCGAA 

,XJV 

, X JR 

, X J Y Y ,XJYR 

, X JRR 

, AACHVR, 

28. 

•RACNRR 

S I N2RG, C0S2R0 

,C0S26A 

,CR 

, CAA  ,c«a 

, CAA  A 

,CrtAR 

29. 

• CRAR 

CRO  , CflOA 

. caoaa 

. CAAAA 

ULFT Y , ULFTR 

,ULFTYY 

/ULFTYR, 

30. 

•ULFTVA 

ulftrr,ulftra 

, IPQUI 

, XARC 

TSTART.6H 

. GRR 

,liftaa. 

32  . 

•CDOAA 

Clara  , cloa 

. Cloaa 

, 0YN1 99 

, CT  CODAE 

SI  BAE 

, coo 

32. 

• SID 

OElTAE,CDE 

, XC6 

, ZCG 

,XJ  , XnCG 

,CAlPHA 

.alaax  . 

33. 

• DB 

ulft  .culft 

, ULF T A 

, TSTA6E 

, T inES  ,XnC6AA 

, IRATED 

, FRATED 

39  . 

CORRON 

/DYNA/ 

35  . 

• RTT 

J1  , J2 

,J3 

, XACGA 

,fyacf  ,ulftaa 

, ISPF 

/ISPFF  , 

36. 

* 1 LOAD 

FXR  ,FXRR 

, S wi  TCH 

, 1NQF 

, Cl  ,Cla 

,CLA 

/CLAA  , 

37. 

• CLRR 

Clar  ,cd 

, CQA 

COA 

, COAA  ,cdaa 

.COAA 

,0YN198, 

38  . 

♦DYN199 

DVN200, XflCGV 

, XACGR 

XAC6A 

, XrtCGVY, XACGVR 

. XACGVA 

. XACGYA, 

39. 

•XRCGRR 

xacgra, xrcgra 

, xacgaa 

XACGAA 

RORRR  0 YN2 1 9 

D YN2  1 5 

, DYN21 6, 

90. 

•DYN217 

IDAR  ,TAIRB 

T A I RB  V 

, TAIRBH 

,tarbyy,tarbhh 

,TABBYH 

# SFC  / 

91  . 

• SFCV 

SFCH  .SFCYY 

. SFCHH 

,SFCYH 

92. 

DIMENSION  PR06l(2.  69) 

93  . 

CORRON 

/RATS/ 

99. 

• PI 

P2  ,P3 

,XK1 

, XK2 

XX3  ,XX1T 

# XX2T 

, XX3T  , 

95  . 

♦ XX10  , 

XK2D  XX  3D 

, XX  1 A 

XX2A 

XX  3A  ,VDA 

rGDA 

/PDA 

96. 

• XR19  . 

XR20  , XA21 

, XA22 

, XX1TT 

XX2TT  XX3TT 

XX 1 TO 

, XK2T0  , 

97. 

• XX3TD  . 

XX  1 T A XK2T  A 

, XX3T A 

, XX 1 DO 

XX2DD  XK3DD 

, XX 1 DA 

, XX 2D A , 

98. 

♦XX30A  , 

XXIAA  XX2AA 

, XX3AA 

, XA9  J 

. XA9 2 ,XR93 

#XA99 

, XA95  , 

99. 

• XXlY  : 

XK2V  , XX 3 V 

, XX  1 G 

, XX2G 

XX  3G  . XX  IP 

,XX2P 

z XX3P  , 

50. 

•XK1R  . 

XK2R  , XX 3R 

,XX10 

. XX20 

XX  30  ,XX1U 

, XX2U 

z XX 3U  , 

51  . 

♦ XXlA  , 

XX2R  ,XK3fl 

,XX1Z 

, XK2Z 

, XX 3Z  XX 1 YT 

,XX2YT 

, XX 3 YT  , 

52. 

• XX 1 V D , 

XK2VD  XK  3 YD 

, XX  1 Y A 

, XX 2 Y A 

XX  3VA  XX 1 GT 

, XX2GT 

, XK3GT  , 

53. 

* X*  1 G D , 

XK2GD  , XX  3GD 

, XK1GA 

, XX2GA 

,XX3iA  , XX  IP  T 

XX2PT 

/XX3PT  , 

59. 

•XK1P0  # 

XXZPD  XX  3P0 

XX  1 PA 

, UZ PA 

XX  3P A XX 1 RT 

XX2RT 

, XX3RT  , 

55. 

•XX1RD  , 

XK2R0  XX  3RD 

XX1RA 

, XK2RA 

X X 3R A XX 1 OT 

XX20T 

. XX 30T  , 

56. 

•XX 1 DD  ' 

XX20D  XK30D 

XX10A 

, XX 20 A 

XX 30 A , XX 1 UT 

, XX2UT 

,XX3UT  , 

57. 

•XX1UD  , 

XX2UD  XK3UD 

XX1UA 

, XX2UA 

XX 3UA  ,XX1RT 

' XX2AT 

, XK3AT 

58  - 

CORRON 

/RATS/ 

59. 

•XX 1 AD  , 

XK2RD  X X 3RD 

XXIAA 

, XK2AA 

XX  3AA  XX 1 ZT 

XX2ZT 

, XX 3ZT  / 

60. 

♦XX1Z0  . 

XK2ZD  XX  3 ZD 

XX  1 Z A 

, XX2ZA 

XX 3ZA  , XX 1 Y Y 

XX2  Y Y 

XK 3Y V , 

61  . 

• XX 1 GY  , 

XX26Y  , XX  3G Y 

XX1PY 

rxx2py 

XX3P Y , XX 1 R Y 

, XX2RV 

,XK3RY  , 

62  . 

•XK10Y  , 

XX20Y  X X 30 Y 

XX1UY 

, XK2UY 

, XX  3U V XX 1 AY 

. XX2AY 

XK3AY  , 

63. 

•XK1ZV  , 

XX2ZY  XX  3Z Y 

XK1GG 

, XK2GG 

XX 3GG  , XX IPG 

XX2PG 

/XK3P6  / 

69  . 

• XX  1 RG  , 

XX2RG  XX3RG 

XX10G 

, XK20G 

, X X 30S  .XKIUG 

XX  2 UG 

, XK 3UG  / 

65  . 

• XX IRS  , 

XX2RG  , X X 3 A G 

XX1ZG 

r XK2ZG 

, X K 3ZG  ,XX1PP 

, XX2PP 

XK3PP  / 

66  . 

•XX1RP  , 

XK2RP  , XX 3RP 

xxiop 

, XK 20P 

XX 30P  ,XX1UP 

XX  2 UP 

XK  3UP  , 

67. 

•XX 1 RP  . 

XX2RP  , XK  3HP 

.XK1ZP 

, XK2ZP 

, X X 3ZP  XX 1 RR 

,XX2RR 

, XK3RR  / 

66. 

• XX 1 OR  . 

XK20R  XX  30R 

XX  1 UR 

, XX2UR 

, XX 3UR  XX 1 AR 

. XK2AR 

,XK3AR  / 

69. 

•XX 1 ZR  . 

XX2ZR  , XX  3ZR 

XX100 

, XK 200 

, X K 300  ,XX1U0 

, XX2U0 

, XK3U0  , 

70  . 

♦XX1R0  , 

XX2R0  , XK3A0 

,XK1Z0 

, XX2Z0 

, X X 3Z0  , XK1UU 

, XK2UU 

, XK  3UU  , 

71  . 

*XKinu  , 

XX2AU  tXX3nU 

XHZl) 

. XKZZt)  ' 

,XK3ZU  ,XX1AA 

, XX2AA 

X K 3 AA  . 

72. 

• XX 1 ZR  _ 

XX2ZR  , X X 3ZW 

XXI ZZ 

, XX2ZZ 

xx 3zz  ,xxpiii 

'XXPI21 

XKP I 3 1 , 

73. 

•XXPI 12, 

XXPI22, XKPI32 

XXPI  13 

, XXP I 23 1 

, XXPI33,PA1 

P A2 

79  . 

CORRON 

/RATS/ 

75  . 

*OPDY<  3, 

8),  DEPOEYt  2 

8),  DPQU3,  3),  PR0D5<  3f  69),  PR0D9(2,  29) 

oli 
DLl 
DL1 
DLl 
OLI 
DLl 
DYNA 
DYNA 
DYNA 
, DYNA 
DYNA 
DYNA 
DYNA 
OVNA 
JUL21 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
OYNA 
DYNA 
DYNA 
OYNA 
DYNA 
DYNA 
JUL21 
AUG09 
WATS 
NATS 
WATS 
NATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 
RATS 


6 OCT  72  6.01 -NR 


Q 


76. 

COBflON  /HATS/ 

77. 

♦ PY  P6  #PP 

, PR 

78. 

♦ POV  PGG  PPG 

. PR6 

79. 

♦ POR  .POO  PL6 

PLP 

80. 

EOUI VALENCE!  PA0D1 .PR6D5 > 

81  . 

C 

82. 

ENTRY  DLl 002 

83. 

ENTRY  DLl 001 

8M. 

XK2D  = 1. 

85. 

ENTRY  0L1000 

86. 

50  XK2  - DELTAE  - CDE 

87. 

C 

88. 

RETURN 

89. 

END 

,PW  , P6V  , PP  V 

,PPP  ,PRP  ,POP 


,PRV 

,Pfifi 


BATS 

BATS 

BATS 

BATS 

BATS 

DLl 

DLl 

DLl 

DLl 

DLl 

Ol  1 

DLl 

DLl 

DLl 
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FORTRAN  HATH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  UlASE 
BLOCK  LOC  SUBR  CODE VAR 


COE 

C‘E 

I Value  for  engine  deflection  In 

deflection  constraint  is  used 

case  constant  engine 
(RADS  ) 

/OYNA 

/( 

156  ) 

DLl 

I 

COE 

OELTAE 

‘e 

1 Engine  deflection 

(RADS  ) 

/OYNA 

/( 

155  ) 

ALGCON 

ARCIN 

B 

N 

DELTAE 

DELTAE 

CONTRL  A DELTAE 
DLl  I DELTAS 
OUTPUT  I DELTAE 
TRAJIN  0 OELTAE 
UT  I DELTAE 


,> 


6 OCT  12  6.  OJ 


SUBROUTINE 

DL2 


SUBROUTINE  0L2 

DL2 

0L2 

THIS  ROUTINE 

APPLIES 

WHEN  ENGINE  DEFLECTION  IS  NON- 

0L2 

CONSTANT 

Ol2 

0L2 

DL2 

CODDON/ARCDAT/ 

ARCOAT 

♦ SREF  ,EJ 

,XI$P 

TMULT 

, OTNC 

DTP  I 

ARCDAT 

* I ATD  # IflODE 

, J AER 

JPRO 

. ODAX 

GDAX 

ARCOAT 

♦XLflAX  HOflAX 

, GDOOT  ,ALFDAX 

, PHDAX 

DAEA 

ARCDAT 

♦ DAEfl  flAEC 

, DAEO 

,DA£E 

, DA£F 

DAEG 

ARCOAT 

♦dt  .rtlSP 

,DXCG 

,DZCG 

,DWOA 

DWDS 

ARCDAT 

♦nos  , XCGR 

, ZCGR 

,XE 

.ZE 

XT 

ARCDAT 

♦OREF  DCND 

,RHOB 

.odult 

.REDAX 

FRATE 

ARCDAT 

DIMENSION  ARCOA(hO) 

ARCDAT 

Efllll  VALENCE!  SREF,  ARCOA  ) 

ARCDAT 

LOGICAL  Switch,  Iloao 

DYNA 

REAL  DACM,  ISP,  ISPV 

I SPR 

ISPD, 

ISPT.  ISPVV.  I 

SP  VR . ISPVD. 

DYNA 

♦ ISPVT,  I S0RR , ISPRD, 

ISPfiT' 

ISPflfl. 

ISPDT. 

ISPTT. 

LIFT. 

LIFTV. 

DYNA 

♦LIFTR,  LiFTA,  LlFTvfr, 

liftvr.  liftva,  liftrr.  liftra.  dur . lIftaa. 

OYNA 

♦IRATEO.  ISPF.  ISPFF 

DYNA 

REAL  DACHV,  flACHR,  nACHVR 

DACHRR 

OYNA 

REAL  LlFTfl.  UFTVD.  lIFTRD. 

liftdd 

LlFTDA 

OYNA 

connON  /dvna/ 

DYNA 

♦XX  ,TIfl£  S JNGAfl, 

CO  So ad 

GflEGA 

0DEGA2 

,R 

, S INA  , 

JUL21 

♦COSA  , OVNO I 1 , OflEGAT 

TAflP 

, P A 

RO 

CS 

TEDPR 

,PAR 

OYNA 

♦ROR  , CSR  , TEftPRfi, 

PARR 

, RORfi 

CSRR 

XOOE 

flACH 

,0 

OYNA 

♦ QV  , OR  ,OVV 

QVR 

, 0RR 

F V AC 

FVACV 

FVACR 

, F VACD  , 

OYNA 

♦FVACT  ,FVACVV,FVACVR 

FVACRR 

,FVACTT 

T 

flACHV 

DACHR 

,ISP  , 

OYNA 

♦ ISPV  ,ISPfl  ,ISP n 

ISPT 

,ISPVV 

ISPVR 

ispvd 

ISPVT 

, I SPRR  , 

DYNA 

♦ ISPRFI  , I Sprt  I spdd 

ISPDT 

, I SPTT 

LIFT 

LIFTV 

LlFTR 

, LIFTA  , 

OYNA  ' 

♦LIFTVV,lIFTVR,LIFTVA, 

LJFTRR 

L IFTRA 

DRAG 

OR  AG  V 

ORAGB 

.ORAGA  , 

DYNA 

•dragvv,dragvr,dragva. 

ORAGRR 

DRAGAA 

ORAGAA 

.ALPHA 

PHI 

, L 1 FTD  , 

OYNA 

*LlFTVD,LlFTBD,LlFTrtfl# 

LlFTDA 

06R 

06RR 

GAflflAO 

AE 

,TAX 

DYNA 

♦ W SINPHI , C0SPHI , 

SINPSI 

,COSPSI 

SINRHO 

COSRHO 

SINROR 

, COSROR , 

DYNA 

♦ flUR  , XKG  , XKP  , 

AKIN 

, COO 

coon 

, CLO 

FX 

, XC6D  , 

OYNA 

♦xcgdd  , zcgd  ,zcGnn  , 

XJV 

, X JR 

XJVV 

, X J VR 

X JRR 

, DACHVR, 

DVNA 

♦flACHRR,SlN2RO,CC$2RO, 

C0S2GD 

,CD 

CDA 

CflD 

CDA  A 

,Crmn  , 

OYNA 

♦ CDAPI  ,CDO  ,CDGfi  , 

CDCDD 

CflADD 

ULFTV 

ulftr 

ulftvv 

,ulftvr. 

DYNA 

*ULFTVA,ULFTRR,ULFTRA, 

IPOU 

, XARC 

TSTART 

GH 

GRR 

,liftaa. 

DYNA 

♦cdodd  .Cladd  .Clod  _ 

CLCDD 

, DYN199 

CT 

COD  AE 

SI  DAE 

,COD  , 

OYNA 

♦SIO  ,OElTAE,COE 

XCG 

, ZCG 

X 1 

XDCG 

CAlPHA 

aldax  , 

DYNA 

♦oa  ,ulft  ,culft  , 

ULfTA 

,T5TAG£ 

TIDES 

XDCGAA 

IRATEO 

, FRATEO 

DYNA 

coddon  /ovna/ 

OYNA 

•DTT  ,J1  ,J2 

J3 

, XPICGA 

FVACF 

ULFTAA 

ISPF 

,ISPFF  , 

OYNA 

♦IlOad  ,fkd  ,fkdd  , 

SWITCH 

, INQF 

CL 

CLA 

cld 

,Claa  , 

DYNA 

♦cldd  -Clam  ,co  , 

CDA 

, COD 

COAA 

conn 

cdad 

, 0 YN 1 9 8 , 

OYNA 

♦DYN 1 99, DVN200,  XflCGV  , 

XflCGR 

, XflCGfl 

XDCGVV 

xdcgvR 

XDCGVfl 

, XDCGVA, 

DYNA 

♦xdcgbr, xdcgrd, xpicsra 

XflCGflfl 

, XflCGflA 

RORfiR 

0YN21M 

DYN215 

D YN2 1 6 , 

OYNA 

*DYN21T,I0AD  ,TAIR8  , 

TAIRBV 

T A I RS  H 

T ARB  V V 

TARSHH 

TARBVH 

,SFC  , 

JUL21 

♦SFCV  . SFCH  .SFCVV  . 

SFCHH 

'SFCVH 

AUG09 

OIDENSlON  PROOK  2,  AN) 

DATS 

CONDON  /DATS/ 

DATS 

♦PI  ,P2  , P 3 

XXI 

XX2 

XX3 

XX  IT  , 

XX2T 

, XX3T  , 

DATS 

♦ XK10  , XK2D  , XX  3D  , 

XX  1 A 

, XX2A 

X K 3 A 

VOA 

GOA 

,POA  , 

DATS 

♦XD1 9 ,XD20  , XD2 1 , 

XD22 

XX  1 TT 

XK2TT 

XX3TT 

XX 1 TO 

XK2T0  , 

DATS 

♦XK3T0  ,XKITA  ,XK2TA  , 

XX3TA 

, XX  1 00 

XK20D 

XK330 

XX  IDA 

, XX20A  , 

DATS 

•XK3DA  ,XKJAA  ,XK2AA  , 

XX3AA 

, XD*U 

XD92 

XD9  3 

XD99 

,XHi5  , 

DATS 

♦ XXIV  , XX2 V , XK3  V , 

XX  1G 

, XX2G 

XX3G 

XX1P  , 

XX2P 

, XX3P  , 

DATS 

♦XX 1 R , XX2R  , XX3R  , 

XX10 

. XK20 

XX  30 

XX1U  , 

XK2U 

,XX3U  , 

DATS 

♦ XX  ID  ,XX2D  , XX  3D  , 

XX  1 2 

,XX2Z 

XX3Z 

XX1VT  , 

XX2VT 

, XX 3 VT  , 

DATS 

♦XX1VD  , XX2 VO  , XX3 VD  , 

XK1VA 

, XX2 V A 

XX3VA 

XX16T  , 

XX2GT 

, X X3GT  , 

DATS 

♦ XX1G0  , XX2GD  , XX 3G0  , 

XX  IGA 

, XX2GA 

XK3GA 

XX1PT  , 

XX2PT 

, XX3PT  , 

DATS 

♦XX1P0  , XX2PD  , XX3PD  , 

XX1PA 

, XK2P A 

XX3PA 

XX1RT  , 

XX2RT 

XX3RT  , 

DATS 

♦XKIR0  XX2RD  , XX3RD  , 

XK1RA 

XK2R  A 

XX3RA 

XX10T  , 

XX20T 

, XX30T  , 

DATS 

♦ XXIOO  , XK200  , XX  300  , 

XX10A 

, XX 20A 

XX30A 

XX1UT  , 

XK2UT 

XX3UT  , 

DATS 

♦XK1UD  , XK2U0  ,XX3U0  , 

XK1UA 

, XX2UA 

XK3UA 

XX  IDT  , 

XX2DT 

, XK3DT 

DATS 

CODDON  /DATS/ 

DATS 

•XX1DD  , XK2D0  ,XX3DD  , 

X X IDA 

, XX2DA 

XK3DA 

XX1ZT  , 

XX2ZT 

, XK3ZT  , 

DATS 

♦XX1Z0  , XK2Z0  , XX3ZD  , 

XX1ZA 

, XX2ZA 

XK3ZA 

XX1VV  , 

XX2VV 

XX3VV  , 

DATS 

♦XX 1 G V , XX2G V , XX3G V , 

XKIPv 

r XX2PV 

XX3PV 

XX 1 R V , 

XX2RV 

, XX 3R V , 

DATS 

♦ XX 10 V , XK20 V , XX 30 V , 

xxiuv 

, XX2UV 

XX3UV 

xxinv  . 

XK2DV 

X K3DV  , 

DATS 

♦ XX1ZV  , XX2Z V , XX 3Z V‘  , 

XX1GG 

, XX2GG 

XK3G6 

XX1PG  , 

XX2PG 

X X 3PG  , 

DATS 

♦XX I RG  , XX2RG  ,XX3RG  , 

XX10G 

, XK20G 

XX30G 

XK1UG  , 

XX2UG 

XX 3UG  , 

DATS 

♦ XX IDG  , XX2DG  ,XK3flS  , 

XX  1 ZG 

XX2ZG 

XK3ZG 

XX1PP 

XX2PP 

XX 3PP  , 

DATS 
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76. 

♦XK1RP  ,XK2RP  XK3RP  ,XK10P  XK20P 

XK 30P  , XK 1 UP  # XK 2UP  . XK3UP  , 

WATS 

77. 

*XK1RP  XK2RP  ,XK3RP  XK  1 ZP  ,XK2ZP 

XK 3ZP  XK 1RR  , XK2RR  , XK3RR  , 

RATS 

78. 

•XKIOR  ;XK2QR  XK30R  .XK1UR  XK2UR 

XK 3UR  , XK  1I9R  ,XK2flfi  .XK3I9R  . 

RATS 

79. 

*XK1ZR  ,XK2*R  XK3ZR  ,XK100  ,XKZOO 

XK300  .XK1U0  , XK2U0  .XK3U0  , 

RATS 

80. 

•XKlRO  ,XK2f90  ,XK3R0  ,XK1Z0  XK2Z0 

XK  3Z0  , XK 1 UU  , X K 2 U U ,XK3UU  , 

RATS 

61 

•xkiru  ,xk2ru  ,xk3ru  ,xkizu  ,xk2Zu 

xk 3zu  , xk inn  ,xk2ar  ,xk3RR  , 

RATS 

ez. 

•XKtZR  ,XK22rt  ,XK3Z(9  ,XKIZZ  XK2ZZ 

XK3ZZ  ,XKPIIl,XKPl21f XKPI31, 

RATS 

83. 

• XKPI  12,XKPU2,XKPI32,XKPI13f  XKP123 

,XKPI33,PA1  , P A2 

RATS 

89. 

corron  /rats/ 

RATS 

85. 

*OPOY(3,  8).  0EPOE Y<  Z,  8),  0PDL< 3, 

3),  PROD  5(3,  69),  pR009<  2,  29) 

RATS 

86. 

cowron  /«ats/ 

RATS 

87. 

*PV  ,PG  ,PP  .PR  #P0 

. P V V ,P6Y  ,PPY  , PRY 

RATS 

88. 

*POV  , PGG  . PPG  , PRG  . POG 

,???  , PRP  ,POP  , PRR 

RATS 

89. 

*POA  ,POO  .PLG  , PLP 

RATS 

90. 

E0U1 VALENCE! PROD  1 , PR0D5 ) 

RATS 

91. 

C 

- 

Dl2 

92. 

c 

THIS  ENTRY  CORP.  2ND 

PARTS. W/RESP.  TO  STATE 

0L2 

93. 

ENTRY  0L2020 

DL2 

99, 

ASSIGN  6 TO  IGO 

0L2 

95. 

GO  TO  9 

0L2 

9 " 

96. 

c 

THIS  ENTRY  COUP.  RlXEO  PARTS.  N/RESP.  TO  STATE  ANO 

Dl2 

97. 

c 

CONTROL. 

0l2 

98. 

ENTRY  DL20U 

Dl2 

99. 

ASSIGN  10  TO  160 

0l2 

100. 

GO  TO  9 

0L2 

9 * 

101. 

c 

THIS  ENTRY  COflP.  1ST 

PARTS.  U/RESP . TO  STATE 

OlZ 

102. 

ENTRY  DL2010 

Dl2 

103. 

ASSIGN  20  TO  IGO 

Dl2 

109. 

60  TO  9 

Dl2 

9 

105. 

c 

THIS  ENTRY  COflP.  2ND 

PARTS.  W/RE5P.  TO  CONTROL 

Ol2 

106. 

ENTRY  OL2002 

0l2 

107. 

ASSIGN  30  TO  IGO 

0l2 

108. 

GO  TO  5 

0l2 

5 — 

109. 

c 

THIS  ENTRY  COflP.  1ST 

PARTS.  N/RESP.  TO  CONTROL 

Dl2 

no. 

ENTRY  OL20O1 

0l2 

in. 

ASSIGN  90  TO  IGO 

0l2 

112. 

GO  TO  5 

0l2 

5 — 

113. 

c 

THIS  ENTRY  EYAL.  THE 

CONSTRAINING  £Q.  ONLY 

Dl2 

119. 

ENTRY  DL2000 

0l2 

115. 

ASSIGN  50  TO  IGO 

0l2 

116. 

60  TO  5 

Ol2 

5 — 

117. 

c 

0l2 

118. 

c 

, 

Dl2 

J 

119. 

9 RAC  = 2C6CWC00  - XC6fl*S 1 0 

Dl2 

** 

120. 

MAC  = -ZCGfl*S I D - XCGfl*COD 

0l2 

121. 

5 XEWXCG  = X£  - XC6 

0L2 

122. 

ZERZCG  = ZE  - ZC6 

Dl2 

123. 

FAC  = XEflXCG*SI0  - ZEflZCG'COD 

0L2 

129. 

SAC  = XEflXCG*COO  4 ZEAZCG*S10 

Dl2 

125. 

XJ1  = 1.-  X J 

0l2 

126. 

GO  TO  IGO 

DL2 

127. 

6 XK2VV  = XJVY*XflCG  + 2 *XJV#XRCGV  - 

XJ1*XRC6YY 

Dl2 

128. 

XK2RV  = XJVR*XflCG  ♦ X J V*  XflCGR  ♦ XJR*XRCGY  - XJ1*XRCGYR 

0L2 

129. 

XK2AY  = XJV*XRCGfl  - XJ1*XRCGYR 

OlZ 

130. 

XKZRR  = XJRR*XllCG  ♦ 2.*XJfl*XflCSfi  * 

X J 1*  XrtCGRR 

0L2 

131. 

xk2ar  = xJR*xncGn  - xJnxncGRrt 

0l2 

132. 

XK 2(9(9  = (ZCG«(9*COO  - XCGrtfl*$IO>*T  - XJl*XflC6flfl 

0L2 

133. 

10  XK2VA  = XJ V*XflCGA  - XJl*XflC6YA 

0L2 

139. 

XK2RA  = XJA*XflCGA  - XJ1*XRC6*A 

0L2 

135. 

XK2AA  = -XJMXRC6RA 

0l2 

136. 

XK2RT  = RAC 

Ol2 

137. 

XK2I90  = HAC*T 

0l2 

138. 

20  XK2  Y = XJV*XflC6  - X J ) *XflC6Y 

Dl2 

139. 

XK2R  = XJR«XACG  ~ XJMXACGR 

Dl2 

1 90. 

XK2fl  = RAC*T  - XJ1*XACGR 

DL2 

1 9 1 . 

30  XK2T0  = SAC 

Dl2 

192. 

XK200  « -T*FAC 

Dl  2 

193. 

XK2AA  = * X J 1*  XflCGAA 

DL2 

199. 

90  XK2T  = FAC 

Ol2 

195. 

XK2D  - T*( XEAXCG+COD  ♦ ZE«ZC6*SI0> 

0l2 

196. 

XK2A  = *“  X J 1 + XflCGA 

SXl2 

197. 

50  XK2  = FAC*T  - XJl*XflC6 

0l2 

198. 

c 

0l2 

199. 

RETURN 

0l2 
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FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK  LOC  — SUBR  CODE VAR- 


COD 

1 

See 

syabo  1 

/ DYNA 

n 

153) 

DL2 

1 

COD 

C 0 8 4^ 

OUTPUT 

I 

COO 

TH3 

1 

COD 

UT 

ft 

COO 

SIO 

s i n 4 £ 

! 

See 

• y abo  1 

/OYNA 

a 

1 5*i  ) 

DL2 

1 

SIO 

OUTPUT 

I 

SID 

TH3 

I 

SID 

UT 

n 

SIO 

T 

T 

I 

Thru**  ( LBS  ) 

/DYNA 

/( 

HZ  ) 

algcon 

n 

T 

ALl 

I 

T 

ALA 

I 

T 

AL6 

I 

T 

AL7 

I 

T 

• 

_ 

ALB 

I 

T 

AL9 

I 

T 

APPLY 

I 

T 

ARCIN 

0 

T 

CONTRL 

ft 

T 

DL2 

i 

T 

1MPULS 

I 

T 

OUTPUT 

i 

T 

TM1 

i 

T 

TH2 

i 

T 

TH3 

i 

T 

THA 

i 

T 

XC6 

I 

Center  of  gravity  bod*  i station  (FT) 

/OYNA 

/( 

157  ) 

DL2 

i 

XCG 

cc 

STATEF 

i 

XCG 

... 

" 

* * 

JT 

i 

XCG 

XCGft 

dt^/dm 

I 

See 

tyabo 1 

/OYNA 

/( 

100) 

DL2 

i 

XCGft 

CC 

STATEF 

n 

XCGft 

UT 

i 

XCGft 

XCGftft 

d*xcc/a.2 

I 

See 

• y abo  1 

/OYNA 

/< 

109  ) 

DL2 

STATEF 

i 

* 

XCGftft 

XCGftft 

UT 

l 

XCGftft 

XE 

XE 

I 

En^ 

ne  thrust  centroid  body  i station 

/ ARCDAT / ( 

3A  ) 

0L2 

i 

XE 

XJ 

I 

Control  blend  factor 

/DYNA 

/( 

159  ) 

ARCIN 

0 

XJ 

J 

DL2 

I 

XJ 

OUTPUT 

I 

XJ 

STATEF 

I 

XJ 

UT 

I 

XJ 

XJR 

aj/aR 

1 

See 

sy abo 1 

/OYNA 

/( 

113  ) 

DL2 

STATEF 

I 

0 

XJR 

XJR 

UT 

I 

XJR 

XJRR 

a2j/dR2 

I 

See 

s y abo  I 

/OYNA 

/( 

116) 

DL2 

STATEF 

I 

0 

X JRR 
XJRR 

UT 

J 

XJRR 

XJV 

aj/av 

I 

See 

sy abo 1 

/DYNA 

/( 

112) 

OL2 

STATEF 

I 

0 

XJV 
XJ  Y 

UT 

1 

XJ  ¥ 

XJVR 

a2j/avaR 

I 

See 

sy abo 1 

/DYNA 

t\ 

115  ) 

DL2 

STATEF 

J 

0 

XJ  YR 
XJVR 

UT 

I 

XJVR 

XJVV 

a2j/av2 

I 

See 

sy abo 1 

/DYNA 

/( 

11*4 ) 

DL2 

STATEF 

I 

0 

XJVV 

XJVV 

UT 

I 

XJVV 

XMCG 

w , 

I 

Aerodynaaic  aoaent  about  center  of  gravity 

/DYNA 

/( 

160  ) 

0L2 

I 

XftCG 

CG 

(FT-LBS) 

OUTPUT 

I 

XftCG 

UT 

ft 

xncs 

XfflCGA 

r 

See 

sy abo 1 

/DYNA 

/( 

176  ) 

DL2 

I 

XftCGA 

C6 

UT 

ft 

XftCGA 

XftCGAA 

a2«t6/a-2 

i 

Sec 

syabo 1 

/OYNA 

/( 

169  ) 

DL2 

UT 

I 

ft 

XftCGAA 

XftCGAA 

xnCGfl 

dM„/ dm 

r 

See 

s y abo 1 

/DYNA 

/( 

203  ) 

DL2 

I 

XftCGft 

CC 

UT 

ft 

XftCGft 
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MATH 

DESCRIPTION 

storage  . subroutine  usage 

SYMBOL 

SYMBOL 

CODE 

block 

LOG  SUBR 

COOE  VAR 

XACGAA 

I 

Sm 

ijribe  1 

/DYNA 

/( 

212)  DL2 
UT 

I 

n 

xacgaa 

XACGAA 

xacgaa 

a2#CG/a»8 

I 

St# 

symbol 

/DYNA 

/( 

211  ) 0l2 
UT 

l 

A 

XACGAA 

XACGAA 

XACGA 

atfCG/a  r 

I 

s«« 

sy«bo 1 

/DYNA 

/< 

202  ) DL 2 
UT 

1 

A 

XACGR 

XACGR 

XtnCGRA 

82MCG/8Rdo 

I 

St# 

#y»bo 1 

/DYNA 

/( 

210)  DL2 
UT 

1 

A 

XACGR A 
XACGR A 

xacgra 

a2tfCG/aRa» 

I 

s## 

syhbo 1 

/DYNA 

/( 

209  ) 0L2 
UT 

A 

XACGR A 
XAC6RA 

XAC6AR 

a2#CG/a«8 

I 

S.t 

syabol 

/DYNA 

/( 

208)  DL2 
UT 

1 

A 

XACGAR 

XACGAA 

xacgv 

a«CG/av 

I 

Sat 

tjabe 1 

/DYNA 

/( 

201  ) DL2 
UT 

1 

A 

XACGV 

XACGV 

xnCGVA 

a2tfCG/ava« 

I 

See 

$y •bo  1 

/DYNA 

/( 

207 > DL2 
UT 

1 

A 

XACGVA 

XACGVA 

xacgva 

d2Mca/d  Vd» 

1 

St* 

syabol 

/DYNA 

/( 

20b  ) DL2 
UT 

I 

A 

XACGVA 

XACGVA 

XWC6VR 

d2WC6/dV3R 

I 

s«« 

syabo l 

/D-YNA 

/( 

205)  DL2 
UT 

I 

A 

XfflCGVR 

XACGVA 

XnCGVV 

aty^/av8 

1 

St* 

ijrabo  I 

/ OYNA 

/( 

20M)  DL2 
UT 

I 

A 

XACGVV 
XACGV  V 

ZC% 

•zcc 

1 

C# nt *r  of  jr a * 1 ty  body 

z station 

(FT)  /DYNA 

/( 

158)  DL2 

STATEF 

UT 

I 

ZC6 

ZC6 

ZCG 

ZC6A 

azcc/a. 

I 

Sot 

syabo 1 

/DYNA 

/( 

110)  0L2 

STATEF 

UT 

I 

A 

I 

ZCGA 

ZCGA 

ZCGA 

ZCGAA 

a2zCG/a-8 

I 

St* 

syobo 1 

/DYNA 

/< 

111  ) DL2 

STATEF 

UT 

1 

A 

ZCGAA 

ZCGAA 

ZCGAA 

ZE 

ZE 

I 

Eo31 

nt  thrust  centroid 

body  t station 

/ AR  COAT / ( 

35)  DL2 
UT 

I 

I 

ZE 

ZE 
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SUBR0UIINE 

ENDPT 


0 70 


Purpose 

BNDPT  evaluates  the  state  and  costate  target  misses  at  the  endpoint  of 
a brandi.  It  also  computes  the  partials  of  these  misses  with  respect  to 
the  c's*. 


*See  Sections  16.6  and  17.4  of  Vol. 


I. 


ENDPT 


SUBROUTINE  ENDPK DPZI OC , KK ) 

THIS  routine  EVALUATES  the  state  and  costate  target 
MISSES  AT  THE  END  POINT  OF  A BRANCH.  IT  ALSO  COM- 
PUTES THE  PARTIALS  OF  THOSE  MIS5ES  WITH  RESPECT  TO 
THE  C*S. 

REAL  flAGBV,  «U,  A,  LV,  LG AM,  LPS1,  LR,  LRHO,  LAU,  L«,  LTAU,  NO* 
f.  LHT 


tOflflON  /D/ 

*X,  H XI<9),  flAGBV,  ERR,  09 


C(  90  ),  C$AV£(90),  V,  SAfl  PSI, 


•ALT,ftHO,MU,A,  TAU,  HT,  LV,  LGAM,  LPSl,  LR,  LRHO,  LflU,  LR.  CTAU. 

• LMT,  0 1 69,  DUO.  BV(hO).  ZSAVE120),  QTl  20 ),  NPOINTt  20  >,  OELT(20) 
DIMENSION  NOfl( 20  ) 


15. 

EQUIVALENCE  (NOR,  V) 

16. 

COMMON* /CNTRL/ 

- 

U. 

*NU  ITER  , ITAPA  , 

ITAPB  JAIN  , 

JMAX  , 

LINES 

18. 

• AARD  I NDX( 9 ) 

NEvJN0M,CNT016, 

RHOC  , 

RHOP 

19 

•APAGE  , NNP  , NUP 

1 ARC  TRSTR 

IMAX 

ATIME 

▼ i noun  i nurwgt.  » inn  m tv  # . mi.  ivu  vnn  i . rtugi.  ttRWi  , 

LOGICAL  INBDRV,  newnom,  aonver,  noprnt,  nupage 
COMMON/ GLOBAL/ 

• 6R  , ER  , 0M6Z  .XLAMRF  VMURF  ,LUM  ,T0  , EP SlON, INNER  , 

•I TRMAX , J J0P( 6 > , I F AT  AL, NARC  NBRAN  ,NFARC  ,1D(9)  ,ATAB(26>, 

• IT  AB(  26  ),  SIG.MAXTAB  GM,PSI6f  IPFlGI.  IPFL62,  IPFL63,  IPFl69 

• INEDFU26),  I TPSO,  A$0l,  l NARA ' AGLOBLt 7 > 

COMMON  /Bl6cA/  IICUO,  20),  Il6T(10,  20),  ITCt  10  20),  JTAB(  20  ) 

• ITCTUO,  20,  LTAB(20i,  NOANOM,  NCC<2C),  VALIC(  10,  207, 

*VAlTC(  10,  20  ),  IP AV 

COMMON  /EV  AL/  5GN,  SPARK  18),  MAPI  10),  PZK  90 ),  NOCA,  $118,  91), 

• TEMP ( 90 ) , DZ(18>,  DC,  L,  SI( 18,  9l) 

COMMON  /*/  ZC50) 

DIMENSION  AF( 9 9),  BF( 9 >,  DPZIOCCAA,  AA),  VAL( 9 ) 

DATA  ENDPX/faHENOPT  / 

MOVE  COSTATE  INTO  AF  VECTOR. 

00  101  I = 1,  9 
BF(  I ) = NOfll  J ♦ 9) 

00  101  J = 1,  9 
1 AF<  I , J)  = 0 

IS  THIS  THE  LAST  ARC 

1 F( I ARC  .NE.  NARC)  GO  TO  109 

VES.  ADO  PAVOFF  PARTIAlS  TO  BF  VECTOR. 

I F( I P AV  .NE.  9)  GO  TO  1011 
BF( 8 ) = BF( 6 ) ♦ 1. 

60  TO  109 


ENDPT  I 
SEP  15  1011- 


9b. 

ion 

CONTINUE 

SEP  15 

Hi. 

I F ( I PAY  . 6T . 11 ) GO  TO  102 

EnlDPT 

HB. 

AODE  = RAP(  IPAV ) 

ENOPT 

99. 

BFIAOOE)  = BF(AOOE)  * S6N 

ENOPT 

50. 

GO  TO  109 

ENDPT 

51. 

102 

1SAIP  = 0 

ENDPT 

52. 

CALL  POBCQLIIPAV,  VAL,  SPART,  RUMMY,  1,  1SAIP) 

ENDPT 

53. 

DO  103  I = I,  9 

ENOPT 

59. 

103 

BF( I ) = BF( I ) - S6N*SPART<  I ) 

ENDPT 

55. 

C 

STORE  THE  NUMBER  OF  STATE  TARGET  CONOS.  AT  THIS  FT. 

ENDPT 

5b. 

_C 

AND  SET  INOEXES. 

ENDPT 

57. 

109 

flTARG  = JTAB( I ARC ) 

ENDPT 

58. 

IF  = RTAR6  ♦ 1 

ENDPT 

59. 

I L = 9 - RTAR6 

ENDPT 

60. 

IP  = L * RTARG 

ENOPT 

61. 

C 

ARE  THERE  ANV  STATE  TARGETS. 

ENDPT 

62. 

IF( flTARG  . 6T . 0)  GO  TO  106 

ENDPT 

63. 

C 

NO.  THE  TRANSvERSAlITY  CONOS.  ARE  SIMPlY  THE  BF 

ENDPT 

69. 

c 

VECTOR 

ENDPT 

65. 

00  105  I = 1,  9 

ENDPT 

66. 

A = L ♦ I 

ENOPT 

67. 

105 

PZKA)  = BF(  I > 

ENDPT 

68. 

GO  TO  113 

ENDPT 

69. 

c 

SET  UP  THOSE  RGtfS  OF  THE  AF  MATRIX  THAT  RESULT  FROM 

ENOPT 

70. 

c 

THE  STATE  TAfibETS.  AT  THE  SAME  COMPUTE  THE  TARGET 

ENDPT 

71. 

c 

MISSES  AND  THEIR  PARTIAlS  U/RESP.  TO  C»5. 

ENDPT 

72. 

10b 

DO  111  I = 1,  flTARG 

ENDPT 

73. 

K = L ♦ I 

ENDPT 
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FORTRAN  HATH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK  Ltft_  SUBR  CODE  VAR 


DC 


DZ 


1 ARC 


ITC 


JTAB 


L 


MAP 


NARC 


NOCK 


Ac 


I 


Ac ,hj ( r ) 

i 


N 


3 


Sail!  perturbation  of  a c. 

/EVAL 

/< 

667  ) BNDRY 

0 

DC 

BRANPT 

I 

DC 

ENDPT 

I 

DC 

INTRPT 

I 

DC 

An  18  *o  r d array  that  contains  the  second  tern  on 

/EVAL 

/( 

B99  > BRANPT 

I 

OZ 

the  right  hand  side  of  Equation  17.9-11  of  Vo  1 . I of 

' ENDPT 

I 

DZ 

this  doegaent. 

INTRPT 

I 

OZ 

/ CNTRL 

/( 

29  ) ARCIN 

1 

I ARC 

BCOND 

n 

I ARC 

BNDRY 

M 

I ARC 

BRANPT 

I 

I ARC 

CHECK 

n 

I ARC 

COSTAB 

I 

I ARC 

- * 

COST  A I 

I 

I ARC 

ENDPT 

I 

I ARC 

FORCES 

I 

I ARC 

INARC 

n 

I ARC 

INTRPT 

I 

I ARC 

MAGIC 

n 

I ARC 

MARCH 

I 

I ARC 

OLTOSZ 

I 

I ARC 

SALVE 

n 

I ARC 

NRAPUP 

M 

1 ARC 

A 10i20  array  containing  the  initial  condition 

/BLOCK 

/( 

9 01  ) BCOND 

0 

ITC 

codes  for  the  QL  costate  vector.  The  coluant 

BRANPT 

I 

ITC 

correspond  to  subarc  starting  points,  the  roes,  to 

CHECK 

I 

ITC 

QL  costatc  variables. 

COSTAB 

I 

ITC 

“ • * • • 

C05TAI 

I 

ITC 

* 

ENDPT 

1 

ITl 

INTRPT 

I 

ITC 

An  array  containing  the  nuaber  of  nomero  entries 

/BLOCK 

/( 

601  ) BCOND 

n 

JTAB 

in  each  coluan  of  the  array  IICT. 

BRANPT 

1 

jtab 

CHECK 

I 

JTAB 

COSTAB 

I 

JTAB 

CO  ST  A I 

I 

JTAB 

ENDPT 

I 

jtab 

INTRPT 

I 

jtab 

MAGIC 

I 

JTAB 

Total  ngaber  of  target  conditions  to  satisfy  in  the 

/EVAL 

/( 

866  ) BNDRY 

n 

L 

pr  ob l is. 

BRANPT 

n 

L 

ENDPT 

n 

L 

INTRPT 

n 

L 

A 10  aord  array  that  naps  the  steepest  descent 

/EVAL 

/( 

20)  BNDRY 

0 

MAP 

stete  vector  into  the  QL  state  vector. 

BRANPT 

MAP 

ENDPT 

MAP 

INTRPT 

MAP 

Nuaber  of  subarcs  In  the  problea. 

/GLOBAL/! 

18  ) BCOND 

NARC 

BNDRY 

NARC 

CHECK 

NARC 

ENDPT 

NARC 

ENVPR0 

NARC 

FETCH 

NARC 

INARC 

NARC 

MAGIC 

NARC 

OLTOSZ 

NARC 

SALVE 

NARC 

UR  AP  UP 

NARC 

The  nuaber  of  c's  In  the  vector  Ci  defined  by 

/EVAL 

/< 

70  ) BNDRY 

* 

NOCK 

Equation  17.9-9  of  Vo  1 . 1 of  this  docuaent. 

BRANPT 

NOCK 

ENDPT 

NOCK 

INTRPT 

NOCK 

6 OCT  72  G Ol-MH 


FORTRAN 

SYMBOL 


NATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK LOC  5UBR  CODE VAR 


NON 

V 

i 

Riliiln  velocity.  (FT/SEC) 

/D 

n 

91  ) 

AL1 

I 

V 

AL  9 

I 

V 

alt 

I 

V 

AL8 

I 

V 

AL9 

I 

V 

BCOND 

I 

NON 

BNORY 

0 

NON 

BRANPT 

n 

NON 

CONTRL 

I 

V 

ENDPT 

I 

NON 

ENVPRO 

I 

V 

FETCH 

0 

NON 

INTERP 

n 

V 

INTRPT 

n 

NON 

- 

- 

— — 

- 

NLDRV 

0 

NON 

NLORV 

i 

V 

OUTPUT 

i 

V 

PDBCQL 

i 

V 

STATEF 

i 

V 

WRAP  UP 

i 

V 

PZI 

N 

A 90  lord  array  That  contains  the  target  condition 

/EVAL 

n 

30) 

BNDRV 

i 

PZI 

■tsses  for  ail  the  target  condition*  In  the 

BRANPT 

N 

PZI 

problem. 

ENDPT 

n 

PZI 

I NTRPT 

n 

PZI 

s 

I 

An  18*91  array  used  to  store  the  particular  and 

/eval 

/( 

n ) 

BNDRV 

I 

s 

hoaogeneous  solutions  on  the  early  side  of  a corner 

BRANPT 

I 

s 

point. 

ENDPT 

I 

s 

- - * - 

- * 

- 

1 NTRPT- 

I 

-5 

SGN 

I 

Sign  of  the  variable  SIS  in  the  65th  ■ o r d of  coaaon 

/eval 

/( 

l > 

BNDRV 

0 

SGN 

block  /GOBAL/. 

ENDPT 

i 

SGN 

SGN  = ♦:  payoff  to  be  PSKlpized; 
SGN  - payoff  to  be  ainiaiied. 

5PART 

I 

An  18  aord  array  ahose  first  nine  entries  receive 

/EVAL 

/( 

2 ) 

BNDRV 

0 

SPART 

the  values  of  the  partial  derivatives  art  the  state 

BRANPT 

SPART 

of  those  target  conditions  computed  in  subroutine 

ENDPT 

SPART 

POBCQL. 

I NTRPT 

SPART 

TfflP 

( aV'j/aCj  iT 

I 

A MO  aord  array  that  contains  the  transpose  of  the 

/EVAL 

/{ 

809  ) 

BRANPT 

TENP 

vector  defined  by  Equation  17.9-9  of  Vo  1 . I of  this 

ENOPT 

TENP 

do  c use  nt . 

INTRPT 

TENP 

valtc 

I 

A 10*20  array  containing  the  desired  values  of  the 

/BLOCK 

/{ 

1062) 

BCOND 

0 

VALTC 

state  target  conditions  phose  codes  appear  in  the 
array  IICT. 

BRANPT 

VALTC 

CHECK 

VALTC 

ENOPT 

valtc 

INTRPT 

valtc 

Z 

z 

I 

A 20  pord  array  used  to  store  the  total  lintar 

n 

/( 

1 ) 

BNDRV 

z 

solution  frop  the  preceding  OL  iteration. 

BRANPT 

z 

ENDPT 

z 

ENVPRO  1 Z 
INTERP  0 Z 
I NTflPT  I Z 
Li  NOR  V I Z 
NORMAL  N Z 
OUTPUT  I Z 
RKUTT1  0 Z 
RKUTT2  N Z 
SALVE  N Z 
MR  A PUP  N Z 
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SUBROUTINE 

ENVPRQ 


Purpose 

fcNVI’RQ  calculates  and  stores  environmental  trajectory  parameters  from  a 
converged  QL  trajectory  for  use  in  the  SSSP  sizing  module. 


4*  9/ 


ENVPRQ 


1 . 

2. 

3. 

9. 

5. 

6. 

7. 

8. 
9. 

10. 
1 1 . 
12. 
13. 
19. 

15. 

16. 

17. 

18. 

19. 

20. 
21  . 
22. 
23. 
29. 

25. 

26. 

27. 

28. 

29. 

30. 

31 . 

32. 

33. 
39. 

35. 

36. 

37. 
36. 
39. 

90  . 

91  . 

92. 

93. 
99, 

95. 
96  . 
97. 

96. 
99  . 
50. 
51  . 

52. 

53. 


SUBROUTINE  ENVPRQ 

COMPUTE  ENVIRONMENTAL  PARAMETERS  THAT  AFFECT  WEIGHT 
OATA  RAD/57.2957795130823/ 

COMMON/GLOBAL/ 

•GR  ,ER  ,OMGZ  , XLAMRF,  YfflURF  ,LUM  .TO  EP  SLON  I NNER  t 

* I TRMAX  J JOP(  6 ) ,IFATAL,NARC  ,NBRAN  ,NFARC  ,10(9)  ,XTAB(20), 

* I T AB(  20 ).  $IGMAXTAB6M,PSIRF  , I P F LG  1 , 1 PFLG2 , I PF LG  3, I PF LG9 , 

• I NEQFL(  2u ) ITPSO,  X^OL,  INARX,XGlOBL< 7 ) 

LOGICAL  SWITCH,  I LOAD 

REAL  MACH  ISP,  ISPV,  ISPR,  I5PM,  ISPT,  1SPVV,  ISPVR,  1SPVM, 
•ISPVT,  l SPRR  I SPRM  ISPRT,  ISPPm.  ISPMT,  ISPTT,  LIFT,  LIFTV 

•LlFTR,  LIFTA,  LlFTVV,  LlFTVR,  LlFTVA,  LlFTRR,  LIFTfiA,  MUfi,  LIFT AA 

* I RATED,  J SPF  ISPFF 

REAL  MACHV,  MAC  HR , HACHVR,  MACHRR 
REAL  LlFTM,  LIFTVM,  lIFTRM,  LIFTMM,  LIFTMA 
COMMON  /DYNA/  - 

• XX  , T I ME  SINGAMCOSGAMQMEGA  ,0MEGA2,R 

•COSA  DYNQ110ME6ATTAMP  ,PA  ,R0 
•ROR  CSR  TEMPRR , PARR  , RORR  ,CSRR 

• QV  OR  Q V V Q VR'  QRR  ,FVAC 

•FVACT  FVACVV,FVACVRFVACRR,FVACTT,T 
•ISPV  ISPR  I SPn  ISPT  ,ISPVV  ,1$PVR 

•ISPRM  , ISPRT  , I SPrm  ISP  l*TT  , ISPTT  , Ll  FT 

*LIFTVV,LIFTVR, LlFTVA, LlFTRR, LI FTRA, DRAG 
•ORAGVV, DRAG VR, DRAG VA, OR AGRR,ORAGR A, ORAGAA' ALPHA  'PHI 
♦LIFTVM, LIFTRM, L I F TMM, L I F TMA , OBR  , DBRR  , G AHMAD , AE 


,CS 
, XODE 


, SIMA 
PAR 
,0 


,6 

, TEHPR 
MACH 

;fvacv  ,fvacr  ;fvacm 

MACHV  ,MACHR  ,1SP 
, I SP  VM  I SP  VT  I SPRR 
,LlFTV  ,lIFTR  lifta 
, DRAG  V DRA&R  .ORAGA 
. * ....  «...  LIFTM 

!tax 


•W  , SI NPHI , COSPHI , SINPSI , COSPSI . SI NRHO, COSRHO, SINROR. COSROR 
•MUR  ,XKG  ,XXP  , AK I N ,CDO  ,CDOM  ,ClO  ,FX  ,XCGM 

♦XCGnn  , ZCGM  ,zcgmm  ,xjv  ,xjr  ,xjvv  ,xjvr  ,xjrr  ,machvr 

•MACHRR/SIN2RO,COS2RO/COS2GM,CM  ,cma  ,cmm  ,Cmaa  ,cmmm 

•CMAM  CMO  ,CMOM  ,CMOMM  ,CMAMM  ,ulftv  , ulftr  , ulftvv  ulftva 
•ulftva, ulftrr,ulftra,ipow  ,xarc  ,tstart,gh  grr  ,liftaa 

• CDOMM  , C L AMM  ,CLOM  ,ClOMM  ,0YNl99,CT  ,codae  ,SIDAE  .COD 

•SID  ,DELTAE,CDE  ,XCG  , 2C6  ,XJ  ,XMCG  , CALPMA, ALMAX 

• DB  ,ULFT  ,CULFT  .ULFTA  , T ST  AGE , T I ME S , XMCG A A , I R ATED , FR ATE D 

common  /dyna/ 

• MTT  ,J1  ,J2  J 3 , XMCGA  ,FVACF  ,ULFTAA,ISPF  , ISPFF 

• ILOAO  ,FXM  F XMM  SWITCH,  INQF  ,CL  ,ClA  ,CLM  ,CLAA 

•CLMM  ,CLAM  ,C0  ,CDA  ,CDM  ,CDAA  ,CDMM  ,CDAM  , 0YN1 98 

• DYN1 99, DYN200,  XMCGY  ,XMCGR  , XMCGM  , XMCGV V , XMCGYR, XPlCGVM, XMCGVA 
•XMCGRR  XMC6RM  XMCGRA, XMCGMM, XMCGMA, RORRR  ,DYN219,DYN215.0YN216 

• 0 YN2 17,1 OAM  TAIR8  , T A I RB V , TA I RBH , TAR8 V V , T AR8HH, T ARB VH, 5FC 

• SFCV  , SFCH  , SF C V V ,SFCHH  ,$FCVH 

REAL  MAGBV,  MU,  M,  LV,  LGAM,  LPSI,  LR,  LRHO,  LMU,  LM,  LTAU,  NON 
*,  LHT 
COMMON  /D/ 

• X,  H.  X I ( 9 ) , MAGBV,  ERR,  09,  010,  C(90),  CSAVEI90),  V,  GAM,  PS1, 
•ALT,RH0,MU,M,  TAU,  HT,  LV,  LGAM,  LPSI,  LR,  LRHO,  LMU,  LM,  LTAU. 

• LHT,  D l 09  , DUO,  BVImO),  ZSAvEtZO),  0T(20),  MPO 1 NT  ( 20  ) , 0ElT{20> 
DIMENSION  NOM( 20) 

EQUIVALENCE  (NOM,  V) 

COMMON  /ZD/  ZD( 50) 

COMMON  /If  Z(  50 ) 


JUL21 
JUL2I 
JUL21 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
DYNA 
DYNA 
DYNA 
0 VNA 
DYNA 
DYNA 
DYNA 
DYNA 
JUL21 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
OYNA 
DYNA 
DYNA 
OYNA 
DYNA 
DYNA 
OYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
DYNA 
OYNA 
OYNA 
DYNA 
OYNA 
DYNA 
JUL2  1 
AUG09 
0 
D 
D 
D 

JUL21 

0 

D 

D 

ZD 

Z 


59. 

real  mub 

. MUO. 

I SPB,  ISPO, 

I D VEL , NNB 

NO 

SIZING 

55. 

COMMON  /SIZING/ 

SIZING 

56. 

C 

PHASE  II  SIZING  PARAMERERS 

SIZING 

57. 

• TZ, 

VV(  3), 

QP(  19  ), 

EROR, 

PZ<  5 ), 

VQ, 

Swt  20), 

SIZING 

58. 

*S¥<  28  ). 

SQ( 37  . 

5 ) . SE(  11  ). 

TLAT. 

TLNG, 

SIZING 

59. 

C 

PHASE  J SIZING  PARAMERERS 

SIZING 

60. 

• W80, 

wlOO, 

DWEB, 

DWEO, 

TOLWT, 

WPB 

TWRAT2, 

SIZING 

61  . 

*BX  1 , 

BX2, 

BX  3, 

B K 9 , 

ISIZE, 

TRAFLG, 

TWRATO, 

SIZING 

62. 

• 0X1, 

0X2, 

0X3, 

0X9, 

PRFL6, 

IPASS, 

IPSMAX, 

SIZING 

•AEX I T 

T VACO , 

NO, 

WFO, 

IDVEL, 

ISPO, 

1 SPB 

SIZING 

6 3 . 

• XPL, 

TVACB, 

NNB , 

WEO  . 

WEB, 

WO, 

WLO, 

SIZING 

U: 

• OVO, 

DVB, 

MUB, 

MUO, 

VSTG, 

WPO 

SIZING 

66. 

• , JT^P. 

bec6 

BSTb  . 

ORB I , 

ITNBW  , 

I T NOW  ,ISZ0( 

23  ) 

SIZING 

67. 

EQUIVALENCE  (SE(fe).fiLlM) 

JUL21 

68. 

I F(  INTB. 

EQ.2) 

60  TO  100 

JUL21 

69  . 

c 

I 

MAXIMUM 

DYNAMIC  PRESSURE 

JUL21 

70. 

10  IH  1 ARC 

.GE.JFIXlSQi 1.3))) 

RETURN 

JUL21 

71. 

I F<  Q.lE 

. QLIM 

) RETURN 

JUL21 

72. 

QLIM  = 0 

JUL21 

73. 

SO  C 5 - > 

- TIME 

JUL21 

79. 

$Q< 6,1  ) 

= R-ER 

JUL21 

75. 

SQ<  7, 1 )= 

V 

_ 

JUL21 

100— 1 
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sK 

fx 


Xn 

X 


7b.  sot  8, l )=  6AM*RA0 

77.  SQtS.U  = MCM 

76  RETUhN 

79  C II  BRANCH  TRAJECTORY  TEST 


JUU21 
JUL21 
J Ul2  1 
JUL21 


80 

"r  ’ 

100 

I F ( I ARC  .LE .MSB  ) GO  TO  10 

JUL21 

f 0 — * 

81 

1 F ( ITlXtSOt 1 . 3 ) ) . LE  NSB+NSAB)  60  TO  120 

JUL21 

120— i 

82 

IF<  IARC .GT.N$B. AND  IARC  LE . NSB+NS AB  > GO  TO  200 

J Ul2  1 

83 

RETURN 

JUL21 

m 1 

89  . 

120 

IF(  1 ARC . GT . NSB  + NSAB > GO  T6  200 

J Ul2  1 

?C  0 — - 

85. 

RETURN 

J UL2 1 

8b. 

c 

111  ENTRY  TRAJECTORY  PARAMETERS  Q*SLPHA  AND  HEAT  RATE 

JUL21 

67. 

o 

o 

CONTINUE 

JUL21 

88. 

QALF  5 q*alpha*rad 

J UL2 1 

89. 

1F( QALF.6T.SY(  1 ) > SV(  1 ) = 0ALF 

JUL21 

90. 

TlOFAC  = SORT! L JFT*L  JFT  ♦DfiA£*DRA6)  / W 

JUL21 

91 

1F(  TLOFAC.GT.SVt  27  ) ) SV127U  TLOFAC 

J Ul2  1 

92. 

c 

1 

IA  THRESHOLD  HEAT  LOAD  AND  TIME 

J Ul2  1 

93 

I F ( THRESH. 6T.0)  GO  TO  220 

J UL2 1 

220—i 

99. 

I Ft  ZDt  9 ) . LT . SQt  30,2))  RETURN 

JUl21 

95  . 

THRESH  = TIME 

JUL21 

9b  . 

HTUZ<9> 

JUL21 

97  . 

RETURN 

JUl21 

98. 

220 

1F( ZDt  9 ) .LT .SQt  30,2  ) ) RETURN 

JUl21 

99. 

5fi( 30, 3 )=  TIME  -THRESH 

JUL21 

100. 

SQt  30.9  )=  U 9 )-HTl 

J Ul2  1 

101  . 

RETURN 

JUl21 

102. 

ENTRY  OLNYPI 

JUL21 

103. 

I Ft NF ARC  EO.NARC)  GO  TO  7 

JUl2  l 

7 — 

109  . 

1NTB=2 

JUL21 

105. 

NSB=NBRAN 

JUl21 

10b. 

NSAB=NFARC-NSB 

JUL21 

107  . 

GO  TO  8 

JUl21 

®— 1 

ios 

7 

INTB=0 

JUl21 

rr 

109  . 

8 CONTINUE 

Jul2  1 

1 10. 

THRESH  =0. 

JUL21 

Ill . 

RETURN 

JUL21 

112. 

END 

J Ul2  1 
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FORTRAN 
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SYftBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

block  loc  subr  code  var 


ALPHA 


DRAG 


ER 


GAM 


LIFT 


ftACH 


NARC 


NBRAN 


D 


7 


L 


ft 


I Angle  of  attack 


(RAO)  /DYNA  /( 


I Aerodynaalc  drag  (LBS)  /OVNA  /( 


I Earth  radius.  (FT)  /GLOBAL/! 


I Relative  flight  path  angle.  (RAD)  /D  /( 


I Aerodynaalc  lift  (LBS)  /DYNA  /( 


I ftacN  nonbar  /DYNA  /( 

I Nunber  of  subarea  in  the  problen.  / GLOBAL/! 


I Nunber  of  the  last  subarc  on  the  sten  of 
problea.  If  the  problen  is  not  a branch 
than  NBRAN  - 0. 


a branch 
problen. 


/GLOBAL/C 


79  ) 

AEROCO 

I 

ALPHA 

ALGCON 

ft 

ALPHA 

AL2 

I 

ALPHA 

ARCIN 

ft 

ALPHA 

CONTRL 

ft 

ALPHA 

ENVPRQ 

I 

ALPHA 

flOHECO 

I 

ALPHA 

NP  LANE 

ft 

ALPHA 

OUTPUT 

I 

ALPHA 

TRAJIN 

0 

ALPHA 

UT 

I 

ALPHA 

WRAPUP 

I 

ALPHA 

69) 

ALB 

1 

DRAG 

AL7 

I 

DRAG 

AL6 

1 

DRAG 

AL9 

1 

DRAG 

APPLY 

I 

DRAG 

CONTRL 

I 

DRAG 

ENVPRQ 

I 

DRAG 

NLDRV 

I 

DRAG 

OUTPUT 

I 

DRAG 

TH3 

I 

DRAG 

UT 

ft 

DRAG 

2) 

ENVPRQ 

I 

ER 

PDBCQL 

I 

ER 

QLTOSZ 

I 

ER 

5TATEF 

I 

ER 

92) 

ARCIN 

I 

GAft 

ENVPRQ 

I 

GAM 

OUTPUT 

1 

GAft 

STATEF 

1 

GAft 

HR AP  UP 

I 

GAft 

60) 

ALA 

I 

LIFT 

ALB 

I 

LIFT 

AL6 

I 

LIFT 

APPLY 

I 

LIFT 

CONTRL 

1 

LIFT 

ENVPRQ 

I 

LIFT 

OUTPUT 

I 

LIFT 

TH3 

I 

LIFT 

UT 

0 

LIFT 

26) 

AEROCO 

I 

ftACH 

ENVPRQ 

I 

ftACH 

OUTPUT 

1 

ftACH 

STATEF 

ft 

ftACH 

16) 

BCOND 

I 

NARC 

BNORY 

1 

NARC 

CHECK 

I 

NARC 

ENDPT 

1 

NARC 

ENVPRQ 

I 

NARC 

FETCH 

1 

NARC 

INARC 

I 

NARC 

NAG1C 

I 

NARC 

QLTOSZ 

I 

NARC 

SALVE 

I 

NARC 

URAPUP 

I 

NARC 

19  ) 

BNORY 

I 

NBRAN 

0RANPT 

I 

NBRAN 

COSTAB 

I 

NBRAN 

ENVPRQ 

I 

NBRAN 

INTRPT 

I 

NBRAN 

MAGIC 

I 

NBRAN 

QLTOSZ 

I 

NBRAN 

SALVE 

l 

NBRAN 
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20)  BCOND  I HP  ARC 
BNDfiV  I NFARC 
BRANPT  ] HP  ARC 
COSTAB  1 HP  ARC 
ENVPRQ  1 NF  ARC 
INTRPT  I NF ARC 
MAGIC  I NFARC 
QLTOSZ  I NFARC 
SALVE  1 NFARC 


« q I Oyna.W  pressure  ( LBS/FT2 ) '”«*  '«  27>  J J 

PDBCQL  I 0 
STATEF  ft  0 
OT  I Q 

OLIft  M Saved  value  of  tailiua  dynaaic  pressure.  /5 1 2 T WS/<  26A  ) ENVPRQ  M OHM 

R ft  I Radial  distance  fro*  earth  canter  to  vehicle  /OYNA  /(  T)  ALA  1 R 


(FT)  ALT  1 R 

AL8  1 R 
AL9  I R 
CONTRL  I R 
ENYPRQ  I R 
NLDRY  I R 
POBCOL  I R 
QLTOSZ  1 R 
STATEF  M R 

SQ  HA  synthesis  data  array  (37,$)  that  contains  the  /SlZlNG/(  T A ) ENVPRQ  M SQ 

flyback  data  and  soae  injection  quantities  QLTOSZ  M SQ 

SV  M A synthesis  array  ( 28 ) containing  staging  /SIZJN&/{  *6)  ENVPRQ  M SV 

paraneters  and  nisc  flags  QLTOSZ  M SV 

TIME  I Trajectory  tfae  (SEC)  /OVNA  /<  2)  ENVPRQ  I TIME 

OUTPUT  l TIME 
POBCQL  I TIME 
STATEF  M TIME 
WRAPUP  I TIME 

V y 1 Relative  velocity.  (FT/SEC)  /D  /(  91)  AL1  I ¥ 

ALA  I V 
ALT  1 V 
ALB  1 V 
ALA  I V 
BCOND  I NON 
BNDR  V 0 NON 
fiRANPT  M NON 
CONTRL  I V 
ENOPT  I NOM 
ENVPRQ  I V 
FETCH  0 NOM 
INTERP  M V 
INTRPT  M NON 
NLDRV  0 NOM 
NLORV  I V 
OUTPUT  I V 
PCBCQL  I V 
STATEF  1 V 
WRAPUP  1 V 

W fcj  I Weight  (LBS)  /OYNA  /(  91)  AL5  I W 

ENVPRQ  I W 
OUTPUT  1 W 
PDBCQL  I W 
QLTOSZ  1 W 
STATEF  N W 
TH3  I W 


NFARC  R|  1 Nunber  of  the  last  subarc  on  th*  first  branch.  If  /GLOBAL /( 

2 the  problea  Is  not  a branch  problea,  than  NFARC  = 

NARC. 


10  NOV  12  G.Ol-V/ 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


COOE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK  LOC  SUBR  CODE  VAR 


Z 


ZD 


l 


1 A 20  aord  array  used  to  store  the  total  linear  / Z /( 

solution  fro*  the  preceding  QL  iteration. 


I A 20  etrd  array 
Equation  17.1-7 


containing  the  vector  f(X,Z,W)  in 
in  Vo  I . I of  this  docuaent. 


/ZD  /( 


1 ) BNDRV  I Z 
BRANPT  I Z 
ENDPT  I Z 
ENVPRQ  I Z 
INTERP  0 Z 
1NTRPT  I 2 
L I NOR  V I Z 
NOflNAL  ft  Z 
OUTPUT  I Z 
RKUTT1  0 Z 
RKUTT2  ft  Z 
SALVE  ft  Z 
URAPUP  ft  Z 

1 ) ENVPRQ  I ZD 
LINDRV  1 ZD 
OUTPUT  I ZD 
RKUTT2  I ZD 
WRAPUP  I ZO 
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SUBR0UTINE 

ERR0R 


Purpose 

ERROR  is  a general  error  message  routine  for  the  QL  module. 


ERROR 


SUBROUTINE  ERROR! REG  I ON,  KOD,  IRETRN) 

THIS  ROUTINE  SERVES  AS  A GENERAL  ERROR  MESSAGE  ROU- 
TINE FOR  THE  OTINE  FOR  THE  QL  MODULE  REGION  IS  THE  6 HOLLERITH 
CHARACTER  NAME  OF  THE  SUBROUTINE  IN  WHICH  THE  ERROR 
OCURRED,  KOD  IS  THE  CODE  NO.  OF  THE  ERROR  AND  IRETRN 
INDICATES  WHETHER  THE  PROBLEM  SHOULD  BE  RESTARTED 
WITH  A BETTER  STEEP.  DESC.  INITIAL  ARC. 

REAL  MAGBV,  MU,  «,  LV,  LGAM,  LPSI,  IR,  LRHO,  LMU,  LM,  LTAU,  NON 
*,  LHT 
COMMON  /D/ 

• X H,  X I ! 9 ) , MAGBV,  ERR,  D 9,  DIO,  C<  H 0 ) , CSAVE(iO),  V,  6AM,  PSI, 

• ALT, AhO, mu, M TAU.  HT  LV,  LGAM,  LPSI,  LR , LRHO,  LMU,  L«,  LTAU, 

• LHT,  D109,  D 1 1 0 &V(9Q),  ZSAVE(2Q>,  QT(20),  NPOINT(26),  bELT(20> 

DIMENSION  NOM(  20)  * *'  - 

EQUIVALENCE  (NOM,  V) 

LOGICAL  SWITCH,  IlOAO 

REAL  MACH,  ISP,  1SPV,  ISPR,  ISPM,  ISPT,  1SPVV,  ISPVR,  ISPVM, 

•ISPVT,  I SPRR,  ISPRM,  ISPRT,  ISPMM,  TSPMT,  ISPTT,  LIFT,  LlFTV, 
•LIFTR,  lIFTA,  LIFTVV,  LIFTVR,  LlFTVA,  LlFTRR,  LIFTRA,  MUR,  LlFTAA 

♦irate6,  ispf,  ispff 

REAL  MACH V , MACHR,  MACHVR,  MACHRR 

REAL  LIFTM,  LIFT VM,  LIFTRM,  LlFTMM,  LlFTMA 

COMMON  /DYNA/ 


, T I ME  ,SIN6AM,C0SGAM, OMEGA  ,0mEGA2,R 


,R  ,6  , S I NA 

•cosa  ;dynou;omegat;tamp  ,pa  ;ro  ,cs  ,tempr  ,PAR  : 

•ROR  , CSR  ,TEMPRR,PARR  , RORR  ,CSRR  ,KOOE  , MACH  ,Q  , 

• QV  ,QR  , Q V V , Q VR  QRR  ,FVAC  ,FVACV  ,FVACR  ,FVACM 

• F V ACT  FVACVV,FVACVR,FVACRRFVACTTT  ,MACHV  , MACHR  ,ISP  , 

• I SP V ISPR  , I SPM  ,I5PT  ,ISPVV  , ISPVR  , ISPVM  , ISPVT  ,ISPRB  , 

• ISPRM  I 5P RT  , ISPMM  , I SPMT  , ISPTT  LIFT  ,LIFTV  , LIFTR  , LIFTA  , 

• LIFT VV,LIFTVR, LlFTVA, LlFTRR, LIFTRA, DRAG  , DRAGV  , DR AGR  , DR ASA 
•DRAGVV,DRAGVR,DRAGVA,DRAGRR,DRAGRA,0RA6AA, ALPHA  ,PHl  , LIFTM  , 

• LlFTVM, LIFTRM, LIFT MM, Li F TMA  DBR  ,OBRR  ,GAMMAD,AE  ,TAX 

•W  ,SINPHI ,C0SPHI ,SINPSI ,COSPSI , S I NRHO , CO SRHO , S I NROR , COSROR , 

• MUR  ,XXG  , XKP  , AK  I N ,CDO  ,CDOM  ,CLO  ,F*  ,XCGM  . 

♦XCGMM  , ZCGM  , ZCGMM  ,XJV  ,XJR  ,XJW  ,XJvR  ,XJRR  , MACHVR, 

•MACHRR, SIN2R0,C0S2R0,C0S26M, CM  ,CMA  ,CMM  ,CMAA  ,CMMM 

• CMAM  CMO  ,CMOM  ,CMOMM  ,CMAMM  ,UlFTV  .ULFTR  , UlF T V V , ULFT VR , 

• ULFTVA,ULFTRR,ULFTRA, IPOW  ,XARC  ,TSTaRT,GH  , GRR  , L I F TAA 

•CDOMM  ,CLAMM  ,CLOM  ,CLCMM  ,DYN1n9#CT  ,cooae  ,sidae  ,coq  , 

*5  1 D DELTAE.CDE  , XCG  'ZCG  , XJ  ,XMCG  , C AlP HA . ALMAX  , 

• OB  ULF  T ,CULFT  ,ULFTA  , TST AGE , T I MES  , XMCGAA, I RATED, FRATED 

COMMON  /OYNA/ 

•MTT  ,J1  ,J2  ,J3  ,XMCGA  ,FVACF  ,ULFTAA,ISPF  , ISPFF  # 

• I LOAD  ,FKM  ,F*MM  , SWITCH, INQF  ,CL  ,CLA  ,CLM  ,CLAA  , 

•CLMM  ,CLAM  ,CD  ,CDA  ,COM  ,CDAA  ,COMM  ,COAM  DYN198, 

•0YN199, 0YN200, XMCGV  ,XMCGfl  ,XMC5M  , XMCG V V , XMCG VR , XMC6 VM, XMCG VA , 
•XMCGRR, XMCGRM, XMCGRA, XMCGMM  XMCgMA, RORRR  ,0YN219,0YN215,0YN2U, 

• DYN2 I 7 , I DAM  ,TAIRB  , T A I RB V , T A I RBH , T ARB V V , T ARBHH , T ARB VH, SFC 

• SFC V 5FCH  , SFC V V ,SFCHH  'SFCVH 
COMMON/GLOBAL/ 

*GR  , ER  , 0M6Z  ,XLAMRF,YMURF  ,LUM  ,TO  , EP SlON,  I NNER  , 

•ITRMAX, JJOP( 6)  ,IFATAl,NARC  ,NBRAN  ,NFARC  ,10(9)  ,KTAB!20>, 

• I T ABC  20 ),  SI6,MAXTAB,GM  PSlftF  , I PFlG  1 , I PFlG2, 1 PFlG3, I PFLG9, 

• INEQFL! 20),  ITPSO,  KSOL,  I NARK , KGLOBL! 7 ) 

1 FORMAT! 1H0,  5H*****,  A6,  1CH  ERROR  NO.,  12,  5H*»***> 

PRINT  ERROR  MESSAGE 

K = IABS(KOO) 

WRITE! 6,  I I REGION,  A 

IF  KOD  POSITIVE, WARNING  ONLY. 

IF! KOD  > 101,101,102 


X J VR  , X J RR  , MACHVR 
, CMM  ,CMAA  ,CMMR 
, ULFTR  , UlFTVV.ULFTVR 
T , GH  , GRR  ,LIFTAA 
, CODAE  ,SIDAE  ,coo 
XMCG  , C ALPHA, ALMAX 


ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

0 

D 

D 

D 

JUL21 

D 

D 

0 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA 

JUL21 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

OYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

OYNA 

DYNA 

DYNA 

DYNA 

OYNA 

DYNA 

JUL2I 

AUG09 

GLOBAL 

global 

Global 

Global 

Global 

error 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR  101  — | 102- 


69. 

101 

KGLOBL  = 1 

ERROR 

65  . 

CALL  POUMP! X,  DELT! 20  ), 1 , XX,  IDAfi,  1) 

ERROR 

66. 

C 

SHOULD  STEEP.  DESC.  TRY  RESTART. 

ERROR 

67  . 

C 

FATAL  Ql  ERROR. 

ERROR 

66. 

IF! IRETRN  .N£.  0)  IFATAl  = .TRUE. 

ERROR 

69. 

CALL  OLERR 

ERROR 

70. 

102 

RETURN 

ERROR  ~ 

71  . 

END 

ERROR 
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CODE 


DESCRIPTION 


tasy‘1.1  ‘iiM  "SM8 


DELT 

1 

A twenty  »ord  array  containing  the  quasitiae 

/D 

/( 

211  ) 

CHECK 

0 

DELT 

co  ap  ut • Interval  for  each  subarc . 

ERROR 

1 

OELT 

INARC 

I 

CELT 

I DAM 

1 

Optional  ataospharlc  calculations  flag. 

/DYNA 

/( 

218  ) 

ARC1N 

0 

I DAM 

I DAM  = - 1 : Coaputc  d^pi/8R^; 

ERROR 

NPLANE 

I 

0 

I DAM 
IDAM 

I OAM  s 0'  No  optional  c a 1 cu 1 at  1 on s ; 

I OAM  = Is  Coapute  d3P#/3R3,  u9,  3*i,/3R,  etc. 

STATEF 
WRAP  UP 

1 

0 

I DAM 
IDAM 

1FATAL 

0 

Fatal  error  f lag. 

/GLOBAL/I 

IT) 

ERROR 

0 

F FATAL 

KGLOBL 

0 

/ GLOBAL/! 

96) 

ERROR 

0 

kglobl 

X 

X 

I 

The  quisitfac  variable. 

/O 

/< 

I ) 

AL9 

I 

X 

BNDRY 

0 

X 

' 

* 

ERROR 

1 

X 

FETCH 

0 

X 

FORCES 

l 

X 

I MARC 

M 

X 

INTER? 

I 

X 

MADAMS 

M 

X 

RKUTTl 

M 

X 

AKUTTa 

N 

X 

SALVE 

M 

X 

STATEF 

I 

X 

WRAPUP 

M 

TT 

XX 

1 

/DYNA 

/< 

1 ) 

ARCIN 

0 

XX 

ERROR 

I 

XX 

OUTPUT 

I 

XX 

- — 

* 

* 

‘ 

STA^Ef 

n 

XX 
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SUBR0UT INE 
FET  CH 


Purpose 

FliTCii  retrieves  the  state/costate  vector  from  the  initial  arc  at  the  early 
and/or  late  sides  of  comer  points. 


FETCH 


SUBROUTINE  FETCH! I ARC) 


THIS  ROUTINE  RETRIEVES  THE  STATE/COSTATE  VECTOR 

FROrt  the  initial  arc  at  the  early  ano/or  late  sides 

OF  CORNER  PTS . 


COMMON/ ARCDAT / 


FETCH 

FETCH 

FETCH 

FETCH 

FETCH 

FETCH 

ARCDAT 


B. 

• SREF 

,EJ 

,XISP 

, TAULT 

, DTNC 

, DTP  I 

, ARCDAT 

9. 

* I ATA 

, I MODE 

, JAER 

, JPRO 

, Qaax 

, GAAX 

, ARCDAT 

10. 

•XLAAX 

HDMAX 

GAOOT 

,alfaax 

, PHtlAX 

, AAEA 

, ARCDAT 

11. 

•AAEB 

, MAEC 

, AAEO 

, MAEE 

, AAEF 

,aaeg 

, ARCDAT 

12. 

• AT 

,MISP 

AXCG 

, AZCG 

,AWOA 

AWOB 

, ARCDAT 

13. 

• ADB 

, XC6R 

, ZCGR 

,ZE 

, XT 

, ARCDAT 

1M. 

• DREF 

ACND 

, RHOB 

, QAULT 

,reaax 

,frate 

ARCDAT 

15. 

DIMENSION 

ARCDA! MO) 

ARCDAT 

16.  EQUIVALENCE! SREF,ARCDA>  ARCDAT 

17.  COMMON/ GLOBAL/  GLOBAL 

18.  *6R  ER  , 0MS2  XLAMRF  YMURF  ,LUfl  ,TO  ,EPSlON, INNER  , GLOBAL 

19.  »1TRMAXJJ0P!6)  ,IFATAL,NARC  ,NBRAN  ,NFARC  'jO!M>  ,KTAB(20>,  GLOBAL 

20.  * I TAB(  26  ) Slb,MAXTAB,GM,P5lftF  1PFLG1 . J PFLG2,  JPFL.G3,  JPFL&M,  GLOBAL 

21.  *INEQFL(26)(  ifPSO,  KSOL,  1NARK,KGL0BL(7)  GLOBAL 

22.  REAL  MAGBV,  MU,  A,  LV , LGAM,  LPSI,  LA,  LfiHO,  LRU,  LA,  LTAU,  NOA  D 

23.  *,  LHT  D 

2M.  COMMON  /D/  D 

25.  *X,  H,  XI!m),  MAGBV,  ERR,  09,  010,  C<MO>,  CSAVEdO),  V,  GArt,  PSI,  0 

26.  *AlT  RHO , AU, A TAU,  HT,  LV,  lGAM,  LPSI,  LR,  LRHO,  LAU,  LA.  LTAU,  JUL21 

27.  *LHT,  Dl69,  DilO,  6V!m6>,  2SAVE(20),  QT(20T,  NP0fNTl2fi>,  6elTC20)  D 

28.  DIMENSION  NOMi 20  > 0 

29.  EQUIVALENCE  (NOA,  V)  0 

30.  DIMENSION  SCS(  16  1,  QTP(20>.  MAP! 16).  SKIP!  3)  FETCH 

31  DATA  FETCHX/6HFETCH  /,  IPASS/O/,  IaRCS/20/  FETCH 

32.  DATA  AAP  FETCH 

33.  */l,  2,  M,  7,  3.  5,  6.  9,  10,  11,  13,  16.  12,  lM,  15,  18/  FETCH 

3h.  c is  f hi  & pi.  alrea6y  in  coAe.  fetch 

35.  I F( I ARC  .EQ.  1 ARCS ) RETURN  FETCH 

36.  C NO.  IS  THIS  THE  FIRST  TIAE  FETCH  HAS  BEEN  CALLED.  FETCH 

37.  IFdPASS  .NE.  0)  60  TO  101  FETCH 

36.  C YES.  INITIALIZE  INITIAL  ARC  FILE.  FETCH 

39.  REWIND  INARA  FETCH 

90.  REAO( INARK  ) TO,  NS,  NARCTP,  (QTP(IJ),  IJ  = 1,  MARCTP 1 FETCH 

Ml  IF( NARCTP  .NE.  NARC)  CALL  ERROR! FETCHX,  *1,  1)  FETCH 

m2.  read( inarx > karc,  tiae,  skip,  scs  fetch 

m3.  IPASS  = 1 FETCH 

MM  c INITIALIZE  LOGICAL  PARAMETERS  FETCH 


M5.  101  ~ I SbN  = 1 FETCH 

M6.  JARC  = 0 FETCH 

M7.  I ARCS  = I ARC  FETCH 

MB.  C IS  THIS  A CALL  FOR  THE  INITIAL  PT.  OF  THE  FIlE.  FETCH 

M9.  IF!  1 ARC  .EQ.  0)  GO  TO  100  FETCH 

50.  C NO.  SET  UP  LOGICAL  PARAAETERS.  FETCH 

51.  JARC  ^ I ABS( I ARC ) FETCH 

52.  1 SuN  = I SIGN! 1 I ARC  > FETCH 

53.  C POSITION  FILE  TO  DESIRED  PT . FETCH 


5M  100  IF! JARC  .GT.  KARC)  GO  TO  102 
55.  REWIND  INARK 

56  READ!  INARK  > TO 


FETCH 

FETCH 

FETCH 


iOl—i 


100—1 


To F= 


57. 

58 


59. 

60. 


102  READ! INARK)  KARC,  TIAE,  SKIP,  SCS 
IF! EOF  INARK)  103,  109 


FETCH 

FETCH 


03 — 1 109- 


103  IFtJARC  .EQ.  NARC  .AND.  I SGN  LT.  0)  GO  TO  10H 
CALL  ERROR! FETCHX,  -2,  I ) 


FETCH 

FETCH 


61.  10M  BACKSPACE  INARK  FETCH 
62  BACKSPACE  INARK  FETCH 
63.  READ! INARK ) KARC,  TIAE,  SKIP,  SCS  FETCH 
6M . C SET  UP  StATE/COSTATE  VECTOR  AND  COMPUTE  ANY  OTHER  FETCH 
65.  C OUANTITES  THAT  AAV  BE  NEEOEO . FETCH 


66.  105  00  106  I = 1,  16 

67.  J = AAP( I ) 

66.  106  NOA! J ) = SCS! I ) 

69.  IF! KARC  - 1 > 107,  107,  108 


70. 

71. 


FETCH 

FETCH 

FETCH 

FETCH 


107-1  108-1 


107  NOA! 6 ) = OTP! KARC) 
GO  TO  110 


TO 


FETCH 

FETCH 


1 10  — 


6 OCT  72  G . 01 -MM 


108  N0n(8>  c OTP(KARC)  - QTP<  ICARC  - 1) 

so  to  no 

109  1 F ( K ARC  LE.  JARC)  GO  TO  102 
IFl ISSN  .ST.  0)  GO  TO  105 

GO  TO  109 

no  X = JARC 
LARC  = JARC 

IF(  ISSN  .ST.  0)  LARC  = JARC  ♦ 1 
CALL  READnS(9,  ARCDA,  92,  LARC) 

CALL  FORCES 

RETURN 

END 
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MATH 
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CODE 


DESCRIPTION 


ijar'u  'itamna* 


ARCDA 


I NARK 


NARC 


won 


TO 


X 


rat 


I Aarodynaalc  rtfi 


I Logical  unit  on  ahich  Initial  and  converged  arcs 
ara  stored.  I NARK  = 11. 


f Mgnber  of  subarcs  In  tha  probfaa. 


0 Be  I at  I ? a velocity. 


Trajectory  start  tlaa. 


iltlfl 


r labia . 


/ AR  COAT / ( 

1 ) ARCIN 

I 

SREF 

BNDRY 

I 

ARCDA 

CHECK 

I 

ARCDA 

FETCH 

I 

ARCDA 

salye 

I 

ARCDA 

STATEF 

SREF 

UT 

r 

SREF 

URAPUP 

i 

ARCDA 

/ GLOBAL/ ( 

95)  CHECK 

0 

INARK 

FETCH 

I 

1 NARK 

JNARC 

I 

INARK 

MARCH 

I 

INARK 

URAPUP 

I 

INARK 

/GLOBAL/t 

16)  BCONO 

I 

NARC* 

BNDRY 

I 

NARC 

CHECK 

I* . 

NARC 

ENOPT 

I 

NARC 

ENVPRQ 

1 

NARC 

FETCH 

I 

NARC 

INARC 

I 

NARC 

MAGIC 

I 

NARC 

QLTOSZ 

I 

NARC 

SALYE 

I 

NARC 

URAPUP 

I 

NARC 

/D  /( 

91  ) AL1 

I 

V 

ala 

I 

V 

alt 

I 

V 

AC8  " 

I 

V 

AL9 

I 

V 

BCOND 

I 

nom 

BNDRY 

0 

NOM 

BRANPT 

« 

NOM 

CONTRL 

I 

V 

ENDPT 

1 

NOM 

ENVPRQ 

I 

V 

* - 

FETCH 

0 

NOM 

1NTERP 

M 

V 

INTRPT 

M 

NOM 

nldrv 

0 

NON 

nlOrv 

1 

V 

OUTPUT 

I 

V 

PDBCQL 

] 

V 

STATEF 

I 

V 

URAPUP 

I 

’ V 

/GLOBAL/! 

7)  FETCH 

M 

TO 

INARC 

M 

TO 

TRAJIN 

I 

TO 

URAPUP 

I 

TO 

/O  /< 

1)  ALA 

I 

X 

BNDRY 

0 

X 

ERROR 

I 

X 

FETCH 

0 

X 

FORCES 

1 

X 

INARC 

A 

X 

INTERP 

I 

X 

MADAMS 

M 

X 

rkutti 

M 

X 

RKUTT2 

A 

X 

SALVE 

A 

X 

STATEF 

1 

X 

URAPUP 

A 

TT 
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o 


Purpose 


FORCtS  controls  the  calculation  of  all  quantities  needed  b 


subroutine 


FORCES 


1 . 
2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 

10. 
11 . 
12. 

13. 

14. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 

23. 

24. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40  . 

41  . 

42. 

43. 
44  . 

45. 

46. 

47. 

48. 

49. 
50- 
51  . 

52. 

53. 

54. 

55. 
56 


SUBROUTINE  FORCES 

THIS  ROUTINE  CONTROLS  T HE  CONFUTATION  OF  ALL  QUAN- 
TITIES NEEDED  TO  CONFUTE  THE  APPLIED  ACCELERATIONS 
ON  THE  VEHICLE. 

REAL  NASBV.  «U,  fl,  LV,  LBAfl.  LPSI,  LR,  LBHO,  LNU,  LW,  LTAU,  NON 
lht 

Connon  /d/ 

• X,  H.  X I(  4 ) , flAGBV  ERR , 09,  DIO.  C<40),  CSAVE140),  V,  GAN,  PS  I , 

• ALT , HHO , PlU,n  TAU,  HT.  LV.  LGAN.  LPSI,  LR.  LRHO,  LNU.  LN.  LTAU. 

• LHT.  D1  o9,  D 1 1 0 BV<46),  ZSAVE<20),  QT(20),  NPOINT120).  0ELT120) 

OinENSION  N0N<26) 

EQUIVALENCE  (NON.  V) 

CONNON  /CNTRL/ 

*NU  # I TER  .4TAPA  ITAPB  ,JNIN  ,JHAX  .LINES', KPT  .NON  , 

•KARO  ,INDX<4)  . NEWN0N.CNT016.RH0C  ,RHQP  ,NPTS  .NINES  , 

• KPAGE  , NNP  N(JP  . IARC  , TRSTR  ,INAX  . KTINE  , KON VER . NOPRNT, 

•INBDRYNUPAGE.IVARY(ZO)  NN  NOVARY.  PLASt.  ZLAST,  KODE& 

LOGICAL  I NBDRY  NEUINON  KONVER,  NOPftNT,  NUr AGE 
LOGICAL  SNITCH,  I LOAD 

REAL  NACH.  ISP.  ISPV,  ISPR,  I5PN,  ISPT,  ISPVV,  ISPVR,  1SPVN, 

• ISPVT,  1 5PRR,  ISPRN,  ISPRT,  ISPWrt,  ISPNT.  ISPTT,  LIFT,  LlFTV. 

• LIFTR,  LlFTA,  LIFT  V V , LI  FT  VR,  LIFTVA,  LlfTRR,  lIFTRA,  NUR,  lIFTAA, 
•IRATEO,  ispf,  ispff 

REAL  NACHV,  WACHR,  NACHVR , NACHRR 
REAL  LIFTN,  LlFTVN,  LlFTRN,  LlFTNN,  LIFTNA 
CONNON  /DYNA/ 


• XX 

• COSA 

• ROR 

• QV 


, T 1 NE  ,SINGAN,CQSGAN, ONEGA  ,0NEGA2,R 


CS 

, X ODE 


, G 

, TENPR 

. nach 


, F V AC V ,FVACR 
, NACHV  # NACHR 


,Ll FTV  , LIFTR 
, DRAG V , OR AGR 
‘ , PHI 


,DYNOil,ONEGAT,TANP  ;pa  ;ro 

, CSR  ,tenprr,parr  'rorr  csrr 

, QR  , QV V , Q VR  , QRR  ,FVAC 

•FVACT  ,FVACVV,FVACVR,FVACfifi,FVACTT,T 
•ISPV  , I 5PR  , I SPN  , 1 SPT  , ISPVV  , ISPVR  ,ISPVN  , ISPVT 

• ISPRN  , ISPRT  , I SPNN  , ISPNT  , ISPTT  ,Ll  FT  

• LlFTW, LlFTVfl, LIFTVA, LIFrRR,LIFTRA, BRAG 
*dragvv,dragvr,oragva,dragrr, or agra, or agaa; ALPHA 

♦LlFTVN,LlFTRN,LIFTNN,LlFTfflA,OaR  , DBRR  ,GANNAD;AE 
*W  ,SINPHI,CDSPHI,SINPSI,C05PSI,SINRHO,COSRHO,SINROR 
•NUR  ,XXG  ,XKP  ,AKIN  ,C00  ,COON  ,CLO  ,FX 

•XCGflN  , ZCGN  , ZCGNN  ,XJV  ,XJR  ,XJVV  ,XJVR  ,XJRR 

•NACHRR, SIN2R0,C0S2R0,C0S2GN,CN  ,CNA  ,CNN  , CNAA 
♦CNAN  ,CNO  ,CNON  .CNONN  ,CNANN  ,QLFTV  ,ULFTR  ,ULFTVV 
*ULFTVA,ULFTRR,ULFTRA, IPOW  , X ARC  , TSTART , GH  , 6RR 

• CDONN  ,CLANN  ,CLON  ,CL0NN  ,DYN149,CT  ,COOAE  ,SIDAE 
♦SID  , OELTAE  CDE  ,XCG  ,ZCG  ,xj  ,XNC6  ,CALPHA 

■ ~ , CULFT  ,ulfta  ,tstage, tines  , xncgaa , I rateo 


•DB  , ULFT 
CONNON  /OYNA/ 

•NTT  ,J1  ,J2 

• I LOAD  , FAN  ,FKNfl 
♦CLNN  ,CLAN  ,CD 


,J3  ,xncga  ,fvacf  ,ulftaa,ispf 


, Cl  a 
CONN 


, CLN 
, COAN 


, SWITCH, INQF  ,CL 
, CD A , CDN  ,COAA 
*DYN199,DYN200,XNC6V  ,XNC6R  ,XnCGN  . XNC G V V , XNC6 VR , XNCG VN 
♦XNCGRR, XNCGRN, XNCGR A XnCGNN, XNCGNA, RORRR  , D YN2 1 4 , 0Y«2 1 5 
• 0YN2 1 7 , I DAN  , TAIRB  , TA I RB V , T A I RBH, T ARB V V , T ARBHH , T ARB VH 
•SFCV  , SFCH  ,SFCVV  .SFCHH  .SFCVH 

IS  THIS  THE  FIRST  PT.  OF  THE  ARC. 


SINA 

PAR 

Q 

FVACN 

ISP 

ISPRR 

LIFTA 

ORAGA 

LIFTN 

TAX 

COSROR 

XCGN 

NACHVR 

CNNN 

ULFTVfl 

LIFTAA 

COO 

ALNAX 

FRATED 

ISPFF  , 
CLAA  , 
DYN198, 
XNCGVA, 
DVN216, 
SFC 


FORCES 

FORCES 

FORCES 

FORCES 

FORCES 

FORCES 

D 

0 

0 

0 

JUL21 

0 

0 

D 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

OYNA 

DVNA 

OYNA 

DYNA 

DYNA 

OYNA 

DYNA 

DYNA 

JUL21 

OYNA 

DYNA 

DYNA 

OYNA 

DYNA 

OYNA 

DYNA 

DYNA 

OYNA 

DYNA 

DVNA 

DYNA 

DYNA 

OYNA 

DYNA 

OYNA 

DVNA 

OYNA 

OYNA 

DYNA 

OYNA 

DVNA 

DYNA 

DYNA 

JUL21 

AUG09 

FORCES 


M: 

59. 

60. 
61  . 

C 

I F ( KPT  .NE.  1)  GO  TO  101 

IF( AB5< X - FLOAT! IF  I X( X ) ) ) . NE . 0.)  60  TO  101 
YES.  IS  THIS  THE  FIRST  SUBARC. 
IF(  IARC  .EO.  1 ) CALL  TRAJIN 
CALL  ARCIN 

FORCES 

FORCES 

FORCES 

FORCES 

FORCES 

101—1 

d 

62. 

101 

CALL  STATEF 

FORCES 

63. 

C 

ARE  THERE  ANY  APPLIED  LOADS  AT  ALL 

FORCES 

64. 

IF<  KOOE  .EO 

0)  60  TO  102 

FORCES 

102—1 

65. 

CALL  CONTRL 

FORCES 

66. 

c 

IS  THIS  POWERED  FLIGHT 

FORCES 

67. 

IF( IPOW  .GT 

0 .AND.  J1  .NE.  4 ) CALL  IflPULS 

JUL21 

68. 

c 

IS  THIS  THE  LAST  PT.  OF  SUBARC 

FORCES 

, t 

69. 

102 

I F( KPT  .EQ. 

NPTS)  CALL  ARCEN 

FORCES 

70. 

RETURN 

FORCES 

71. 

END 

FORCES 
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DESCRIPTION 


»-■■■  STQBA&g.  - 

block loc 


subroutine 

5'UBfi  CODE 


M* 


I ARC 


IPOW 


Jl 


KOOE 


KPT 


NPTS 


X 


I 


I 


1 Subarc  number. 


1 Pomtrod  flag. 

I P 0 U r 0:  No  thrust  and  no  base  drag 
IPOW  a 1 S Thrust,  but  no  base  drag 
IPObJ  = 2:  Thrust  and  bast  drag 


I Thrust  option  flag. 

Jl  = 1:  Constant  thrust; 

Jl  - 2-  Input  ficuua  thrust; 

Jl  =•  3:  Po  acred  total  acceleration  Halt; 
Jl  = H:  Air-breather  angina. 


1 Steering  vector 

flag 

KODE  = 0: 

Fret  fall,  « s # 

= 0; 

KOBE  = 1: 

Both  • and  P opt! 

aal  ; 

KODE  = 2: 

o optlaal  and  P = 

: 

KODE  = 3: 

o no nept i aa  1 and 

# optlaal; 

KODE  = H : 

Vert leal  rise  or 

p 1 tc  ho  ver ; 

KODE  = 5: 

a no  no  pi  1 aa I and 

P = 0. 

] The  subarc  point  nusber  . KPT  = 

1 on  the  first 

point  of  lubarc 
of  the  subarc. 

, and  KPT  - NPTS 

on  the  last  point 

i The  totai  nusber  of  points  in  the  subarc. 


1 The  quasltiaa  variable. 


/CNTRL  /( 


/DOHA  H 


/BY  HA  /< 


/ DYNA  /( 


/CNTRL  /( 


/ CNTRL  )\ 


/ D /( 


29)  ARCtN 

I 

I ARC 

BCDND 

M 

I ARC 

BNDRV 

« 

I ARC 

BRANPT 

I 

I ARC 

CHECK 

M 

I ARC 

COSTAB 

I 

I ARC 

COSTAI 

I 

I ARC 

ENDPT 

I 

I ARC 

FORCES 

1 

1 ARC 

INARC 

« 

I ARC 

JNTRPT 

I 

I ARC 

MAGIC 

m 

I ARC 

MARCH 

I 

I ARC 

QLT0S2 

J 

I ARC 

SALVE 

M 

I ARC 

URAPUP 

M 

I ARC 

\39>  ABCiM 

M 

IPOW 

FORCES 

I 

IPOW 

NPLANE 

I 

IPOW 

ST  AT  EF 

1 

IPOW 

THROTL 

I 

IPOW 

173  ) APPLY 

I 

Jl 

ARCIN 

0 

Jl 

CONTRL 

M 

Jl 

FORCES 

I 

Jl 

NPLANE 

1 

Jl 

statef 

I 

Jl 

THROTL 

m 

Jl 

25  ) APPLY 

I 

KODE 

ARCIN 

0 

KODE 

CONTRL 

M 

KOOE 

FORCES 

I 

KODE 

NLDRV 

1 

KODE 

STATEF 

1 

KOOE 

6)  BCOND 

0 

KPT 

BNDRV 

0 

KPT 

FORCES 

1 

KPT 

MAGIC 

0 

KPT 

RKUTT1 

I 

KPT 

SALVE 

M 

KPT 

WRAP  UP 

N 

KPT 

19)  BCOND 

0 

NPTS 

BNDRV 

0 

NPTS 

FORCES 

I 

NPTS 

INARC 

M 

NPTS 

MAGIC 

0 

NPTS 

SALVE 

M 

NPTS 

WRAP  OP 

0 

NPTS 

1 > AL9 

I 

X 

BNDRV 

0 

X 

ERRDfl 

7 

X 

FETCH 

0 

X 

FORCES 

j 

X 

I NARC 

M 

X 

INTERP 

I 

X 

MADAMS 

M 

X 

RKUTT1 

M 

X 

PKUTT2 

M 

X 

SALVE 

M 

X 

STATEF 

I 

X 

WRAP  UP 

M 

TT 
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Purpose 

GJRV  is  a general  matrix  inversion  routine. 


GJRV 


SUBROUTINE  6JR V( A, N . EP S 1 L , I ERR ) 

GAUSS- JORDAN  INVERSION  OF  MATRICES  PROPOSED  BY  H . RUT  I SHAUSER 
IN  ALGOL.  ACM  JDURNALL  FEB.  1962.  FORTRAN  BYRAGUSA. 
DIMENSION  A(  N N ) B(9Q),  C<  -*0  1#  IP(90>,  I Q(  HO  ) 

1ERR=0 
DO  190K=1,N 
PlV0T=0.0 
DO  120  1=K,N 


10. 

IF(ABS'( A< 1,J))-AB$  (PIVOT))  2,2.1 

GJRV 

11.. 

1 

PlVOT=Ali;j> 

GJRV 

12. 

I P<  K )=I 

GJRV 

13. 

IQ(  K >= J . 

GJRV 

- 19. 

2 

CONTINUE 

GJRV 

■ 15. 

120 

CONTINUE 

6JRV 

16. 

IF( ABS  (PIVOT  )-EP5IL  >100,100,3 

GJRV 

in 

17. 

3 

IF(  IP(K)-X>9,6,9 

GJRV 

n 

- 18. 

9 

00  5 J= 1 . N 

GJRV 

19. 

I P*  = IP( K ) 

GJRV 

20. 

2=A( 1 PX, J ) 

GJRV 

21. 

A< IPX, J )=A( K, J ) 

GJRV 

22. 

5 

A(  K, J )=Z 

GJRV 

23. 

6 

I F( 1Q( K )-K  )7,9,7 

GJRV 

5 

29 . 

7 

DO  8 1=1. N 

GJRV 

25. 

IPX=1Q( K J 

GJRV 

26. 

Z=A<  I. IPX) 

GJRV 

27. 

AC  I.IRX)=A(  I.K) 

GJRV 

28, 

6 

A(  I , K )=Z 

GJRV 

'29. 

9 

00  13  J=1,N 

GJRV 

30. 

IF<  J-X  )11, 10,11 

_ GJRV 

10  — 

31 . 

10 

B( J ) = 1.0/PIVQT 

GJRV 

32. 

C(  J)=1.0 

GJRV 

33. 

GO  TO  12 

GJRV 

12- 

39. 

11 

8(  J)=-A(K,J)/PIVOT 

GJRV 

35. 

C(  J)=A(J,M 

6 JR  V 

36. 

12 

A(  K,J  >=0.0 

GJRV 

37. 

A(  J , K )=0.0 

GJRV 

38. 

13 

continue 

GJRV 

39. 

00  19  1=1, N 

GJRV 

90. 

DO  19  J = 1,N 

GJRV 

91. 

19 

A(  1,  J )=A(  1,  J )*C(  I >*B(  J ) 

GJRV 

92. 

190 

CONTINUE 

6JR  V 

93. 

00  20  KP=1,N 

GJRV 

99. 

K=N*1-KP 

GJRV 

95. 

I F ( IP( X )-K  ) 15,17,15 

GJRV 

15  — 

96. 

15 

DO  16  1=1, N 

GJRV 

97. 

IPX=IP(K> 

GJRV 

98. 

Z=A( I. IPX) 

GJRV 

99. 

A(  I , IPX  )=A(  1 , X ) 

GJRV 

50. 

16 

A(  I,K>=Z 

GJRV 

51 

17 

IF( 1 0( K >-K )18,20, 18 

GJRV 

fe— 

52. 

18 

DO  19  J=1 , N 

GJRV 

53. 

1 PX=IQ( K ) 

GJRV 

59. 

Z=A(  IPX.J) 

GJRV 

55. 

A(  IPX,  J)=A<«,J> 

GJRV 

56. 

19 

A(  K , J )=Z 

GJRV 

57. 

20 

CONTINUE 

GJRV 

m 

58. 

GO  TO  21 

GJRV 

ill] 

59. 

100 

I ERR=- 1 

GJRV 

, | 

60. 

21 

RETURN 

GJRV 

61. 

ENO 

GJRV 
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SUBR0UTINE 

IMPULS 


Purpose 

IMPULS  computes  the  rocket's  specific  impulse  as  a function  of  net  thrust. 
In  addition,  it  computes 


aisj 

3T 


IMPULS 


1M. 

15. 

16- 

17. 

18. 

19. 

20. 
21. 
22. 
23. 
2** . 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
3m. 
35 

36. 

37. 

38. 

39. 
MO. 
Ml  . 
M2. 
M3. 
MM. 
M5. 
M6 . 
M7 . 
M8 . 
M9. 

50. 

51. 

52. 

53. 
5M . 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 


subroutine  impuls 


this  routine  computes  the  vacuum  specific  impulse 


COMMON/ AR COAT/ 


IMPULS 

IMPUL5 

IMPULS 

IMPULS 

ARCOAT 


6. 

♦ SREF 

,EJ 

,XISP 

,tmult 

, OTNC 

, OTP  I 

, ARCOAT 

T. 

♦ I ATM 

, I MODE 

'JAER 

, JPRO 

, QMAX 

, GMAX 

, ARCOAT 

8. 

•XLMAX 

, HOMAX 

GMOOT 

,AlFMAX 

P HMAX 

MAE  A 

, ARCOAT 

9. 

• MAEB 

, MAEC 

, MAEO 

, MAEE 

,MAEF 

, MAEG 

, ARCDAT 

10. 

*MT 

, HI  SP 

,MXCG 

, MZC6 

MWOA 

, MWDB 

, ARCDAT 

11. 

• MOB 

, XCGR 

, ZCGR 

,XE 

ZE 

XT 

, ARCOAT 

12. 

• DREF 

MCNO 

, RHOB 

, QflULT 

, REMAX 

, FRATE 

ARCDAT 

13. 

DIMENSION 

ARCDA! MO) 

ARCOAT 

EQUIVALENCE!  SREF  ARCDA ) 

LOGICAL  SNITCH,  f LOAD 

REAL  MACH/  ISP.  ISPV,  ISPR,  ISPM,  ISPT, 


ISPVV,  ISPVR, 
ISPtT,  LlFt, 


ISPVH, 

LJFTV, 


0ME6A2, R 
RO 

CSRR 
F VAC 
T 

ISPVR 
LIFT 
ORAG 


♦ISPVT,  I S^RR,  fsPRrt,  1SPRT,  IS PrtA,  ISpAt,  wr  , . . _.r,, 

•LlFTR.  LIFTA,  L1FTVV,  LJFTVR,  LlFTvA,  LiFTRR,  LlFTflA,  MUR,  LlFTAA, 
♦IRATEO,  ISPF,  I SPFF 
REAL  HACHV,  MACHR , MACHVR,  MACHRR 
REAL  LIFTM,  LIFTvA,  LlFTRH,  LiFTHH,  LlFTMA 
COMMON  /QY*A/ 

• xx  ,time  ,$jngam,cosgah,  omega 

• COSA  OVNO 1 1 OMEGAT , TAMP  ,PA 

•ROR  , CSR  , TEMPRR , PARR  , RORR 
*QV  ,QR  , Ov V , OVfi  ,QRR 
*F  VACT  ,FVACVV,FVACVR,FVACRR,FVACTT 
•ISPV  , I SPR  , I SPM  ,ISPT  ,ISPVV 
•ISPRM  , I SPRT  , 1 SPMM  'iSPMT  , I SPTT 
•L1FTVV,LIFTVR,LIFTVA,LIFTRR,LIFTRA 
•ORAGVV,ORAGVR,ORAGVA, ORAGRR, ORAGR A 
♦LIFT VM,LlFTRfl,LlFTMM, LlFTMA, 08R 
*W  S I NPHI , CO$PH I ,S1NPS1,C0SPS1 

•MUR  , XK6  ,XKP  AKIN  ,C00 
•XCGMM  , ZCGM  , ZCGHH  ,XJV  ,XJR 
♦MACHRR, SIN2R0,C0S2R0,C0S2GM, CM 
•CHAM  ,CHO  ,Cn0M  ,CMOMM  ,CMAMM 
•ULFTVA, ULF TRR , ULFTRA , IPOW  ,XARC 
•COOMM  ,CLAMM  , CLOM  .CLOMM  ,0VN1M9; 

♦SIO  OElTAE, CDE  ,ICG  ,ZC6 

♦OB  ,ULFT  , CULFT  ,UlFTA  ,TSTAGE, 

COMMON  /DYNA/ 

• MTT  ,J1  ,J2  , J 3 XrtCGA 

• ILOAD  ,FKH  ,FlCHH  , SNITCH, INOF 

•clmh  , clam  ,cd  ,coa  ,cdm 
•DYN199,DYN200,XMCGV  , XMCGR  ,XMCGM 

• XMCGRR,  XnCGRM,  XPlCGRA  XMCGMM  XMCGMA. 

• 0YN2 1 7 , I DAM  Ta  I Rd  , TA I R3  V T A I RBH , 

•SFCV  , SFCH  , SFC V V SFCHH  ,SFCYH 

COMPUTE  THE  VACUUM  THRUST 
AE*PA 

INITIALIZE  ISP  AND  PART  I ALS  W/RESP.  TO  THRUST 


,6 

,CS  ,tempr 
KOOE  , MACH 
F VACV  , F V ACR 
MACH V , MACHR 
!lSPVM  I SP VT 

,liftv  ,liftr 

OR AG V , ORAGR 
ORAGAA, ALPHA  PHI 
OBRR  GAMMAO  AE 
SINRHO,COSRHO,SINROR 
COOM  CLO  ,FK 
X J V V , X J VR  , X JRR 
CMA  , CMM  , CMAA 
ULFTY  ,ULFTfi  .ulftvv 
TSTART.GH  ,SRR 
CT  CODAE  , SIOAE 

XJ  ,XMCG  ,C ALPHA 
TIMES  , XMCGAA, IRATEO 

FVACF  ULFTAA, ISPF 
CL  ,CLA  ,CLM 
COAA  , COMM  , COAM 
XMCGVV, XMCGVR,XMC6VM 
RORRR  ,0YN21m,0YN215 
TARBYY,TAflBHH,TARBVH 


SINA 

PAR 

0 

FVACM 

ISP 

1SPRR 

LIFTA 

DRAGA 

LIFTM 

TAX 

COSROR 
XC6M 
HACHV A 
CMMM 

ulftvr 

liftaa 

COD 

ALWAJf 

FRATED 

I SPFF  , 
CLAA  , 
0YN198, 
XHCGVA, 
0YN216, 
SFC  ! 


F VAC  = T 

ISP  = XISP 
ISPF  = 0. 

I SPFF  = 0. 

CHECK  FOR  DUAL  ENGINE  SIMULATION 
IFIJPRO  .£0.  2)  GO  TO  100 

WERE  ISP  LOSSES  INPUT 
IF1MISP  .LE.  0)  RETURN 

YES.  COMPUTE  ISP  AND  PARTS.  W/RESP.  TO  THRUST 
FOR  = FVAC/FRATEO 

CALL  SPLl NE( Ml SP , FOR,  CISP,  CISPF,  CISPFF) 


ARCOAT 

OYNA 

DYNA  ' 

DYNA 

OYNA 

DYNA 

OYNA 

DYNA 

OYNA 

JUL21 

DYNA 

DYNA 

OYNA 

OYNA 

OYNA 

OYNA 

OYNA 

OYNA 

OYNA 

DYNA 

OYNA 

OYNA 

OYNA 

OYNA 

OYNA 

OYNA 

DYNA 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA 

OYNA 

DYNA 

JUL21 

AU&09 

IMPULS 

IMPULS 

IMPULS 

IMPULS 

IMPULS 

IMPULS 

JUL21 

SEP  15 

IMPULS 

IMPULS 

IMPULS 

IMPULS 

IMPULS 


100—1 


63.  50  ISP  = Cl SP* I RATED 

6H . ISPF  = C1SPF*IRATE0/FRATE0 

65.  ISPfF  - Cl SPFF* IRATEO/f RAT£D**2 

66.  RETURN 

67.  C DUAL  ENGINE  SIMULATION 


JUL2 1 
IMPULS 
IMPULS 
SEP  1 5 
JUL21 


68.  100  FOR  = FVAC/FRATEO 

69.  CALL  I SPRAT! FOR  CISP,  CISPFF,  CISPFF,  2) 

70.  GO  TO  50 

71.  ENO 


JUL21 

JUL21 

J0L21 

IMPULS 
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FORTRAN 

SvnBOl 

HATH 

SYNBOL 

COI 

DESCRIPTION 

BLOCK 

Dififl 

(yjjgi 

CODE  VAR 

AE 

A tA 

I 

Tottl  no  z z It  till  trtt 

(FT2) 

/ DYNA 

/( 

89) 

APPLY 

1 

AE 

till 

ARCIN 

0 

AE 

INPULS 

I 

AE 

NLDRV 

I 

AE 

TH2 

I 

AE 

frated 

I 

11  of  tht  aailtui  rocktt  vacuua  thrift 

< IBS  ) 

/DYNA 

/( 

171  ) 

ARCIN 

0 

FRATEO 

I FtP  ULS 

1 

FRATED 

FVAC 

n 

Toltl  vtcuui  Ihruil  (rocktl) 

( LBS) 

/DYNA 

/( 

33) 

APPLY 

I 

FVAC 

ARCIN 

H 

FVAC 

INPULS 

N 

FVAC 

NLDRY 

I 

FVAC 

STATEF 

N 

FVAC 

TN2 

I 

FVAC 

1RATED 

i 

( SECS  ) 

/DYNA 

/( 

1TO) 

“arcin 

0 

IRATED 

INPULS 

I 

IRATED 

ISP 

!«. 

0 

Vtcuua  zptclftc  lapyjta 

(SECS) 

/DYNA 

/( 

95) 

APPLY 

I 

ISP 

SP 

ARCIN 

0 

ISP 

INPULS 

0 

ISP 

1 SPF 

dI_/dT 

0 

Stt  tyabol 

/OYNA 

/( 

179) 

APPLY 

I 

I SPF 

SP 

INPULS 

0 

ISPF 

ISPFF 

a2j  /st Z 

0 

Stt  ijfibol 

/DYNA 

/< 

180) 

APPLY 

I 

ISPFF 

INPULS 

0 

ISPFF 

JPRO 

I 

Propulsion  aotftl  oplton  flap 

/ AR  CO AT/( 

10) 

ARCIN 

I 

JPRO 

INPULS 

I 

JPRO 

IHSP- 

_ 

l 

.Curst  ouabtr  kISP  loss  loblt 

- . - 

/ ARCDAT/(  - 

26) 

ARCIN 

I 

NISP  - 

INPULS 

I 

NISP 

PA 

P 

I 

Alaospbtrlc  pratsurt 

{ LBS/FT2) 

/DYNA 

/( 

19) 

INPULS 

I 

PA 

A 

NLORV 

I 

PA 

OUTPUT 

I 

PA 

TH2 

I 

PA 

T 

T 

I 

Thrasl 

(LBS) 

/DYNA 

/( 

92) 

ALGCON 

N 

T 

AL1 

I 

T 

AL9 

I 

T 

AL6 

I 

T 

AL7 

I 

T 

AL8 

I 

T 

AL9 

I 

T 

APPLY 

I 

T 

ARCIN 

0 

T 

CONTRL 

n 

T 

DL2 

i 

T 

INPULS 

i 

T 

OUTPUT 

i 

T 

TM1 

i 

T 

TH2 

i 

T 

TH3 

i 

T 

TH9 

i 

T 

XISP 

I 

I 

Vtcuua  sptclflc  lapulst 

(SEC) 

/ ARCDAT/( 

3 ) 

ARCIN 

i 

KISP 

*P 

INPULS 

i 

XISP 
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SUBR0UTINE 
IN  ARC 


Purpose 

INARC  stores  the  initial  arc  on  logical  unit  12,  The  values  stored  are 
linearly  interpolated  from  the  initial  arc  file  on  logical  unit  11, 


I NARC 


\ 


1. 

2. 

3. 

9. 

5. 

6. 
7. 
6. 
9. 

10. 

11. 

12. 

13. 

1*1. 

15. 

16. 
17. 
ie. 
i». 
20. 
21. 
22. 
23. 
2*1. 

25. 

26. 
27. 
20. 

29. 

30. 

31. 

32. 

33. 
39. 
35. 


h: 


d 


30. 

39. 

90. 

91. 

92. 

93. 
99. 

95  . 

96. 

97.. 

9®. 

99. 

»0. 

»1. 

53. 

59. 


5b  . 

>6. 

57. 

50. 

59. 

60. 
61. 
62. 
63. 
69* 
6»  . 
66. 
67. 
6®. 
69. 
#0. 
11. 
/ 2 . 
#3. 
It . 
/». 


C 

c 

c 


c 


c 

c 


c 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE  INARC 


THIS  ROUTINE  STOR£S  THE  INITIAL  ARC  OUT 


ON  UNIT  12. 


EXTERNAL  EXIT 
EXTERNAL  NUCASE 

COMMON  /BLOCK/  IlCdO.  20),  IICTdO,  20),  I TC( 10,  20).  JTAB(20>, 

♦ I TCT!  10,  20),  LTAB(  20 ),  NOKNOW,  NOC(20),  VALlCdO,  20>, 
+YAL7C<lb,  20),  1PAY 

COMMON  /WAP/  RAPdO) 

COMMON  /CWTRL/ 

*NU  , I TER  I TAP A I TAPB  ,JMlN  ,JMAX  , LINES  ,KPT  ROM 

♦ KARO  , I NDX! 9 ) , NEUNOM, CNTO 1 6, RHOC  ,RHOP  ,NPTS  >INES  . 

•KPA6E  , NNP  , NUP  ,1ARC  , TRSTR  ' I WAX  KTlME  KONVER * NOPRNT * 

♦1NBDRY,NUPA6E,IVARY(20),  NN,  NOVARY,  PLASt,  ZLAST  KODE& 

LOGICAL  IN0ORY,  NEWNOA,  KONVER,  NOPftWT,  NUr AGE 

REAL  MA6BV,  RU,  R,  LV,  L6AR,  LPSt,  LB,  LRMO,  LRU,  L«,  LTAU,  NOR 
*6ormON  /o/ 

*X,  H.  XI!  9 ),  RASBV,  ERR,  09,  010,  C(90),  CSAVE(90>,  V,  GAR,  PSI, 
*AlT,RH0,MU,M,  TAU,  HT,  LV.  LGAR  LPSI,  lR,  LRHO.  LRU.  LR,  £jAU, 
*LHT  D109,  OllO,  0VC9O),  2SAV£(20),  QT(20),  NPOlNTdO),  6elT«  26 ) 
DIMENSION  NOR!  26 ) 

EQUIVALENCE  (NOR,  V) 

C0RR0N  /PC/ 

♦PCI  , N , PC3  ,IOP  , PCS  ,PC6  ,PC7  ,HAXBC  ,NAUX 

cowrtON^GLOBAL/ 

*6B  , ER  , 0RG2  , XLARBF  YRUfiF  ,LU«  ,T0  , EPSlON  INNER  , 

♦ I TRRAX , J JOPi  6 ) ,IFATAL,NARC  ,NBRAN  ,NFARC  ,10(9)  *KTAB(26), 

♦ I TAB(  20 ),  SIG.RAXTAB,6W,PSIRF  , IPFlGI , IPFlG2, IPFL63, IPFCG9, 

♦ I NEOFL(  26 ) , ItPSO,  KSOL,  inark, kglobl{ 7) 

CORWON  /Y/  VC  820) 

DIMENSION  QTAPEt  20 ),  IRAPC20),  TdOO) 

EQUIVALENCE  (T,  ITT 

OATA  XINARC  /6H  INARC/,  RAO/ . 0 1 79532925 1999 33/ 

1 FORMAT!  1H 1 , 25 X,  29H**** INI TI AL  ARC  DATA****  ) 

2 FORMAT!  1H0,  25 X , 23H****SCAlINS  FACT0RS****//(1H  , 51E15.7))) 

3 FORMAT!  1H0,  27X,  13H****TABlE  NO.,  12,  9H****/ ) 

9 FORMAT! 1H  , 5E15.7) 

5 FORMAT! 1H0,  1BX,  37H****TH£  INITIAL  ARC  IS  ON  UNIT  11**9#  ) 


WRITE!  6,  1) 

I ERR  = 6 
REWIND  INARK 
REWIND  12 
DO  105  I = 1,  NUP 
105  Y(l)  = 0. 

NARCTP  = 1 

REAO  IN  TRAJ.  START  TIRE,  NUMBER  OF  ARCS  *N0  ARC 
STAGING  TIRES  FROM  1ST  RECORD . 

REAO!  INARK)  TOTAPE,  NS,  NARCTP,  (QTAPE(IK),  IK  = 1,  NARCTP ) 

1FIE0F,  INARK)  101,  9 

9 WRITE!  6,  5) 

RAKE  SURE  NUMBER  OF  ARCS  AGREES  WITH  USER*$  INPUT. 
IF! NARCTP  . N£ . NARC  ) CALL  ERROR! X I NARC,  >9,  1) 

INITIALIZE  TIRES 

TO  = TOTAPE 
TSTART  = TO 

COMPUTE  RECORD  SIZE 
NURDS  = 5 ♦ 2*NS 
KERR  = 0 

SET  UP  TRANSLATION  RAP  FROM  STEEPEST  OESC,  STATE/ 
COSTATE  OROERING  TO  0l  ORDERING. 

ILIR  = NS  ♦ 1 
DO  11  I = 1,  ILIR 
* - J * *APlI> 

J = I ♦ ILIR 
IRAP! I ) = K 
11  IRAP! J ) = K ♦ MS 
RQfl  = 0. 

DO  90  I ARC  = 1,  NARC 

STORE  NUMBER  OF  HOMOGENEOUS  SOLUTIONS  TO  BE  I NTE- 
uRATEO  OVER  THIS  ARC. 

MOM  = NOC!  1 ARC ) 

COMPUTE  RECORD  SIZE  ON  UNIT  12  OVER  THIS  ARC. 


INARC 

INARC 

INARC 

INARC 

INARC 

INARC 

BLOCK 

BLOCK 

BLOCK 

MAP 

CNTRL 

CNTRl 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

0 

D 

0 

D 

JUL21 

0 

0 

0 

PC 

PC 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

global 

Y 

INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
1 NARC 
INARC 
1 NARC 
INARC 
INARC 


INARC 
INARC 
INARC 
INARC 
INARC 
I NARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
IMARC 
INARC 
1 NARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 
INARC 


101 
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/ A 


NM  = N*(« OR  ♦ 1) 

COflPUTE  AND  STORE  TAU  FOR  THIS  ARC 
TAU  = OTAPE<  I ABC J-TSTART 
QT(  IAP.C)  = TAU 
XARC  - I ARC 
X = I ARC  - 1 

COrtPUTE  AND  STORE  NUMBER  OF  PTS.  AND  STEPSIZE  FOR 
THIS  ARC. 

DT  = DELTl IARC) 

NPTS  = TAU/DT  ♦ 1.5 

EPS  = ABSi  TAU  - (NPTS  - 1 >*DT > 

IF(  EPS  . 6T . .5)  NPTS  s NPTS  ♦ 1 
I F( NPTS  .LT.  H>  NPTS  = * 

NPOINTt IARC  > = NPTS 
H = 1 ./FLOAT! NPTS  - 1 ) 

SET  FIRST  TWO  RECORDS  FOR  THIS  ARC  INTO  CORE. 

1FT  = 2 

LFT  = 1 


9H.' 

301 

IFdtERR  .EQ.  0)  REAO(INARK)  !T!J>,  J = 1,  NWROS  ) 

INARC  " 

95. 

I F{  IT  - IARC ) 301,  303,  302 

I N ARC  302- 

96. 

302 

BACKSPACE  1NARK 

INARC 

97  . 

BACKSPACE  INARK 

INARC 

98. 

60  TO  301 

INARC 

99. 

303 

PIIN  = NURDS  ♦ 1 

INARC 

100. 

RAX  - NURDS  ♦ NURDS 

INARC 

101  . 

I F!  KERR  .EO.  0)  READ!  I NARK  ) ( T! J ),  J = MM  RAX) 

INARC 

102. 

TlAST  = T(2) 

INARC 

103. 

TNEXT  = T! NURDS  ♦ 2) 

INARC 

10*1. 

C 

PUT  THIS  ARC  OUT  ONTO  UNIT  12 

INARC 

- 10*  . 

00  30  K s 1,  NPTS 

INARC 

XX  = X ♦ 1 . - XARC 

INARC 

I&t: 

TIKE  = TSTART  ♦ XX*TAU 

INARC 

108. 

I F! K .EO.  NPTS)  TINE  s TSTART  ♦ TAU 

INARC 

109. 

IF! T IflE  .LE.  TNEXT)  GO  TO  12 

INARC  12  — 

no. 

I F(  KERR  .EO.  0)  CALL  WARCH!  T I (ME  IFT.  T,  NURDS,  KERR) 

INARC 

in. 

LFI  = 3 - 1 FT 

INARC 

112. 

KK  = 2 * NWRDS*!  IFT  - 1 ) 

INARC 

113. 

LL  ~ 2 ♦ NWROS*! LFT  - 1 > 

INARC 

TLAST  = TILL) 

INARC 

1 1h  . 

TNEXT  = T!  KK ) 

INARC 

116. 

12 

DT  = TNEXT  - TlAST 

INARC  J 

117. 

FCTR  = (TIRE  - TLAST  )/DT 

INARC 

* 118. 

DO  20  1 : I.  N 

INARC 

119. 

13 

IF! I .NE.  1 OP  ) 60  TO  10 

INARC  10 — 1 

120. 

VI I ) = TAU 

INARC  I 

121  . 

60  TO  20 

INARC  l 

122. 

10 

J = IflAP!  I ) 

INARC  J 

123. 

KK  = J ♦ NURDS*! IFT  - 1 ) 

INARC 

12M. 

LL  = J ♦ NURDS*! LFT  - I ) 

INARC 

125. 

YA  = T!  LL) 

INARC 

126. 

IF! KERR  .NE.  0)  60  TO  20 

INARC  20 

127. 

QELV  = T!KK)  - YA 

INARC 

126. 

V!  1 ) = YA  * FCTR*DELY 

INARC 

129. 

20 

CONTINUE 

INARC  J 

130. 

WRITE!  12  )!  Y<  I J ),  I J = 1,  NN  ) 

INARC 

131  . 

30 

X = X ♦ H 

INARC 

132. 

TSTART  = TSTART  * TAU 

INARC 

MO 

CONTINUE 

INARC 

RETURN 

INARC 

101  CALL  ERROR! XlNARC,  -1,  1) 
RETURN 
END 
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DELT 

H 

1 ARC 


1 DP 
I NARK 


HAP 


wow 


w 


NARC 


A tnenty  nerd  array  containing  the  quasi!!** 

/D 

/( 

211  ) 

CHECK 

0 

DELT 

conpute  interval  for  each  subarc. 

ERROR 

I 

OELT 

INARC 

I 

DELT 

Integration  stop  size  In  quasitine. 

/D 

/( 

2 ) 

AL9 

I 

H 

INARC 

« 

H 

WADAHS 

I 

H 

RKUTT1 

I 

H 

RKUTT2 

I 

H 

SALVE 

« 

H 

URAPUP 

W 

DT 

/ CNTRL 

/( 

ZH  ) 

ARC1N 

I 

I ARC 

BCONO 

w 

I ARC 

BNDRV 

H 

I ARC 

. 

8RANPT 

I 

I ARC 

CHECK 

W 

I ARC 

COSTAB 

I 

I ARC 

COST  A I 

I 

I ARC 

ENOPT 

1 

I ARC 

FORCES 

I 

I ARC 

INARC 

w 

1 ARC 

INTRPT 

I 

I ARC 

MAGIC 

w 

I ARC 

WAR  CH 

I 

I ARC 

OLTOSZ 

I 

1 ARC 

SALVE 

w 

I ARC 

UR  AP  UP 

w 

I ARC 

Component  nueber  that  corresponds  to  the  OL  state 

/PC 

/( 

H ) 

INARC 

I 

I DP 

variable"  r I DP  = 8- 

URAPUP 

r 

I DP  ' 

Logical  unit  on  ahlch  initial  and  converged  arcs 

/ global/I 

95  ) 

CHECK 

0 

I NARK 

are  stored.  INARK  * 11. 

FETCH 

i 

INARK 

INARC 

i 

I NARK 

MARCH 

i 

1 NARK 

URAPUP 

i 

INARK 

An  array  that  naps  the  Initial  arc  state  and 

/wap 

/( 

1 ) 

CHECK 

D 

HAP 

costate  into  the  OL  state  and  costate. 

INARC 

I 

HAP 

The  nunbar  of  hoeogeneous  solutions  currently  being 

/CNTRL 

/( 

9) 

GROPE 

0 

now 

i nt egr ated. 

! NARC 

w 

MOW 

Li  NOR  V 

1 

HOW 

NOWNAL 

1 

HON 

SALVE 

n 

now 

URAPUP 

w 

NON 

Total  nuober  of  6L  state  end  costate  variables.  N 

/pc 

/( 

2) 

BNDRV 

] 

N 

= 18. 

CHECK 

I 

N 

INARC 

I 

N 

LINDRV 

1 

N 

NLDRV 

1 

N 

NOWNAL 

I 

N 

RKUTT1 

I 

N 

SALVE 

I 

N 

URAPUP 

I 

N 

Nunber  of  subarcs  in  the  problen. 

/GLOBAL/C 

18  ) 

BCOND 

I 

NARC 

BNDRV 

I 

NARC 

CHECK 

I 

NARC 

ENDPT 

i 

NARC 

ENVPRO 

i 

NARC 

FETCH 

l 

NARC 

INARC 

1 

NARC 

MAGIC 

i 

NARC 

QlTOSZ 

I 

NARC 

, 

SALVE 

I 

NARC 

URAPUP 

1 

NARC 
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FORTRAN 

SYMBOL 


WAT  H 
SYMBOL 


CODE 


DESCRIPTION 


mMPHwr  SSOTSH^ 


NN 

n 

The  number  of  quantities  curr ent l y being 

/CNTRL 

/( 

52) 

BNDRY 

M 

NN 

nu»«r I ca  1 1 y integrated. 

INARC 

M 

NN 

MADAMS 

I 

NN 

MAGIC 

M 

NN 

NORMAL 

I 

NN 

RKUTT1 

I 

NN 

BKUTT2 

I 

NN 

SALVE 

M 

NN 

URAPUP 

M 

NN 

HOC 

i 

An  array  containing  a running  total  of  the  nusber 

/BLOCK 

/( 

812) 

BNDRY 

I 

NOC 

of  free  ( unknoan  > state  and  costate  variables  at 

BRANPT 

I 

NOC 

the  start  of  each  sub arc. 

COSTAB 

0 

HOC 

COS  T A I 

0 

NOC 

_ _ 

COSJAQ 

0 

NOC 

INARC 

I 

NOC 

INTRPT 

1 

NOC 

SALVE 

I 

HOC 

HRAPUP 

I 

NOC 

NP01NT 

0 

A twenty  aord  array  containing  the  nuaber  of  points 

/D 

/( 

191  ) 

INARC 

0 

NPOINT 

in  each  subarc. 

SALVE 

I 

NPOINT 

NPTS 

n 

The  total  nuaber  of  points  in  the  subarc. 

/cntrl 

/( 

19  ) 

BCD  NO 

0 

NPT5 

BNBRY 

0 

NPTS 

FORCES 

I 

NPTS 

INARC 

N 

NPTS 

MAGIC 

0 

NPTS 

SALVE 

M 

NPT5 

. 

. . . 

. . 

- - - 

- 

- 

HRAPUP 

.0 

NPTS 

NUP 

i 

Sane  as  NU. 

/cntrl 

/( 

23  ) 

CHECK 

0 

NUP 

GROPE 

I 

NUP 

INARC 

I 

NUP 

QT 

0 

A taenty  aord  array  containing  the  v a j ue  s froa  the 

/D 

/( 

171  ) 

INARC 

0 

QT 

initial  arc  of  the  successive  subarcs'  durations 

HRAPUP 

M 

QT 

TAU 

T 

M 

Subarcduratton  MSEC) 

/D 

/( 

96  ) 

ARCEN 

I 

TAU 

INARC 

M 

TAU 

NLDRV 

1 

TAU 

OUTPUT 

I 

TAU 

STATEF 

I 

TAU 

TO 

M 

Trajectory  start  tlae.  (SEC) 

/ GLOBAL/ ( 

7 ) 

FETCH 

M 

TO 

0 

INARC 

M 

TO 

TRAJIN 

I 

TO 

HRAPUP 

1 

TO 

X 

X 

M 

The  quasitine  variable. 

/ 0 

/< 

1 ) 

ALA 

I 

X 

BNDRY 

0 

X 

ERROR 

I 

X 

FETCH 

0 

X 

FORCES 

I 

X 

INARC 

M 

X 

INTERP 

I 

X 

MADAMS 

M 

X 

RKUTT1 

M 

X 

RKUTT2 

n 

X 

SALVE 

M 

X 

STATEF 

I 

X 

HRAPUP 

M 

TT 

V 

m 

An  620  aord  array  containing  the  particular  and 

/Y 

/( 

1 ) 

GROPE 

0 

V 

hoaogeneous  solutions  being  Integrated.  The  first 

INARC 

M 

V 

18  aords  coaprise  the  particular  solution.  Each 

MADAMS 

M 

Y 

block  of  18  aords  thereafter  coaprises  an 

QlTOSZ 

I 

Y 

independent  hoaogeneous  solution. 

RKUTT1 

M 

Y 

SALVE 

n 

Y 

HR  AP  UP  I Y 
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SUBROUTINE 

INTERP 


Purpose 


INTliRP  interpolates  the  total  solution  from  the  preceding  QL  iteration 
at  the  midpoints  of  the  first  three  compute  intervals  of  each  subarc. 
The  results  are  used  by  the  Runge-Kutta  starting  procedure. 


rrso 


INTERP 


SUBROUTINE  INTERP 

REAL  HAGBV,  MU,  R,  LV,  LGAW  LPSI,  LR,  LRHO,  LRU,  LR,  LTAU,  NON 
*,  IHT 
ConnON  /o / 

♦ X,  H,  Xl(9>,  RAGBV,  ERR.  D9#  DIO,  C<40),  C$AVE(90>,  V , GAN  PSI, 
♦ALT , RHO , RU , R TAU,  HT.  LV,  lGAM.  LPSI,  LR,  LRHO,  LRU,  LR.  LTAU. 

♦ LHT,  0169,  0110.  69(90),  ZSA  VE(  60  ) QU20),  NP0lNT<26>,  DELTC  20  ) 

oim6nsion  Norn 26 > 

EQUIVALENCE  ( NON,  V) 

THIS  SUBROUTINE  INTERPOLATES  THE  NOMINAL  SOLUTION  AT  THE  AID- 
POINTS  OF  THE  FIRST  THREE  COMPUTE  INTERVALS.  A FOuRTH-QRQER  AlT- 
KENS  ALGORITHM  IS  USED. 

COronON  /it  Z(50> 

COnroON  tlli  ZM20,  9) 

COronON  /CNTRL/ 

♦ NU  , I TER  I T AP A ,1TAPB  ,jnlN  ,JMAX  , LINES  ,KPT  ,«On 

♦KARO  ,INDX<4)  NEWNOn.CNTOl6.RHOC  ,RHOP  ,NPTS  ,n)NES  , 

♦ KPAGE  , NNP  NUP  ,IARC  TR5TR  , 1MAX  , KTIME  .KONVER.NQpRNT, 
♦INBORY,NUPAGE, IVARV( 50),  NN,  NOVARY,  PLAST,  ZLAST,  KOOES 

LOGICAL  I NBDRY  NEWNOn,  KONVER,  NOPfiNT,  NUPAGE 
DlnENSlON  P( 20,  9) 

NEWNON  = .TRUE. 

DO  1 J = 1.  9 
00  1 I = 1.  NNP 

1 PtI,  J)  s Zli  I,  J) 

DO  2 K = 13 

S = XI(K)  - I 
L ~ K ♦ 1 
00  2 J = L.  9 
R = X 1(  J ) ' X 
Q = R - S 
U = R/Q 
V = S/0 

00  2 I ~ 1 NNP 

2 P(I,J>  = uiP(I.  K ) - V*P(1,  J) 

DO  3 I = 1 NNP 

3 Z(  I ) = F(I,  9 ) 

RETURN 

END 


INTERP 

0 

0 

D 

0 

JUL2I 

D 

0 

D 

INTERP 

INTERP 

INTERP 

INTERP 

INTERP 

Z 

Zl 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

INTERP 

INTERP 

INTERP 

INTERP 

INTERP 

INTERP 

INTERP 

INTERP 

INTERP 

INTERP  | 

INTERP 

INTERP 

INTERP 

INTERP 

INTERP  j 

INTERP 

INTERP 

INTERP 

INTERP 

INTERP 
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FORTRAN 

SVP1B0L 


RATH 

SVPIBOL 


CODE 


DESCRIPTION 


- ..stohage 

block loc^ 


SUBROUTINE  USAGE 
SUER  CODE  VAR 


NEWNOfl 

0 

A logical  flag  that  Indicates  to  the  Rungt-Kutte 

/CNTRL  /< 

15)  INTERP 

0 

NEHNOA 

integration  nhether  or  not  the  *y  stea  Jacobian 

LINDRV 

a 

NEUNOA 

needs  to  be  reevaluated. 

RKUTTI 

0 

NEUNOA 

SALVE 

0 

NEUNOA 

WRAP  UP 

0 

NEtfNOA 

NNP 

I 

Nunber  of  QL  state  and  costate  v ar 1 ab  1 c s . ( 1 6 ) 

/CWTRL  /( 

22)  CHECK 

A 

NNP 

INTERP 

I 

NNP 

V 

V 

a 

Relative  velocity.  (FT/SEC) 

/0  /< 

91)  AL1 

I 

V 

ALH 

I 

V 

ALT 

I 

V 

ALE 

I 

V 

AL9 

I 

V 

ECONO 

I 

NO  A 

* * 

- 

* 

BNDRY 

0 

NOA 

BRANPT 

A 

NOA 

CONTRL 

I 

V 

ENDPT 

I 

NOA 

ENVPRQ 

1 

V 

FETCH 

0 

NOA 

INTERP 

A 

V 

1NTRPT 

A 

NOA 

nldrv 

0 

NOA 

NLDRV 

I 

V 

OUTPUT 

I 

V 

POBCOL 

I 

V 

STATEF 

1 

V 

WRAPUP 

I 

V 

X 

X 

• i 

The  qua's  i t i ae  var  I ab  J a . 

/o  Vc 

1 ) ALN 

I 

X 

• 

BNDRV 

0 

X 

ERROR 

I 

X 

FETCH 

0 

X 

FORCES 

1 

X 

INARC 

A 

X 

INTERP 

1 

X 

flADAflS 

A 

X 

RKUTT1 

A 

X 

RKUTT2 

A 

X 

SALVE 

A 

X 

statef 

f 

X 

HR  AP  UP 

A 

TT 

XI 

i 

A four  aord  array  containing  the  first  four  values 

/o  /< 

3)  INTERP 

I 

XI 

of  quasitiae  in  the  subarc. 

SALVE 

0 

XI 

z 

Z 

0 

A 20  aord  array  used  to  store  the  total  linear 

/z  /< 

1 ) BNDRV 

I 

z 

solution  froa  the  preceding  0 L iteration. 

BRANPT 

1 

z 

ENDPT 

I 

z 

ENVPRQ 

I 

z 

INTERP 

0 

z 

INTRPT 

I 

z 

LINDRV 

I 

z 

NO  ANAL 

A 

z 

OUTPUT 

I 

z 

RKUTT1 

0 

z 

RKUTT2 

A 

z 

SALVE 

A 

z 

HR  AP  UP 

A 

z 

ZI 


A 2 0 * H array  containing  the  first  four  values  of  2 
in  the  present  inhere. 


U I 


1 ) INTERP  I 
RKUTT1  I 
SALVE  A 


Zl 

Z! 

ZI 


6 OCT  72  G.01-NN 


SUBR0UT  I NE 
INTRPT 


Purpose 


INTRPT  evaluates  the  state  and  costate  target  misses  at  an  intermediate 
point  and  their  partials  with  respect  to  the  c's.* 


♦See  Sections  16.6  and  17.4  of  Vol.  I. 


INTRPT 


SUBROUTINE  I NT RPTI OPZ1 DC,  KK  ) 


THIS  ROUTINE  EVALUATES  THE  STATE  ANO  COSTATE  TARGET 
COND.  MISSES  AT  AN  INTERMEDIATE  CORNER  PT.  IT  ALSO 
EVALUATES  THE  PARTS . W/RESP . TO  THE  C»S  OF  THE  MISSES. 


- REAL  MAG8V,  MU.  M,  LV,  LGAM,  LPSI,  LR,  LRHO,  LMU,  LM,  LTAU,  NON 
LHT 

COMMON  /D/ 

• X,  H,  XI(H),  MAGBV,  ERR,  D9,  OIO,  C(HO),  CSAVE(HO),  V,  GAM  PS1, 

• ALVfirtO.nO,*,  TAU,  HT,  LV,  LG  AM  LPSI,  LR , LRHO,  LnU , LM,  LTAU, 

• LHT  D 1 09 , DUO,  6 VI  HO  ) , 2SAVE120),  0T(20),  NPOlNTUO),  DELK20) 
OImCnSION  HOMZb) 

EQUIVALENCE  (NON,  V) 

COMMON  /CNTRL/ 

*NU  , I TER  I T AP  A ,ITAPB  ,JMlN  ,JMAX  , LINES  ,KPT  ..,MOM 

• KARO  , INDX( 9 1 ,NEUNOn,CNTOI6,RHOC  ,RHOP  ,NPTS  , MINES  , 

»KP AGE  ,NNP  ,NUP  ,IARC  TRSTR  ,IMAX  , KT I ME  KONVER , NOPRNT, 

• INBORV,NUPAGE, I VARV(  20),  NN,  NOVARV,  PLAST,  ZLAST,  KODES 
LOGICAL  INBDRY,  NEhINOM,  KONVER,  NOPftNT,  NUPA6E 
COMMON/GLOBAL/ 

•GR  ,Efi  ,OMGZ  ,XlAMRF,VMURF  , LUM  ,T0  , EPSLON, INNER  , 

•ITRMAX,JJOP<  6)  ,IFATAl,NARC  ,NBRAN  ,NFARC  , 10(H)  ,KTAB(20), 

• I T AB<  20  ) SI G.MAXTAB  GM  PSIRF  , I PFlGI , I PFLG2, I PFLG3, I PFlGH, 

• INEQFH26),  ITPSO,  KSOl,  1 NARK  KGLOBLl  7 ) 

COMMON  /BLOCK/  IlCdO,  20),  IlCTUO,  20),  ITC(  10,  20),  JTAB(20), 

• ITCTdO,  20),  LT  AB(  20  i,  NOKNOW,  NOC(20),  VALlCdO,  20), 

♦VALTCi )6,  20  ),  IP AV 

COMMON  /EVAL/  SGN,  SPART( 18),  MAP(IO),  PZI(HO),  NOCK,  S(  18,  Hi), 

• TEMP(HO),  DZ( 18),  DC,  L,  SI< 18,  Hi) 

COMMON  III  Z(  SO ) 

DIMENSION  Ald8,  18),  Bll  18  >,  DPZIDC(KK,  XK ),  VAL(  18 ),  ZZdS), 

• TOMlU) 

DO  101  I = 1,  18 
DO  101  J = 1,  16 
101  AKI,  J>  = 0 
MA  = 0 

MTARG  = JTAB( 1 ARC  ) 

STORE  THE  NUMBER  OF  STATE  ANO  COSTATE  TARGET  COND. 
AT  THIS  PT. 

NTARG  = LTAB(  I ARC ) 

ASSIGN  109  TO  LABL 

ARE  THERE  ANY  COSTATE  TARGETS. 

I F( NTARG  LE.  0)  GO  TO  109 

VES.  SET  UP  THOSE  RONS  OF  Al  MATRIX  THAT  RESULT 
FROM  THE  INITIAL  CONOS.  ON  STATE. 


LTAU,  NOM 


18),  Bll  18  >,  DPZIDCUK,  KK  ),  VALl  18  ),  ZZd8>, 


hi: 

102 

DO  108  1 = 1.  9 

INTRPT 

h8  . 

IF(IIC(I,  IARC  ♦ 1 ) - 1 > 103,  10H,  105 

INTRPT 

H9 . 

C 

CONTINUOUS  STATE 

INTRPT 

50. 

103 

MA  = MA  ♦ 1 

INTRPT  " 

51  . 

AI( MA,  I ) = 1 

INTRPT 

52. 

A 1 ( MA , I ♦ 9)  s -1 

INTRPT 

53. 

GO  TO  108 

INTRPT 

5H. 

c 

KNOWN  STATE 

INTRPT 

55. 

10H 

MA  = MA  ♦ 1 

INTRPT 

56. 

A I ( MA  I)  = 1 

INTRPT 

57. 

GO  TO  108 

INTRPT 

58. 

105 

I F( 1 I C< I , IARC  4 1)  - 5)  108,  106,  107 
KNOWN  DROP  WEIGHT 

INTRPT  1 

59. 

c 

INTRPT 

60. 

106 

MA  = MA  ♦ 1 

INTRPT  " 

61. 

AI C MA,  I ) = -1 

INTRPT 

62. 

A I ( MA,  I ♦ 9)  s 1 

INTRPT 

63. 

GO  TO  108 

INTRPT 

6H. 

107 

WPRO  = GR*( ZSAVEI  7 > - H> 

INTRPT  ' 

65. 

c 

SIZING  OROP  WEIGHT 

INTRPT 

66. 

CALL  WTDRP(  WPRO  WDRP,  OWDRP,  3) 

INTRPT 

67. 

AHMA,  I ) = -1 

INTRPT 

68. 



AHMA,  I 4 9)  = 1.  - DWDRP 

INTRPT 

GO  TO  LABL 


ARE  THERE  ANY  STATE  TARGET  CONDITIONS 


6 OCT  12  G.01-HH 


Sizing  Interface  (SIZIN)  - 
~ — r 


) 


QI7IM 


v 


138. 

139. 
IHO. 
Ill . 

1*2. 

lO. 


6 OCT  72  t. 01-99 


72. 

109  IF( HTARG  . LE . 0)  GO  TO  115 

INTRPT 

73. 

C 

YES.  ADD  THOSE  ROWS  TO  AI  MATRIX  THAT  RESULT  FROH 

INTRPT 

79. 

C 

STATE  TARGET  C0N0S. 

INTRPT 

75. 

00  119  1 r 1,  HTARG 

INTRPT 

76. 

HA  = HA  4 1 

INTRPT 

77. 

K = L 4 I 

INTRPT 

78. 

KOOE  = I TC( I , I ARC) 

INTRPT 

79. 

IF( KOOE  . 6T . Ill  GO  TO  111 

INTRPT 

60. 

C 

SIHPLE  RELATIVE  STATE  HATCH 

INTRPT 

81. 

KODE  = HAP(KODE) 

INTRPT 

82. 

AH  HA,  KODE  4 9)  = 1 

INTRPT 

83. 

C 

COMP.  AND  STORE  TARGET  HISS 

INTRPT 

89. 

PZI(K)  = NOniKOQE)  - VALTCd,  1ARC) 

INTRPT 

85. 

c 

STORE  PARTIALS  OF  HISS 

INTRPT 

It: 

00  l 10  J = 1 , NOCK 

INTRPT 

110  DP210C(K,  .7)  = *$(KODE,  J 4 1) 

INTRPT 

66. 

GO  TO  119 

INTRPT 

89. 

c 

complex  condition  on  state 

INTRPT 

90. 

91. 

92. 

93. 
99. 

9*. 

9*. 

97. 

VO. 

JL8w 


100. 

101. 


102. 

103. 

109. 

105. 

106. 

107. 

108. 

109. 

110. 
111. 
112. 
113. 

l w . 
1 1» . 
1 1*. 
1W. 
1 10. 
1 I*. 
120. 
121. 
122. 
123. 
12*  . 
12>  . 
12*  . 
12/  . 
12#. 
12#. 
130. 
1 31  . 

132. 

133. 
1 3*  . 
13>. 
13*. 


111  1SKIP  = 0 

CALL  PDBCQUKODE,  VAl  SPART,  RUHHV,  1,  ISKIP) 

00  112  J = 1.  9 

112  AH  HA,  J ♦ 9)  = SPARK  J) 

C C0«P.  AND  STORE  TARGET  HISS 

PZI(K)  = VAL  * VAlTC(  I,  I ARC ) 

c conp.  an6  store  partials  of  target  hiss 

CALL  flATHLK  TEMP,  SPART,  S( 1 , 21,  1,  18,  NOCK) 

00  113  J s 1,  NO U 

113  0PZ1  DC(  K , J)  = TEHP(J) 


1NTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 


119  CONTINUE 


ABE  THERE  ANY  COSTATE  TARGETS 


INTRPT 

INTRPT 


115  JF<  NTARG  .LE.  0)  GO  TO  129 

C YES.  COAPLETE  AND  INVERT  THE  AI  MATRIX 

CALL  BASIS! A I flA,  18) 

CALL  6JR V(  AI , 18,  l.E-12,  I ERR ) 

C SET  UP  THE  81  VECTOR. 

KNOCK  = NOC( 1 ARC  + 1 1 

call  REAOAStnl,  SI,  18*<  KNOCK  4 l)  2MARC  4 1) 

CALL  HAT RLT(  ZZ,  SIU,  2),  C,  18,  KNOCK,  1) 

CALL  AATA00(2Z  , 22,  02,  18,  1) 

00  116  I = 10,  U 

81(1  - 9)  s -iZ(I) 

116  BUI)  s NOA(  ) ) 

1F(  IP AY . EQ . 9 . AND . .NOT .(  NBRAN . LT . 1 ARC . AND . I ARC . LT . NF  ARC  ) 1 
481<  17)  s BU  17)  4 l. 

IF  s HA  ♦ 1 
IL  = 18  - HA 
IP  r L 4 HTARG 

C EVALUATE  THE  TRANS.  CONDS. 

CALL  flATHLTCVAL,  81,  AH  I,  IF),  1,  18,  ID 
C StORE  N0N-TR1VIAL  TRANS . CONDS . AS  COSTATE  TARGET 

C HISSES 

00  117  l = I,  NTARG 

K = IP  4 1 

J = ITCT( 1,  I ARC  1 
11,  PZH  K ) = vAl(J) 

C ' COMPUTE  DIVIDED  01FF.  PARTS . W/RESP . TO  THE  C*S  OF 

C THE  COSTATE  TARGET  HISSES 

00  128  IC  = 1,  KNOCK 

C COMP.  STATE/COSTATE  PERT.  THAT  RESULTS  FROM  THE 

C PERT. OF  THIS  C.  LATE  SIOE 

CALL  HATpIlT (02  SKI,  IC  4 1)  OC,  18,  1,  1) 

c Add  state/costaTe  pert,  to  base  value,  late  side. 

call  HATAOO(TOH,  22,  02,  18,  1) 

I F(  IC  - NOCK  - i ) lie,  i 19  1201 

c THIS  C AaS  AN  EFFECT  ON  THE  EARlY  SIOE,  SO  COMP . 

C ITS  EFFECT  ON  THE  EARlY  SIDE  STATE/COSTATE  VECTOR 


INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

SEP  15 

SEP15 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 


118  CALL  PIATHLT(DZ,  5(1,  IC  4 DC,  10,  1,  1)  INTRPT 

CALL  HATADD(NOH,  2,  02,  18,  i)  INTRPT 

60  TO  120  INTRPT 

C THIS  C AND  ALL  SUBSEQUENT  C*S  IN  THIS  LOOP  ARE  NOT  INTRPT 

C TO  HAVE  AN  EFFECT  ON  THE  EARlY  SIOE,  SO  RESTORE  INTRPT 

C THE  EARlY  SIDE  STATE/COSTATE  VECTOR  TO  ITS  BASE  VAL.  INTRPT 


nr 


m-1 


119- 


Trr 


US—.  119-11201-1 


1 


120—1 


C 


«*- 


ISA  . 
1S5. 


1S6. 

is7. 


1 S8 . 
1S9. 

150. 

151. 

152. 

153. 

lbM  . 
1»  . 
1>*. 
1*/  . 
1>«. 
1**. 
UO. 
■U~l~ 


162. 

163. 

US. 

165. 


166. 


d 


U7. 

166. 

169. 

170. 

171. 

172. 
H3. 
l/i  . 
17*  . 


1/*. 
177  . 

w*. 

17*. 

UO. 

1U1. 

172. 


16s 

165 . 
106. 
187. 

166. 


119  DO  1191  1 : l(  18 

1191  worn i > = i(  i > 

120  CALL  FORCES 

_C RECOMPUTE  A1  MATRIX 

1201  DO  121  J s 1,  18 
DO  121  J = 1,  16 

121  Aid,  J>  = 0 
«A  =6 

ASSIGN  122  TO  LABL 
GO  TO  102 

12£  IF<  MTAR6  . LE . 0)  GO  TO  1251 
DO  125  1 = 1,  MTARG 
MA  = MA  ♦ 1 
KOOE  = I TC( I , I ARC  1 
1^( KOOE  .GT.  11 ) 60  TO  123 
KOOE  = MAP(KODE) 

AIIMA,  KOOE  ♦ 9)  = 1 

SO  TO  125 

123  I$KIP  = 0 

CALL  PnACOUKODE,  VAL,  SPAAT,  RUMMY,  1,  ISKIP) 

DO  12S  J = 1.  9 

12S  AHMA,  J 4 9)  = SPART(J) 

125  CONTINUE . 

1251  CALL  BASiS(AI,  MA,  18) 

CALL  GJRVIAl,  18,  l.E-12,  1ERR ) 

C RECOMPUTE  &I  MATRIX 

DO  126  1 = 10,  16 
BH  I - 9)  = -TOM<  I > 

12a  61 ( I ) ~ NOM( I ) 

IFdPAV.EQ.9  AND.  .NOT. (N6RAN.LT. lARC.ANO.lARC.LT. NFARO) 

*6 1 ( 17  ) = 6 1 ( 1 1)  ♦ 1 . 

C REEVALUATE  TRANS.  CONDS. 

CALL  MATMLTIVAL.  61.  Al(l,  IF),  1.  18,  1L> 

C COMP . AND  STORE  OlVlOEO  01FF.  PARTS. W/RESP  TO  THIS 

C C OF  THE  COSTATE  TARGET  MISS. 

DO  127  I - 1,  NTAR6 
1 : IP  ♦ I 
J * I TCT< I,  I ARC  ) 

12,  DP  2 1 DC(  K,  lC>  = (VALtJ)  - PZKK))/OC 

12*  CONTINUE 

129  L = L ♦ MTARG  ♦ NTARG 

C UPOATE  NUMBER  OF  STATE  AND  COSTATE  TARGET  MISSES 

C COMPUTED  SO  FAR 

RETURN 
ENO 
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INTRPT 

INTRPT 


INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 


1251 


123- 


INTRPT 

INTRPT 

INTRPT 

INTRPT 


INTRPT 


INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

SEP15 

SEP  15 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 


INTRPT 

INTRPT 

INTRPT 

INTRPT 

INTRPT 
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102- 

i 

f 


C 


FORTRAN 

SYMBOL 

MATH 

5VMB0L 

code  DESCRIPTION 

STORAGE 

5UBR0U 

n* 

E USAGE; 

BLOCK 

iloc 

SUBR 

m 

E VAR  ; 

C 

c 

1 A forty  mord  irrav  containing  -the  vector  of  c#». 

/D 

n 

11) 

BNDRY 

i 

t 

1 . c . the  multipliers  for  the  homogeneous 

BHANPT 

i 

C 

so  1 ut ions . 

GROPE 

i 

C 

1NTRPT 

i 

c 

NEUCS 

M 

c 

nlorv 

I 

c 

NOMNAL 

1 

c 

bJRAPUP 

I 

c 

DC 

Ac . 

1 Snell  perturbation  of  a c. 

/EVAL 

/( 

667  ) 

BNORY 

D 

DC 

1 

BRANPT 

I 

DC 

ENDPT 

I 

DC 

1 NTRPT 

r 

DC 

OZ 

I An  16  nord  array  that  contains  the  second  tern  on 

/EVAL 

/< 

8v9  ) 

BRANPT 

i 

OZ 

«ic  | n j v I l 

the  right  hand  side  of  Equation  17.4-lt  of  Ve J . I of 

ENDPT 

i* 

DZ 

this  document . 

I NTRPT 

i 

OZ 

GR 

Q 

I Gravitational  acceleration  at  surface  of  the  eartb. 

/6L0BAL/1 

1 ) 

AL5 

i 

GR 

’r 

(FT/SEC2) 

APPLY 

i 

GR 

BRANPT 

i 

GR 

COSTAB 

i 

GR 

C05TAI 

i 

6R 

1 NTRPT 

i 

GR 

OUTPUT 

i 

GR 

PDBCOL 

i 

GR 

QLTOSZ 

i 

GR 

SALVE 

i 

GR 

STATEF 

i 

GR 

. 

. 

- — 

. 

_ . 

TH5.  _ 

i 

GR  _ 

I ARC 

I 

/cntrl 

/< 

2V  ) 

ARCIN 

i 

I ARC 

BCOND 

A 

l ARC 

BNORY 

n 

1 ARC 

BRANPT 

l 

I ARC 

CHECK 

A 

1 ARC 

COSTAB 

1 

I ARC 

COSTAI 

I 

1 ARC 

ENDPT 

I 

I ARC 

FORCES 

I 

I ARC 

INARC 

A 

1 ARC 

I NTRPT 

I 

I ARC 

MAGIC 

M 

I ARC 

MARCH 

I 

I ARC 

QLTOSZ 

I 

I ARC 

SALVE 

M 

I ARC 

WRAP  UP 

A 

I ARC 

!IC 

1 A 10x20  array  containing  the  Initial  condition 

/block 

/< 

1 ) 

BCOND 

A 

IIC 

codes  for  the  OL  state  vector.  The  colunns 

BRANPT 

I 

IIC 

correspond  to  subarc  starting  points,  the  roes,  to 

CHECK 

I 

IIC 

QL  state  variables. 

COSTAB 

I 

IIC 

COSTA! 

I 

nc 

costao 

I 

IIC 

I NTRPT 

I 

IIC 

y 

SALVE 

I 

lie 

1TC 

I A 10x20  array  containing  the  initial  condition 

/BLOCK 

/< 

MO  I ) 

0CONO 

0 

ITC 

codes  for  the  OL  costate  vector.  The  colunns 

BRANPT 

I 

ITC 

correspond  to  subarc  starting  points,  the  rons,  to 

CHECK 

I 

ITC 

QL  tostate  variables. 

COSTAB 

1 

nc 

COSTAI 

I 

ITC 

ENDPT 

I 

ITC 

I NTRPT 

I 

ITC 

ITCT 

t A 10x20  array  containing  the  QL  costate  analog  to 

/BLOCK 

/< 

621  ) 

BCOND 

0 

I TCT 

the  array  MCT.  The  colunns  correspond  to  subarc 

BRANPT 

I 

I TCT 

end  points.  The  nonzero  entries  in  a cclunn  are 

CHECK 

I 

I TCT 

the  numbers  of  those  components  of  the  vector  8 in 

COSTAB 

0 

ITCT 

Equation  16.6-3*1  of  Volume  I of  the  PAOS  document 

COSTAI 

0 

ITCT 

that  contain  the  value  of  a costate  target 

I NTRPT 

I 

ITCT 

condition  that  applies  at  tha  end  of  the 

MAGIC 

0 

ITCT 

corresponding  subarc . 
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FORTRAN 

SYMBOL 


NATH 

SYMBOL 


COOE 


DESCRIPTION 


STORAGE  SUBRO^TiNf-  gSAfrfc 

BLOCK  To2  SUBRCObl  VAR 


JTAB 


L 


LTAB 


n 


HAP 


NBRAN 


NF  ARC 


NOC 


NOCK 


I 


H 


I 


1 


I 


I 


I 


1 


I 


An  array  containing  the  nuaber  of  nonzero  entries 
in  each  cofuan  of  the  array  IlCT. 


Total  nuaber  of  target  conditions  to  satisfy  in  the 
prob I aa. 


An  array  containing  the  nuaber  of  nonscro  entries 
in  each  coluan  of  the  array  ITCT. 


Haas 


( 6*  S ) 


A 10  »ord  array  that  aaps  the  steepest  descent 
state  vector  Into  the  QL  state  vector. 


Nuaber  of  the  last  subarc  on  the  stea  of  a branch 
problea.  If  the  problea  is  not  a branch  problea, 
then  NBRAN  = 0. 


Nuaber  of  the  last  subarc  on  the  first  branch.  If 
the  problea  Is  not  a branch  problea,  then  NF  ARC  = 
NARC. 


An  array  containing  a running  total  of  the  nuaber 
of  free  ( unknom)  state  and  costate  variables  at 
the  start  of  each  sub arc. 


The  nuaber  of  c*s  in  the  vector  Ci  defined  by 
Equation  17.9-9  of  Vo  I . i of  this  document. 


/BLOCK  /( 


/EVA L /( 


/BLOCK  /( 


/ D /! 


/EVAL  /! 


/GLOBAL/! 


/GLOBAL/! 


/BLOCK  /! 


/EVAL  /! 


601  ) BCOND 

n 

JTAB 

BRANPT 

I 

jtab 

CHECK 

I 

JTAB 

COSTAB 

I 

JTAB 

COST  AI 

I 

JTAB 

ENOPT 

1 

JTAB 

INTRPT 

I 

JTAB 

MAGIC 

I 

JTAB 

868)  BNDBY 

H 

L 

BRANPT 

M 

L 

ENOPT 

a 

L 

INTRPT 

n 

L 

821 > BCOND 

0 

ltab 

BRANPT 

I 

ltab 

costab 

0 

LTAB 

costai 

0 

ltab 

INTRPT 

I 

ltab 

MAGIC 

M 

ltab 

97)  ALT 

I 

n 

AL7 

I 

H 

alb 

I 

H 

AL9 

I 

n 

APPLY 

I 

H 

BRANPT 

I 

N 

COSTAB 

I 

H 

C05TA1 

I 

H 

INTRPT 

1 

M 

NLDRV 

I 

H 

OUTPUT 

I 

A 

SALVE 

I 

H 

STATEF 

1 

A 

HR  AP  UP 

I 

A 

20)  BNORV 

D 

NAP 

BRANPT 

I 

NAP 

ENOPT 

I 

NAP 

INTRPT 

I 

RAP 

19)  BNORV 

I 

NBRAN 

BRANPT 

I 

NBRAN 

COSTAB 

I 

NBRAN 

ENVPRQ 

I 

NBRAN 

INTRPT 

I 

NBRAN 

HAG1C 

1 

NBRAN 

QLT05Z 

I 

NBFAN 

SALVE 

I 

NBRAN 

20)  BCOND 

I 

NF  ARC 

BNORV 

I 

NFARC 

BRANPT 

1 

NF  ARC 

COSTAB 

I 

NFARC 

ENVPRQ 

I 

NFARC 

INTRPT 

J 

NFARC 

MAGIC 

I 

NFARC 

qltosz 

I 

NFARC 

SALVE 

I 

NFARC 

8*42  ) BNORV 

I 

NOC 

BRANPT 

I 

NOC 

COSTAB 

0 

NOC 

COSTAI 

0 

NOC 

COSTAO 

0 

NOC 

INARC 

I 

NOC 

INTRPT 

I 

NOC 

SALVE 

I 

NOC 

HRAPUP 

I 

NOC 

70)  BNDRY 

n 

NOCK 

BRANPT 

i 

NOCK 

ENDPT 

i 

NOCK 

INTRPT 

i 

NOCK 
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s / ; 


FORTRAN 

SYMBOL 


RATH 

SYMBOL 


CODE 


DESCRIPTION 


storage 


BLOCK 

LOC 

5UBR 

CODE  VAR 

/D 

/( 

91  ) 

AL1 

I 

V 

AL« 

I 

V 

AL7 

I 

V 

AL8 

1 

V 

AL9 

I 

V 

BCOND 

I 

NOA 

BNDAY 

0 

NO  A 

BRANPT 

a 

NOA 

contrl 

I 

V 

ENOPT 

1 

NOA 

EWVPAO 

1 

V 

FETCH 

0 

NOA 

INTER? 

a 

V 

INTRPT 

a 

NOA 

- 

nlorv 

0 

NOA 

NLORV 

1 

V 

OUTPUT 

1 

V 

POBCCL 

1 

V 

5TATEF 

1 

V 

HR  AP  UP 

1 

V 

/eval 

/( 

30) 

BNDRV 

1 

PZI 

BRANPT 

a 

PZI 

ENDPT 

A 

PZI 

INTRPT 

A 

PZ! 

/Eval 

/( 

71  ) 

BNDRV 

I 

S 

BRANPT 

I 

S 

ENOPT 

I 

s 

. - - 

INTRPT 

I* 

s 

/EVAL 

/( 

869  ) 

BRANPT 

1 

SI 

INTRPT 

1 

SI 

/EVAL 

/( 

2 ) 

BNDRY 

0 

SPART 

BRANPT 

I 

SPART 

ENDPT 

I 

SPART 

INTRPT 

1 

SPART 

/EVAL 

/{ 

809  ) 

BRANPT 

I 

TEAP 

ENDPT 

I 

TEAP 

INTRPT 

1 

TEAP 

/BLOCK 

/( 

1062  ) 

BCOND 

0 

VALTC 

BRANPT 

I 

valtc 

CHECK 

I 

VALTC 

ENDPT 

I 

VALTC 

INTRPT 

I 

valtc 

n 

/( 

1 ) 

BNDRY 

1 

z 

BRANPT 

1 

z 

ENOPT 

I 

z 

ENVPRO 

I 

z 

INTERP 

0 

z 

INTRPT 

I 

z 

LI  NOR  V 

I 

z 

NOANAL 

A 

z 

OUTPUT 

I 

z 

RKUTT1 

0 

z 

RKUTT2 

A 

z 

SALVE 

A 

z 

URAPUP 

A 

z 

/D 

/( 

151  ) 

BCOND 

0 

ZSAVE 

BRANPT 

ZSAVE 

COSTAB 

ZSAVE 

COSTA  I 

ZSAVE 

INTRPT 

ZSAVE 

POBCOL 

ZSAVE 

SALVE 

ZSAVE 

NOR 


P2I 


SI 


SPART 


TEAP 


VALTC 


A Relative  v«  I oc \ if . 


(FT/SEC  > 


( a^/ac,  )T 


A <40  nord  array  that  contains  the  target  condition 
■issci  for  all  the  target  conditions  t n the 
pr  ob  t 

An  181*41  array  used  to  store  the  particular  and 
hoBogeneou*  solutions  on  the  early  side  of  a corner 
point. 

An  I8x*il  array  used  to  store  the  particular  and 
hoaogeneout  solutions  on  the  late  side  of  a corner 
point. 

An  18  »ord  array  shoit  first  nine  entries  receive 
the  values  of  the  partial  derivatives  nr t the  state 
of  those  target  conditions  computed  in  subroutine 
PDBC8L. 

A *4 0 »ord  array  that  contains  the  transpose  of  the 
vector  defined  by  Equation  17.  *4-9  of  Vo  1 . 1 of  this 
docuaent. 

A 10x20  array  containing  the  desired  values  of  the 
state  target  conditions  phosc  codes  appear  in  the 
ar  r ey  1 I CT  . 


A 20  sord  array  used  to  store  the  total  linear 
solution  froB  the  preceding  QL  iteration. 


ZSAVE 


A teenty  nerd  array  containing  the  values  fro*  the 
initial  arc  of  the  state  and  costate  at  the  Initial 
point  of  the  trajectory. 
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SUBR0UTINE 

LINDRV 


Purpose 

LINDRV  computes  the  quasi  time  derivatives  of  the  particular  and  homo- 
geneous solutions.  These  derivatives  are  defined  by  Equations  17.1-9 
and  17.1-10  in  Vol.  I. 


LINDRV 


1 . 

SUBROUTINE  LINDRVIY.  P ) 

LINORV 

2. 

c 

L ! NDR V 

3, 

c 

THIS  ROUTINE  COMPUTES  THE  DERIVATIVES  OF  THE  PARTI- 

LINORV 

A. 

c 

CULAR  AND  HOMOGENEOUS  SOLUTIONS 

L I NDR V 

5. 

c 

LINORV 

6. 

COMMON  /JACOB/  JAKEMOO) 

JACOB 

7. 

COMMON  /2/  2(50) 

2 

8. 

COMMON  / 20/  ZD(50> 

ZD 

9. 

COMMON  /CNTRL/ 

CNTRL 

10. 

♦ NU  .ITER  , f TAPA  , f TAPS  ,J  MAX  L IN£5  .KPT  . MOM  , 

• KARO  . I N0X(  4 ) .NEWNOM.CNTOU.RHOC  RHOP  .NPT5  .MINES  . 

CN  TfiL 

1 1 . 

CNTRL 

12. 

*KP  AGE  . NNP  .NUP  .URC  . TRSTR  .1MAX  KT  I ME  .KONVER . NOPRNT  . 

CNTRL 

13. 

•INSDRY.NUPAGE, I V AR V ( 20  ) NN.  NOVARY,  PlAST.  ZLAST.  KOOE5 

CNTRL 

1H. 

LOGICAL  INBDRY.  NEUNOin  KONVER.  NOPftNT.  NUPAGE 

CNTRL 

15. 

COMMON  /PC/ 

PC 

16. 

♦ PCI  .N  . PC3  - 1 DP  . PCS  . PC6  PC7  MAXBC  .NAUX 

DIMENSION  P(  20),  Y<  1).  F<  1) 

IF(NEUNOM)  CALL  NLDR V( Z,  ZD) 

PC 

17. 

1 a 

LINORV 
LI NDR V 

i 

w. 

*o. 
1 1. 

NEWNOfl  = .FALSE. 

LINORV 

NP1  = N ♦ 1 

lindrv 

CALL  MATMlT(F( NP1  ).  JAKE.  V(NP1),  N.  N.  MOM) 
CALL  MATSUBIP,  V.  Z,  N.  i ) 

CALL  MATMLTtF,  JAKE.  P.  N.  N 1) 

L 1 NDR  V 

LINDRV 

‘ 2 . 
* 3. 

LINORV 

call  matadd(F,  f.  zb,  k.  i> 

LINDRV 

«** . 
*5. 

14 

RETURN 

lindrv 

END 

lindrv 
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FORTRAN  WAT  M 

S YWBOL  SYWBOL 

— - ■-  ■ 


CODE 


DESCRIPTION 


BLOCK  10^ 


SUBROUTINE  USAGE 
SUBR  CODE  V Ah 


JAKE 


WOW 


N 


NEWNOW 


z 


ZD 


1 


I 


An  16x18  arr»y  defined  by  Equation  17.5-5  in  Vo  1 . 1 
of  this  document.  The  entry  in  the  i-th  roe  and  j 
th  coiuen  is  the  total  partial  derivative  of  the 
quasitiee  derivative  of  the  Y,  component  of  V eith 
respect  to  the  V*  coaponent  of  V , i.e.. 


ahere 


8Y,/av-, 

VT  * CyT,  XT) 


The  nuaber  of  hoaogeneous  solutions  currently  being 
i ntegrated. 


/JACOB  /( 


/CNTRL  /( 


t Total  nuaber  of  QL  state  and  costatc  variables-  N /PC  /( 
= IS. 


n A logical  flag  that  Indicates  to  the  Runge-Kutta  /CNTRL  /( 

integration  ehether  or  not  the  systea  Jacobian 
needs,  to  b*  reevaluated. 


I A 20  nord  array  used  to  store  the  total  linear  /Z  /( 

solution  free  the  preceding  OL  iteration. 


I A 20  nerd  array  containing  the  vector  f(X,Z,W)  in  /ZD  /( 
Equation  17.1-7  in  Vo  I . I of  this  docuaent. 


1 ) LINORV  I JAKE 
NLDRY  W JACOB 
NLORV  W VOV 
SALVE  0 JAKE 


5)  GROPE  0 WOW 
INARC  W WOW 
UNORV  1 WOW 
NOWNAL  1 WOW 
SALVE  * W WOW* 
WRAP  UP  W WOW 

2)  BNORY  I N 
CHECK  1 N 
INARC  I N 
LINDRV  I N 
NLDRV  I N 
NOWNAL  I N 
RKUTT1  I N 
SALVE  I N 
WRAPUP  I N 

15)  1NTERP  0 NEWNOW 
LINDRV  W NEWNOW 

. RKUTTJ  0 .NEWNOW 
SALVE  0 NEWNOW 
WRAPUP  0 NEWNOW 

1 ) BNDRY  I 
BRANFT  I 
ENDPT  I 
ENVPRQ  I 
INTERP  0 
INTRPT  I 
LINORV  I 
NOWNAL  W 
OUTPUT  1 
RKUTT1  0 
RKUTT2  R 
SALVE  W 
WRAPUP  W 

1)  ENVPRQ  I 
LINORV  I 
OUTPUT  I 
RKUTT2  I 
WRAPUP  I 
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SUBR0UTINE 

MADAMS 


Purpose 

MADAMS  carries  out  the  fourth  order  Adams -Moulton  integration  of  the 
particular  and  homogeneous  solutions,* 


•See  Section  17.6  of  Vol.  I. 


MADAMS 


JL 


1. 

2. 
3. 
H. 

5. 

6. 

7. 

8. 
9. 

j!: 

I: 

h- 

S: 

M: 

19. 

20. 
21. 
22. 
23 
29. 

25. 

26. 

27. 

*6. 

29. 

30. 

31. 

32. 

33. 
3q. 
3». 

It: 

38. 

39. 
90. 
HI . 
HZ. 
H3. 
HH. 
H5. 

H*. 
H7  . 
H0. 
H9. 
>0. 
>1. 
>2. 
63. 
6*4  . 

ll: 


SUBROUTINE  MADAMS 

THIS  ROUTINE  CARRIES  OUT  THE  FOURTH  OROER  AOAMS- 
MOULTON  INTEGRATION  OF  THE  PARTICULAR  AND  HOMO- 
GENE0OS  SOLUTIONS 

COMMON  /CNTRL/ 

*NU  , I TER  .ITAPA  ,ITAPB  ,JMIN  ,JPIAX  .LINES  ,KPT  ,MOM 

♦ HARD  , l NO  XI  H I , NEUNGM, CNTQ16 ,RHOC  ,RHOP  ,NPTS  MINES  # 

♦ KP AGE  , NNP  ,NUP  . I ARC  , T fi  $ T R ,IM AX  'kTIME  , KONVER,NOPRNTf 

♦INBORV.NUPAGE.IVARYCJO),  NN,  NO VARY  PLA5T . ZLAST,  K0DE5 

LOGICAL  INBORY,  NEWNOM,  XONVER,  NOPRNT.  NUPAGE 
COrmON/GLOBAL/ 

»GR  , ER  .OrtGZ  , XLArtRF,  YMURF  ,LUM  , TO  , EPSlON,  I NNER  , 

•ITRMAX.JJOPI  67  , l F AT  AL  . NARC  NBR  AN  'nFARC  ,IO(H>  ,KTAB120), 

* I TABl  20  ) SIG.MAXTAB, GM, PSIhF  , IPFLS1, 1PFlG2, 1PFL&3, JPFlGH, 

* I NEOF Ll  20  ) , ITP50,  XSOL,  INARK .KGLOBLl 7 > 

real  magbv,  mu,  m,  lv,  lgam,  lPsi.  lr,  lrho,  lmu,  lm,  ltau,  no m 

LHT 

common  /o/ 

*X,  M.  XIlH),  MAGBV  ERR,  09,  010,  ClHO),  C5AVE<H0),  V,  GAM,  P$I, 

*alt,rho,ku,m,  tau,  ht,  lv.  l&aiv  lpsi.  lr,  lrho,  lmu.  lm,  ltau, 

•LHT^  D 1 69 . 0110,  &V(s6>,  ZSAVE<$0),  Ct(20},  NP0INT(20),  $ElT126> 
OIMENSION  HOMZQ) 

EQUIVALENCE  l NOW,  V) 

COMMON  /Y/  Y( 820 j 
COMMON  /F/  f ( 820  H) 

COMMON  /STUFF/  Fit  820  J , F2(  820)f  YP(  820),  YC1820) 

0IMENSI0NCC15 ),  P(H) 

DATA  CC  /- 1 9 . , 106..  -26H.,  6H6.,  251./, 

*Pll),  P(2),  P(3),  Pi  H )/  -9 . , 37.,  -59.,  55,./ 

SET  scaling  factors  and  initialize  predictor  ano 

CORRECTOR 

HP  = H/2H. 

HC  = H/720. 

DO  1 I = 1.  NN 

ypu  > = vi  n 

1 ycc  n = vc  1 > 

ACCUMULATE  FIRST  four  TERMS  OF  PREO.  ANO  CORA. 

DO  2 K = 1,  H 
L = IN0X(  X j 
TP  = HP#P<X> 

TC  = HC*CCl A > 

DP  2 I = 1,  UN 
Fit  = F(  I L) 

YPl I ) = Y^t I ) + TP*FIL 

2 VC(I)  = YCU)  ♦ TC*FIL 

INCREMENT  INOEP.  VAR.  ANO  AOO  LAST  TERM  TO  CORR . 

X = X ♦ H 

CALL  LlNDRVlYP,  FI) 

TC  = HC*CC<  5 > 

00  3 I = I NN 

3 YCll)  - YC(l)  4 TC*F1(I) 

J = 1 , 

MORE  INNER  LOOPS. 


MAOAMS 

MADAMS 

MAOAMS 

MADAMS 

MAOAMS 

MAOAMS 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

D 

0 

D 

0 

JUL21 

D 

0 

0 

V 

F 

MADAMS 

MADAMS 

MAOAMS 

MAOAMS 

MADAMS 

MAOAMS 

MAOAMS 

MAOAMS 

MADAMS 

MAOAMS 

MAOAMS 

MADAMS 

MAOAMS 

MADAMS 

MADAMS 

MADAMS 

MADAMS 

MAOAMS 

MAOAMS 

MAOAMS 

MADAMS 

MADAMS 

MADAMS 

MADAMS 

MADAMS 

MADAMS 

MADAMS 

MADAMS 

MAOAMS 


[ 


57. 

56. 

59. 

60. 
61  . 
62. 
63. 
6 H. 

. 


H IFl  J .GE.  INNER)  GO  TO  6 

YES.  MARE  PRED.  = CORR.  ANO  UPDATE  CORR. 

CALL  LlNDRVtYC,  FZ) 

DO  5 1 = 1.  NN 
VP( I ) = YCt I ) 

YC(  1 ) = YCl  I ) 4 TC*(  F2C  I ) - Fill)) 

5 Fill)  = F21I) 

J = J 4 I 

GO  TO  H 

ROTATE  INDEX  POINTERS  ANO  SET  INTEGRAL  = CORK. 


MAOAMS 

MAOAMS 

MAOAMS 

MADAMS 

MADAMS 

MADAMS 

MAOAMS 

MADAMS 

MAOAMS 

MAOAMS 


67. 

6 ISAVE  = INDXl  1 ) 

MAOAMS 

68 . 

1 NOX( 1 ) s INDXl 2 ) 

MADAMS 

69. 

1 NDXl  2 ) = 1NDX13) 

MADAMS 

70. 

INDXl  3)  = 1KDUH) 

madams 

71. 

INDXIH)  s ISAVE 

MADAMS 

72. 

DO  8 I = 1.  NN 

MAOAMS 

73. 

8 Y(  I ) = YCl  1 ) 

madams 

in  . 

CALL  Ll NQR Vt  Y FI  1,  ISAVE)) 

- 

MAOAMS 
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AAOAAS 

AADAAS 


75.  RETURN 

76.  END 


FORTRAN 

SYMBOL 


F 

FI 


H 


I NDX 


INNER 

KH 


X 


Y 


RATH 

SYftBOl 


h 


code  DESCRIPTION 


I An  82019  array  used  to  store  the  victor  i 
ki,  fcj,  k3'  inrf  kH  defined  by  Equations 
17.6-7  thru  -10  of  Vo  l . I of  this  document. 

R An  820«9  array  used  to  store  the  vectors  kj,  k£. 

It 3 ^ and  k*  defined  by  Equations  17.6-2  thru  -5  in 
Vol.l  of  this  document. 

I Integration  step  size  in  quasitiae. 


R An  array  of  four  sords  that  indicate  to  Adaas- 

Rouiton  integration  in  ahat  order  the  derivatives 
of  the  particular  and  hoaogeneous  solutions  are 
stored. 

I Nuaber  of  Adaas - No u I ton  inner  loops. 

I The  ngaber  of  quantities  currently  being 
nvaericaJiy  integrated. 


N The  quasitiae  variable. 


R An  620  aord  array  containing  the  particular  and 

hoaogeneous  solutions  being  integrated.  The  first 
16  aords  coaprise  the  particular  solution.  Each 
block  of  16  aords  thereafter  coaprises  an 
independent  hoaogeneous  solution. 


ST0RA6E 


BLOCK 

LOC  subr 

CODE  VAR 

/F 

/( 

1 > RADARS 

I 

F 

SALVE 

I 

F 

/STUFF 

/( 

1 ) RADARS 

R 

FI 

RAUTT1 

I 

FK 

RKUTT 1 

0 

FS 

/D 

/( 

2 ) AL9 

I 

H 

INARC 

R 

H 

RADARS 

I 

H 

RKUTT1 

1 

H 

RKUTT2 

1 

H 

SALVE 

R 

H 

UR  AP  UP 

R 

DT 

/CNTRL 

/( 

1 1 ) BC0N0 

R 

1 ND1 

RADARS 

R 

INOX 

SALVE 

0 

INDX 

/ 6lOBAL/( 

9)  CHECK 

A 

INNER 

RADARS 

I 

INNER 

/CNTRL 

/( 

52  ) BNORY 

R 

NN 

INARC 

R 

NN 

RADARS 

I 

NN 

RAGIC 

R 

NN 

NORNAL 

1 

NN 

RKUTT 1 

r 

NN 



R6UTT2 

i 

NN 

SALVE 

R 

NN 

URAPUP 

R 

NN 

/D 

/( 

1 > AL9 

I 

X 

BNDRV 

0 

X 

t 

ERROR 

I 

X 

FETCH 

0 

X 

FORCES 

I 

X 

! NARC 

R 

X 

JNTERP 

1 

X 

RADARS 

R 

X 

RKUTT 1 

R 

X 

RKUTT2 

R 

X 

SALVE 

R 

X 

STATEF 

1 

X 

URAPUP 

R 

TT 

/Y 

/( 

1 ) GROPE 

D 

Y 

I NARC 

R 

V 

RADARS 

R 

V 

QLTOSZ 

I 

Y 

RKUTTJ 

R 

Y 

salve 

R 

Y 

URAPUP 

I 

Y 
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Purpose 


MAG  computes  the  magnitude  of  a vector  v drawn  from  the  Euclidean  space 
En.  This  magnitude  is  defined  as 

IMI  = I vi I • 

i = l 


mag 


1.  FUNCTION  M6(  V,  N) 

2.  REAL  NAB 

3.  C 

H . C THIS  SUBPROGRAM  COMPUTES  THE  SCALER  MAGNITUDE  OF  THE  VECTOR  V. 

5.  C 

6.  DIMENSION  VI N > 

7.  C 

8.  SUM  = 0. 

9.  DO  I I = 1,  N 

10.  I SUM  = SUM  ♦ ABS( V( 1 ) ) 

11.  MAC  = SUM 

12.  RETURN 

13.  EMO 


MA6 

HAG 

MAG 

MAG 

MAG 

MAG 

MAG 

MAG 

MAG 

MAG 

MAG 

MA6 

MAG 
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SUBROUTINE 

MAGIC 


Purpose 

MAGIC  controls  the  determination  of  the  costate  initial  and  target 
conditions  over  all  of  the  coiner  points  in  the  problem.* 


*See  Sections  16.6,  17.1  and  17.2. 
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MAGIC 


SUBROUTINE  «A6IC 

THIS  ROUTINE  CONTROLS  THE  DETERfll NAT  I ON  OF  THE 
COSTATE  INITIAL  AND  TARGET  CONDITIONS. 

COPmON  /CNTRL/ 

*NU  ITER  I T AP A ,ITAPB  .JrtlN  ,JflAX  , LINES  KPT  .MOW 

♦ KARO  ,INOX(H)  .NEWN0rt.CNT0l6.RH0C  ,RHOP  ,NPT$  ,rtINES  , 

♦ KPAGE  , NNP  NUP  I ARC  TRSTR  ,IrtAX  .KTInE  KONVER  NOPRNT  , 
•INBDRY, NUPAGE! I VARV(  20 ),  NN,  NOVARY.  PLAST  ZLAST,  KODES 

LOGICAL  INBDRY,  NEUN0F1,  KONVER.  NOPRNT.  NUPAGE 

COnnON  /BLOCK/  I I Cl  i 0 . 20),  I I CTl  1 0,  z6>,  ITC(10.  20),  JTAB(  20  ), 
MTCTllO,  20).  LT  AB(  20 ),  NOKNOW,  NOCI20),  VALIC110,  20), 

♦VALTCl 10,  20),  IPAY 
COrtftON/ GLOBAL/ 

*GR  ,ER  , OflGZ  XLAflRF  YflUfiF  LUrt  ,T0  , EPSlON, INNER  . 

♦ ITRrtAX, JJOPt fc  ) I F AT  AL  N ARC  NBRAN  , NF  ARC  ,ID(H)  ,KTAB(20>, 

♦ITAB(26>,  SIGrtAXTABGrt,PSlRF  , I PFlG 1 , I P FlG2 , I PFLG3, I PFlGM , 

♦ INEQFH20),  1TPS0.  KSOL,  I NARK , KGLOftLI  7 > 

DATA  PIAGIX  / fcHNAG  I C / 

INITIALIZE  THE  IICT  ANO  1TCT  BLOCKS 
DO  101  I £ 1,  ? 

00  101  J = 1,  NARC 
ITCT(  1 J)  = 0 
1 I ICTl  I J ) = 2 
DO  1011  I = 1,  NARC 
, I ICTl  8,  I ) = 1 

1 ' SET  INTEGRATION  CONTROL  FLAGS  SO  THAT  FORCES  WILL 

WILL  CALL  ARCEN  AND  ARCIW. 

NPTS  = 1 
- KPT  = 1 

DO  1 0*4  I ARC  £ 1,  NARC 

CLEAR  LTA8  ENTRY. 

LTAB( I ARC ) £ 0 

IS  THIS  THE  FIRST  ARC 
IF( I ARC  .GT.  1 ) GO  TO  102 

YES.  INITIAL  POINT. 

call  costao 

GO  TO  I Oh 

IS  THIS  THE  FIRST  ARC  OF  THE  FIRST  BRANCH. 

I I F( I ARC  . NE . NBRAN  4 1)  GO  TO  103 


CALL  COSTAB 
GO  TO  10H 


YES.  BRANCH  POINT. 


IS  THIS  THE  FIRST  ARC  OF  THE  5EC0ND  BRANCH 


I F(  I ARC  .EQ.  NF ARC  4 i)  GO  TO  10H 

NO.  iNTERrtEOIATE  POINT. 

CALL  COSTAI 

CONTINUE 

COMPUTE  TOTAL  NUrtBER  OF  STATE  ANO  COSTATE  TARGET 
CONDITIONS  TO  NATCH 

NCONO  = 9 

I F( NFARC  .LT.  NARC)  NCONO  £ 16 
NN  = NARC  - l 
DO  10S  I ARC  = 1,  NN 

1 FI  I ARC  . EO . NFARC  ) GO  TO  IQS 

NCONO  = NCONO  4 JTABt I ARC  ) 4 LT  ABC  I ARC ) 

HAKE  SURE  NUMBER  OF  TARGETS  EQUALS  NUMBER  OF 
UNKNOWN  INITIAL  VALUES. 

IHNCONP  - NOKNOW ) 116,  116,  117 

CALL  ERROR! WAG1 X,  -1 , 1) 

CALL  ERRORt  rtAGIX.  *2.1) 
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FORTRAN  hath 

SYMBOL  SYMBOL 


CO  OE 


DESCRIPTION 


SIORAfij  iUBPQ^TINO.SA.p. 

block loE  subr  code vm 


I ARC 


I1CT 


1TCT 


JTAB 


KPT 


LTAB 


NARC 


N SPAN 


I 


n Subarc  nuaber. 


/CNTRL  /< 


0 A 10x20  array  containing  the  target  condition  codes  /BLOCK  /( 
for  the  state  vector.  The  columns  correspond  to 
the  subarc  end  points.  The  nomtro  entries  In  a 
coluan  are  the  state  target  condition  codes  that 
apply  at  the  end  of  the  corresponding  subarc. 

0 A 10x20  array  containing  the  OL  costate  analog  to  /BLOCK  /< 
the  array  1 1 CT  . The  celuans  correspond  to  subarc 

end  points.  The  nomtro  entries  In  a coluan  are 
the  nuabers  of  those  coaponents  of  the  vector  0 la 
Equation  16.6-3M  of  Voluac  I of  the  PADS  document 
that  contain  the  value  of  * >o st at e * t ar ge t 
condition  that  applies  at  the  end  of  the 
corresponding  subarc. 

1 An  array  containing  the  nuaber  of  noniero  entries  /BLOCK  /( 
In  each  coluan  of  the  array  1 1 CT . 


0 The  subarc  point  nuaber.  KPT  = 1 on  the  first  /CNTAL  /< 

point  of  subarc,  and  KPT  = NPTS  on  the  last  point 
of  the  subarc . 


fl  An  array  containing  the  nuaber  of  nonzero  entries  /BLOCK  /( 
In  each  coluan  of  the  array  1TCT. 


I Nuaber  of  subarcs  in  the  probiea.  /GLOBAL/! 


I Nuaber  of  the  last  subarc  on  the  stea  of  a branch  /GLOBAL/* 
probiea.  If  tha  probiea  ts  not  a branch  probiea, 
then  NBRAN  = 0. 


2H  ) 

ARCIN 

1 

I ARC 

BCOND 

« 

I ARC 

BNDRV 

n 

I ARC 

BRANPT 

I 

I AR  C 

CHECK 

n 

I ARC 

COSTAB 

i 

I ARC 

COST  AI 

I 

I ARC 

ENDPT 

i 

I ARC 

FORCES 

I 

1 ARC 

INARC 

M 

I ARC 

INTRPT 

I 

I ARC 

RAG I C 

M 

I ARC 

MARCH 

I 

I ARC 

QLTOSZ 

I 

I ARC 

SALVE 

M 

I ARC 

WRAPUP 

M 

I ARC 

201  ) 

CHECK 

I 

II  CT 

COSTAB 

M 

II  CT 

COSTA! 

N 

11  CT 

COST  AO 

0 

II  CT 

MA6IC 

0 

II  CT 

SALVE 

1 

1 1 CT 

621  ) 

BCOND 

0 

I T CT 

BRANPT 

I 

I TCT 

CHECK 

I 

I T CT 

COSTAB 

0 

I T CT 

COSTA  I 

0 

I T CT 

INTRPT 

I 

I TCT 

MAGIC 

0 

I TCT 

601  ) 

BCOND 

ft 

JTAB 

BRANPT 

I 

JTAB 

CHECK 

I 

JTAB 

COSTAB 

I 

JTAB 

COST  A I 

I 

JTAB 

ENDPT 

I 

JTAB 

INTRPT 

I 

JTAB 

MAGIC 

1 

JTAB 

8 ) 

BCOND 

0 

KPT 

BNDRV 

0 

KPT 

FORCES 

1 

KPT 

MA6IC 

0 

KPT 

RKUTT1 

I 

KPT 

SALVE 

M 

KPT 

NRAPUP 

n 

KPT 

821  ) 

BCOND 

0 

LTAB 

BRANPT 

I 

LTAB 

COSTAB 

0 

LTAB 

COST  AI 

0 

LTAB 

INTRPT 

I 

LTAB 

MAGIC 

ft 

LTAB 

16) 

BCOND 

I 

NARC 

BNDRV 

I 

NARC 

CHECK 

I 

NARC 

ENDPT 

I 

NARC 

ENVPRQ 

I 

NARC 

FETCH 

I 

NARC 

INARC 

I 

NARC 

MAGIC 

1 

NARC 

QlTOSZ 

I 

NARC 

Salve 

1 

NARC 

WRAP  up 

I 

NARC 

19) 

BNDRV 

I 

NBRAN 

BRANPT 

I 

NBRAN 

COSTAB 

I 

NBRAN 

ENVPRQ 

I 

NBRAN 

INTRPT 

I 

NBRAN 

MAGIC 

I 

NBRAN 

QLTOSZ 

I 

NBRAN 

SALVE 

I 

NBRAN 
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fortran 

SYMBOL 


rnnr 

SYMBOL  C0Dfc 


DESCRIPTION 




BLOCK  LOC 


SUBROUTINE 
SUBfi  CODE 


NFARC 


NN 


NO KNOW 


NPTS 


I Number  of  the  last  subarc  on  the  first  branch.  If 
the  problem  Is  not  a branch  problem,  then  NFARC  = 
NARC. 


A The  number  of  quantities  currently  being 
numerically  Integrated. 


I The  total  nuaber  of  free  (unknoan)  state  and, 
costate  variables  over  all  the  subarcs. 


0 The  total  number  of  points  In  the  subarc. 


/ GLOBAL/! 


/ CNTRL  /( 


/BLOCK  /( 


/CNTRL  /( 


20)  BCOND 

I 

NFARC 

BNORY 

I 

NFARC 

BRANPT 

I 

NFARC 

COSTAB 

I 

NFARC 

ENVPR0 

I 

NFARC 

INTRPT 

] 

NFARC 

MAGIC 

I 

NFARC 

fl.LT0$2 

I 

NFARC 

SALVE 

I 

NFARC 

52)  BNORY 

M 

NN 

INARC 

M 

NN 

MADAMS 

I 

NN 

MAGIC 

M 

NN 

NOMNAL 

I 

NN 

RKUTT1 

I 

NN 

RKUTT2 

I 

NN 

SALVE 

N 

NN 

WRAP  UP 

M 

NN 

841  ) CHECK 

I 

NOXNQW 

COHOflO 

I 

NOXNOW 

COSTAB 

M 

NO  KNOW 

COSTA  I 

M 

NO  KNOW 

COST  AO 

M 

NOKNOW 

GROPE 

I 

NOKNOW 

MAGIC 

I 

NOKNOW 

19)  BCOND 

0 

NPTS 

BNDBV 

0 

NPTS 

'FORtfS' 

I 

NPTS 

1 NARC 

M 

NPTS 

MAGIC 

0 

NPTS 

SALVE 

M 

NPTS 

WRAP  UP 

0 

NPTS 
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SUBR0UTINE 

MARCH 


Purpose 

MARCH  finds  the  closest  two  points  on  the  initial  arc  file  that  bracket 
the  desired  interpolation  time. 


march 


20. 
21 . 
22. 

100 

I FT  = 3 - IFT 

RE AD(  INARK  ) ( TC  I . IFT). 

1F( EOF, INARK ) 103.  101 

I = 1,  NURDS) 

MARCH 

MARCH 

MARCH 

101  — | 

23- 

101 

TARC  = T(  1 . IFT ) 

MARCH 

2H  . 

I F( JARC  .EO.  IARC)  GO  TC 

102 

MARCH 

102^1 

25  . 

BACKSPACE  INARK 

MARCH 

26. 

BACKSPACE  INARK 

MARCH 

27. 

BACKSPACE  INARK 

MARCH 

_ 

REAO<  INARK  ) < T< I,  IFT ), 

1 = 1,  NURDS) 

MARCH 

*8  . 

IFT  r 3 - IFT 

MARCH 

• 9 . 

.In  - 

RETURN 

~ • 

* march 

31  . 

102 

I F( T( 2 . IFT)  .LT.  TIME) 

60  TO  100 

MARCH 

32. 

RETURN 

MARCH 

1 . 
2. 
3. 
H. 

5. 

6. 

7. 

8. 
8. 

lo. 

U: 

L3: 

Is . 
I*. 

I 7 . 

le . 


SUBROUTINE  MARCH( TIME  I FT  T,  NURDS  1 ERR  > MARCH 

MARCH 

THIS  ROUTINE  FINDS  THE  CLOSEST  TMO  PTS.  ON  THE  MARCH 

initial  arc  file  that  bracket  the  desired  inter-  march 

POLATION  TIME.  MARCH 

MARCH 

COMMON  /CNTRL/  CNTRl 

*NU  , I TER  .ITAPA  .1TAPB  , J n I A*  ,JMAX  .LINES  .KPT  .MOM  , CNTRL 

• KARO  , I NO  X(  M ) NEUN0M.CNT0I6.RH0C  ,RHOP  .NPTS  .MINES  , CNTRl 

• KP AGE  .NNP  .NUP  ,IARC  . TRSTR  .IMAX  .KTlME  KONVER .NOPRNT,  CNTRL 

• INBORV.NUPAGE. IVARVI  iO).  NN.  NOVARY.  PlAST.  2LAST.  K0OES  CNTRL 

LOGICAL  INBDRY.  NEUNOM.  KONVER,  NOPftNT,  NUPAGE  CNTRl 

common/global/  global 

»6R  .ER  CmGZ  , XlAMRF. YflURF  .LUM  .TO  . EP SlON . I NNER  . GLOBAL 

• ITRMAX, JJOPI  6 ) .IFATAL.NARC  .NBRAN  .NFARC  .KTAB(26).  GLOBAL 

• I T AB ( 2w  ) SIG.MAXTAB.GM.PSIRF  . I PFLG 1 , I PFL62. I PFL63. I PFLG^ . GLOBAL 

*INE0FL(26).  itPSO,  KS0L.  I NARK , K6L0BL( 7 > 6L0BAL 

£0UIVALENCE(TARC.  JARC)  MARCH 

DIMENSION  T( NURDS.  2)  MARCH 


33.  103  I ERR  > 
3M.  RETURN 
35 . END 


MARCH 

MARCH 

MARCH 


103 


1 00-* 
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FORTRAN 

SYMBOL 


NATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE 

bl'6ck  loc 


1 ARC 


1 NARK 


I Subarc  figebtr . 


I Lo  q I c a I unit  on  uhich  initial 
art  stored.  INARA  = 11. 


d converged  arcs 


/CNTRL  /( 


/ 6L0BAL/( 


2 9) 

ARCIN 

I 

I ARC 

BCOND 

n 

IARC 

BNDRY 

M 

I ARC 

BRANPT 

I 

(ARC 

CHECK 

M 

1 ARC 

COSTAB 

I 

IARC 

COSTA! 

] 

IARC 

ENDPT 

I 

IARC 

FORCES 

I 

IARC 

INARC 

n 

IARC 

INTRPT 

i 

(ARC 

MAGIC 

M 

IARC 

MARCH 

I 

IARC 

QLTOSZ 

I 

IARC 

- ALVE 

H 

IARC 

WRAP  UP 

n 

IARC 

95  ) 

CHECK 

0 

INARK 

FETCH 

i 

INARK 

INARC 

i 

INARK 

MARCH 

i 

INARK 

WRAP UP 

I 

INARK 

A 
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Purpose 

MATAUD  performs  the  matrix  addition 
S = A ♦ B, 

where  S,  A and  B are  n x m matrices. 


r 


S/7  /s 


HAT  ADD 


SUBROUTINE  MATADD! S,  A,  B,  I,  M>  HATAOO 

' ' ' HAT  ADO 

THIS  ROUTINE  PERFORMS  THE  MATRIX  ADOITION  HAT  ADD 

S=A*B , WHERE  N IS  THE  NUMBER  OF  ROWS  IN  THE  A (B)  MATRIX  AND  H IS  HAT  ADD 
THE  NUMBER  OF  COLUMNS  IN  THE  A (B)  MATRIX . HATADD 

MATADD 

DIMENSION  All).  BC1),  S(I)  HATAOD 

' ' MATADD 

J s N*M  MATADD 

DO  1 I : 1.  J HATADD 

1 SI  I > = At  n ♦ B<  I > MATADD 

RETURN  MATADD 

END  MATADD 
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SUBR0UT INE 
M0MEC0 


Purpose 


MUMP CO  computes  the  aerodynamic  moment  coefficient  Cm.  It  also  computes 
the  partial  derivatives 


3Cm 

dt-m 

32Cm 

32(-m 

jin  rl 

32Cm 

3a 

3M 

3a2  * 

— ui  » U 

3M2 

3a3M 

/>s7  // 


MOMECO 


SUBROUTINE  MOMECO 

THIS  ROUTINE  COMPUTES  THE  MOMENT  COEFFICIENT  AND 
ITS  PARTI ALS 

LOGICAL  SWITCH,  HOAD 

REAL  MACH . ISP,  1SPV,  ISPR,  ISPM,  ISPT,  ISPVV,  ISPVR.  ISPVM, 

• I SP VT,  ISPRR,  ISPRM,  ISPRT,  I5PMM.  ISPMT,  ISPTT,  LIFT,  LIFTV. 

*LI FTR  lifta,  liftvv,  liftvr,  lifTva,  LlFTflR,  LlFTRA,  MUR,  lIftaa, 
♦irate6,  ispf,  ispff 

REAL  MACHV , MACHR , MACHVR,  MACHRR  « 

REAL  LIFTM,  LlFTvft,  LIFTRM,  LIFTMM  LlFTMA 
COMMON  /DYNA/ 

♦XX  ,TIME  ,SINGAM,C0SGAM, OMEGA  ,OME6A2,R  ,G  ,SINA  , 

♦ COSA  0VN011,0MEGAT  T AMP  ,PA  ,RO  ,CS  , TEMPR  ,PAR 

♦ROR  , CSR  , TEMPRR , PARR  RORR  ,CSRR  , KODE  , MACH  ,Q 

♦OV  , OR  , 0 V V ,OVR  ,ORR  FV AC  ,FY ACY  ,FV ACR  ,FVACM  , 

♦FVACT  ,FVACVV,FVACVR,FVACRR,FVACTT,T  MACH V MACHR  ,ISP 

♦ ISPV  , I SPR  , I SPM  , I SPT  ,ISPVV  I SP  VR  ISPVM  ,ISPVT  ,1SPRR  , 

♦ISPRM  , I SPRT  , 1 spmm  'ispmt  'isptt  'lift  'liftv  ,LIFTR  LlFTA  . 

♦liftw.liftvr.uftva'liftrr'liftra^rag  dragv  .oragr  ,oraga  , 

♦DRAGVV,ORAGVR,DRAGVA,ORAGRft,ORAGRA,ORAGAA, ALPHA  ,PHI  ,LlFTM  , 

♦liftvm, liftrm, lift mm  liftmadbr  ,obrr  ,gammad,ae  ,tax 

♦W  SINPHl,CO$PHl,SINPSl)COSPSlSINRHO/COSRHO,SlNRORCOSROR, 

♦MUR  ,XKG  , XKP  , AK 1 N fCOO  ,COOM  ,CLO  ,FK  , XCGM  , 

♦XCGMM  ,ZCGfl  ,ZCGMM  ,XJV  ,XJR  ,XJVV  X JVfi  , XJRR  ,MAC«VR, 

♦MACHRR,SIN2R0,C0S2R0,C0S2GM,CM  ,CMA  , CMM  , CMAA  ,cmmm  , 

♦ CMAM  ,CMO  ,CMOM  .cmomm  ,cmamm  ,ulftv  ,ulftr  , ulftvv, ulftvr 

♦ULFTVA,UlFTRR,ULFTRA  IPOUI  XARC  TSTART,GH  , GRR  ,LlFTAA, 
♦CDOMM  .CLAMM  , CLOM  ,CLOMM  'DYN199,CT  ,CODAE  ,SIDAE  ,COD 

♦SID  ,DELTAE, COE  - ,XCG  ,ZCG  , XJ  , XMCG  , CALP H A , ALMAX  , 

♦ OB  , ULFT  ,CULFT  ,UlFTA  , T5TAGE, TIMES  , XMCGAA, I RATED, FRATED 

COMMON  /OVNA/ 

♦MTT  , J 2 ,J3  ,XMCGA  F V ACF  ,ULFTAA,1SPF  , ISPFF  , 

♦ILOAO  , FKM  , FKMM  , SWITCH  INQF  CL  ,CLA  ,CLM  ,ClAA  , 

♦CLMM  ,CLAM  ,CO  ,COA  ,COM  COAA  COMM  ,COAM  ,OYN198, 

♦OYN199,OYN20O, XMCGV  XMCGR  ,XMCGM  , XMCGVV, XMCGVR, XMCGVM, XMCGVA , 
♦XMCGRR,XMCbRM, XMCGR A XMCGMM  XMCGMA  RORRR  , 0 YN2 1 H , D YN2 l 5 , 0 YN2 16 , 

♦ 0YN2 17,1  DAM  ,TAJRB  TAlRBVTAIRBH,  TARBVV,  TARBHH  TARBvH  SFC 
♦SFCV  ASFCH  ,sfcvv  ,SFCHH  ,sfcvh 

OATA  DEG/57. 2957795130823/ 

CM  = CMO  4 ALPHA*CMA 
CMM  - CMOR  + AlPHA^CMAM 
CMAA  = 0. 

CMMM  = CMOMM  ♦ ALPHA^CRAMM 

RETURN 

END 


MOMECO 

MOMECO 

MOMECO 

MOMECO 

MOMECO 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DVNA 

DVNA 

DYNA 

JUL21 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

OYNA 

DYNA 

DYNA 

DVNA 

DYNA 

DVNA 

DVNA 

DVNA 

DVNA 

DVNA 

DVNA 

DVNA 

OVNA 

DYNA 

OYNA 

DYNA 

DYNA 

DVNA 

JUL21 

AUG09 

MOMECO 

MOMECO 

MOMECO 

MOMECO 

MOMECO 

MOMECO 

MOMECO 


/'Os 


FORTRAN  HATH 

SYMBOL  SYMBOL 


DESCRIPTION 


gg  'SM 


I Angle  of  attack 


CM 

c. 

0 

Mo  mm nt  cea 

CMA 

c.. 

1 

Moaeot  coa 

CMAA 

ac  /a« 

*• 

0 

See  »}ibol 

CMAM 

ac.  /an 

*• 

I 

See  syabal 

CMAMM 

a2C.  /an2 

•• 

I 

See  syabol 

CMM 

ac#/an 

0 

See  syabol 

CMMM 

a2c#/an2 

0 

CMO 

C«. 

I 

Moaant  coal 

CMOM 

ac.  /an 

•o 

1 

Sea  syabol 

cmomm 

a2c.  /an2 

•t 

1 

See  syabol 

/DYNA 

/( 

79) 

AEROCO 

I 

ALPHA 

ALGCON 

M 

ALPHA 

AL2 

1 

ALPHA 

ARON 

M 

ALPHA 

CONTRL 

M 

ALPHA 

ENYPRO 

I 

ALPHA 

MOMECO 

I 

ALPHA 

NP  LANE 

I 

ALPHA 

OUTPUT 

I 

ALPHA 

TRAJ1N 

0 

ALPHA 

UT 

I 

ALPHA 

URAPUP 

I 

ALPHA 

/DYNA 

/c 

122) 

MOMECO 

0 

CM 

UT 

J 

CM 

/ OYNA 

/< 

123) 

MOMECO 

1 

CMA 

STATEF 

M 

CMA 

UT 

I 

CMA 

/ OYNA 

/< 

12S  ) 

MOMECO 

0 

CMAA 

UT 

I 

CMAA 

/DYNA 

/< 

127  ) 

MOMECO 

I 

CMAM 

STATEF 

M 

CMAM 

UT 

I 

CMAM 

/OYNA 

/< 

131  ) 

MOMECO 

1 

CMAMM 

STATEF 

M 

CMAMM 

/DYNA 

/( 

12m  ) 

MOMECO 

0 

CMM 

- 

— 

• 

UT 

r 

CMM 

/DYNA 

/( 

126  ) 

MOMECO 

0 

CMMM 

UT 

i 

CMMM 

/DYNA 

/< 

128  ) 

MOMECO 

i 

CMO 

STATEF 

i 

CMO 

/OYNA 

/< 

129  ) 

MOMECO 

i 

CMOM 

STATEF 

i 

CMOM 

/OYNA 

/< 

130  ) 

MOMECO 

i 

CMOMM 

STATEF 

i 

CMOMM 
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SUBR0UTI.NE 

NEWCS 


Purpose 

NEWCS  controls  the  Newton- Raphson  iteration  for  the  c's.* 


*See  Section  17.4  of  Vol.  I 


MEMOS 


SUBROUTINE  NEMCS(D0,  K> 

THIS  ROUTINE  CONTROLS  THE  DETERlM  NAT  I ON  OF  THE  VALUES 
OF  THE  C*S  THAT  CAUSE  ZERO  TARGET  CONOS.  HISS. 

REAL  RAG 
COfWON  /CNTRL/ 

*NU  -ITER  .ITAPA  ,ITAPB  ,JflIN  ,JflAX  ,LlNE$  ,APT  ,ROR 
♦KARO  , INOX( Hi  , NEWNOR,CNT01 6 RHOC  ,RHOP  ,NPTS  ,RINE$  , 

#KPA6£  >NP  ,NUP  , I ARC  , TRSTR  , IRAX  . X T 1 RE  , A0NVER,NOPRNT, 
•INBDRY.NUPAGE,  IVARY(ZO),  NN,  NOVARV,  PLAST,  ZLAST,  (CODES 
LOGICAL  INBDBV,  NEWNOR,  AONVEB,  NOPftNT,  NONAGE 

REAL  RA6BV,  RU,  R,  LV,  LGAR,  LPSl,  LR,  LRHO,  LRU,  LR,  LTAU,  NON 

• , LHT 
CORRON  /O/ 

• X,  H,  Xl(9>,  RAGBV,  ERR.  09,  DIO,  CMO),  CSAVE(SO),  V,  GAR,  PSI, 
*ALT,RHO,RU,R,  TAU,  HT,  LV,  LGAR.  LPSI,  LR,  LRHO,  LRU.  LR,  LTAU, 
*LHT'  Dl69,  D110,  &VM0),  ZSAVE(iO),  0 1 < 20  ),  NP0lNT(20),  6elT(20) 

OIR^NSION  NORC20) 

EQUIVALENCE  (NOR,  V) 

OIAENSION  DELC( hO)  DO (A,  A),  PZI(NO) 

DATA  XNEMCS  /6H  NEUCS/ 

} FDBRATUHO,  25H$0LUTJDN  FOR  C'S  FOLLOWS . ) 
l FORRAT(  IH  , IH  > 

3 FORRATOH  , 3HC=  , 5E15.T) 

* FORAAT<  IH  , 3HE=  , 5E15.T) 

MR  I TEC  6,  1) 

CLEAR  C VECTOR,  DIVERGENCE  COUNTER  AND  CONVERGENCE  FlAS. 
SET  CURRENT  ERROR  AETRIC  TO  LARGE  NUABER. 

00  101  I S 1,  I 
1 C(  I ) = 0 
IOIV  =0 
DlCBAR  = 1.E3B 
AON  = 0 

START  ITERATION 
DO  105  IT  = 1,  25 

clear  partial  matrix 

00  102  I - 1,  K 
DO  102  J = 1,  A 
l 00(1,  J>  = 0 

EVAL.  TARbET  R1SSES  AND  PARTS.  U/RESP . TO  C«S. 

CALL  BNORVC  PZI , 00,  A) 

SAVE  LAST  ERROR  RETRIC  AND  CORP . NEW  ONE. 

OLPflAR  = OLC0AR 

DLCBAR  = RAG(PZI,  A 1/RA6BV 

are  me  Converged 

IFCOlCBAR  .GT.  ERR)  GO  TO  1021 
VES.  SET  CQNV.  FLAG 

AON  % 1 
GO  TO  ION 

DID  ME  DIVERGE . 

1 IFCOLCBAR  .lE.  OlPBAR  ) GO  TO  103 

YES.  INCRERENT  OTVERGENCE  COUNTER 
IOIV  = IOIV  ♦ 1 

HAVE  ME  ACCURULATEO  5 DIVERGENCES 
I F( IOIV  .EQ.  5)  CALL  ERROR( XNEMCS,  -1,0) 

GO  TO  10H 

CONVERGING.  OECRERSNT  DIVERGENCE  COUNTER 

I IOIV  = RAX0(0,  IOIV  - 1) 

INVERT  partials  ratrix 

I CALL  GJRV( DO,  A,  l.E-12,  1 ERR  ) 

RAAE  SURE  INVERSION  OA . 

IFCIERR  .NE.  0)  CALL  ERRORC  XNEMCS,  -2,  1) 

UPDATE  C VECTOR 

CALL  RATRLTCOELC,  DO,  PZI,  A,  A,  1) 

CALL  «ATSUB(C,  C,  OELC,  A,  l) 

1F( AON  .NE.  0)  60  TO  110 
CONTINUE 

RAN  OUT  OF  ITERATIONS.  SHALL  WE  CALL  IT  CONVERGED 
anymav 

IFdOlV  .NE.  0)  CALL '£RROR<  XNEMCS,  >3,  0) 

MR  I TE(  6,  2) 


NEUCS 

NEWCS 

NEWCS 

NEUCS 

NEUCS 

NEUCS 

NEUCS  110- 
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Vi  UR  I TE(  6 1 31  (C(IJ),  IJ  = 1,  *J  MENCS 

75.  yR I TE<  6 , ( PZIC 1 J ).  IJ  = 1.  K ) NEWCS 

76.  RETURN  MEUCS 

77.  END  NEWCS 
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DESCRIPTION 


Sinaftfi 

block 


M A forty  eord  array  containing  the  vector  of  c s, 
i.t.  the  aultipliers  for  the  hoaogeneoos 
solutions. 


I Convorgonco  criterion  of  Itoratlon  for  the  t'l. 

I The  nagni tude  of  all  of  the  desired  values  of  the 
state  target  conditions. 


11  ) BMORY  I C 
BAANPT  1 C 
BROPE  1 C 
IIITAPT  I C 
MEUCS  n c 
NLDRV  1 C 
M0A4AL  I C 
tfRAPOP  I C 


/D 

/( 

8) 

CHECK 

0 

ERA 

MEWCS 

I 

ERA 

/D 

/( 

7) 

CHECK 

n 

flASBI 

NEMCS 

i 

«ASB1 
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SUBR0UTINE 

NLDRV 


Purpose 


NLDRV  evaluates  the  nonlinear  state  and  costate  quasitime  derivatives. 
In  addition,  if  the  QL  iteration  is  not  converged,  it  also  evaluates 
the  system  Jacobian.* 


*See  Sections  16.6  and  17.5  of  Vol 


I. 


NLDRV 


1. 

subroutine 

NLDRV*  Z, 

Z0) 

2. 

c 

3. 

c 

THIS  ROUTINE 

COMPUTES  THE 

9. 

c 

STATE 

DERIVAT 

IVES.  IF  Ql 

5. 

c 

COMPUTES  THE 

PARTIALS  OF 

6. 

c 

THE  STATE  AND 

COSTATE,  IJ 

7. 

c 

e. 

C0MM0N/ARCDAT/ 

9. 

• SREF 

EJ 

,XISP 

,tmult 

10. 

♦ I ATM 

1 MODE 

, JAER 

JPRO 

u. 

•XLMAX 

H0MAX 

GflOOT 

alFmax 

12. 

• MAEB 

MAEC 

, MAED 

,MAEE 

13. 

*MT 

msp 

,mxc6 

MZCG 

i„ 

♦ MOB 

XC6R 

, ZCGR 

,XE 

• DREF 

MCND 

, rhob 

, qmult 

il’ 

DIMENSION 

ARCDA(HQ) 

* 

EQUIVALENCE*  5REF, ABCDA ) 
REAL  JACOB, 


LVTAU, 

LPTC6, 

LMTAU, 

lovtr; 

LURC, 

lurct. 

lutvrc. 

LGTV, 

NLDRV 

NlDRV 

MOG, 

ndp 

M0R 

MDO, 

MD« 

MOT 

nlorv 

LSD, 

lp6. 

lr6. 

LOO, 

LrtO, 

lt6. 

NlDBV 

LVOG, 

LVOP , 

LVDR, 

LVDO, 

LVOT, 

lgdp. 

NlDRV 

LGDu, 

LGDT, 

LPDP  , 

LPOR, 

LP  DO 

LPDT 

NlDRV 

LRDO, 

lrot 

LODO, 

loot; 

LVOV, 

Lvon, 

nlorv 

lpdm, 

LRDM, 

LOOM, 

LGOG, 

LMOM, 

LHDT, 

nlorv 

molv. 

LVDLV 

LGOLV, 

lbolv. 

LMDLV, 

LTOLV, 

nlorv 

MOLG, 

LVOLG, 

LGOLG, 

lrdlg. 

LM0LG, 

LTDLG, 

NlDRV 

MDLP, 

lvdlp. 

LGOlP , 

lROlP, 

LHOLP, 

ltolp, 

NlDRV 

*MOLM, 

LVOLM, 

-LGOLM, 

tfiDLN, 

LMOLH, 

LTOLM  - 

' NLDRV' 

nlorv 

•LGDV  LPDV^PDGjLRDV  LROG , LRDP , LODV , L006, LOOP , LODR, LMOV , LNDG, LMDR, 
*LT0VlT06,LTQPjLT0R,LT00,LT0P1, LVOlH,lROlHlTOlH 
*lpolv/l00lv,lp6lg,l6olg,lpdlp,lodlp, lvdlr, lgdlr, ltolr, lvdlo,lgdlo, 
•lpdlo,lrolo,ltdlo,lvdlu,lgolu,lpolu,lrdlu,loolu,ltolu 

DIMENSION  Zt  16).  ZD(  16  > 
conn ON  /JACOB/ 


• VDV 

,gdv 

,POV 

,ROV 

,00V 

, UD  V 

, MOV 

, T0V 

, HTDV  , 

NlDRV 

• LVOV 

, LGD  V 

, LPDV 

, LRO  V 

,L0DV 

LUO  V 

, LMO  V 

, LTD  V 

, LHTOV  , 

nlorv 

• VDG 

,GDG 

,PDG 

ROG 

,ODG 

, U0G 

,MOG 

,T06 

,HTDS  , 

nlorv 

•lvqg 

,lgdg 

, LPDG 

, LROG 

, L0D6 

, LUOo 

, LMOG 

, LTOG 

, LHTDG  , 

NlDRV 

• vdp 

60P 

,POP 

!rop 

, OOP 

,UOP 

,MDP 

>DP 

htdp  , 

NlDRV 

• LVDP 

L&OP 

, LPOP 

, LRDP 

,LODP 

LUDP 

LMOP 

, LTDP 

, L H T OP  , 

NlDRV 

•VDR 

,gdr 

,PDR 

,ROR 

, ODR 

, UOR 

, MDR 

, TOR 

,HTDR  , 

NLDRV 

• LVDR 

,lgor 

, LPOR 

, LRDR 

,loor 

LUOR 

,LMOR 

, LTOR 

,LHTDR  , 

NLDRV 

• VDO 

GOO 

POO 

;roo 

, ODO 

,UDO 

, MDO 

, TOO 

, HTDO  , 

NLDRV 

• LVDO 

LG00 

, LPOO 

,LROO 

,LO0O 

, LUOO 

,LMOO 

, LTOO 

,LHTOO  , 

nlorv 

• VOU 

, GOU 

,POU 

>0U 

>ou 

,U0U 

, MOU 

>DU 

,HTDU  , 

nlorv 

• LVDU 

, LGDU 

, LPOU 

, LROU 

, LODU 

, LUDU 

, LMOU 

, LTOU 

,LHTDU  , 

nlorv 

♦ VON 

, GOM 

,PDM 

RDM 

, 0DM 

, UOM 

, MOM 

, TOM 

, HTDM  , 

NLDRV 

• LVDM 

lgdm 

LPOM 

, LR  DM 

,l00M 

LUOM 

LMOM 

,LTOM 

LHTQM  , 

NlDRV 

• VDT 

got 

, POT 

, ROT 

, 0DT 

, UDT 

,MDT 

TOT 

,HTOT  # 

nlorv 

• LVOT 

,lgot 

,LPDT 

, LROT 

, LOOT 

LOOT 

, LMDT 

, LTDT 

, LHTOT  , 

NLDRV 

♦ VDH 

. 60H 

PDH 

, RDH 

, ODH 

, UOH 

,MOH 

,TOH 

, HTDH  , 

nlorv 

•LVDH 

COMMON 

LGOH  ,LPOH 
/JACOB/ 

, LROH 

,LOOH 

, LUDH 

,lmdh 

,LTDH 

, LHTDH 

NlDRV 

nlorv 

• VDLV 

,GDLV 

, PQLV 

,RDLV 

,ODLV 

.UOLV 

.MOLV 

,tolv 

,HTDLV  , 

NLDRV 

•LVDLV 

,LGDLV 

, LPOLV 

,LROLV 

LOOLV 

.luolv  lmolv 

,ltdlv 

LHTDLV , 

NLDRV 

• VDLG 

' GDlG 

P0L6 

, RDlG 

,oolg 

, UDlG 

,MOLfi 

,tols 

,htdlg  , 

NLDRV 

•LVDLG 

LGDLG 

, lpolg 

LRDLG 

,loolg 

, LUDlG 

,lmolg 

, LTDLG 

,lhtdlg. 

NlDRV 

♦ VOLP 

, GOlP 

, polp 

,rdlp 

,00lP 

, UDLP 

. MDLP 

,tdlp 

,HTDlP  , 

NlDRV 

•lvdlp 

, LGOLP 

,lpdlp 

, LROLP 

LODLP 

.luolp  . LMDLP 

,ltdlp 

,lhtolp. 

NLDRV 

• VOLfi 

,GDLR 

,POLR 

,rolr 

, oolr 

. UDlR 

mdlr 

,tdlr 

,HTOlR  , 

NLDRV 

•lvdlr 

, lgdlr 

, LPOLfi 

,lrolR 

,lodlr 

.luolR  . lMOlR 

,LTDlR 

,lhtolR, 

nlorv 

• VDlO 

,gdlo 

,POLO 

,rolo 

ODlO 

.UDlO 

.MDLO 

,tdlo 

,htdlo  , 

nlorv 

♦LV0L0 

,lgdlO 

,LPOLO 

,LRDLO 

,lodlo 

.luolo  .lmdlo 

,ltdlo 

LHTDLO 

nlorv 

• VOLU 

, GDlU 

,PDLU 

,Rolu 

,oolu 

,UOLU 

. molu 

,tdlu 

,htdlu, 

NlDRV 

•lvdlu 

,lgdlu 

, LPOLU 

,LROLU 

,loolu 

.luolu  .lmdlu 

,ltdlu 

lhtolu. 

NlDRV 

• vdlm 

,gdlm 

,POLM 

, ROlm 

, oolm 

.uolm 

MDlM 

,tdlm 

,htdlm  , 

NlDRV 

•lvdlm 

LGOLM 

, LPOLM 

lrolm 

,lODlm 

. LUDlM  LpDLM 

,LTDlM 

,LHTDLM, 

NLDRV 

• volt 

,gdlt 

,P0LT 

,rdlt 

,oolt 

.uolt 

.mdlt 

, TOlT 

,htdlT  , 

NLDRV 

•lvolt 

lGDlT 

, LPDLT 

,lrolT 

,lodlt 

,ludlt  lmdlt 

,LTDlT 

,lhtdlt. 

nlorv 

• vdlh 

,gdlh 

,pdlh 

,ROlH 

, oolh 

.odlh 

mdlh 

,T0lh 

>tdlh. 

nlorv 

•lvdlh 

LGDLH 

, LPDLH 

LROLH 

,LODLH 

,LUDLH  ,lmolh 

,ltdlh 

,lhtdlh 

nlorv 
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76. 

77. 

78. 

79. 

80. 
81. 
82. 
83. 
89. 
85  . 
86. 
87  . 
88. 

89. 

90. 

91 . 

92. 

93. 
9s. 
96. 

96. 

97. 

98. 

99. 

100. 

101. 
102. 
103. 
10s  . 
10*  . 
10* . 
107  . 
106 . 

109. 

110. 
111. 
1 12. 
113. 
11s  . 
11*  . 
11*. 
117  . 
118. 

119. 

120. 
121. 
122. 
123. 
12s  . 
12*  . 
12*. 

112/  . 
126. 

129. 

130. 

131. 

132. 

133. 
i y* . 
ia». 

13*. 
137. 
136. 
139. 
IsO. 
Is  I . 
Is  2 . 
Is  3. 
lss  . 
ls»  . 
Is*  . 
Is/. 
Is  6 . 
Is  9. 
1*0. 


LINES  KPT  non  , 
^NEUNOniCNTOHlRHOC  RHOP  ,NPTS  ,PtlNES  . 
. I ARC  ,TRSTR  ,IflAX  'KTlnE  'KOhIVER  NOPRNT, 


DIAENSION  JACOB!  18,  18) 

EQUIVALENCE  C JACOB,  VDV  ) 

connON  /cntrl/ 

*NU  .ITER  .ITAPA  ,ITAPB  ,JflIN  ,JrtAX 

• KARD  , I NDX(  9 ) 

•XPAGE  ,NNP  ,NUP  , , , m r.n  w% 

*INBDRYNUPAGE,lVARY(ZO),  NN,  NOVARY.  PLAST,  ZLAST,  KODES 
LOGICAL  INBORY,  NEWNOn,  KONVER  NOPftNT,  NU^ AGE 
REAL  PIAGBV,  «U,  «,  LV,  LEAN,  LPSI.  LR,  LRHO,  L«U,  LN,  LTAU,  NOn 
lht 

connON  /o/ 

• X,  H.  X I ( 9 ),  rtAGBV,  ERR,  09,  010,  C(90),  CSA VE<  90 ),  V,  GAR,  PSI, 

• ALT,HHO,nu,n  TAU,  HT . LV,  LGAP1,  LPSI,  LR,  LRHO,  L«U,  LR,  LTAU. 

• LHT,  0109,  0110,  § V(  9 6 ) , ZSA  VE(  2.0) , 0 T C 20  ),  NP0InT(2D),  DElT(20> 
DIWENSION  N0n(20) 

equivalence  cno«,  v) 

LOGICAL  SNITCH,  IlOAO 

REAL  RACH,  I5P,  ISPV,  1SPR,  ISPn,  ISPT,  1SPVV,  ISPVR,  ISPVH, 

• I SPVT  ISPRR,  ISPRR,  ISPRT,  ISPnm,  ISPnT,  1SPTT,  Lift,  LIFTV, 
•LlFTR  LIFTA,  LIFTVV,  UFTVR,  LlFTVA,  LlFTRR,  LlFTRA,  «uR,  LtFTAA, 

•irate6,  ispf  i$pff 

REAL  MACHV,  HACNfi  HACK YR  PJACHfiR 
REAL  LIFTn  LlFTvft,  LlFTRn,  LIFTrtrt,  LIFTHA 
connON  /dyna/ 

• XX  ,TIflE  , S iNGAn, COSGAA, OflEGA  ,0(9£GA2,R 

•COSA  , 0YN01 1 , CflEGAT, TAnP  ,PA  ,R0 
•ROR  ,CSR  ,T£nPRR,PARR  ,RORR  ,CSRR 
•QV  ,QR  , Q V V ,QVR  , QRR  ,FVAC 

•FVACT  ,fvacvv,fvacvr,fvacrr,fvactt,t 
•ISPV  , I SPR  ,ISPft  , ISPT  ,ISPVV  , ISPVR 

•ISPRR  , ISPRT  , ispmn  , ISPnT  ,isptt  ,lIFT 

•liftvv,liftvr,liftva,liftrr,liftra,drag 

•DRAGV V, DRAGVR, OP AG VA  0RA6RR , ORAGRA, ORAGAA 

• LI  FT Vn, LlFTRfl, LlFTnn,LlFTnA,DBR  , OBRR 

*W  ,SINPHI,C0SPHI,SINPSI,C0SPSI,SINRH0 

• PlUR  , XKG  , XKP  ,AKIN  ,C00  ,COOW 

•xCGnn  ,ZCGR  ,zCGnn  ,xjv  ,xjr  ,xjvv 

• P1ACHRR,  SlN2R0,C0S2R0,C0S2Gn,Cn  ,CRA 

•CfflAn  ,cno  ,cnon  ,cnonn  ,crtAnn  ,ulftv 

•ulftva,ulftpr,ulftba,ipon  ,xarc  ,tstart 
•coonn  ,CLAnn  ,CLOn  ,CLOnn  ,oyni99,ct 
•sio  ,oeltae,cde  ,xcg  ,zcg  ,xj 
•OB  , OLFT  ,culft  ,ulfta  ,tstage, tires 

connON  /oyna/ 

•nTT  ,J1  ,J2  ,J3  ,XRCGA  F VACF 

•iload  ,Fxn  ,Fxnn  , snitch, inqf  ,cl 
•CLnn  , Cl An  ,co  ,coa  ,con  'coaa 

♦DYN199,OYN200,XnC6V  ,xnCGR  ,xnC6n  ,XRCGVV 
•XrtCGRB, XnCGBrt, XnCGRA, XWCGRR, XHCGRA, RORRR 
•DYN2 17,1 DArt  , TAIRB  , T AI RBV , TAI ABM, T ARB V V 
•SFCV  , SFCH  ,SFCVV  ,SFCHH  ,SFCVH 
connON  /axle/ 


cs 

K ODE 
F VAC  V 
nACHv 
ispvn 

LIFTV 

DRAGV 

ALPHA 

GAnnAO 

COSRHO 

ClO 

XJVR 

cnn 

ULFTR 

GH 

COD  A£ 

xncG 

XflCGAA 

ULFTAA 

Cla 

conn 

xnCGvR 

DYN2  1 9 
TAR8HH 


• AV 
•AGG 

• APR 

• AHU 


,A6 
, AP6 
, AnR 
avr 


,AP 

, An& 
, A VO 
, AGrt 


,An 
, A VP 
, AGO 
, Apn 


, AVV 
, AGP 
, AP0 
, Ann 


, AGV 
,APP 

aro 

>vz 


, AP  V 
, ARP 
, AVU 
, AGZ 


• EAVV  EAGV  , EAP  V ,EAP1V  , EA  VG  E AGG  ,EAPS 

• EAGP  ,EAPP  , EAnP  , EAVR  , EAGR  EAP  R , E Anfi 

• CAPO  , EAPJO  ,EAVU  ,EAGU  ,EAPU  , EARU  ,£AV« 

Eaqz  EaR2  £Afn2  'A^v  ■ 

, AflGV  


•EAnn  , EAVZ 
* A VGV  , AGG V ,APGV 

• AGRV  , APR  V ,AfnRV 
•apuv  , Anu v ,Avnv 

• AWZV  ,AVV6  ,AGVG  >PVG 


•AVPG  ,agpg 
•AGOG  , AP0G 


, A VOV  , AGO V 
, AGnv  ,Apnv 
, APIVG 


, A VP  V , AGP V 

'apov 


Annv 
, AVGG 


, AGV V 
APP  V 
, AnOv 
, AVZ  V 
, AGGG 


,APPG  , ARPG  ,AVRG  ,AGR6  , APRG 


• APrtG 

• ARVP 

• AVRP  , A GRP 


, AnoG 


, AnnG  , A VZ6  ,AGZG  , APZ6 
, AV6P  ,AGGP  ,APGP  ,A«GP 


,AVU6  , AGUG  APU6  ,AP»UG 

An26  ;AVvp 


•AGUP  , APUP 


, AflRP  , A VOP 


, APRP 
,APIUP 

• APZP  >nZP  , A v vR  ;agvr  >pvr 
connON  /axle/ 

•AnGfi  , AVPR  , AGPR 


A vPP 
, AGOP 


, AGPP 
APOP 


,avrp  agrp  ,APnP  Annp 

ApuR  AVGR 


, APPR  , ARPR  A VRR  , 

• AVOR  , AGOR  , AP  OR  , AflOR  ,AVUR  A6UR  ,APUR 

•AGRR  APrtR  ,A«rtfi  ,AVZR  , AGZR  ,APZR  ,ArtZR 


, AGRR 


G 

TEflPR 

rtACH 

FVACR 

rtACHR 

ISPVT 

LlFTR 

DPAGR 

PHI 

AE 

SINROR 

FK 

XJRR 

CnAA 

ULFTVV 

GFR 

SIDAE 

CAlPHA 

2RATE0 

ISPF 

CLR 

CDAn 

xnCGvn 

DYN215 

T ARB VH 


SI  NA 
PAR 
6 

FVACn 

ISP 

ISPRR 

ClFTA 

DRAGA 

LIFTN 

TAX 

COSROR 

xcsn 

flACHVR 

cnnn 

ulftvr 

LIFTAA 

COD 

ALnAX 

FRATEO 

ISPFF 

ClAA 

DYN196 

XnCSVA 

0YN216 

SFC 


Any 
A Vfl 
AGU 
AP  Z 


,AV6 
,A6R 
, APU 
, Anz 
EAnfi  ,Eavp 
EAVO  , E AGO 


EAGrt 
AP  VV 


, E APrt 

;a«w 


AWPV  , A Vfi  V 
AVUV  , AGU V 
AGZV  , APZV 
APGG  , AHGG 
ArtfiG  , AVOG 
Avne  AGflG 

AG  VP  

APPP 

Anop 


AP  VP 
' AfiPP 
, AVUP 
AVZP  , A6ZP 
AGGR  , APGR 


APRR 

ADUR 


, AnRR 
, AvnR 


A V VO  , AG VO 


NL0RV 

NL0RV 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

0 

0 

0 

0 

JUL21 

D 

D 

D 

OYNA 

OYNA 

DYNA 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA 

JUL21 

DYNA 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA- 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA 

OYNA 

JULZ1 

AUG09 

AXLE 

axle 

axle 

AXlE 

AXlE 

AXlE 

axle 

axle 

axle 

axle 

axle 

axle 

axle 

axle 

axlE 

axle 

axle 

AXLE 

AXLE 

axle 

axlE 

axlE 

axlE 

axlE 
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r* 

5 


151. 

152. 

153. 

1*H  . 
l!>t.  . 
IS*  . 
IS »7  . 
1*9. 
1*9. 

uo. 
Ul  . 
1**. 
M: 

165. 

166. 
167. 

199, 
1*9. 
I/O. 
171  . 

172. 

173. 
17**  . 
17*  . 
17*  . 
1/7. 
170. 
179. 
100. 
101  . 
»«: 

1 89 . 
185. 

le*. 

107  . 
100. 
109. 

190. 

40-U 


*AP  VO 

. AAVO 

,AVGO 

,AGGO 

. APGO 

.AA60 

,AVPO 

,agpo 

. APP0 

AXLE 

* AflPQ 

. A VRO 

, AGRO 

, APRO 

, AARO 

, A VOO 

,A600 

, Ap  00 

,aaoo 

AXLE 

* AVUO 

, AGUO 

, APUO 

, AAUO 

, avao 

#AGAO 

, AP  AO 

, afiao 

f AVZ0 

AXLE 

♦ AGIO 

,APZO 

, AAZO 

A VVO 

,A6VU 

,APVU 

,AAVU 

, Ayfit/ 

BGU 

axle 

♦ APGU 

,aagu 

,AVPU 

.AGPU 

. APPU 

, aapu 

,AVRU 

,agru 

, APRU 

AXLE 

♦ AMRU 

AVOU 

, AGOu 

, APOU 

AAOU 

, A VUU 

, A6UU 

, APUU 

, ahuu 

AXLE 

♦ AVMU 

, A6AU 

APAU 

. AAAU 

,avzu 

, AGZU 

,APZU 

,aazu 

, AVVA 

AXLE 

*AGVA 

APVA 

AAVA 

. A VGA 

, AGGA 

, APGA 

, AA6A 

,AVPA 

, agpa 

AXLE 

• APPA 

AAP  A 

, avRa 

, AGRA 

f APRA 

.AARA 

, AVOA 

,agoa 

, apoa 

AXLE 

* APtOA 

A VUA 

, A6UA 

.apua 

, AAUA 

AVAA 

, AGAA 

, apaa 

A AAA 

AXLE 

♦ AVIA 

, AGlA 

,apza 

.AAZA 

, AVVZ 

. AGVZ 

#APVZ 

, aavz 

# AVGZ 

AXLE 

♦ AGGZ 

# AP6I 

AAGZ 

AVPZ 

, AGPZ 

,APPZ 

,aapz 

, A VRZ 

,agrz 

AXLE 

♦ APRZ 

.AAR  I 

,avoz 

, AGOZ 

. APOZ 

, AflOZ 

,AVUZ 

,aguz 

, APUZ 

AXLE 

♦ AAU2 

. AVA2 

. AGA2 

\ AP  AZ 

, AAAZ 

#A  VZZ 

,A6  ll 

,APZZ 

,aazz 

AXLE 

COAAON 

/ axle/ 

AXLE 

♦avl-v- 

,AGLV 

,APLV 

, AALV 

,AVL6~ 

, aglg 

, APL5 

,AAL6 

,avlp 

A-XLE 

♦ AGLP 

APLP 

AALP 

# avvlv 

, agvlv 

, apvlv 

, AAVLV 

, avglv 

, A66L V 

AXLE 

♦APGLV 

, aaglv 

,AVPLV 

. AGPLV 

.APPLV 

. AAPLV 

, AVRLV 

,agrlv 

, aprlv 

AXLE 

♦AARLV 

,avolv 

, agolv 

. APOLV 

AAOLV 

, A VULV 

, AGUL V 

, apulv 

, aaulv 

AXLE 

♦AVAL V 

.agalv 

apal  V 

A AALV 

, avzlv 

, AGZLV 

, APZLV 

,AAZLV 

, AVVLG 

AXLE 

♦AGVLG 

AP  VLG 

.aavlg 

. AVGLG 

, AGGLG 

, APGLG 

, AAGLG 

,avplg 

, agpls 

AXLE 

♦APPLG 

,aaplg 

.avrlg 

,agrlg 

APRLG 

AARLG 

, A VOLG 

, A60LG 

, APGLG 

AXLE 

♦AM0LG 

AVUL6 

, AGULG 

, apulg 

. AAULG 

, AVALS 

, AGALG 

, APAL6 

. AAALG 

AXLE 

♦AVILG 

,agzlg 

,APZLG 

,amzlg 

. AVVLP 

7AGVLP 

,APVLP 

, AAVLP 

, avglp 

AXLE 

♦AGGLP 

APGLP 

. AA6LP 

. AV  P LP 

,agplp 

,applp 

, aaplp 

,AVRlP 

.agrlp 

AXLE 

♦APRLP  , 

AARLP 

,avolp 

,agolp 

. apolp 

f aaolp 

, AVULP 

, a GULP 

, AP^lP 

AXLE 

♦AAULP  , 

AVALP 

, AGALP 

, AP ALP 

# aaalp 

,avzlp 

,agzlp 

, arzlp 

,aazlp 

AXLE 

COAAON 

/PC/ 

PC 

♦ PCI 

,PC3 

,IDP 

,PC5 

, PC6 

,PC7 

, AAXBC 

,NAUX 

PC 

- ASF1<A,0>  s JlATAU*A  ♦ LVTAU>B 
ASF2(C,D>  = LGAW*C  ♦ LPSI*D 

00  1 I = 1,1 
r mono  i >=zc  i ) 

CALL  FORCES 

IF(KODE  .EQ.  KOOES)  60  TO  3 
KOOES  = KOOE 
00  2 I = 1,  10 
DO  2 J = 1.  10 
2 JACOB! 1,  J)  = 0. 


NLORV 

NlDRV 

nldrv 

NLDRV 

NlDRV 

NlDRV 

NlORV 

NLORV 

NlORV 

NLDRV 

NLORV 

NlORV 


3-n 


182. 
193. 
19*1 . 

195. 

196. 

197  . 
190. 

199. 

200. 
201. 
209. 
203.  . 

209.  1 

20*  . 
20*. 
207. 
200. 

209.  1 

210. 
211  . 
212. 
213. 
2W  . 
21*. 
21*. 
217  . 
210. 

219. 

220. 

221  . 
222. 
223.  , 

229..  J 
22»  . 


3 I F C K0DE  .NE.  0)  CALL  APPLV 


: EVALUATE  INTERMEDIATE  CONSTANTS 

CSV  r COSSAN  * V 

RCRHO  s R ♦ COSRHO 

0A2RVC  = 0WESA2  * R * COSRHO  / V 

0RVC0G  = 0A2RVC/C0S6AA 

0H2RC0  = 0AE6A2  * RCRHO 

0A2R  = 0AE6A2«R 

0A2C0  = 0rtEbA2*C0SRH0 

V2  = V*V 
R2  = R*R 
60V  = 6/V 

VOR  - V/R 

TAUV  = TAU  / V 
TAUVR  = -TAU*V/R 
TVRO  = TAU* V/RCRHO 
TAUC6V  = TAU/C6V 
LOTR  =...  lrho*tau/r 
LVTAU  = -L**TAU 
LflTAU  = -L«*TrtU 

lurc  = lau/rcrho 
lurct  = lurc*tau 
lutvrc  = lurc*tau*v 

L6T  V = L6AA*TAU/V  ^ 

LPTC6V  = LPS1*TAU/C6V 
LPTCfi  = LPS1*TAU/C0S6AA 
L0VTR  = LRH0*V*TAU/R 

— C6CP  S-C0S6AA-*  COSPSI 


NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NlORV 

NlDRV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NlORV 

NLORV 

NLORV 

NlDRV 

NlDRV 

NLDRV 

NLORV 

NlORV 

NlORV 

NlORV 

NlORV 

NlORV 
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226. 

CGSP  = C0SGAA  * SINPS1 

NLDRV 

227. 

COCG  = COSRHO  * COSGAA 

NLORV 

228. 

SOSG  = 5INRH0  * SI NGAA 

NLDRV 

229. 

COSG  = COSRHO  * SINGArt 

NLDRV 

230. 

SPSO  = SINPSI  0 SINRHO 

NLORV 

231. 

SPSOSG  = SPSO  * SINGArt 

NLORV 

232. 

CPCO  = COSPSI*  COSRHO 

NLORV 

233. 

COSP  = COSRHO*SINPSI 

NLORV 

2 y* . 
2 a. . 
23*  . 
2 3/  . 
2 3* . 
230. 
2*0. 
2*1 . 
2*2. 
M: 

295. 

296. 

*97. 
2*0 . 
2*«. 
2*0 . 
2*  1 . 
2*2. 
2*3. 
2»*  . 
2»»  . 
2»*. 
2*/  . 
2*0. 
2*0. 
2*0. 
2*1 . 
M: 

269 
265  . 

2**. 

2*/  . 
2*0. 

2*0. 
2/0. 
2/1 . 
2/2. 
2/3. 
2/*  . 
2/»  . 
2/*. 
2//  . 
2/0. 
2/0. 
200. 
?0i: 

283. 
28*1 . 

20*  . 
20*. 
20/  . 
200 . 
200. 
200. 
201 . 
202. 
203. 
20*  . 
20*  . 
20*. 
20/  . 
200. 
200. 
300. 


CPSO 

SPSG 

CPS6 

SGOCG 


COSPSI*SINRHO 
S I NPSI*SINGAA 
COSPSI+SINGAA 

= SINGAA/COSGAA 

SOOCO  - SIMRHO/COSRHO 
CG2  = C0SGAA*C0S6Art 
C02  = COSftHO*COSRHO 

EXPRES  = SINRH0*SIN6Art*CCSPSI  + COSRHO*COSGAA 
EXPRS1  = C05RH0*S INGArt  - C6CP*SINRH0 
EXPRS2  = CPSG*C052R0  - SI N2RO*COS6Art 
EXPRS3  = CGS2R0*CGCP  ♦ SI N2R0*S 1 NGAA 
ASSUrtE  FREE  FALL.  COnP 
OF  ALL  STATE  E05 . EXCEPT  GO  AND  PD. 
HTDT  = OrtULT* 1 7600.*SflRT<RO/RH0B  )*< V/26000 . )**3 . 15 
HDV  = TAU  ♦ SINGAA 
OD V =( TAU/R  > « CGCP 
U0V  = (TAU/RCRHO)  * C6SP 
HTOV  = TAU*HTDT*3. 15/V 
VOG  = TAU*<  0rt2RC0*EXPRES  - C056Art*6> 

TAU*C6V 
TAUVR*CPSG 

-T VR0*5P$6  - - - - - 

TAU*On2RCO*C6SP*SlNRHO 
TAUVR*CG5P 
TVRO  * CGCP 

TAU*t OA2C0*£XPRS1  - GH»SINGArt) 

TAOVR  * CGCP /R 
(-TVRO/R)  ♦ C6SP 
IFdATrt  .LT.  2)  HTOR  = TAU*HT0T*R0R/R0/2 . 

VDO  = -TAu*0rt2R*ExPRS3 
T VRO*CGSP*SOOCO 
OA2RCO*EXPRSl  - G'SlNGAA 
SI NGAA  * V 
VOR 

V / RCRHO 

IS  THIS  VERT.  RIS£/PlTCHOvER 
IF(KODE  -NE.  9>  GO  TO  ICCC 

YES.  COAP.  1ST  PART.  OF  GO  W/RESP 


1ST  PARTS.  U/RESP.TO  STATE 


ROG 

OOG 

UOG 

YOP 

OOP 

UDP 

VDR 

ODR 

UDR 


UOO 
WOT 
ROT 
00  T 
OOT 


CGCP 

CGSP 


GOT  - GAArtAD 


TO  TAU 


VO  = 
GO  = 
PO  = 
RD  = 
00  = 
UD  = 
AO  = 
HTO 


COMPUTE  STATE  DERIVATIVES 
(AV  ♦ VOT) 

GOT 


TAU 
TAU 
0. 

TAU^ROT 

TAU*OOT 

TAU*UOT 

TAU*AA 

TAU*HTOT 

ACCOUNT  FOR  APPLIED  LOAD  EFFECTS  IN  1ST  PARTS. 
W/RESP.  TO  STATE  OF  STATE  EOS. 

* TAU 

* TAU 

* TAU 

* TAU 

* TAU 

* TAU 

* TAU 

* TAU 
ArtZ+TAO 


VDV  s AVV 
ADV  = AAV 
AOG  = AAG 
AOP  - AAP 
ADR  = AAR 
AOO  = A AO 
VOA  = AVA 
AOA  = AAA 
rtOT  = Art 
VOG  = VOG  4 AV6 
VDP  = VOP  ♦ AVP 
VDR  = VOR  4 AVR 
VOO  s VDO  4 AVO 
VOT  s VOT  4 AV 


TAU 
TAU 
TAU 
TAU 
A¥Z+7M0 


LVO 


COrtPuTE  COSTATE  DERIVATIVES. 

-LV*VOV  - LR*R0V  - lRH0*00 V - LAU* UO V - LA*flOV  - LHT^HTDV 


NLDRV 

NLDRV 

NLDRV 

NLDRV 

NLDRV 

NLDRV 

NLDRV 

nlorv- 

NLORV 

NLDRV 

nlorv 

nlorv 

NLDRV 

nlorv 

nlorv 

NLDRV 

NLORV 

nlorv 

NLDRV 

nlorv 

nlorv 

nlorv 

NlDRV- 

NlDRV 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

NlORV 

nlorv 

nlorv 

nlorv 

nlorv 

NLDRV 

nlorv 

nlorv 

nlorv 

nlorv 

NlDRV 

NlDRV 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

NlDRV 

NlDRV 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

nlorv 

NlDRV 

nlorv 

nlorv 

NlDRV 

NlDRV 


lOOO—i 
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\ 


[301. 

LGD 

- 

-LV*V0G  - LR*RD6  - LRH0*0D6 

- LAU* UOG  - LA* ADG 

MLDRV 

|302. 

LP0 

s 

-LV* VOP  - LRHO*ODP  -LAU*UDP 

- LA* ADP 

NLDRV 

303  . 

LRD 

r 

-LV*VDR  - LRHO*COR  - LAU*U0fi 

- LM*flDR  - LHT*HTDR 

MLDRV 

309 . 

LOD 

t 

-LV* VDO  -Lnu*UDO  - LA4AD0 

NLDRV 

305. 

LAD 

£ 

-LV* VDA  - LA* ADA 

NLDRV 

>0*. 

3o#. 

30*. 

30%. 

310. 

LTD 

£ 

-LV*VDT  - L6AA*G0T  -LR*RDT  - 

LRHO*ODT  - LAU4UDT  -LA*ADT 

MLDRV 

* 

-LHT4HT0T 

NLDRV 

C 

MlORV 

GO  TO 

9000 

MlDRV 

c 

MOT  VERT.  RISE/PITCHOVER.  STILL  ASSUAINS 

FREE 

NlORV 

c 

FALL,  COAP.  1ST  PARTS. 

W/RE5P.  TO  STATE  OF 

GO  AMD 

nlDRv 

311 . 
-3ia. 

c 

PO. 

MlDRV 

313. 

319. 
315. 

31* . 
3U. 
3l«. 
3l*. 

320 . 

321. 

322. 

323. 
32*. 
32*  . 
32*  * 
32#. 
320. 
32*. 

330. 

331. 

332. 

333. 
33*  . 
3^. 
33*. 
33#  . 
33* . 
33*. 
3*0. 
3*  ) . 
3*2. 
3*3. 
3**. 
3*»  . 
■3* 


1000  GDV  =TAUV  * ( C0SGAA*( GOV  *VOR)  - 0A2R VC*E XPRES > NlDRV 

PDV  =( TAU*5PS0  ) * ( COSGAn/RCBHO  - ORVCOG/V  ) MlDRV 

GOG  = TAU*< -0A2RVC*EXPRS1-  SINGAA*(VOR  - GOV  ))  MLDRV 

PDG  = ~TAU  * <SPSGSG*<0RVC05/CCSGA«  - V/RCRH0)  - CPC0*OrtEGAT/CG2 ) NLORV 
GDP  = TAU  * < CPCO  * OAEGAT-  0A2RVC  * SPSOSG)  MlDRV 

POP  = TAU*(  0P1EG AT*COSP*SGOCG  ♦ CPSO*ORVCOG  ♦ C6CP*S00C0* VOR  ) NLORV 

GOB  = TAU  * < EXPRES*0A2C0/V  - COSGAn*< VOR/B  ♦ GM/VM  NLDRV 

POR  = TAU*SPS0/R  * (OBVCOG-  C6V/RCRH0)  MLDRV 

GOO  = TAU*< EXPRS2*0A2B/V  - OflEGAT*SP$0>  MlDRV 

POO  = TAUM0WEGAT»<CPSO»SSOC6  4 COSRHO)  4 SI NP S 1 *0n2R*C0S2R0/C6V  NlOR V 

* 4 CGSP*V0R/C02 ) MlDRV 

GOT  = 0AEGAT*C05P  + EXPRES*0A2R VC  4 COSGAA*(  VOR  - GOV ) MlDRV 

PDT  = OAEGAT*< SINRHO  - CPC0*SGOCG)  * SPSO*<ORvCOG  ♦ CGV/RCAHO)  MlDRV 

; IS  THIS  FREE  FALL  MLDRV 

IF( KODE.NE.O)  GO  TO  2000  MlDRV 

: COMPUTE  STATE  ANO  COSTATE  DERIVATIVES.  MLDRV 


VO  = 

TAU  ♦ VOT 

NLDRV 

GD  = 

.TftU.*  6DT 

NLDRV 

PD  = 

’.AU  * POT 

- 

MlDRV 

RO  = 

TAU  * ROT 

MlORV 

00  = 

TAU  * OUT 

NlORV 

uo  = 

TAU  * UOT 

MLDRV 

AD  = 

0. 

MlDRV 

HTD 

5 0. 

MlORV 

LV0 

s -LGAA  * 

GOV  - LP5I*P0V  - LR4RDV 

- LRHO*ODV  - LAU*U0V 

NlORV 

LGD 

= -LV4VDG 

- LGAA* GOo 

- LPSUPOG  - 

LR4RD6  - LRHO*OOG  - LAU*U0G 

NLORV 

LPD 

r -LV* VDP 

- LGAA*GDP 

- LPSI4PDP  - 

LAU*UDP  - LRHO*ODP 

NLDRV 

lrd 

= -lv*vdr 

- LGAA*GDR 

- lPSI*POR  - 

lrho*odr  - lau*udr 

NLDRV 

loo 

= -LV* VDO 

- LGAA*GOO 

- LPSI4P00  - 

lau*udo 

NLDRV 

LAD 

= 0. 

NLDRV 

LTO 

= -LV* VDT 

- LGAA4G0T 

- LPSI4P0T  - 

LR*RDT  - lRHO*ODT  - LAU* UDT 

NlORV 

MlDRV 

GO  TO  9000 

NlDRV 

NOT  FREE  FALL.  COMPUTE 

STATE  DERIVATIVES. 

MlDRV 

VO  = 

TAU*( AV  4 

VOT) 

MlDRV 

GO  = 

TAU*(  AG/V 

4 60T) 

NLDRV 

PO  = 

TAU*< AP/ 

CSV  4 

PDT) 

NlORV 

RD  £ 

TAU*RDT 

MlORV 

00  = 

TAU*ODT 

MlORV 

UO  = 

TAU*UOT 

NlORV 

f 2000  — 


3H7. 

398 . 

399 . 

3*0. 
3»  1 . 
3>2. 
3>  3. 
3,*. 
3»* . 
3»*. 
3 » / . 
3»*. 
3»*. 
3*0. 
3*1 . 
3*2. 

hi: 

365. 

366. 

3*/ . 
3**. 
3**. 
3#o. 
3/1. 
3#  2. 
3/3. 
3/*  . 


PIO  = TAU*AA 
MTD  = TAU*HTDT 

IS  THIS  NOtf-OPTlAAL  CONTROL 
irntooE  .lt.  m go  to  3000 

VES.  ACCOUNT  FOR  APPLIED  LOAD  EFFECTS  0M 
W/fiESP.  TO  STATE  OF  STATE  EOS. 

TAU 


ST  PARTS. 


VDV  = AW 
VDA  - AVA 
GDn  = AGn 
PDA  - APfl 
FID  V = Anv 
ADR  = AAR 
ADA  s AAA 
ADT  = AA  ♦ 

GOV  = GOV  < 
POV  = POV 
PDG  = PDG  < 
VOR  - VDR 
GDR  s 80R 
PDF  = POR 
VOT  = VOT  * 


• TAU 

• TAUV 

• TAUC6V 

• TAU 

• TAU 
4 TAU 
AAZ«TAU 

TAUV4< AGV-A6/V  ) 

4 ( AP  V-AP/V  >4  TAUC6V 
TAUCGV4SG0C6*AP 
4 AVR47AU 
4 AGR*TAUV 
4 APR*T AUCG V 
A V 4 A VZ*  TAU 


MLDRV 

MlDRV 

MlDRV 

MlDRV 

MlDRV 

MlDRV 

MLDRV 

MlORV 

MlDRV 

MlORV 

MlDRV 

MlDRV 

MlDRV 

MlORV 

MlDRV 

MlDRV 

MlDRV 

MlDRV 

nlDRv 

MlORV 

MlDRV 

MlDRV 


3000- 


9000-t 


9000-1 
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375. 

GOT 

z 

GOT  4 <AGZ«TAU  9 AG )/ V 

NLDRV 

376. 

POT 

z 

POT  4 ( APZ*TAU  ♦ AP  J/C6V 

NLORV 

37  7. 

C 

COMPUTE  COSTATE  EOS.  FOP 

1 NON-OPTIMftL  CONTROL. 

NLORV 

378. 

LVO 

z 

-LV* VDV  - 

LGAM*GOV 

- 

IP5I*PD¥  - 

LR*ROV  - 

LRHO*ODV  - LMU*DDV 

NLDRV 

379. 

♦ 

-lm*md¥  - 

LHT*HTOV 

NLORV 

380  . 

160 

z 

-LV*VD6  - 

LG  AM*  GOG 

- 

LP S I *PD6  - 

LR*RD6  - 

LRHO*ODG  - LMU*UDG 

NLORV 

m.- 

LPD 

z 

-LV* VDP  - 

LGAM*GOP 

- 

LPSMPOP 

- 

lrho*odp  - tm/*uop 

NLORV 

LRD 

z 

-LV*VOR  - 

LGAM*GDR 

- 

LPS1 *POR  - 

L«*MDR  - 

LRHO*OOfi  - LMU*UOR 

NLORV 

383. 

♦ 

-LHT*HTOR 

NLDRV 

389. 

LOO 

z 

-LV»VOO  - 

LGAM*600 

- 

LPSI9P00 

- L«U*UDO 

NLDRV 

385  . 

LMD 

z 

-LV9V0H  - 

LGAM*GDM 

- 

LPSI*PDM  - 

LM*MOM 

NLORV 

386. 

LTD 

z 

-lv*vdt  - 

LGAM*6DT 

- 

LPS J*PDT  - 

L«*«DT 

- LMU*UDT 

NLORV 

3®/. 

3®o. 

3#9. 

390. 

3*1- 

* 

-LR9RDT  - 

LRHO*ODT 

- 

LHT^HTOT 

NLORV 

C 

NLDRV 

C 

GO  1 

0 

9000  - 

. 

NLDRV 

NLDRV- 

C 

COMPUTE  COSTATE  EOS.  FOR 

OPTIMAL 

CONTROL 

NlDRV 

392. 

393. 
399. 

39*  . 
39*  . 
39#  . 
39». 
399. 
HOO. 
hoi. 
*♦02  . 
*♦03. 
HO*  . 
H0>  . 
H0+  . 
*♦0#  . 
*♦0#. 
*♦09. 
*♦10. 

II . 
*♦12. 
*♦13. 
H lH  . 
Him  . 
Him  . 
*♦1#  . 
H 19. 
*♦19, 
*♦20. 
*♦21  . 
*4  22  . 

*♦23. 

H2*. 

h2>  . 
*♦29  . 
*♦2#  . 
H29. 
S29. 
*♦30. 
*♦31  . 
*♦32. 
•♦  33. 
*♦>♦  . 
♦ a» . 

*♦39. 

*♦3#  . 

W: 

HH  0. 

*♦1  . 
HhZ. 
Hh  3. 
H**  . 
*♦*•>  . 
H*9  . 
HHi  . 

•HV, 


3000  LVD  = 


-L V*TAU*E A V V - LGAfl*<  GO V+TAU V*( EA6V-A6/ V > ) 

-LPSI*C  POV^TAUCSV  *<EAPV-AP/V>  ) - l_R*ROV  - lrho*oov 
-LMU^UDV  - LH*EAPIV*TAU  - LMT*HTDV 
LGD  = -LV*VDG  - LGAfl*GD&  * LPSI*(P06  4 T AUCGV*  AP*S60C6 ) 

-LfWRDG  - LRHO*OOG  - LP1U*U06 

-LV*VOP  - LGAfl*60P  - LPSI*POP  - LRHO*ODP  - LflU'UDP 
-LV*< VDR  + TAU*EAVR)-  L6AB*tGDR  4 TAUV*EAGR ) 
-LP5I4(P0R*TAUCSV*EAPR  ) - lRH0*0DR  - LMU*UDR  -LW*TAU*EAMR 
-LMT*HTDR 

-LV*VDO  - LGArt*GDO  - LPSI*PDO  - L«U*UDO 
TAU*( -LV*EAVM  -(  lGAM*EAGM4LP$I *EAPrt/COSGAM )/ V - L«*EAr<m) 
-LV*(VDT  4 AV  4 TAU*EAVZ  ) - LGAM*< SOT  4( AG  4 T Au*E AGZ  >/  V ) 
-LPSI *(  POT  +t AP  4 TAU*£APZ)/CGV)  - LR*RDT  - LRrtO^ODT-LMU^UDT 
-LM*(An  4 TAU*EA«Z)  - LMT*HTDT 
IS  QL  CONVERSED 
IF<  KONVER ) GO  TO  9000 

NO.  OPTIMAL  CONTROL  IN  EFFECT.  COMPUTE  1ST  PARTS. 
W/RESP.  TO  COSTATE  OF  COSTATE  EOS. 


LPD 

LRD 


LOD 

lmd 

LTD 


NL0RV 

NLDRV 

NLDRV 

NLDRV 

NLDRV 

NL0RV 

NLORV 

NLDRV 

NLDRV 

NLDRV 

NLORV 

NLDRV 

NLORV 

NLORV 

NLDRV 

NLORV 

nlqrv 

NLORV 


9000- 


LPDLV 

- -VDP 

NLORV 

LODLV 

= -VDO 

NLORV 

lpolS 

= -GDP 

NlDRV 

lOdlg 

= -600 

NlDRv 

lpdlp 

= -POP 

NLDRV 

LOOlP 

= -POO 

NLORV 

LV0LR 

- -R0V 

NlDRv 

lgolR 

= -R06 

NLORV 

ltdlr 

= -ROT 

NLORV 

LVDLO 

= -oov 

NlORV 

L6DL0 

= -006 

NlDRv 

lpdlo 

= -OOP 

NlDRv 

lrdld 

= -ODD 

NlORV 

ltolO 

= -OOT 

NlORV 

lvdlu 

= -UDV 

NlDRv 

LfiDLD 

= -DOG 

NlORV 

LPDLU 

= -UOP 

NlORV 

lrdlu 

= -DOR 

NLORV 

LODLU 

= -DOO 

NLORV 

ltolu 

= -DDT 

NlDRV 

lvdlv 

1 

= ASF 1(  AMVLV,  AVVLV)  - EAV V*TAU  ♦ LGTV*(AGLV/V 
LPTCGV*( APLV/V  - APVLV) 

- AGVLV)  9 

NLDRV 

NlORV 

NlORV 

L6DLV 

= -LPTC6V9APLV4S60C6  - ¥06 

NlORV 

NLORV 

lRDlv 

= ASF 1(  AMRlV,  AVRLV)  - EAVfi*TAU  - L6TV*  AGRLV 
- LPTCGV*  APRlV  - VDR 

NLDRV 

NlDRv 

NlDRv 

LMDLV 

= ASF 1(  AMMLV,  AVMLV  ) - EAVM*TAU  - lGTV*  A6MLV 
-LPTC6V*  APML  V 

NlDRV 

NLORV 

NlORV 

ltolv 

= asfk  AnZLV,  AVZLV)  - EAVZ*TAU-  LGTv*  agzlv 
- LPTC6V*  APZLV  - VOT 

NlDRv 

NlORV 

- AV  - L¥*A¥L V - LM* AftLV  - lGAM*A6LV/V  - LPSI *APLV/C6V 

NlDRv 

NlDRv 

LVOLG 

= ASFK  AMVL6,  AVVLG)  4 lGTv*(A6l6/V  - AGVLG) 

NlORV 

4 tPTC6V*<  APlG/V-  APVLG)  ♦ TAUVMA6/V  - EA6  V ) - 

GOV 

NlORV 

NLORV 

L6DLG 

= -LPTCGV*APL6*SG0C6  - GOG 

NLDRV 

NlDRV 

9000-H 
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*150 . 
*51. 
*52. 
*53. 
*5*. 
*55. 

*>*. 
4*/. 
4*N. 
4*4. 
4*0. 
4*1. 
4*2. 
4*3. 
4*4  . 
4**  . 
4**  . 
4*/  . 
4**. 
4*4. 
470. 
4/1. 
4/2. 
4/3. 
4/4  . 
4/*  . 
4/*  . 
4//  . 
4/*. 
H/4. 
4*0. 
4*1  . 
4*2. 
4*3. 


4*/  . 
4**. 
4*4. 
440. 
441  . 

442. 

443. 
444  . 
4 4*  . 
44*  . 
44/  , 
4 4*. 

444. 
>00. 
>01  . 
>02. 
>03. 
>04  . 
>0*  . 
>«*. 
>0/  . 

509. 

510. 

>11. 

>12. 

>13. 

> 14  . 

> 1»  . 
> 1*. 
>1/. 
> 1*. 
> J4. 
>20. 
>21. 
>22. 
>23. 
>24. 


LRDL6 

* 

LADL6 

* 

LT0L6 


= ASF 1(  AfifiLG,  AVRLG) 
* TAUV»EA6R  - 60R 

= ASFlt  AflflLG,  AVALS) 
- T A0V*E AGA 


- L6TV*  AGRLG  * LPTCSV*  APRlS 

- 1ST Y*  AGALG  - LPTCGV*  APALG 


= ASF  It  AAZLG.  AVZL6  ) 

* TAUV*EAGZ  - LV* A VLG-  Ln^AnLG-  ( L6An*AGL6 
- LPSUAPLG/CGV  - GDT 


L6TV*  AGZL6  - LPTCSV*  APZlS 
AGl/V 


LVDLP  = ASF 1(  AAVLP,  AVVLP  ) ♦ L6TV*<A&lP/V  ‘ A6VLP  ) 

♦ ♦ LPTCGV*<  APLP/V  - APVLP)  ♦ 7AtfC6V*<AP/V  - EAPV)  - PDV 

L6DLP  = - LPTC6V*APUP*SG0C6  - TAuC6v*AP#S60C&  - PD6 

AVRLP)  - L6TV*  AGRuP  - LPTCG V*  APRlP  - POR 


LRDLP  ± ASF 1(  AflfiLP, 
» - TAUCGV*EAPR 


LflOLP  = ASF  It  AAALP, 
* - TAUCGV*EAPA 


AVALP)  - LGTV*  AGflLP  - LPTC6V*  APALP 


LTDLP  - ASF  It  AflZLP,  AVZLP)  - LGTV*  ASZLP  - LPTCGV*  APZLP 

* - TAUCGV*EAPZ  - LV*A VLP  - LR*AAlP  - LGArt*A6LP/V 

* - LPSUAPLP/CGV  -AP/CGV  - POT 


s100 


c 

_c 

9000 


NLORV 

NLDRV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 

NLORV 


LVOlA  = -TAU»EAAV 

NLORV 

NLORV 

L«0LA  - -TAU^EAAR 

NLORV 

NLORV 

LADLA  = -TAU*£AAA 

NLORV 

- - * • - * - - . • • . — 

-NLORV 

LTDLft  = -T AO*£AAZ  - Aft 

NLDRV 

LVDLH  = -HTDV 

NLORV 

CROLM  = “HTOR 

NLORV 

LTOLH  = -HTQT 

NLORV 

ACCOUNT  FOR  THE  EFFECTS  OF  APPLIED 

LOAOS  ON  THE 

NLDRV 

TOTAL  1ST  PARTS.  W/fiES P.  TO  STATE 

OF  STATE  EOS. 

NLORV 

GOV  - GOV  +CTAUV  >*(  AGV  - AG/V) 

NLORV 

PQV  2 PDV  * ( 7 AjCGV  )*  tAPV  - AP/V) 

NLORV 

VOG  = V06  ♦ A Vb  *TAU 

NlORV 

GOG  = GOG  * AGG  ♦TAUV 

NLDRV 

POG  = POG  * TAuCGV*( AP*S60C6  4 APG ) 

NlORV 

VOR  = VOR  ♦ AVR  *TAU 

NLDRV 

SON  = 60B  4 AGR  4 TAOV 

NLDRV 

POR  = POR  4 APR*TAUC6V 

NlORV 

VOT  = V0T  4 AV  4 AVZ*TAU 

NLORV 

GOT  = GDT  4 ( AGZ*tAU  4 A6)/V 

NLORV 

POT  = POT  4 t AP2*TAU  4 APJ/CGV 

NlORV 

VDV  = AVV4TAU 

NlORV 

AO V = A0V4TAU 

NLORV 

ADG  = AAG*TAU 

NLDRV 

ADR  = AAR*TAU 

NLORV 

V0A  = AVA*7Al/ 

NL0RV 

GOA  = A&A4TAUV 

NLORV 

PDA  = APA4TAUCGV 

nldrv 

AOfl  = AAA*TAO 

NLORV 

AOT  = AA  4 AAZ+TAU 

NLDRV 

AOVE  STATE  AND  COSTATE  DERIVATIVES 

INTO  OUTPUT 

NLORV 

ARRAV . 

NLORV 

continue 

NLORV 

ZDt  l)s  VD 

NLORV 

20(  2)  s GO 

NLDRV 

Z0(  3)  = PO 

NlORV 

ZOt  *>  S RO 

nldrv 

ZOt  51  = 00 

NLORV 

ZOt  6)  * UD 

NlORV 

Z0(  7)  = AO 

NLORV 

ZOt  6)  s 0. 

NlORV 

Z0( 9 1 = HTO 

nldrv 

Z0( 101=  LVO 

nldrv 

ZD< 11  )=  LGO 

NLORV 

ZDt 12  Is  LPO 

NLORV 

ZOt  131=  LflO 

NlORV 

ZOt 1*  )=  LOO 

nldrv 

ZOt  15  7=  0. 

nldrv 
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525. 

526. 

527. 
52*. 
529. 


6 30 . 
6 31  . 
5 32. 
5 33. 

5 >#  . 

6 3b  . 
63b  . 
6 34  . 
63b. 
■b  3b. 

590  . 
5 9 1 . 
592. 


5h3. 

. 

6**b  . 
5«b  . 
5n  / . 

M¥; 

550. 
551  . 


5b2. 
5 > 3. 
5b««  - 
6bb  . 
6b*  . 

5b  t . 
5>«. 
6b«  . 

5*0  . 

5*  I . 
5*2. 
6*  3* 
6*H  . 

5b»  . 
5*b  . 

569  . 

570. 
571  . 
6/2. 
573. 
5 7s  . 
5 7*  . 

5 /*  . 
677  . 
6/b. 

6 7b. 
6*0. 
5b l . 
5b2. 
6b  3. 


>b»  . 

*#!: 

586. 

50*. 
5*0. 
6«1  . 

5 V2. 

6*3. 

. 

6bb  . 

6 bb  . 
5*7  . 
> b* . 
5bb. 


C 


C 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


NLORV 

NLDRV 

NLORV 

NLORV 

NLORV 

NLORV 

NLDRV 

NlDRV 

NlDRV 

NlDRV 

NlDRV 

NLORV 

NlORV 

NLORV 

NlORV 


9001  LVDG  = LOTR*CPSG  - LR*T  AU*COSG  Alt  ♦ LURC7*SPS6  NLORV 

UVDP  = L0TR*C6SP  - LURCT*CGCP  NlORV 

LV0R  = { LOTR*CGCP  4 LURCT*CGSP >/R  - LHT*3 . 15/V*HT0R  NLORV 

LVDO  = -LURCT*CGSP*SOOCO  NlORV 

LVDT  = -LRHO*CGCP/R  - LR*SINGAfl  - LUROC6SP  NlORV 

L60G  = LUT  VRC*C6SP  ♦ LVT  AU*(  SI NSAn*6  - Ort2RCO*E XPRS 1 ) NlORV 

* ♦ LR*T AO*S 1 NGAB* V 4 LOVTR*CGCP  NlORV 

NlORV 

LGDP  = LUTVROCPS6  - L VT AU*0n2RC0* SP SO SG  - LOVTR*SPSG  NlORV 

NlORV 

L6DR  =-LUTVRC*SPSG/R  ♦ LVTAUM EXPRES*On2CO  - GH*C0SGAPt)  - NlORV 

* LOvTR*CPSG/R  NlORV 

NlORV 

LGDO  = LUTVRC*SPS0SG/C0SRH0  4 LVT AU*0n2R*E XP RS2  NlORV 

NlORV 

L6DT  =LU«C*V*SPS6  -LV*(0l92RC0*EXPRES  - C0SGAH*6)  NlORV 

* - Lfi*C6V  ♦ lRHO* V0R*CPS6  NlORV 

NlORV 

LPDP  = LUTVRC*CGSP4(  LVTAU»On2RCO  *SINRH0  4L0VTR)*C6CP  NlDRV 

NlORV 

LPOR  = LVTAU*Om2CO»COSGAn*SPSO  4 (LJTVRC*C6CP  - LOVTfi*CGSP  )/R  NlDRV 

NlORV 

LPDO  = LVTAU40n2R*C0S2R0*CGSP  - LtlTVRC*CGCP*SOOCO  NlDRV 

NlORV 

LPDT  = CGSP*( lRHO* VCR  - L¥*Cfl2RC0*$lNRH0)  - LURC»V*CGCP  NlORV 

NlORV 

LROR  =-2./R2*(LUTVRC*CGSP  ♦ LOvTR*CGCP > - LVTAU4GRR*$IN6An  NlORV 

IF( 1 ATW  -LT.  2)  LROR  = LROR  - LMT*  . 5/( RO*ROR  )♦( 2 . *R04fi0RR-R0fi*»2 ) NlORV 

NlORV 

LROO  = LUTVRC*CGSP*5INfirtO/RCRHO  - LVTAU*0n£GA24EXPR53  NlORV 

LROT  = LURC*VOR*CGSP  - LV*( 0n2C04EXPRS 1 - GH*S  1 NGAA  ) NlORV 

* ♦ lRH0*v0R*C6CP/R  NlORV 

NlORV 

LOOO  = - LUT¥ROCGSP*$OOCO*SOOC0  * L VTAU*0n2R42 . *( CC52R0*5 INGAA  - NlORV 

* $IN2R0*C6CP)  NlORV 

NlORV 

LOOT  =-LURC*V*CGSP*S00C0  ♦ LV*0rt2R*EXPRS3  NlORV 

IS  THIS  VERT. RISE/PITC HOVER.  NlORV 

!F( XODE  .NE.  9)  GO  TO  9000  NlDRV 

YES.  ACCOUNT  FOR  EFFECTS  OF  APPLIED  LOADS  ON  1ST  NlORV 
PARTS. W/RESP -TO  STATE  OF  COSTATE  EOS.  NlORV 

LVOV  = ASFK  APWV,  AVW  ) - LHT*2 . 15  / V*HTD  V NlORV 

L von  = ASFK  AflVfl,  AVVrt)  NlORV 

LGDR  = ASFK  AWGrt.  AVGn)  NlORV 

LPDR  = ASFK  ArtPn,  AVPrt)  NlDRV 

LRDI9  = ASFK  Af9Rl9.  AVRn)  NlORV 

L0D(9  = ASFK  AWOn,  AVOrt)  NlORV 

LVDG  = LVDG  4 ASFK  ArWG.AVVG)  NlORV 

LVDP  - LVDP  4 ASFK  ArtVP  . AVVP  ) NlDRV 

LVDR  = LVDR  4 ASFK  AflVR  AVVR  > NlORV 

LVDO  s LVDO  4 ASFK AnvO  AVVO ) NlDRV 

LVOT  = LVDT  4 ASFK  AnvZ  AWZ  ) - LR* AnV  - LV*AVV  NlORV 

LGDG  = LGOG  4 ASFK ADbb. AVb6  ) NlORV 

LGDP  =■  LGDP  + ASFK  ArtGP  AVfiP ) NlORV 

LbDR  = LGDR  4 ASFKANGR  AVGR)  NlORV 

LG00  = LGOO  4 ASF 1( AnGO  AVGO > NlORV 

LGDT  s LGOT  4 A5FK AWbZ  AVGZ > - L«*AflG  - LV*AVS  NlDRV 

LP0P  = LPDP  4 ASFK  AnPP  AVPP  ) NlORV 

LPDR  = LPDR  4 ASFK AnPR  AVPR  ) NlORV 

LPOO  = LP00  4 ASFKAnPO  AVPO>  NlDRV 


ZD( 16)=  L*D 
ZD(  17)=  LTD 
Z0(  18)=  0. 

IS  OL  CONVERGED. 

IF<  .NOT  KONVER  ) GO  TO  9001 

COnPuTE  AND  STORE  VELOCITY  LOSS  DERIVATIVES. 

ZD(  19  ) = FVAC/n*TAU 

ZD120)  = (DRAG  + DB»COS A )/R*T AU 

ZD( 21  ) = AE»PA*COOAE/«*TAU 

2 0 f 22  ) = &*SlN6An*TAU 

20(  23)  = FVACbll.  - COOAE  >/n*TAU 

RETURN 

QL  NOT  CONVERGED.  ASSunE  FREE  FALL  AND  COrtPuTE  1ST 
PARTS. U/RESP.  TO  STATE  OF  COSTATE  EOS.  DnlTTlNG 
TERnS  WITH  LGAn  OR  LPSI . 


9001—1 


9000-n 
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600. 
601  . 
602. 
603. 
60*. 
605  . 
6 0*  . 
60/ . 
60#. 
60*. 
6 10. 
611. 
612. 
6 13. 
6 1*  . 
6 1*  . 


617. 

616. 

41*. 
620. 
621. 
622. 
623. 
624  . 
6 26  . 
6 2*. 
62/. 
62#. 
62*. 
630. 
631  . 

632. 

633. 
6>«. 
6 36  . 
636. 
6 3 i . 
63#. 
6 3#. 

640. 

641. 

642. 
64  3. 

644  . 
64#  . 
64*  . 
64/  . 
64#. 
64*. 
6*0. 
6*  I . 
6*2. 
6*3. 
6*4  . 
6»*  . 
6*#  . 
6*/  . 
6*#. 
6*#. 
6*0. 
6*1  . 
6*2. 
6*3. 

6*4  • 
6**  . 

6*/  . 


6/0. 
6/  1 . 
6/2. 
6/3. 

6/4  . 


C 


c 


c 

c 

c 

c 

c 


LPOT  s LPOT  4 ASFK AflPZ,AVPZ>  - LM*AflP  - LV*AVP  NLORV 

AIL  DRV 

LRDR  = LRDR  * ASFK  AMRR  A VRR  ) NLDRV 

LROO  s LRDO  ♦ ASFK  AMRO  A VRO  ) NLDRV 

LRDT  = LRDT  ♦ ASFK AMRZ. AVR2  ) * LM* AMR  - LV*AVR  NLDRV 

NLDRV 

LODO  = LOOO  ♦ ASF 1( AWOO  AVOO ) NLDRV 

LOOT  = LOOT  ♦ ASFK AflOZ.AVOZ)  - L«*A«D  - LV*AVO  NLDRV 

LflOrt  = ASFKAWWPl.  AVHA)  JUL19B 

LHOT  = ASFKAflWZ.  AVRZ)  - L**A«*  - LV*AV«  JUL19B 

LTOT  = ASFKAHZZ,  AVZZ  1 - 2.*(L«*AnZ  ♦ LV^AVZ)  JUL19B 

NLDRV 

NLDRV 

60  TO  5000  NLDRV 

NOT  VERT .RISE/PITCHOVER.  STILL  ASSUMING  FREE  FALL,  NlDRV 
ADO  IN  TERMS  WITH  LbArt  AND  LPSI  TO  THE  1ST  PARTS.  *'NLDRV  - 
W/RESP,  TO  STATE  OF  THE  COST  AT  £ EOS.  NlDRV 


*000  LVOV  = -TAU*2./V2  * ASF21  0N2R VC»EXPRE$  - COSGAI«1*60V,  NLDRV 

* ( ORVC06*SPSO>)  NLORV 

* -LHT*2. J5/V*HTDV  NLDRV 

LVDG  = LVDG  ♦ TAU*ASF2(( SINGAM*( GOV/V  4 l./R)  - 0M2R VC*EXPRSl / V ),  NLDRV 

* ( SPS0SG*(1 ./RCRHO  + 0RVC06/CGV  ))>  NlORV 

C NlDRV 

LVOP  s LVDP  ♦ TAU*ASF2(  ( -0M2R VOSPSOSG/ V >,(  CP SO*OR VC06/ V NLDRV 

* - CGCP*SINRHO/RCRHO  ) ) NLDRV 

C NLDRV 

LVOR  r LVDR  + 7 Ai)*ASF  2( EXPRES+0PI2C0/ V2  - C056A«*7 6H/ V2  - 1./R2),  NLDRV 

* 1SPSO*OM2CO/(C6V*V)  -*  C6$P*S00C0/R2>>  NlORV 

C NLORV 

LVDO  = LVDO  4 TAU*ASF2(  EXPRS2*0M2R/V2,  . IjtLDRV 

» ( C0S2R0*SlNPSI*6n2R/( CGV*V ) * CGSP/t R*C02  ) ) ) NlDRV 

C NLDRV 

LVOT  = LVDT  * ASF2U EXPRES*0M2RVC/V  - COSSAft*( GOV/V  ♦ l./R)),  NlDRV 

* ( SPSO*< OfiVCOG/V  - COSGAM/RCRHO  ) ) ) NLORV 

c NLDRV 

C NlORV 

LGDG  s LGDG  4 TAU*ASF2( ( EXPRES*0n2RVC  4 COSGAMM VOR  - GOV)),  NLDRV 

* ( 2.*OMEGAT*CPCO*SbOC6/CG2  - NlDRV 

* SPSO*( 0rt2fi VC*( 2 . /CG2  - 1 . )/C0S6Art  - NlORV 

* CGV/RCRHO ) ) ) NLDRV 

C NlDRV 

LGDP  = LbOP  4 TAU*ASF2(  ( 0M2R  VOCGSP^S  I NRHO  ),  ( CP  SO*  S I «6A*  * NlDRV 

* ( v/RCRHO-ORVCOG/COSbAM)  - OnEGAT*COSP/CG2  ) ) NlDRV 

C NlORV 

LGOR  r l&DR  4 TAU*ASF2(  ( EXPRS  1»0(92C0/ V - SI NGAfl*(  VOR/R  4 6H/V)),  NLDRV 

* ( -SPS0SG*< VOR/RCRHO  4 0M2C0/1 CG2* V ) ) ) ) NlDRV 

C NlDRV 

LGOO  = LGDO  4 TAU*ASF2((  - 0H2R4EXPRS3/ V ),( SPSb* V0R/C02  - NLDRV 

4 ( OMEGAT*CPSO  4 5P5b*6rt2R4COS2RO/V )/£G2)>  NLDRV 

C NLDRV 

LGDT  = lGDT  4 A5F2( ( 0M2RVC*£XPRS1  4 SlN6Afl4( vOR  - GOV)),  NlDRV 

4 ( ( 0MEGAT*CPC0  - SPS0SG*0M2R VC )/  NlDRV 

4 CG2  4 5PS0SG4V/RCRH0 ) ) NLDRV 

C NLORV 

C NLDRV 

LPDP  = LPOP  4 TAU4ASF2U0MEGAT4C0Sp40n2RVC4CPS04SlN6An),  NlDRV 

4 ( OR VC0G*SP50  - 0MEGAT4CPC0*Sg6C6  4 NlORV 

« CGV  4SPS0/RCRH0)  ) NlDRV 

C NlDRV 

LPDR  = LPOfi  ♦ TAU*ASF2( ( 0«2C0*SP SOSG/ V ),( CPS04( COSGAfl* VOR/RCRHO  - NlORV 

* OM2CO/C6V)))  NLDRV 

C NlDRV 

LPOO  = LPOO  4 TAU*ASF2(( OMEGAT*CPSO  ♦ SPSG*C0S2R0*0M2R/V  ),  NLDRV 

* ( 0ME6AT4SPS0SG/C0SGAM  - C0SPSI*0ft2R*  NlORV 

4 C0S2R0/CGV  - CGCP*  V0R/C02  ) ) NlORV 

C NLDRV 

LPDT  = LPOT  4 ASF2( ( 0»2R VC»SPS0S6  - OrtEGAT *CPCO ),  NlDRV 

4 -( OflE6AT*COSP4SGOC6  + CPS0*0RVC06  ♦ NlDRV 

* C6CP*SOOCO*VOfi  ) ) NLDRV 

C NLORV 

C NLORV 

LRDR  = LRDR  4 TAU*ASF2( ( COSGAM*(  GRR/V-2 .*V0R/R2 > ),  NlDRV 

* ( -2.*C6V*SPS0/C  RCRH0»R2 ) ))  NLDRV 

C NlORV 

LfiOO  = LRDO  4 TAU*ASF2( -£XPRS2*0flE6A2/V  ( CGSP«V/( RCRHO*RCRHO  ) - NLDRV 


5000 
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/ / CP 


S1NPSWCOS2RO*OaEGA2/C&V  ) ) 


LfiDT  = LROT  4 


A$F2t < CQSGAn#t VOR/R  4 GH/V)  - EXPRE$*0A2C0/ V > 
< 5P$0*<  C6V/( RCRH0*R ) - OA2CO/CGV ) I > 


LOOO  = L000  4 TAU*A5F2( (OnEGAT4COSP  ♦ 2.*0«2R/V  * 

4 l C0S2R0*C05GAA  4 5IN2R0«CPS6 ) ), 

» t OflEGAT*t SlNRH0-CPC0*SG0CG>  4 

» 2. »SPS04( 2. *ORVCOG  - CGV/(RCRH04C02I))| 

LOOT  * LOOT  4 ASF2(  <OnEGAT45PSO  - EXPRS240A2R/ V ), 

4 - (OA£GAT*<  CP50*560C6  ♦ COSRHOi  4 

4 SlNPSl4C0S2R0*0A2R/CGV  * CGSP*v0R/C02 ) ) 

IS  THIS  FREE  FALL 
IFtAOOf.EO.O)  GO  TO  5000 

NOT  FREE  FALL.  IS  THIS  OPT  I HAL  CONTROL. 

IF( RODE  .lT . H>  GO  TO  H500 

NON-OPT I AAL . ACCOUNT  FOR  EFFECTS  OF  APPLIED  LOADS 
ON  1ST  PARTS. W/RESP. TO  STATE  OF  COSTATE  EOS. 

LVOV  = LVOV  4 ASFK AAVV, AVVV  ) - LGTV*t 2.*t AG/V2  - AGV/V)  +AGVV) 

> -LPTC6V4( 2.4(  AP/V2  - APV/V)4APVV) 

LVDG  & LVOG  ♦ LPTCGV4SG0CG  * (AP/V  - APV) 

LVOR  - LVOR  4 ASFl(AAVR.AVVR)  4 LGTV*(AGR/V  - AGVR) 

> 4 LPTC6V4( APR/V  - APVR) 

LVOT  = LVDT  4 ASFlt AAVZ,AVVZ)  - LA* AAV  - LV*AVV 
1 4 LGTV*(AGZ/V  - AGVZ)  4 LGAA/V  * (A6/V  - AGV ) 

f - - -4  LPS1/CGV  *'IAP1*TAUV  - APVZ*TAU  ♦ AP/V  - APV) 

L60G  = LGDG  - LPTCGV*AP*( 2./CG2  - 1.) 

LGOR  x LGOR  - LPTCGV4APR4SG0C6 


SG0CG*tLPTC6V*APZ  4 LPS I *AP/C6V  ) 


= LROR  4 ASF K AARR  AVRR  ) - lGTV*AGRR 


LPTCGV*APRR 


lrot  = lrot  4 asfk aarz#avrzj  - la*aar  - lv*avr 

4 - LtoTV*AGRZ  * LGAA4AGR/V 

4 - lPTCGv* APRZ  - lPSI*APR/C6V 

LAOA  = ASFlt AAAA,AVAA>  - LGT V*AGAA  - lPTC6V*APAA 

LAOT  = ASFlt AAAZ.AVAZ  ) - LA* AAA  - LV*AVA 

4 - LGTV4AGAZ  - LPTCGV4APAZ 

4 - lgaa*aga/v  - lpsi*apa/cgv 

LTOT  = ASFK  AAZZfAVZZ)  - LGT V« AGZZ  - lPTCGV*APZZ  - LA«AAZ 

4 - 2 . *<  L V*  A VZ  ♦ LUAA*AaZ/V  4 lP S I * AP l /C G V ) 

4-LA4AAZ 

LVOA  = ASF  1 ( AAVA, AV VA  ) 4 lGTV4(AGA/V  - AGVA ) 

4 4 LPTCGV#t APA/V  - AP  VA ) 

LGDA  =-LPTC6V4SG0CG4APA 

LRDA  = ASFlt  AARA  AVRA ) - Li»T  V*A6RA  - LPTCGV4APRA 


GO  TO  5000 


OPTlrtAL  CONTROL.  ACCOUNT  FOR  EFFECTS  OF  APPLIED 
LOADS  ON  1ST  PARTS . nl/RESP  . TO  STATE  OF  COSTATE  EOS. 

LPTCGV*5GCCG*t  APV  - AP/V) 


4500  LSOV  = L VOG  - LPTCGV*SG0C6*(  APV  - AP/V) 

LPOV  = LVOP 
LPDB  = LGOP 

lRDV  = LVDR  4 LVTAU*  AVRV  - LGTV4t  AGR V - EAGfi/V)  - LPTCGV* 

•t  APR V - EAPR/V)  4 LflTAU*  AARV 

LRD6  = L6DR  4 LVTAU*  AVRG  - LGTv*  AGRG  - LPTCGV*t  APRG  4 SG0C6*EAP 
4R)4LATAt)*  AARG 
LROP  - LPOR 
LCD v - LVOO 
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750. 

L006  s LGDO 

nldrv 

751. 

LOOP  = LPDO 

nldrv 

752  . 

LODR  s LRDO 

NLORV 

753. 

LADV  = TAU*(“LV*  AVAV  -<  LGAA*  AGAV  4 LPSI/COSGAA* 

AP AV  )/V 

- LA*  NLDRV 

75*. 

* AAAV  4 (LGAA*EAGA  4 LPS I /C05GAA*£ APA )/ V**2  ) 

nldrv 

70>  . 

7 s.*. 

LADG  ^ TAU*(-LV*  AVAG  -( LGAA*  AGAG  4 LPS I /COSGAA*< 

AP  AG  4 

SGGCG»EA  NLORV 

*PA  ) )/ V-  LA*  AAAG ) 

NlORV 

70/ . 
700 . 
700. 

1 + 0. 
1+1  . 
702. 
743. 

f«: 

766. 

1 + 1 . 
700. 
700. 
11 0. 

7 7 1. 
77*. 
773. 

7 7h. 
7/0. 

7 70. 
777  . 
770. 

/'?* 

7«0. 

7«1. 

702. 

f«?: 

785. 

70*. 
707  . 
700. 
700. 

7 00. 
701  . 

702. 

703. 
70*4  . 
700  . 
700. 
70/  . 
700. 
700. 

eoo. 
eoi . 

*M: 

80*. 

600  . 
600. 
80/. 
600. 
800. 
610. 
611 . 
612. 
613. 

61*4  . 

6 Ip  . 
610  . 
81/  . 
610. 
610. 
820. 

m-. 

823 . 
820  . - 


LADR  S TAU*<-LV*  AV«R  -( LGAA*  AGAR  ♦ LPSI/COSGAA*  APAR)/V  - LA* 

• AAAR) 

LTOV  = LVDT  - LV*(AVV  ♦ TAU*  AV2 V > -LGAA/V*(AGV  ♦ TAU*  AGZV  - (AG 

• 4 EAGZ  )/ V ) - LPSI/C6VM  APV  4 T AU*  APZV  - ( AP  4 7AU*EAPZ)/V)  -LA* 
*(AAV  4 TAU*  AAZV) 

LTOG  = LGOT  - LV*(  AVG  4 TAU*  AVZG  > - LGAA/V*(A6G  ♦ TAU*  AGZG)  - 
*LPSI/CGV*< APG  4 TAU*  APZG  4 SGOCG*(AP  4 TAU*EAPZ>)  - LA*< AAG  4 
*TAU*  AAZG) 

LTOP  s 1.P0T  * 

LTOR  = LRDT  - LV*(AVR  4 TAU*  AVZR ) -LGAA/VUAGR  4 TAU*  A6ZR ) 

* -LPSI/CGV*( APR  4 TAU*  APZR)  - LA*< AMR  4 TAU*  AAZR  > 

LTOO  = LOOT 

LTOA  = -LV*(AVA  4 TAU*  AVZA)  - LGAA/V*(AGA  4 TAU*  AGZA)  - LPSI/CSV 
**(APA  4 TAU*  APZW)  - LA*(AAA  4 TAU*  AAZA) 

LVOV  = LVOV  4 ASFU  AAV  V AVVV)  - LGTV*< 2.*AG/V2  - ( EA6V 

* 4 AGV  >/V  4 AG V V ) - LPTCGV*( 2.*AP/V2 

» - ( EAP V 4 APV  )/ V 4 AP V V > 


C ' 


LVDG  = 

lvdr  = 

LVDT  = 

* 

♦ 

LGDG  = 
LGOR  = 
LGOT  = 
LROR  = 
LRDT  = 

* 

LVDA  s 


LVDG 

LVDR 

LVDT 


4 ASFU  AflVG,  A V VS  > 4 LGTVMAGG/V  - A6VG ) 

4 lPTC6V*<  5bOCS*( AP/ V - EAPV ) 4 APG/V  - APVG) 


4 ASFU  AAVR . AVVR)  4 LGTV*(  AGR/ V - AfiVR  ) 

4 LPTC6V*< APft/V-  AP VR ) 

4 ASFU  AAVZ.  AVVZ)  ♦ L6TV-MAGZ/V  - AGVZI 
4 lPTCGV *( APZ7 V - APVZ) 

- L V*EA V V - LA*EAAV  4 LGAW/V*(AG/V  - EAGV) 

4 LPS1/C6V  * (AP/V  - EAPV) 

LGDG  - LPTC6V*( AP*(2./CG2  - 1.)  4 SGOCG*APG> 

lgdr  -lptcgv*apr*sgocg 

- lPSI/CGV*S60C6*( AP  4 TAU*APZ) 

4 ASFU  AflRfl , AVAR)  - LGT V*  AoRR  - LPTCGV*  AFRR 


LGOT 

LROR 

LRDT 


4 ASFU  AdfiZ,  AVRZ ) - LGTV*  AGRZ  - lPTCGV*  APRZ 
- LV*EAVR  - Lfl*EAflfi  - LGAPl*EAbR/V  - LPS I*EAPfl/CGV 
ASFU  AAVA,  AVVA)  4 lGTV*(AG  A/V  - AGVA ) 4 

LPTCGV*( APA/V  * AP VA ) 


MLORV 

NlDRV 

nldrv 

NLDRV 

NLDRV 

nldrv 

NLORV 

NLORV 

NLCRV 

NLORV 

NLDRV 

NLORV 

NLDRV 

nldrv 

NLDRV 

NLDRV 

NLDRV 

NLDRV 

NLORV 

NLDRV 

NLORV 

NLORV 

NLDRV 

NLDRV' 

NLORV 

NLOfiV 

NLDRV 

nldrv 

nldrv 

nldrv 

NlORV 

nldrv 

nldrv 

NlORV 

nldrv 

nldrv 

NLORV 

NLDRV 

NLDRV 

nldrv 

nldrv 


C 

L6DA 

=-LPTC6V*APA*S60CG 

NLDRV 

nldrv 

c 

lrda 

= ASFU  AARA,  AVRA)  - LGTV*  AGRA  - LPTCGV*  APRA 

nldrv 

nldrv 

c 

LADA 

= ASFU  A AAA,  AVAA ) - LfaTV*  AGAA  - LPTC6V*  APAA 

nldrv 

nldrv 

c 

LADT 

= ASFU  AAAZ,  AVAZ)  - LGTV*  AGAZ  * LPTCGV*  APAZ 

nldrv 

nldrv 

* 

- LV*EAVA  - LA* E AAA  - lGAA*EAGA/V  - LP S I * E APA/ CSV 

nldrv 

c 

LTOT 

= ASFU  AAZZ,  A VZZ)  - LGTV*  A6ZZ  - lPTCGV*  APZZ 

nldrv 

nldrv 

• 

- LW*CEAVZ  * A VZ  ) - Lfl*( EAAZ  ♦ AAZ > - lGAA*(EAGZ  4 AGZ)/V 

nldrv 

* 

- lpsi*(Eapz  4 apz>/cgv 

NLOfiV 

c 

still  OPTIAAl  control.  COAPUTE  1ST  PARTS. iV/RESP. TO 

NLDRV 

c 

COSTATE  OF  STATE  EDS. 

NLOfiV 

VOLV 

r TAU*AVLV 

NLDRV 

GOLV 

s TAUV*ASLV 

nldrv 

pdlv 

r TAUCG V*APLV 

nldrv 

ADLV 

= tau*aalv 

NLDRV 

c 

c 

V0l6 

= TAU*AVL6 

nldrv 

nldrv 

NlORV 

GDlG 

= TAU V*A6l6 

NlORV 

PDlG 

= T AUCGV* APL6 

nldrv 

aOlG 

= tau*aalg 

nldrv 

c 

VOlP 

= TAU* AVLP 

nldrv 

NlORV 

6 OCT  72  6 . 01  -*»*» 


fSO>  (/ 


825. 

826. 
827. 
826. 
629. 


630. 

631. 

632. 

eaa. 


Q 


839. 

63*  . 
63*. 
6 3/  . 
63#  . 
63*. 
6m  0 . 
6m  1 . 
6m  2 . 
6m  3. 
6mm  . 
8m*  . 
6m#. 
/ . 
6m#. 
6m*. 
6*0. 
6*1. 
8*2. 
6*3. 


fiOLP  = TAUV*A6LP 
PDLP  = TAUCGV*APLP 
rtOLP  = TAO*A«iP 
C 

RETURN 

C NON-OPTIrtAL  CONTROL . THE  1ST  PARTS . tf/RESP . TO 

Z COSTATE  OF  THE  COSTATE  EQS . ARE  GIVEN  BY  NEGATIVE 

C TRANSPOSE  OF  THE  1ST  PARTS.  Bl/RESP  . T 0 STATE  OF  THE 

C STATE  EOS. 


5000  CONTINUE 

00  10  1 = 1,  9 
K = I ♦ 9 
DO  10  J = 1,  9 

10  JACOBU  + 9,  A ) - -JACOBI  I J) 

C , ALSO  FOR  NON-0PT IPIAL  CONTROL,  THE  1ST  P ARTS  .K/RESP.. 

C TO  STATE  OF  THE  CO  ST ATE  EOS.  FOArt  A SfanETKlC 

C PJATRIX,  SO  FILL  IN  LONER  TRIANGULAR  PORTION. 

*000  £8NIiMV£  , * 

www  DO  20  I = 2.  9 
L s I ♦ 9 
K = I-l 
DO  20  J = 1 .K 

20  JACOBCL,  J)  = JACOBU  ♦ 9,  I) 

C 

C 

C 

c 

RETURN 

END 


nldrv 

NLDRV 

nldrv 

nldrv 

NLDRV 

NLDRV 

nldrv 

nldrv 

nldrv 


nldrv 

nldrv 

nldrv 

nldrv 

nldrv 

nldrv 

MLDB¥ 

nldrv 

nlorv 

nldrv 

nlorv 

NLDRV 

nldrv 

nlorv 

nldrv 

nldrv 

nldrv 

nldrv 

nldrv 

nldrv 
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I 


FORTRAN 

SYMBOL 


s?mol  C00E 


DESCRIPTION 


STORAGE 
~ LOCK  lGC 


SUBROUTINE , U?A$E 
SUBR  CODE VAR 


AE 

A 

I 

Total  netslo  «*lt  ir»i  (FT2) 

/DVNA 

/< 

84  ) APPLY 

I 

AE 

tilt 

ARCIK 

0 

AC 

IMPULS 

I 

AE 

KLDBV 

I 

AE 

tk  z 

I 

AE 

APLP 

1 

Th«  first  sntry  In  e S x 3 aatrix  that  contains 

/axle 

/( 

335  ) APPLY 

M 

APLP 

de/aX„  da/BX,  and  da/dX* 

KLDRY 

l 

aplp 

AY 

-V 

I 

The  first  aord  of  a four  aord  array  that  contains 

/axle 

/( 

1 ) APPLY 

n 

AY 

• 

tha  vector  of  applied  accelerations  defined  by 
Equation  2.4-2  in  Vol.I  of  this  document. 

APPLY 

0 

axle 

KLDRY 

I 

AY 

AVV 

d»*/d* 

I 

The  first  entry  In  a 4x8  aatr  i a that  contains  the 

/axle 

/( 

5 ) APPLY 

n 

AVV 

total  partial  derivatives  of  the  a vector  pith 
respect  to  the  QL  state  vector  (excluding  the 

KLDRY 

l 

AVV 

heat  1 ng  state  ), 

da/dy. 

A V V G 

at  5»v/sv )/av 

I 

The  first  entry  In  a 4x6  aatrix  that  contains 
d(5e/6y)/dY 

/AXLE 

/( 

101  ) KLDRY 

1 

AYVG 

AVVP 

3(  8lv/8V )/d* 

I 

The  first  entry  in  a 4xB  aatrix  that  contains 
d<  6 a/6y  >/d* 

/AXLE 

/( 

133)  KLDRY 

1 

AVVP 

AVVR 

at  6»*/5v )/an 

I 

The  first  entry  in  a 4x8  aatrix  that  contains 
d(6a/Sy)/dh 

/AXLE 

/( 

165)  APPLY 
KLDRY 

0 

I 

AVVR 

AVVR 

A VV  V 

at  Bi’/sv )/av 

I 

The  first  entry  in  a 4x8  aatrix  that  contains 
d( 6 a/6y )/dV. 

/AXLE 

/( 

69  ) APPLY 
APPLY 

0 

I 

A V V V 
AVV 

KLDRY 

1 

A V V V 

c 

c 

I 

A forty  aord  arrav  containing  the  vector  of  c's. 

/D 

/< 

1 1 ) BNDRY 

I 

C 

i.e.  the  au-lttpliers  for  the  hoaogeneous 

BRANPT 

I 

c 

so  J ut 1 ons . 

GROPE 

I 

C 

1NTRPT 

I 

c 

NEWCS 

n 

c 

NLDRY 

i 

c 

NORMAL 

i 

c 

WflAPUP 

i 

c 

COOAE 

cost  « - ) 

I 

See  tyabol 

/OYNA 

/( 

151  ) AL1 

i 

CODAE 

AL4 

i 

COOAE 

AL6 

i 

COOAE 

AL7 

i 

CODAE 

AL8 

i 

COOAE 

Al9 

i 

CODAE 

APPLY 

i 

CODAE 

contrl 

i 

CODAE 

nldrv 

i 

CODAE 

T M3 

i 

COOAE 

UT 

0 

CODAE 

COSA 

C 0 SOI 

I 

See  tyabsl 

ZOYKA 

/( 

20)  ALl 

i 

COSA 

AL4 

i 

COSA 

AL6 

i 

COSA 

ALT 

i 

COSA 

AL8 

i 

COSA 

AL9 

i 

COSA 

APPLY 

i 

COSA 

COKTRL 

i 

COSA 

NLDRV 

i 

COSA 

OUTPUT 

i 

COSA 

TH3 

i 

COSA 

UT 

n 

COSA 

COS  GAM 

C 0 S7 

I 

See  syabol 

/DVNA 

/< 

4)  ALl 

i 

CQSGAN 

AL4 

l 

GOSSAN 

AL7 

I 

COS  GAM 

ALB 

I 

COSGAM 

AL9 

l 

C0S6AM 

CONTRL 

I 

COSGAM 

NLDRV 

I 

COSGAM 

OUTPUT 

1 

COSGAM 

PDBCQL 

I 

COSGAM 

STATEF 

N 

COSGAM 
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FORTRAN 

SYMBOL 


NAT  H 
SVNBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

block loc  subr  code  yab 


COSPSI 

C 0 S + 

1 Sea  tyabol 

/DVNA 

/( 

95  ) 

ATL9 

I 

COSPSI 

ALT 

I 

C0SPS1 

AL8 

1 

COSPSI 

AL9 

1 

COSPSI 

CONTRL 

I 

COSPSI 

NLDRV 

I 

COSPSI 

PDBCQL 

I 

COSPSI 

statef 

0 

COSPSI 

COSAHO 

c o sp 

I Stt  tyabol 

/DYNA 

/t 

97  ) 

ALA 

I 

CQSRMO 

AL7 

1 

COSAHO 

ALB 

1 

COSAHO 

AL9 

I 

COSAHO 

CONTRL 

I 

COSAHO 

NLORY 

I 

COSAHO 

OUTPUT 

I 

COSRHO 

PDBCQL 

1 

COSAHO 

STATEF 

It 

COSAHO 

C0S2R0 

to  tip 

I See  sy  abo 1 

/DVNA 

/< 

120) 

AL9 

i 

C052RO 

AL7 

I 

C0S2R0 

ALB 

I 

C0S2A0 

nldrv 

I 

C0S2R0 

STATEF 

0 

C0S2R0 

OB 

n 

I Baft  a drag  ( LBS  ) 

/OYNA 

/( 

163  ) 

ALl 

I 

DB 

b 

ALA 

I 

DB 

AL6 

r 

OB 

AL7 

i 

OB 

A^B 

i 

DB 

* * 

AL9 

“i 

OB 

apply 

i 

OB 

CONTRL 

i 

DB 

NLORY 

i 

OB 

OUTPUT 

i 

DB 

STATEF 

i 

OB 

TH3 

i 

DB 

UT 

i 

OB 

DRAG 

0 

I Aerodynamic  drag  (LBS) 

/DYNA 

/( 

69  ) 

AL5 

i 

ORAG 

AL7 

i 

DRAG 

ALB 

i 

DRAG 

AL9 

i 

OR  A 6 

apply 

i 

DRAG 

CONTRL 

i 

DB  AG 

ENVPRQ 

i 

OAAG 

NLORY 

l 

OAAG 

OUTPUT 

i 

DRAG 

TH3 

i 

DRAG 

UT 

n 

OR  A6 

E A V V 

6 av/6 v 

I Th«  tint  entry  in  a 9t8  aatrfs  that  contains,  ahen 

/ABLE 

/( 

37  ) 

APPLY 

i 

EAYY 

* i t opt  1 aa 1 , 

NLORY 

i 

E AY  V 

6*/B,  = = C8„,ta*.t 


6a/6y  - da/By 

F VAC 

I 

Total  vacuua  thrust  (rocket) 

( LBS  ) 

/DVNA 

/( 

33  ) 

APPLY 

I 

F VAC 

ARCIN 

It 

F VAC 

IftPULS 

ft 

F Y AC 

NLDRV 

1 

F VAC 

statef 

It 

F VAC 

TH2 

l 

F V AC 

G 

9 

I 

Instantaneous  gr a v 1 tat i ena 1 acceleration 

/DYNA 

/( 

B) 

AL9 

1 

6 

(FT/SEC2 ) 

AL7 

I 

G 

AL8 

I 

G 

AL9 

I 

G 

CONTRL 

I 

G 

NLORY 

1 

G 

STATEF 

ft 

6 

GAftHAO 

I 

Pitch  rata 

< RAO/SEC  ) 

/OYNA 

/( 

88  ) 

AL9 

1 

GAftftAD 

ARCIN 

0 

GAftftAD 

CONTRL 

I 

GAftftAD 

NLORY 

1 

GAftftAD 
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//£  7 


DESCRIPTION 


storage 

BLOCK LDC 


subroutine  USAS 
suba  c6oe  var 


d 9 / dR  * $*•  syabol 

a2g/dR2  1 Stt 


1 Ateosphere  option  f 1 • 9 


An  18«I8  array  defined  by  Equation  17.5-5  .In  ¥0  \ . ( 
of  this  document.  Thi  entry  in  the  i-th  roe  and  J - 
th  coiuan  Is  the  total  partial  derivative  of  the 
quasitiae  derivative  of  the  Yj  coaponent  of  Y aitb 
respect  to  the  Vj  coaponent  of  Y,  l.e.# 
dYj'/avj, 


AL7 

1 

SR 

AL8 

I 

6H 

NLDRV 

] 

GH 

STATEF 

ft 

6H 

AL7 

I 

GRR 

AL8 

I 

GRR 

NLDRV 

I 

GRR 

STATEF 

ft 

GRR 

ARCIN 

I 

I ATft 

NLDRV 

I 

I ATft 

OUTPUT 

I 

I ATft 

STATEF 

I 

1 ATft 

LI  NOR  V 

I 

JAKE 

NLDRV 

ft 

JACOB 

NLDRV 

ft 

VOV 

SALVE 

0 

JAKE 

I 

Steering  vector  flag 

70VNA 

/( 

25  ) 

APPLY 

I 

KODE 

*0D£  s 0;  Free  fail,  « = # = 0; 

ARCIN 

0 

KODE 

KOOE  = 1:  Both  a and  d optfaal  ; 

contrl 

ft 

KODE 

KODE  = 2:  a optlaal  and  d = 0, 

FORCES 

1 

KODE 

KODE  = 3 : a no  nop 1 1 aa 1 and  d optlaal; 

NLDRV 

I 

KODE 

KODE  ='**:  forties!  rise  or  pitchevef; 

~ 

STATEF 

KOOE 

KODE  - 5:  a nenoptfeeJ  and  d - 0. 

ft 

Not  used. 

/ CNTRL 

n 

56) 

GROPE 

0 

KODES 

NLDRV 

ft 

KQQES 

UR  AP  UP 

0 

KODES 

I 

Logical  flag  that  Indicates  to  the  QL  nodule  that 

/CNTRL 

n 

28) 

AL6C0N 

1 

KONVER 

the  QL  iteration  \%  converged. 

APPLY 

l 

KONVER 

ARCIN 

1 

KONVER 

COHOftO 

0 

KONVER 

GROPE 

0 

KONVER 

NLDRV 

1 

KONVER 

OUTPUT 

I 

KONVER 

RKUTT1 

1 

KONVER 

I 

Relative  flight  path  angle  costate 

/D 

n 

101  ) 

ALl 

1 

L6Aft 

ARCIN 

1 

LGAft 

CONTRL 

I 

LGAft 

NLDRV 

I 

LGAft 

OUTPUT 

I 

LGAft 

URAPUP 

J 

LGAft 

1 

Heating  costete 

/D 

/< 

108  ) 

NLDRV 

I 

LHT 

UAAPUF 

1 

lht 

I 

/D 

/< 

106  ) 

NLDRV 

1 

Lft 

OUTPUT 

I 

Lft 

URAPUP 

I 

Lft 

I 

Relative  longitude  costete 

/D 

/( 

105  ) 

NLDRV 

I 

LftU 

OUTPUT 

1 

LftU 

URAPUP 

1 

LftU 

I 

Relative  ex i auth  angle  costate 

/D 

/( 

102  ) 

ALl 

I 

LPSI 

ARCIN 

I 

LP  51 

CONTRL 

1 

LPSI 

NLDRV 

I 

LPSI 

OUTPUT 

I 

LPSI 

URAPUP 

I 

LPSI 

I 

Alt  1 1 ude  costete 

/D 

/( 

103  ) 

NLDRV 

1 

LA 

OUTPUT 

1 

LR 

URAPUP 

I 

LR 

I 

Latitude  costete 

70 

/( 

10**  ) 

NLORV 

I 

LR  HO 

OUTPUT 

I 

LRHO 

URAPUP 

1 

LR  HO 
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//£ 


FORTRAN 

SYMBOL 


MAT  H 
SYMBOL 


CODE 


DESCRIPTION 


ATQWA6E 

BLOCK loc 


SUBROUTINE  USAfiE 
5UBR  CODE VAR 


LV 


ft 


ts 


NOft 


\ 


v 


V 


1 Relative  velocity  costal* 


/D 


I Mats 


(6'S)  /D 


I Tots!  nuober  ef  0L  state  and  costat*  variables.  H f? C 
= 18. 


0 Relative  velocity. 


(FT/SEC)  /D 


100)  AL1 

I 

L V 

contrl 

1 

LV 

nlorv 

I 

LV 

output 

1 

LV 

WR  AP  UP 

I 

LV 

97)  AL9 

I 

ft 

AL7 

I 

ft 

ALB 

I 

ft 

AL9 

I 

ft 

apply 

I 

ft 

BRANPT 

I 

ft 

COSTAB 

I 

ft 

C05TAI 

I 

ft 

INTBPT 

1 

ft 

NLORV 

I 

ft 

OUTPUT 

I 

ft 

SALVE 

I 

ft 

STATEF 

I 

ft 

WRAP  UP 

I 

ft 

Z)  BNOR  Y 

r 

N 

CHECK 

i 

ft 

INARC 

i 

ft 

L1NDRV 

i 

ft 

NLDRV 

i 

ft 

NOMNAL 

i 

ft 

RKUTTJ 

i 

N 

Salve 

i 

ft 

. -WRAP UP 

i 

.ft 

91)  All 

i 

V 

AL9 

i 

V 

AL7 

i 

V 

alb 

i 

V 

AL9 

i 

V 

BCOND 

i 

ftOft 

BNOR  Y 

0 

MO  ft 

BRANPT 

M 

MO  ft 

CONTRL 

i 

V 

ENDPT 

i 

NO  ft 

ENVPRO 

i 

V 

FETCH 

0 

NOft 

INTERP 

ft 

V 

INTRPT 

ft 

NOft 

nlorv 

0 

NON 

nlorv 

I 

V 

output 

I 

V 

PDBCOL 

1 

V 

STATEF 

I 

V 

WRAP UP 

I 

V 

OME  SAT 

2 A) 

I 

See  syabol 

/DYNA 

/( 

12  ) 

NLORV 

I 

OftESAT 

TRAJIN 

0 

OftEGAT 

0AEGA2 

_2 

I 

See  syabol 

/DYMA 

/( 

6) 

AL4 

I 

0MEGA2 

V 

AL7 

I 

0PIE6A2 

ALB 

I 

0AEGA2 

AL9 

I 

0ft£GA2 

NLORV 

I 

0ME6A2 

TRAJIN 

0 

0ftEfiA2 

PA 

p 

I 

Ateosphertc  pressure 

( LBS/FT2  ) 

/DYNA 

/( 

1H) 

IMPULS 

I 

PA 

• 

NLORV 

I 

PA 

OUTPUT 

I 

PA 

TH2 

I 

PA 

QflULT 

= 0 OR  1 

I 

Heating  flag  Multiplier 

/ Afl  CDAT/< 

HO  ) 

NLORV 

I 

onuLT 

PDBCOL 

I 

OftULT 
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fortran  rath 

SYMBOL  SYMBOL 


DESCRIPTION 


STORAGE 

“block  \tt 


SUBROUTINE 
SUBfl  CODE 


I Radial  dtstanca  fron  aarth  eantar  To  vthicft  /OYMA  /(  T) 

(FT) 


dp  /an 


d2pt/3Hz 


SIMFS1 


S I NR  HO  jlnp 


S I N2RQ  »U2  p 


I Ataospharlc  danatty 


1 Sat  ayabol 


1 Saa  ayabel 


1 Saa  ayabel 


I Saa  ayabel 


1 Saa  tynbol 


ALA  I 
ALT  I 
AL8  I 
AL9  I 
CONTRL  I 
ENVPRQ  I 
NLDRV  I 
POBCOL  1 
OLTD52  1 
STATEF  A 


( LB/FT**3) 

(SL6S/FT3)  /DYNA  /(  15) 


I Subarc  duration 


/DVNA  /(  US) 


(SEC)  / D /t  SB) 


39)  NLDRV 

I 

RttOB 

POBCOL 

I 

R NOB 

15)  ALT 

1 

AO 

ALB 

1 

RO 

AL9 

7 

no 

NLDRV 

I 

RO 

OUTPUT 

I 

RO 

POBCOL 

1 

RO 

STATEF 

1 

RO 

19)  ALT 

I 

ROR 

ALB 

I 

ROB 

AL9 

I 

ROR 

NLDRV 

I 

ROR 

POBCOL 

I 

ROR 

STATEF 

I 

ROR 

23)  ALT 

I 

ROBB 

ALB 

I 

ROBR 

AL9 

I 

ROBB 

NLDRV 

I 

BOBB 

STATEF 

I 

ROBB 

3 > AL1 

I 

5IN6AA 

AL9 

I 

S ( NCAA 

ALT 

I 

S INGA A 

ALB 

1 

SINGAA 

AL9 

I 

5 I NGAfl 

CONTRL 

1 

SINGAA 

NLDRV 

I 

SINGAA 

POBCOL 

1 

SINGAA 

5TATEF 

A 

SINGAA 

99)  AL9 

I 

SIMP  SI 

ALT 

I 

SINPSI 

ALB 

1 

SINPSI 

AL9 

1 

SINPSI 

CONTRL 

1 

SINPSI 

NLDRV 

1 

SINPSI 

POBCOL 

I 

SINPSI 

STATEF 

0 

SINPSI 

96)  AL9 

I 

SINRHO 

ALT 

I 

S I NR NO 

AL8 

1 

SINRHO 

AL9 

1 

SINRHO 

CONTRL 

) 

SINRNO 

NLDRV 

I 

SINRHO 

OUTPUT 

1 

SINRHO 

POBCOL 

1 

SINRHO 

STATEF 

A 

SINRHO 

119)  AL9 

1 

SIN2RO 

alt 

I 

SIN2R0 

alb 

I 

S I M2RO 

NLORV 

I 

SIN2B0 

STATEF 

A 

S1N2R0 

SB)  ARCEN 

l 

tau 

INARC 

A 

tad 

NLDRV 

I 

tau 

OUTPUT 

I 

tau 

STATEF 

I 

TAU 

6 OCT  72  G.Ol-'f'l 


V 

\ K 


\ 


FORTRAN 

SYNBOL 


HATH 

SYflBOL 


CODE 


DESCRIPTION 


s t qr ft 6E  subroutine  usage 

BLOCK  LOC  SUBfi  CODE  VAR 


V 


VOV 


V 


1 Relative  velocity. 


< FT/ SEC ) /O  /( 


n 


An  16x18  array  defined  by  Equation  17. 5-5  in  Vo  I . { 
of  this  document.  The  entry  In  the  l-th  roe  and  j- 
th  to ) van  Is  the  total  partis)  derivative  of  the 
quasitiee  derivative  of  the  V)  component  of  V pith 
respect  to  the  Vj  coepomnt  of  Y, 

/dVj, 


Phare 

VT 


=v,t;  xt, 


/JACOB  /( 


91  ) 

AL1 

1 

V 

AH 

1 

V 

AL7 

I 

V 

AL6 

I 

V 

AL9 

1 

V 

bcond 

1 

NON 

BNORV 

0 

NO  ft 

BRAMPT 

n 

NO  ft 

C0NTRL 

i 

V 

ENOPT 

r 

NON 

EMVPRO 

I 

V 

FETCH 

0 

NON 

INTERP 

n 

V 

INTRPT 

« 

NON 

NLDRV 

0 

NON. 

NLDR  V 

1 

V 

OUTPUT 

I 

V 

POBCOL 

I 

V 

stated 

I 

V 

HRAPUP 

I 

V 

1 ) 

LINDRV 

1 

JAKE 

NLDRV 

« 

JACOB 

NLDRV 

n 

VDV 

SALVE 

0 

JAKE 
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SUBR0UTINE 

N0MNAL 


Purpose 


NUMNAL  combines  up  the  particular  and  homogeneous  solutions  resulting 
from  the  preceding  iteration  to  get  the  total  solution  from  the  preceding 
iteration. 


s = p He.  * 


•See  Sections  17.1  and  17.2  of  Vol.  I. 


NORMAL 


l'  f 


1. 

2. 

3. 

1. 

>. 

I. 

» . 
0 . 
9. 
io. 

12.* 

u: 

\i: 

!e. 

19. 

*o. 

21. 

22. 

23. 

2m. 


SUBROUTINE  NORNAL 


THIS  ROUTINE  COMBINES  UP  THE  PARTICULAR  AND  MORO- 
GENEOUS  SOLUTIONS  TO  YIELD  THE  TOTAL  SOLUTION. 


REAL  RAGBV , RU,  H,  LV,  LGAR,  LPSI,  LR,  LRHO,  LRU,  LR,  LTAU,  NOR 
*.  LHT 
CORRON  /O/ 

•X,  H,  Xl(H).  RAGBV  ERR.  09.  DIO,  CMO),  CSAVEMO),  V,  6AR  P5I, 
•ALT,RhO,RU,R,  TAU,  HT,  lV,  LGAR,  LPSI,  LR,  LRHO,  LRU,  LR,  LTAU, 

• LHT,  0109,  0110,  &V(yO>,  2SAVE(20),  0t(20),  NPOlNT<20),  DELT(2t>) 
DIrCnSIOM  NOR( 2o  ) 

EQUIVALENCE  < NOR,  V) 

CORRON  / S/  S 
CORRON  /CNTRL/ 

• NU  , ITER  ITAPA  ,ITAPB  ,JRIN*  JAAX  , LINES  ,KPT  ,ROR  , 

•KARO  ,INDX<«0  NEtfNOR, CNTOlfcRHOC  ,RHOP  ,NPTS  ,RINES  , 

• KPAGE  , NNP  NUP  ,IARC  , TRSTR  ,IRAX  ,KTIRE  KQNVER , NOPRNT , 

• JNBDR Y, NUP AGE, IVARV(20),  NN,  NOVARY  PLAST,  ZLAST,  MODES 

LOGICAL  INBDRY,  NEuJNOR  KONVER,  NOPftNT,  NUPAGE 
CORRON  /l/  Z(50) 

CORRON  /PC/ 

• PCI  N , PC3  , 1 DP  , PCS  , PC6  , PCT  ,RAXBC  ,NAUX 

OlRENSfON  5(820) 


IF(NN  - N)  1,  \J  2 


NORMAL 

NORNAL 

NORNAL 

NORNAL 

NORNAL 

0 

0 

0 

0 

JUL21 

0 

D 

D 

NORNAL 

CNTRL 

LNTRt 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

Z 

PC 

PC 

NORNAL 

NORMAL 


26. 

27. 

1 REAO( ITAPA)  (Z( IK).  IK  = 
RETURN 

1, 

N) 

28  . 

2 READ(  ITAPA)  ( S<  IK  >,  IK  r 

1, 

NN) 

29. 

CALL  RATAL™!,  S(  N ♦ 1), 

C, 

N,  ROR, 

30?  * 

•CALL  AATAOOU,  2,  &;  N 

2) 

3. 

RETURN 

32. 

END 

NORNAL 

NORNAL 


NORNAL 

NORNAL 

NORMAL 

NORNAL 

NORNAL 


3 
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FORTRAN 

SYMBOL 

nATH 

SYMBOL 

code  DESCRIPTION 

STORAGE 

SUBAOU 

SUBR 

CODE  VAR 

BLOCK 

LOC 

C 

c 

1 

A fort v aord  »rr»*  containing  th«  vector  ol , c' t , 

/O  /( 

11 ) 

BNDRY 

1 

c 

l.o.  the  nultiplicrs  for  th«  homogeneous 

BRANPT 

I 

c 

to  1 ut 1 out . 

GROPE 

I 

c 

1NTRPT 

I 

c 

NENCS 

n 

c 

NLDRV 

I 

c 

NOnNAL 

l 

c 

WRAP UP 

I 

c 

ITAPA 

I 

Number  of  the  logical  unit  containing  th*  quasltia* 

/ CNTRL  /( 

3 ) 

GROPE 

0 

ITAPA 

histories  of  the  particular  and  homogeneous 

NOHNAL 

i 

ITAPA 

solutions  from  the  preceding  QL  iteration. 

non 

1 

The  nunber  of  hoaegeneout  solutions  currently  being 

/ cntrl  /( 

9 ) 

GROPE 

0 

non 

i ntegr ated . 

INARC 

M 

non 

LlNORV 

I 

non 

NOnNAL 

I 

non  - 

SALVE 

n 

non 

WRAPUP 

n 

non 

N 

I 

Total  nuaber  of  QL  state  and  costate  variables.  N 

/pc  n 

2 > 

BNDRY 

i 

N 

= 18. 

CHECK 

i 

N 

INARC 

I 

N 

* 

Li  NOR  V 

I 

N 

NLORV 

i 

N 

NOnNAL 

i 

N 

RKUTT 1 

i 

N 

SALVE 

i 

N 

WRAPUP 

I 

N 

NN 

I 

The-nmeber- of  quantities  currently  being 

/C-WTRL  /{ 

52  y BNDRV 

n 

NN 

numerically  integrated. 

INARC 

n 

NN 

MADAMS 

i 

NN 

MAGIC 

n 

NN 

NOMNAL 

I 

NN 

RKUTT 1 

l 

NN 

RKUTT2 

i 

NN 

SALVE 

n 

NN 

WRAPUP 

n 

NN 

S 

n 

An  820  aord  array  used  to  store  the  particular  and 

• /s  n 

1 > 

NOMNAL 

n 

S 

homogeneous  solution*. 

RKUTTl 

n 

s 

z 

Z 

n 

A 20  aord  array  used  to  store  th*  total  linear 

n /< 

1 ) 

BNDRV  , 

i 

2 

solution  from  th*  preceding  QL  iteration. 

BRANPT 

l 

Z 

ENDPT 

l 

Z 

ENVPRQ 

i 

Z 

INTERP 

0 

z 

1NTRPT 

i 

z 

L1NDRV 

i 

z 

NOMNAL 

n 

z 

OUTPUT 

I 

z 

RKUTTl 

0 

z 

RKUTT* 

n 

z 

salve 

n 

z 

WRAPUP 

n 

z 
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SUBR0UTINE 

NPLANE 


Purpose 

NPLANE  controls  the  calculation  of  the  in-plane  control  vector. 


START 


NPLANE 


SUBROUTINE  NPLANE 


THIS 

routine 

CONTROLS  THE 

calculation  of 

THE  IN' 

plane 

CORrtON/ARCDAT/ 

CONTROL 

quantities  t 

, DELTAE,  and 

ALPHA. 

• SREF 

,EJ 

,X1SP 

trult 

, qtnc 

# DTP  I 

* I ATR 

,lnoo£ 

# J AER 

, JPRO 

, QRAX 

, GRAX 

♦XLRAX 

.hdrax 

,GrtD0T 

,ALFFIAX 

, P HRAX 

, RAE  A 

♦ RAEB 

RAEC 

. RAEO 

,«AEE 

,RAEF 

,«AE6 

♦ RT 

,«ISP 

,RXC6 

,RZCG 

nwDA 

, rwob 

♦«DB 

,XC&R 

, ZCGR 

,XE 

,ZE 

XT 

• DREF 

, flCND 

,RHOB 

,OrulT 

RERAX 

, FRATE 

EQUIVALENCE!  SREF . ARCOA > 

logical  switch,  iload 


REAL  rtACH.  ISP.  ISPtf.  I$PR. 

ISPR, 

I SPT . ISPVV.  ISPVR.  ISPVR. 

OVNA 

♦ ISP VT 

I SrRR 

tSPRrt.  ISPRT. 

ISPrtrt. 

ISPRT. 

ISPtT. 

LIFT. 

LlFTV. 

OYNA 

♦LJFTR. 

lJFta' 

liftvv.  ljftvr.  lift 

V A,  LJF 

TRR.  LlFTRA.  RUR.  LlFTAA. 

OVNA 

♦IRATEO 

. ISPF. 

1SPFF 

• 

DYNA 

REAL  RACH  V RACHR  RACHVR, 

rtACMRfi 

DYNA 

REAL  LJFTR.  LIFTVrt.  LlFTRrt. 

LiFTrtrt 

. LlFTRA 

DYNA 

connON 

/OYNA/ 

OYNA 

♦ XX 

, TIflE 

SINGAflCOSbAR 

OrtEGA 

0REGA2 

#SINA  , 

JUL21 

♦ COSA 

,OYNOU 

'OrtEGAT  TARP 

PA 

,R0 

!cs 

, TERPR 

,PAR 

DYNA 

♦ BOR 

CSB 

'terpbr'parr 

BORA 

, CSRR 

, XOOE 

, RACH 

o 

DYNA 

♦ QV 

OR 

Q V V QVR 

QRR 

, F VAC 

,fvacv 

.FVACR 

FVACrt  , 

OYNA 

♦FVACT 

FVACVV 

'fyacvr^pvacrb 

FVACTT 

T 

f RACHV 

RACHR 

,ISP  , 

OYNA 

♦ ISPV 

ISPR 

' 1 SPrt  I SPT 

1SPVV 

I SP  VR 

,ISPVrt 

# I SP VT 

. I SPRR  # 

OVNA 

♦1SPRR 

ISPRT 

' I SPRP)  ISPRT 

l SPTT 

#lift 

,L1FT* 

,LIFTR 

'lifta  , 

DYNA 

•liftvv 

,LlFTVR 

,liftva,liftrr 

LlFTRA 

OR  AG 

, ORAGV 

,DRA gr 

'OfiAGA  , 

OVNA 

♦ DRAG  V V 

DRAG  VR 

QfiAGVA  QRAuRR 

DRAGRA 

UR  AG  AA 

, Alpha 

, PHI 

LI FTW  , 

OVNA 

♦liftvr 

LlFTfirt 

LiFTrtrt  LlFTrtA 

CBR 

DBF  A 

G Arm  ao 

, A£ 

,tax  , 

OVNA 

♦u 

S 1 NP  HI 

'COSPHl  SlNPSl 

COSPSI 

SINRHO 

COSRHO 

S I NROR 

, COSROR 

DYNA 

♦rtuR 

XXG 

XXP  AKIN 

COO 

,CDOR 

,clo 

>X 

, XCGrt  , 

OVNA 

•xcgrr 

ZCGrt 

ZCGrtrt  IJV 

X JR 

,XJVV 

,XJVR 

# XJRR 

f rtACHVR, 

OYNA 

♦RACHRR 

S I N2R0 

,C0S2R0,C0S2Gfl 

Crt 

, CRA 

,Crt« 

t CrtAA 

. Cnrtrt  . 

OYNA 

♦Cm  Art 

CrtO 

Crtcn  CrtCrtrt 

CrtArtrt 

ULFTV 

,UlFT« 

.ULFTVV 

,(/LFfVR, 

OVNA 

♦ulftva 

ULFTRR 

ULFTRA, I PON 

X ARC 

T ST  ART 

6H 

, GRR 

Li  FTAA 

DYNA 

♦COOrtrt 

CLArtrt 

#CLOn  . CLCrtR 

0VNH9 

CT 

COO  AE 

# S I DAE 

, COD 

DYNA 

♦ SIO 

DELTAE 

. COE  XCG 

ZCG 

,XJ 

XRCG 

,CAlPHA 

alrax  , 

DYNA 

♦ OB 

ULFT 

, culft  ,ulfta 

TST  AGE 

TIRES 

XrtCGAA 

, 1 RATED 

^RATED 

OYNA 

CCrtrtON 

/OVNA/ 

OYNA 

♦ HIT 

J1 

. J2  ,J3 

XrtCGA 

F V ACF 

ULFTAA 

, 1 SPF 

,ISPFF  , 

OYNA 

♦ILOAD 

rxn 

Fxnn  switch 

I NQF 

CL 

,Cla 

#CLR 

t Cl AA  , 

OVNA 

♦ CLAP) 

CLAP) 

'CD  ;CDA 

con 

CDAA 

CDRrt 

#COAfl 

, DYN198 , 

DYNA 

♦DYN199 

DVN200 

xrtCGY  , XrtCGR 

XrtCGR 

XRCGVV 

xrcgvr 

# XRCGVR 

#xrcg^a# 

OYNA 

♦XrtCGRR 

xnCbRrt 

xrtCGRA.XrtCGrtrt 

xnCGRA 

RORRR 

0VN2M 

, D VN2 1 5 

0 YN2 1 6 , 

OYNA 

♦OVN2I7 

IOArt 

'tairb  'tairbv 

TAIR6H 

T ARB VV 

T AfiOHrt 

/ T ARBVH 

;sfc  ; 

JUL2 1 

♦ SFCV 

SFCH 

'SFCW  . SFCHH 

SFCVH 

AUG09 

DIRENStON  PR06K2.  bn  ) 

RATS 

COfWON 

/HATS/ 

RATS 

♦PI 

P2 

,P3  ,XKI 

XX2 

, XX3 

,XX1T 

,XX2T 

,XX3T  , 

RATS 

♦ XK1D 

XX2D 

XX  30  , XX  1 A 

XK2A 

, XX  3 A . 

, VDA 

, GDA 

, PDA 

RATS 

♦ xni9 

Xrt20 

,XR21  , XR22 

XX  ITT 

XX2TT  . 

, X.X  3TT 

, XX  1 TD 

, X X2TQ  , 

RATS 

♦XK3TO 

XX1TA 

XK2T  A XX 3T A , 

XX  IDO 

XX20D  4 

. XX3DD 

, XX  1 DA 

,XX2DA  , 

RATS 

♦XK30A 

XX1AA 

XK2AA  X X 3 A A 

xnm 

, XR*t 2 , 

, XR*)3 

#XR  HH 

,XRh5  , 

RATS 

♦ XAU 

xxzv 

XX  3 V XX I G , 

XX2G 

XX3G  ( 

XXIP 

,XX2P 

fXX3P  , 

RATS 

• XX 1R 

XK2R 

XX3R  ,XK10  , 

XX20 

XX  30 

xxiu 

,XX2U 

, X X 3ll  , 

RATS 

♦ xkir 

XX2rt 

XX  3rt  , XX  1 Z 

XX2Z 

XX  3Z  , 

, XX 1 V T 

# XX2VT 

,XX3H 

RATS 

♦XXIVD 

XX2VD 

X X 3 VO  XK1VA  , 

XX2VA 

XX3VA  , 

, XX 1 ST 

t XX2ST 

,XX3GT 

RATS 

♦XK1GD 

XK2GO 

XX 3G0  XX IGA  , 

XK2GA 

XK3GA  . 

XX1PT 

, XX2PT 

fXX3PT  , 

RATS 

•XXiPO 

XX2PD 

XX3P0  XX 1 P A , 

XX2PA 

XX3PA  , 

XK1RT 

, XX2RT 

,XX3RT  . 

RATS 

♦XKIRO 

XX2RD 

XX3R0  XX  1 R A , 

XX2RA 

XX3RA  . 

XX10T 

, XX20T 

,XX30T  , 

RATS 

•XXIOD 

XK20D 

XX 300  ,XK10A  , 

XX20A 

XX30A 

XX1UT  . 

, X X2UT 

,XX3UT  , 

RATS 

♦XK1UD 

XK2UD 

XX3UD  XX IUA  , 

XX2UA 

XX3UA  , 

XXlrtT 

, XX2RT 

, XX3RT 

RATS 

corron 

/RATS/ 

RATS 

♦xxirtO 

XX2rtO 

XX3rtO  ,XXirtA  . 

XXZrtA 

XX3RA  , 

XX1ZT 

, XX2Z T 

XX3ZT  , 

flATS 

* XX  1 ZD 

XK2ZO 

XX3Z0  XX 1 Z A , 

XX2ZA 

XK3ZA 

XX1VV 

, XX2V V 

,XX3VV  , 

RATS 

♦XX3GV 

XX2GV 

XX3GV  XX1PV  , 

XX2PV 

XX3PV  f 

XX1RV 

rXK2RV 

XX3RV  , 

RATS 

♦XXIOV 

XX20V 

XX 30 V XX 1 u v , 

XK2UV 

XX3UV  , 

XXI RV 

, XX2RV 

, XX3RV  , 

RATS 

♦XK1ZV 

XR2ZV 

XX3ZV  XXlbG  , 

XX2GG 

XX 3G£  , 

XK1PG 

, XX2PG 

XK3PG  , 

RATS 

♦XX1RG 

XX2RG 

XX3RG  , XX i 0G  , 

XX20G 

XK306  , 

XK1UG 

(XK2UG 

XX3UG  , 

RATS 

♦XXlrtG 

XX2HG 

XX3RS  ,XK1ZG  , 

XX2ZG 

XX3ZG  f 

XX1PP 

, X X 2P P 

XX3PP  , 

RATS 

♦XXIRP 

XK2RP 

XX3RP  ,XX10P  , 

XX20P 

XX3GP  , 

XX  1UP 

(XX2UP 

XX3UP  , 

RATS 
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♦XK1MP  , XK2MP  * X K 3rtP  ,XK1ZP  ,XX2ZP  ,XX3ZP  ,XK1RR  ,XX2RR  ,XK3RR  , 

• XX 1 OR  XK20R  XK30R  ,XX1UR  ,XK2UR  ,XK3UR  ,XK1MR  ,XX2MR  ,XK3MR  , 

*XKUR  XK2ZR  ,XK3*fl  XXIOO  ,XX200  .XX300  ,XK1U0  ,XK2U0  ,XK3U0  , 

*XKUnO  , X K 2n0  ,XK3M0  ,XK1Z0  ,XK2ZO  ,XK3ZO  ,XK1UU  ,XX2UU  ,XK3UU  , 

• xxinu  ,XX2MU  ,XK3MU  XX  1 ZU  , XK2ZU  .XK3ZU  .XKIMM  ,XK2nM  ,XK3Mn 

• XK1ZM  ,XK2ZM  ,XK3ZM  ,XK1ZZ  ,XK2ZZ  XK 3ZZ  ,XKPI  11,XKP121,XXPI31, 

• xkpi  i2,xkpi22,xxpi32,xkpi  i3,xxpi23,xkpi33,pai  ,pa2 

common  /mats/ 

#DPOV( 3,  8).  DEPDEYI  2,  8),  DPDL(3,  3),  PROD5I 3,  6Y>,  PR0D9( 2,  2Y  ) 
COMMON  /nATS/ 

*PV  #PG  ,PP  ,PR  ,PO  ,PVV  . pgv  ,ppv  ,prv  , 

• POV  PGG  PP6  , PRG  ,POG  .PPP  ,PRP  ,POP  ,PRR 

#POR  ,POO  PLG  .PUP 

EQUIVALENCE!  PROD1 .PRODS ) 

DATA  RAD/ .017Y532925199H33/ 

IS  THE  DESIRED  CONTROL  OPT  I HAL . 

IF( I MODE  .LE.  2 ) 60  TO  102 

THE  DESIRED  CONTROL  IS  NON-OPT IMAL 

1 CALL  ALGCONC  J 1 J2,  J 3 ) 

£hECK  TO  SEE  IF  SHOULD  BE  THR0TTlIN6 

CALL  THROTl 

IF  JUST  EXCEEOEO  TOTAL  ACCEL.  LIMIT,  RECOMPUTE 
IN-PLANE  CONTROL. 

I FC  SWITCH  > CAll  ALGCONUl,  J2,  J3) 

RETURN 

DESIRED  CONTROL  IS  OPTICAL.  CALC.  1N-PlANE  CONTROL 
USING  OPTICAL  ANGLE  OF  ATTACK 

2 J3  = 1 

3 CALL  AL6C0N1 J I J2,  J 3 I 

ARE  THERE  A NY  STATE  VARIABLE  INEQUALITY  CONSTRAINTS 
IN  EFFECT. 

IF(  INOF  .EQ.  0 > 60  TO  109 

YES,  SVIC  IN  EFFECT.  FIND  OUT  WHICH  ONE 
IF<  INOF  - 8)  I GY  105,  106 
QV&AM1C  PRESSURE 

♦ Call  al'7  000 
GO  TO  107 

REYNOLDS  NUMBER 

> CALL  AL8000 
GO  TO  107 

» CALL  AL9000 

MAS  SVIC  VIOLATED  

r I F( XX 3 . 6T . 0.  ) GO  TO  108 

NO.  TURN  OFF  SVIC. 

INOF  ? 0 
I DAN  s 0 
GO  TO  109 

SVIC  VIOLATED.  RECOMPUTE  IN-PlANE  CONTROL  ON  SVIC. 

1 J3  = 1NQF 

CALL  ALGCON! J 1 , J2,  J 3 ) 

GO  TO  111 

SVIC  NOT  IN  EFFECT.  IS  THERE  ANY  AERODYNAMIC  LOAD 
ON  THE  VEHICLE 

I I F ( -NOT . ILOAD  > GO  TO  1 11 

YES.  CHECK  FOR  LIFT  LIMIT  VIOLATION. 

IFtXLMAX  .LE.  0.  -OR.  AB$( ULFT  ) .LE.  XLMAX  ) GO  TO  110 

LIFT  limit  VIOLATED.  PUT  CONTROL  ON  LIMIT. 

CULFT  = SISNCXLMAX,  ULFT) 

J 3 - 3 

CALL  AL6C0N( J 1 J2,  J 3 > 

fs  this  powered  flight 

> I F ( IPOU  .NE.  0 ) GO  TO  111 

UNPOtdERED.  CHECK  FOR  TOTAL  ACCEl.  LIMIT  VIOLATION. 

I F( GMAX  .LE.  0.  ) GO  TO  11) 

CALL  AL50Q0 

IF<  XK3  .LE.  0.  ) GO  TO  111 

UNPOWERED  TOTAL  ACCEL.  LIMIT  VIOLATION.  PUT  CONTROL 
ON  LIMIT. 

J3  = 5 

CALL  ALGCONIJl.  J2,  J 3 ) 

CHECK  FOR  ALPHA  LIMIT  VIOLATION. 


MATS 

MATS 

MATS 

MATS 

MAT  5 

MATS 

MATS 

MAT  S 

MATS 

MATS 

MATS 

MATS 

MATS 

MATS 

NPLANE 

NPLANE 

NPLANE  102—1 

NPLANE 

NPLANE 

NPLANE 

NPLANE 

NPLANE 

NPLANE 

NPLANE 

NPLANE 

NPLANE 

NPLANE  - f 

NPLANE 

NPLANE 

NPLANE 

NPLANE 

NPLANE  109 

NPLANE 

NPLANE  109— I 105-1  106“ 
NPlANE  1 

NPLANE 

NPLANE  107—1 
NPLANE  _ 

NPLANE  "* 

NPLANE  107  — 


NPLANE  108- 

NPLANE 

NPLANE 

NPLANE 

NPLANE 

NPLANE 

NPLANE  * 
NPLANE 
NPLANE  111- 
NPLANE 
NPLANE 

NPlANE  "Til  — 

NPLANE 

NPLANE  110- 

NPLANE 

NPLANE 

NPlANE 

NPlANE 

NPLANE 

NPLANE  T U - 

NPLANE 

NPLANE  111- 

NPLANE 

NPlANE  111- 

NPLANE 

NPlANE 

NPlANE 

NPLANE 

NPLANE 
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FORTRAN 

SYMBOL 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE 


BLOCK 


“lCKT 


SUBROUTINE  USAGE 
SUBR  COOE  VAR 


ALFMAX 

ALMAX 

ALPHA 


MAX 

X 

■ SI 


CALPHA 

CULFT 

GMAX 


I LOAD 


IMOOE 


I NOF 


(POM 


Jl 


J2 


J 3 


1 Maiiaun  angle  of  attack 
I Aignltud*  of  sngls  of  attack  constarint 
I Angls  of  attack 


attack  constraint  is  uud. 

0 Magnitude  of  untrianed  lift  I i«it 

1 Maxlnun  total  accslaratlon  g load 


Optional  »tnc  spher  I c c * l c irl  ft  1 on  * flag. 

IOAM  s -1:  Conpute  d3p#/dR3* 

I DAM  - 0:  No  optional  calculations; 

I DAM  = 1:  Coaputs  a3p,/dR3,  dfta/3R# 

Logical  flag  that  is  trus  if  thsre  is  any 
aerodynaeic  load  on  ths  vshicls. 


I Control  node  option  flag 


Stats  variabis  inequality  constraint  flag. 
INQF  s 0:  No  SVIC  in  affect: 

INQF  - 7:  Dynaaic  pressure  IC  in  effect; 
INQF  - 6 : Heating  rate  SVIC  in  effect; 
INQF  =■  9:  Reynolds  nuaber  SVIC  in  effect 

Fevered  flag. 

I POM  = 0:  No  thrust  and  no  base  drag 
IPOM  - 1:  Thrust,  but  no  base  drag 
1 POM  s 2:  Thrust  and  base  drag 

Thrust  opt  ion  flag. 

J1  = 1:  Constant  thrust; 

J1  *s  2:  Input  vacuua  thrust; 

J1  = 3:  Poacred  total  acceleration  Halt 
J!  = H:  Afr. breather  engine. 


Engine  deflection  option  flag. 

J2  - 1:  Constant  engine  deflection; 

J2  = 2:  Moaent  balancing. 

Angle  of  attack  option  flag. 

Optiael  angle  of  attack; 

Constant  angle  of  attack; 

Untriaaed  lift  Halt; 

Vertical  rise  or  pitchover; 
Unpoaered  total  acceleration  Halt; 
Gr  a » i t y turn; 

Oynaaic  pressuri  constraint; 
w «.  - Heating  rate  constraint: 

J3  = 9;  Reynolds  nunber  constraint. 


J 3 

- 

1 

J3 

2 

J 3 

- 

3 

J 3 

9 

J 3 

- 

5 

J 3 

r 

6 

J3 

- 

7 

J 3 

8 

J 3 

9 

( DEG) 

/ARCDAT/( 

16  ) 

ARCIN 

I 

ALFNAX 

nplane 

I 

alfmai 

(RADS ) 

/DVNA 

/( 

162  ) 

ARCIN 

0 

ALHAX 

NPLANE 

I 

almax 

( RAO) 

/DYNA 

/( 

79  ) 

AEROCO 

I 

alpha 

ALGCON 

M 

ALPHA 

AL2 

I 

ALPHA 

ARCIN 

M 

ALPHA 

CONTRL 

M 

ALPHA 

ENVPRO 

I 

ALPHA 

HOHECO 

I 

ALPHA 

NPLANE 

I 

ALPHA 

OUTPUT 

I 

ALPHA 

TRAJIN 

0 

ALPHA 

UT 

I 

ALPHA 

MR A PUP 

I 

ALPHA 

ng  1 a of 

/DVNA 

/( 

161  ) 

AL2 

I 

CALPHA 

( RADS > 

NPLANE 

0 

CALPHA 

( LBS  ) 

/OYNA 

/< 

165  ) 

AL3 

I 

CULFT 

nplane 

0 

CULFT 

/ ARCDAT/C 

12  ) 

AL5 

I 

GMAX 

NPLANE 

I 

GMAX 

THROTL 

I 

GMAX 

TH3 

I 

GMAX 

/OYNA 

/( 

216) 

ARCIN 

0 

1 DAM 

ERROR 

I 

1 DAM 

nplane 

0 

IDAM 

STATEF 

I 

I DAM 

etc  . 

WRAP  UP 

0 

I DAM 

/DYNA 

/( 

181  ) 

ARCIN 

M 

ILOAO 

CONTRL 

I 

ILOAD 

nplane 

I 

1 LOAD 

UT 

I 

I LOAD 

/ ARCDAT / ( 

8) 

ARCIN 

I 

IMOOE 

CONTRL 

I 

IMOOE 

NPLANE 

1 

IMOOE 

/DYNA 

/( 

185  ) 

ARCIN 

M 

INQF 

nplane 

M 

INQF 

t . 

/OYNA 

/< 

139  ) 

ARCIN 

M 

I POM 

FORCES 

I 

I POM 

NPLANE 

I 

I POM 

STATEF 

I 

I POM 

THROTL 

1 

1 POM 

/DYNA 

/( 

173  ) 

APPLY 

I 

J1 

ARCIN 

0 

J1 

CONTRL 

M 

Jl 

t; 

FORCES 

I 

JJ 

nplane 

I 

Jl 

STATEF 

I 

J1 

THROTL 

A 

Jl 

/DYNA 

/( 

179  ) 

ARCIN 

0 

J2 

CONTRL 

I 

J2 

NPLANE 

I 

J2 

/OYNA 

/( 

175  ) 

ARCIN 

0 

J3 

CONTRL 

M 

J3 

NPLANE 

M 

J3 

OUTPUT 

I 

J3 
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//72 


SWITCH 

I 

Logical  flag  that  is  try*  If  thl 

s is  tha  compute 

/ DVNA 

/< 

184) 

CONTBL 

I 

SWITCH 

point  at  ahich  the  popared  accel 

ar at i on  constraint 

NP  LANE 

I 

SWITCH 

THROTL 

0 

SWITCH 

ULFT 

L 

I 

Untr  1 aaad  aarodynaatc  lift 

( LBS  > 

/DYNA 

/( 

164) 

AL3 

I 

ULFT 

u 

NP LANE 

1 

ULFT 

UT 

n 

ULFT 

XLflAX 

LHAX 

I 

( LBS  ) 

/ AflCDAT/( 

13) 

NPLANE 

i 

XLHAX 

6 PCT  1Z  G. 01-44 


SUBR0UTINE 

0UTPUT 


Purpose 


OUTPUT  puts  print  quantities  into  the  print  array  AP  and  controls  the 
computation  of  auxiliary  print  quantities. 


//  ?£• 


OUTPUT 


R 

,6 

, S I NA  -, 

JUL21 

CS 

, TEMPR 

,PAR  , 

OYNA 

KODE 

,mach 

0 YNA 

FVACV 

, F V ACR 

F V ACM  , 

OYNA 

MACHV 

MACHR 

, I SP  , 

OYNA 

I SP  VM 

, ISPVT 

, ISPRR  , 

OYNA 

LIFTV 

, LlFTR 

, LIFTA  , 

DYNA 

DRAG  V 

, DRAGR 

DRA6A  , 

DYNA 

alpha 

, P H I 

,LIFTM  , 

DYNA 

GAMMAD 

,AE 

DYNA 

SUBROUTINE  OUTPUT 

common  /cntrl/ 

♦ NU  , ITER  I TAP A I TAPS  ,JMIN  J MAX  , LINES  ,XPT  ,HOM 

♦ KARO  I NDX(  Ml  NEWNOMCNTOHRHOC  ,RHOP  ,NPTS  , HINES  , 

♦ KP AGE  . NNP  NUP  , 1 ARC  TRSTR  IMAX  , XT  I ME  , XONVER , NOPRNT , 

♦ INBDRY, NUPAGE, I VARY( f 0 ) , NN,  NOVARY,  PLAST,  ZLAST,  KOOES 

LOGICAL  INBORt  NEWNOM,  XONVER,  NOPRNT,  NuPAGE 
LOGICAL  SWITCH,  ILOAO 

REAL  MACH , ISP,  ISPV,  ISPR,  ISPM,  1SPT,  ISPVV,  ISPVR,  ISPVM, 
♦ISPVT,  ISPRR,  I SPRM  ISPRT,  ISPMM,  ISPMT,  ISPTT,  LlFi,  LIFTV, 
♦LIFTR,  LIFTA,  LIFTVV,  LIFTVR,  LlFtVA,  Li FTRR  LlFTRA,  MUR,  LlFTAA, 
♦IRATE6,  ISPF,  ISPFF 
REAL  MACHV,  MACHR,  MACHVR,  MACHRR 
REAL  L1FTM,  LI  FT  VM,  L I FTRM  LIFTHM,  LIFTHA 
COMMON  /DYNA/ 

♦XX  , T IME  ,SINGAM,C0SGAM, OMEGA  OMEGA2  R ,6  ,SINA  -, 

♦cosa  ,dynou,omegat;tamp  ,PA  ,RO  ,CS  ,TEMPR  ,PAR 

♦ROR  , CSR  ,temprr,parr  ,rorr  csrr  ,*00£  ,HACH  ,0 

♦ov  ,or  ,qw  ,qvr  ,orr  >vac  'fvacv  ,fvacr  ,fvach  , 

♦FVACT  ,FVACVV,FVACVR,FVACRR,FVACTT,T  MACHV  , MACHR  , I SP  , 

♦ ISPV  , I SPR  , I SPM  'iSPT  ISPVV  ISPVR  , I SP  VM  , ISPVT  , ISPRR  , 

♦ I SPRM  , ISPRT  , ISPMM  , ISPMT  , ISPTT  'LIFT  ,LIFTV  , LlFTR  , LIFTA  , 

♦ LIFTVV, LIFTVR,LIFTVA,LIFTRR,LIFTRA, DRAG  DRAG V , DRAGR  , DRA6A  , 

♦dragw,oragvr,oragva,oragrr,dragra'oragaa, alpha  ,phi  ,liftm  , 
♦liftvm,liftrm,liftmm,liftma,obr  obrr  ,gammad,ae  ,tax 

♦W  SINPHI,COSPHI,5INP5I,COSPSISINRHQCOSRHO,SINROR,CO$ROR, 

♦MUR  , XK6  , XKP  , AK IN  ,CDO  ,COpM  ,CLO  ,FK  ,XCGfl  , 

♦XCGMM  , ZCGM  ,2CGM«  ,XJV  , XJR  ,XJVV  ,XJVR  ,XJRR  MACHVR, 

♦MACHRR, SIN2R0,C0S2R0, C0S2GM, CM  ,CMA  ,CMM  , CMAA  ,CMMM  , 

♦CMAM  , CMO  , CMOM  ,CMOMM  ,CMAMM  ULFTV  ,ULFTR  , UlFT V V , UlFT VR , 

♦ULFT V A,  UtFTJHl  ULFTRA  I POW  * X AR6  - TSTAflT  GH  , GRR  , LlFTAA,  - 

♦ CDOMH  , CLAMM  ,CLOM  ,ClOMM  ,DYNl99,CT  ,COOAE  ,SIDAE  ,COD 

♦SID  , DELTAECOE  ,XCG  , 2CG  ,XJ  ,XMCG  , CALPHA, ALMAX  , 

♦ DB  , ULFT  , CULFT  ,UlFTA  , T STAGE , T I MES  , XMCGAA, I RATED, FRATEO 

COMMON  /DYNA/ 

♦ MTT  ,J1  ,J2  , J 3 XMCGA  FVACF  ,ULFTAA,!SPF  , ISPFF  , 

♦ILOAO  'FKM  FKMM  , SWITCH, INOF  'CL  ,CLA  ,CLM  ,ClAA  , 
♦CLMM  ,CLAM  ,C0  ,CDA  ,CDM  , COAA  ,CDMM  ,COAM  ,0YN198, 

♦DYN199, DYN200, XMCGV  ,XMCGR  , XMCGM  iflCGVV, XMCGVR, XMCGVM, XMCGVA, 
♦XMCGRR , XMCGRM, XMCGRA  XMCGMM  XMCGMA,RORRR  , 0YN2 1 9 , 0YN2 1 5 , D YN2 16, 

♦ DYN2 17,1  DAM  ,TA1RB  , TAIRBV, TAIRBM, TARBVV, TAR8HH, TARBVH, SFC  , 

♦ SFCV  , SFCH  SFC V V ;SFCHH  ,SFCVM 

real  magbv,  mu,  n,  lv,  l6a«,  lpsi,  lr,  lRho,  lmu,  lh,  ltau,  non 

♦ , LHT 
COMMON  /O/ 

♦ X,  H,  X I<  -I ),  magbv,  ERR,  D9 , 010,  C(90>,  CSAVE(90>,  V,  GAM,  PSI, 
♦alt,rho,mu,m.  tau,  HT,  LV,  lGAM  lpsi,  lr,  LRHO,  lmu,  lm,  ltau, 

♦ LHT,  0109,  0110,  Bv<*6>,  2SAVEI20),  0TT20),  NP0lNT(26),  6elT<20> 

dimension  nom(26) 

EQUIVALENCE  (NOM,  V) 

COMMON  /2D/  20(50) 

COMMON  Hi  2(50) 

DIMENSION  PR0DII2,  69) 

COMMON  /MATS/ 


♦ ULFT  V A,  UtFTJHl,  ULFTRA,  I POW 
♦CDOMH  , CLAMM  ,CLQM  ,ClOMM 
♦SID  DELTAECOE  ,XCG 


♦MTT  ,J1  ,J2 

♦ILOAD  ,fkm  ,fkmh 
♦CLMM  ,CLAM  ,CD 


,CLM  ,CLAA 
, CDAM  , OYN 1 98 


♦ PI 

,P2 

,P3 

,XX1 

, XK2 

, XX3 

, XK  IT 

, XX2T 

, XX3T 

MATS 

♦ XK10 

, XK2D 

, XX  3D 

, XX  1 A 

, XX2A 

XX  3 A 

, VDA 

, GDA 

, POA 

MATS 

♦ XM1 9 

, XM20 

XM21 

XM22 

, XX1TT 

XX2TT 

XK3TT 

, XX  1 TO 

, X K2TD 

MATS 

♦XK3TD 

XX 1 TA 

,XX2TA 

XX  3TA 

XX 1DD 

, XK2DD 

XK3DD 

, XX 1 DA 

, X X2DA 

MATS 

♦XK3DA 

XX  1 AA 

XK2AA 

XX3AA 

,XM9l 

,XM92 

, XM*t  3 

, XH*t9 

, XMH5 

MATS 

♦ XK1V 

, XX2  V 

, XX  3V 

, XX  1 G 

, XK2G 

, XX3G 

, XK  1 P 

, XK2P 

, XX3P 

MATS 

♦ XK1R 

, XK2R 

,XK3R 

, XK  10 

' XX20 

, XX 30 

, XK  1 U 

,XK2U 

, XK3U 

MATS 

♦ XK1M 

XK2M 

, XX3M 

, XX  1 Z 

XK2Z 

, XX 3Z 

XK  1 VT 

,XK2VT 

,XK3VT 

MATS 

♦XXJ  VD 

XX2  VO 

, XX3VD 

,XX1 VA 

, XX2VA 

XX  3 V A 

XX  1 6T 

, XX26T 

, X X3GT 

MATS 

♦XK1G0 

, XK2G0 

XX  360 

, XX  IGA 

XX2GA 

XX  36  A 

XK  1 PT 

,XX2PT 

XK3PT 

MATS 

♦XK1P0 

, XX2P0 

XX  3P0 

XX  1 PA 

, XK2PA 

X X 3P  A 

XK  1 RT 

, XK2RT 

X X 3RT 

MATS 

♦XK1R0 

XX2R0 

, XX 3RD 

XX  1 RA 

XK2R  A 

XK3RA 

XK  1 OT 

, XX20T 

, XX30T 

MATS 

♦XK10D 

XK200 

, XX  300 

XX  1 OA 

XK20A 

XK30A 

,xkiut 

, XX2UT 

, XX3UT 

MATS 

♦XX1UD 

, XX2UD 

, XX3U0 

, XX 1UA 

, XX2UA 

, XX3UA 

, XX 1MT 

, XX2MT 

, XX3MT 

HATS 

COMMON 

/MATS/ 

MATS 

♦XK1MD 

XK2MD 

, XX3M0 

XXI MA 

, XK2MA 

XX  3MA 

XX 1 ZT 

, XX22T 

, XX3ZT 

MATS 

♦XK12D 

XX22D 

XX  32D 

, XX1ZA 

XK22A 

XX  3ZA 

, XXI  VV 

, X X 2 V V 

, XX3VV 

MATS 

♦XK1GV 

XK2G  V 

rXK3GV 

, XX1PV 

XK2P  V 

XX  3P  V 

, XX1RV 

, X X 2R  V 

, XX3RV 

MATS 

♦XK10V 

XX20  V 

r XX30V 

,XX1UV 

, XX2UV 

XK3U  V 

X X 1 MV 

, XX2M V 

, XX3MV 

MATS 

♦XK12V 

XX22  V 

r XX  32 V 

XK1GG 

, XK2GG 

XX3GG 

XX  1 P G 

XX  2P  G 

, XX3PG 

$ 

MATS 

•XK1RG 

' XK2RG 

, XK3RG 

, XK10G 

X X 206 

, XK30G 

, X X 1 UG 

, XX2UG 

XX  3UG 

9 

MATS 
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•XK1NG 

,XK2NG 

, XK3NG  , 

XK12G 

, XK226 

, XK  32G 

, XK  1 PP 

, XK2PP 

, XK 3PP  , 

NATS 

•XK1RP 

,XK2RP 

, XK3RP  , 

XKIOP 

, XK20P 

,XK30P 

, XK 1 UP 

, X K 2 UP 

#XK3UP  , 

NATS 

•XK1NP 

, XK2NP 

, XK3MP  , 

XK12P 

, XK2ZP 

,XK3ZP 

, xkirr 

, XK2RR 

, XK 3RR  , 

NATS 

• XK 1 OR 

, XK20R 

, XK30R  , 

XK  1 UR 

rXK2UR 

,XK3UR 

XK  1 NR 

XK2NR 

, X K 3 NR  , 

NATS 

*XK12R 

, XK22R 

, XK32R  , 

XK  1 00 

, XK200 

, XK300 

7XK1U0 

, X K 2U0 

/ XK 3UC  , 

NATS 

* XK  1 (10 

, XK2N0 

, XK3N0  , 

XK1Z0 

, XK2Z0 

, IK 320 

, XK1UU 

, X K 2UU 

, XK3UU  , 

NATS 

•xkinu 

, XK2NU 

r XK  3NU  , 

XK1ZU 

, XK2ZU 

,XK3ZU 

,XKINN 

,XK2«« 

,XK3NN  # 

NATS 

♦ xkum 

, XK22N 

, XK  3ZN  , 

XK12Z 

, XK2ZZ 

XK  3ZZ 

#xkpiu 

X K P I 2 1 

XKP  I 3 1 # 

NATS 

*XKP 112 
CONNON 

, XKP 1 22 
/NATS/ 

, XKP I 32, 

XKP  1 1 3 

, XKP 1 23 

, XKPI  33 

,PA1 

#PA2 

NATS 

NATS 

* DP  0 V ( 3,  B>,  0EPD£Y<2,  8),  DPOL(  3,  3),  PR0D5I 3,  6*),  PH0D9(2,  29) 
COnnON  /NATS/ 

*PV  #P6  ,PP  ,PR  ,PO  ,PVV  ,P6V  ,PPV  ,PRV 

• POV  , PG6  ,PP6  ,PRG  ,POG  ,PPP  ,PAP  ,POP  ,PRR 

•POR  .POO  .PLG  .plp 

EQUI VALENCE! PR0Dl,PRO05 ) 
connON/ arcoat / 


• SREF 

,XISP 

,tnult 

,OTNC 

. DTP  1 

*1 ATN 

, INODE 

*JAER 

, JPRO 

,QNAX 

GWA  X 

♦XLNAX 

NONA! 

tGPlD07 

,alfnax 

PHNAX 

,N4EA 

*PlAEB 

, NAEC 

„ NAED 

,NAEE 

NAEF 

,NA£G 

• NT 

>ISP 

t NXCG 

,NZCG 

, NtalDA 

nudb 

• NOB 

, XCGR 

, ZC6R 

, XE 

• DREF 
OfNENSfON 

NCNO 

ARCOAC HO  ) 

, RHOB 

t QNULT 

RENAX 

,FRAT£ 

equivalence  $REF,ARCDA> 
connon/ global/ 


GR  ,ER  .OflGZ  , XLANRF , YNURF  ,LUN  ,TO  ,EPSlON, INNER  . 

I TRNAX J JOP( 6 > , 1 FATAL . NApC  , N&fl AN  , NF  ARC  ,I0<9>  , KT  ABt  20  ), 

ITAB(26),  $IG,NAXTA8.6N,P5Iftf-  IPFlG1#IPFlG2,  IPFlG3.  IPFLGy, 

ineqfl(26*>  itpso  k£ol-,  inark,kgl£>bl(  7 y 


ONNON/'OfiilT/  ”vf. 

gani 

PSII, 

XNUI, 

P, 

ORBIT 

ECC, 

AUCL. 

ARGP  t 

ASCNOD, 

SfllNAJ, 

APOGEE, 

ORBIT 

PER6EE. 

ANONLY, 

CAP  X 

CAPY, 

ASYNP, 

ENERGY, 

ORBIT 

MNNTn, 

DVIOY, 

OVIOG, 

ORBIT 

DYIDH  ' 

dyidn. 

DVIOPS, 

OVIORO, 

OYIONU, 

DGIDV, 

ORBIT 

OGIOG  . 

DG  I DH 

DG I ON  , 

DGIDPS, 

QGIDRO, 

D6IDNU. 

ORBIT 

DPI D Y ' 

DP  I DG , 

DPIDH  , 

DPIDrt  # 

DPIDPS, 

OPIORO, 

ORBIT 

OPIDNU, 

DNI0YJ 

ONIDG  , 

DNlDH  , 

ONION  , 

DNIOPS, 

ORBIT 

DNIDRO,  0 
DPDP5  , 0 
OECDrt  ' 0 
OIDH  ' 0 
OBEOG  ' 0 
ONODV  , D 
DNOOnu,  o 

CONNON/ORBIT/ 


DSNDRO . 
DAPOPS, 

opeon 

DANOH  , 
0CX06 
DCYDV  , 
DCYONU. 
OASORO, 
DENDPS , 

onoon  . 


dsndnu, 

DAPORO, 
, OPEOPS 
DANDN  , 
OCXOH  , 
OCYDG  , 
DA$DV  , 
OASDflU, 
OENDRO, 

onodps. 


DPDY  , 
OPDFIU  , 
OECORO 
0 1 DPS  , 
OBEDN  , 
ONOOH  , 
DSNOG, 

DAPOV 
DAPDrtU, 
DPEDRO 
DANOPS, 
ocxon  , 
OCVOH  , 
OASDG  , 
DENOY  , 
DENDrtU, 

onooro. 


DP  DG  f 
DECOY  , 
OECQflU, 
DIORO  , 
OBEOP$, 
ONODn  . 


OPOH  , 
0ECD6  , 
DIDY  f 
DlDNU  . 
OBEDfiU 
DnODPS, 


OPDfl 

DECOR 

D1DG 

DBEDY 

OflEOnu 

DNODRO 


OINENSIO/Sl  ORBPRfK  18  >,PPO<  7, 16^ 


* SNPSR  CSPSR  . SNGI  , CSGI  , SP5I 

• STOT  ,C$I  'SNI  SNGNU  'CSAN 

♦ SINDNU  ,THT  UTFUEL 

CONNON  / PRINT/  AP(IOO) 

EQUIVALENCE  ( VNU,  DYN21H) 

DIMENSION  FF(  9 ) 

DATA  AP  / 100*  037777777777777777777/ 

DATA  RAO/57.2957795130823/,  PI/3. 1HI59265358979/ 

FTNN  = I./6076. 10333 

GA«D=  GAN* RAD 

PSIDG=P$1*RAD 

AP< 1 >=  TINE 

AP(2)=  ALT 

AP(3)=  V 

ap( 9)-6aho 


osndh' 

OSNDN, 

OSNDPS 

ORBIT 

ORBIT 

OAPOG, 

DAPDM 

DAPON  , 

ORBIT 

DPEOV, 

DPEDG, 

DPEDH  , 

ORBIT 

, DPEDNU 

, DANDY 

,DANDG 

, ORBIT 

OANDRO, 

DANDNU, 

DCXDY  , 

ORBIT 

OCXDPS, 

OCXDR0, 

OCXDNU, 

ORBIT 

OCYDN  , 

DCYOPS, 

DCYDRO, 

ORBIT 

DASOH  , 

DASDN  , 

DASDP  S 

ORBIT 

OENOG  , 

DENDH  , 

DENDN  , 

ORBIT 

ONODV  , 

DNODG  , 

DNOOH  , 

ORBIT 

DNOONU 

ORBIT 

ORBIT 

*0  > 

ORBIT 

l SOOWN 

SCROSS.TO, 

TC 

ORBIT 

6sgi 

,spSii 

,CPSII 

, ORBIT 

, SNGNU 

, CSANO 

, COSDNU 

' ORBIT 

ORBIT 
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151. 

152. 

153. 
15*1. 
155. 

1»»  . 
1*/  . 
1»«. 

lfcO  . 

ui. 
U2. 
U3. 
1**  . 
U»  . 

u*. 
1*/ . 

Ito* . 

u«. 
1/0. 
1/1 . 
1/2. 
1/3. 
1/*  . 
l/»  . 

1/fc. 
1//  . 
UK. 
1/*. 
WO. 
1* I . 
1*2. 
U3. 
)**  . 
1**  . 
ltoto  . 
1*/  . 
)*#*#. 
1**. 
1*0. 
1*1 . 


API5)=PSIQG 
API6)  = AU*RAO 
API  7 >r  RH0*RAD 
API  8)  = TAU*XX 
API  9 ) = y 
flOsO 

CALL  P08CQLI  -1 , FF  FF, FF#  0, A0 ) 

API  10)  = VI  ' ' ' ' ' 

API  11)  = 6AHI*RA0 
API  12)  = PSIWRAD 
API  13)  = XAUHRAD 
API19)  = SCROSS*FTHA 
API  16)=  a 
API  18)=  HT 
API  19)  = 2DI5) 

API  20)  = $TOT  *FTNA  - ~ - 

API  21 ) = SDOHH+FTHA 

I Ft  1 ATM  .LT.  2)  RE  = V*RO/VHU 

API  22)-  RE 

API  23  >=  PA 

API 29  )=  RO 

API  25)=  CS 

API  26 1=  HACK 

API  *15  ) = J3 

API 96  )=  XK3 

API  29)  = ALPHA*RAD 

API  30)  £ PHf*RAD 

SACHI  = S I NA*C0SPH1 

IF!  A8SI  SACHI ).CT. 1 . ) 5ACHI=SIGH< I SACHI  ) 
SASHI=SINA*SINPHI 

IF!  ABSI  SASHD.GT.  1 . ) $ASHI=SIGH(  1 . SASH*) 

API  92)=  GAUD  ♦ AStNI  SACHI  )«RAQ 

API  93)  = PSIOG  ♦ AS1NISASHI )*RAD 

API  31)=  XJ 

API  32)=  0 

API  33)=  XAC6 

API  39  )=  LIFT 

API  35)=  DRAG 

API  36)=  T 

1 Ft  201  7 ) . Efl  . 0.)  GO  TO  10 
API  M3  ) = -T/ZDI ? )/6R*TAU 


OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 


193.’ 

10 

API  93  )=0 . 

OUTPUT 

199. 

195. 

20 

C0NT1HUE 

API  98)=  OELTAE  *RAD 

OUTPUT 

Output 

196. 

IFUAER-2)  30,30,90 

Output 

30— j 

197. 

198. 

30 

API  99)=  IT  ♦ L1FT*SIHA-DB  - DRAG*CQSA>  / W 
API  50)=  I LIFT*C0SA*  0RA6*SINA )/  « 

Output 

Output 

J99. 

60  TO  50 

output 

200. 

201. 

90 

API  99  )=  1 T*COD  ♦LIFT*SINA-DB  -DRAG*COSA>  / * 
API 50>=<LlFT*COSA4QRAG«SlNA-T«S10)/y 

Output 

Output 

3 

202. 

203. 

209 . 

205. 

206. 

20/  . 
2 OH . 
20*. 

210. 
211 . 
212. 
213. 
21*  . 
21>  . 
21*. 
21/. 
21*. 
21*. 
220. 
221. 
222. 
223. 


50  API  5 1 )=50RTI API  99 )*»2*AP<  50  >**2 ) 

API  27)=  CL 
API  26)=  CO 
API  37)  = LV 
API  36)  = LGAA 
API  39)  = LPSI 
API  90)  = LR 
API  91  ) = LRKO 
API  92)  = LMJ 
API  99)  = LA 
API  97  ) = LTAU 

CALL  COORDS! C0SRH0,$IHRH0) 

1FI IPFLG1.ME.0)  GO  TO  60 
API  62)=  SAIAAJ  *FTHA 
API  63  )=£CC 
AP(69)=AINCL  * RAD 
API  65)=  ASCNOD*  RAO 
API  6b  )=  ARGP  * RAD 
API  67)=  APOGEE  * FT HA 
API  68  )=  PERGEE  * FT HA 
API  69)=  ANOflLV  *RAO 

API  70)=  SA1AAJ  *2 . *P1 *SQRTI  SA1AAJ/&A) 


OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

OUTPUT 

output 

OUTPUT 

OUTPUT 

OUTPUT 

output 

Output 

output 

Output 

output 

output 

output 

OUTPUT 

Output 

output 


60—| 
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APC  71 )=ENER6t 
AP(72>  = HANTA 
AP( 73  ) = P*FTN« 

AP(  79)=H«NT«  /APOGEE 

APC  75 UHBNTW  / PER6EC 

60  CONTINUE 

IF( IPFLS3.  WE.  0 ) 60  TO  70 
IKONVR  s 0 

IF(KONVER)  IKONVR  = 1 
IF<  . NOT . KONVER ) GO  TO  90 

IF<  V . LT . 300 . . OR . ABS(  COS 6 AH ) . LT . .001 > 60  TO  70 
CALL  CRASH 

70  CONTINUE  ' 

IFC  . NOT .KONVER  ) GO  TO  90 
IF(  IPFlG 1 . NE . 0 ) 60  TO  90 
APC  17)  = 2 <19) 

AP( 55  ) = 2(20) 

APC  36)  s 2(22) 

APC  5 7)  r 2(23) 

APC  58)  = 2(21  ) 

90  CONTINUE  ' ' 

CALL  PR  I NT( ITER,  IKONVR  1,  NOPRNT ) 

NOPRNT  = .FALSE. 

RETURN 

END 
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// 


DESCRIPTION 


■«rv 


sy9«agTi^ 

SUB R CODE  VAR 


A1NCL 

i 

l 

Orbital  i ac  1 1 nit  Ion 

(RAD) 

/ORBIT 

/( 

7 ) 

OUTPUT 

I 

A1NCL 

POBCQL 

R 

AINCL 

ALPHA 

o 

I 

Angle  of  ittiek 

(RAD) 

/OYNA 

/( 

79  ) 

AEROCO 

I 

alpha 

AL6C0N 

A 

ALPHA 

AL2 

I 

ALPHA 

ARCIN 

n 

ALPHA 

CONTRL 

N 

ALPHA 

ENVPRQ 

I 

ALPHA 

WOHECO 

I 

ALPHA 

NPLANE 

n 

ALPHA 

OUTPUT 

l 

ALPHA 

TRAJIN 

0 

ALPHA 

UT 

1 

ALPHA 

NRAPUP 

I 

alpha 

ALT 

h 

1 

Altitude 

(FT) 

/D 

/( 

99) 

OUTPUT 

1 

ALT 

STATEF 

I 

ALT 

/ 

URAPUP 

I 

ALT 

ANOHLY 

1 

(RAD) 

/ORBIT 

/( 

13) 

OUTPUT 

I 

ANOHLY 

PDBCOL 

n 

ANOHLY 

APOGEE 

R 

1 

(FT  ) 

/ORBIT 

/( 

11) 

OUTPUT 

1 

APOGEE 

• 

PDBCOL 

0 

APOGEE 

AR6P 

6 

I 

Orbital  erguaent  of  pertgie 

( RAO) 

/ORBIT 

/( 

8) 

OUTPUT 

i 

ARGP 

P 

PDBCOL 

n 

ARGP 

ASCNOD 

Q 

1 

Longitude  of  ascending  node 

(RAD) 

/ORBIT 

/( 

9) 

OUTPUT 

I 

ASCNOD 

PDBCOL 

« 

ASCNOD 

CD 

cn 

I 

Drag  coefficient 

/DYNA 

/( 

192) 

AEROCO 

0 

CO 

OUTPUT 

i 

CD 

UT 

i 

CD 

CL 

c, 

I 

Lift  coefficient 

/DVNA 

/( 

186) 

AEROCO 

n 

CL 

L 

OUTPUT 

i 

CL 

UT 

i 

CL 

COD 

I 

/DYNA 

/( 

153) 

DL2 

i 

COD 

C 0 1 Sg 

OUTPUT 

1 

COO 

TH3 

i 

COD 

UT 

n 

COD 

COSA 

cos* 

I 

/DVNA 

/( 

10) 

AL1 

i 

COSA 

ALA 

I 

COSA 

AL6 

i 

COSA- 

AL7 

i 

COSA 

, 

ALB 

i 

COSA 

AL9 

i 

COSA 

APPLY 

i 

COSA 

CONTRL 

i 

COSA 

NLDRV 

i 

COSA 

OUTPUT 

i 

COSA 

TH3 

i 

COSA 

UT 

n 

COSA 

C0S6AH 

COST 

I 

See  ijatol 

/DYNA 

/( 

9) 

AL1 

I 

COSGAfl 

ALA 

I 

COSGAN 

ALT 

I 

COSGAN 

AL8 

I 

COSGAH 

AL9 

1 

COSGAfl 

CONTRL 

I 

COSGAfl 

NLDRV 

1 

COSGAfl 

OUTPUT 

1 

COSGAfl 

POBCOL 

I 

COSGAH 

STATEF 

n 

COSGAfl 

COSPHI 

C 0 s* 

I 

See  syabol 

/DVNA 

/( 

93) 

AL1 

I 

COSPHI 

ALA 

l 

COSPHI 

APPLY 

I 

COSPHI 

ARCIN 

0 

COSPHI 

CONTRL 

a 

COSPHI 

OUTPUT 

i 

COSPHI 
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fortran 

Symbol 


NATH 

SYMBOL 


CDOE 


DESCRIPTION 


STORAGE  SUBROUTINE  US 

block  loc  susr  cm  i 


COSRHO 


cs 

DB 


DELTAE 


DRAG 


ECC 

ENERGY 

GAM 


GAM] 

GM 


GR 


CO  sp 


* 

b 


D 


e 

E 

7 


Gfl 

9r 


I 


1 

I 

I 


I 

I 


1 


St*  syabol 


Speed  of  touftd 
Bui  dreg 


Engine  deflection 


/OYNA  /( 


(FT/SEC) 

/DYNA 

/( 

(LBS  ) 

/DYNA 

/< 

(RADS)  /OYNA  /( 


97)  ALA 

I 

cos 

alt 

1 

cos 

ALB 

1 

cos 

AL9 

I 

cos 

CONTRL 

I 

cos 

NLORV 

I 

cos 

OUTPUT 

1 

cos 

POBCOL 

I 

cos 

STATEF 

M 

cos 

U>  OUTPUT 

I 

cs 

STATEF 

I 

CS 

163)  AL1 

I 

DB 

Ac9 

I 

OB 

AL6 

I 

OB 

AL7 

J 

OB 

ALB 

I 

DB 

AL9 

I 

OB 

APPLY 

I 

DB 

CONTRL 

I 

OB 

NLDRV 

1 

OB 

OUTPUT 

1 

OB 

STATEF 

1 

OB 

TH3 

I 

OB 

UT 

I 

DB 

155  I ALGC0N 

M 

DEL 

ARCIN 

M 

DEL 

CONTRL 

M 

DEL 

DL1 

1 

OEL 

OUTPUT 

1 

OEL 

TRAJIN 

0 

OEL 

UT 

1 

OEL 

Aerodynamic  drag  (LBS) 

/OYNA 

/( 

69) 

AL5 

I 

AL7 

I 

ALB 

1 

AL9 

I 

APPLY 

I 

CONTRL 

l 

ENVPRQ 

I 

NLORV 

1 

OUTPUT 

I 

TH3 

I 

UT 

M 

Orbital  eccentricity 

/ORBIT 

/( 

6) 

OUTPUT 

POBCOL 

M 

Energy 

/ORBIT 

/< 

17) 

OUTPUT 

I 

POBCOL 

0 

Relative  flight  path  angla.  (RAO) 

/O 

/( 

92) 

ARCIN 

I 

ENVPRQ 

I 

OUTPUT 

I 

STATEF 

I 

WRAP UP 

I 

Inertial  flight  path  angles  (RAD) 

/ORBIT 

/( 

2) 

OUTPUT 

l 

POBCOL 

0 

Product  of  Menton's  universal  gravitational 

/ GLOB AL/< 

67  ) 

OUTPUT 

I 

constant  and  the  nass  of  the  earth.  (FT2/SEC2) 

POBCOL 

STATEF 

I 

I 

Gravitational  acceleration  at  surface  of  the  earth. 

/ GLOBAL/ ( 

1 ) 

AL5 

l 

(FT/SEC2) 

APPLY 

BRANPT 

I 

1 

COSTAB 
COST  A1 

I 

INTRPT 

I 

OUTPUT 

1 

POBCOL 

I 

OLTOSI 

1 

SALVE 

I 

STATEF 

1 

TH3 

I 

DRA 

ORA 

ORA 

DRA 

ORA 

ORA 

DRA 

DRA 

DRA 

ORA 

DRA 

ECC 

ECC 

CNE 

ENE 

6AA 

GAA 

GAP 

GAP 

GAP 

GAP 

GAP 

GM 

GM 

GM 

GR 

GR 

6R 

GR 

GR 

GR 

GR 

GR 

GR 

6R 

GR 

GR 


10  NOV  72  6.01-97 


HAAT  A 

H 

I 

Aonantun 

/ORBIT  /( 

18) 

OUTPUT 

I 

HAATA 

PO0CQL 

A 

MAATA 

MT 

0 

I 

Heating  < BTU  ) 

/D  /( 

99) 

OUTPUT 

1 

HT 

WRAPUP 

1 

HT 

I AT  a 

I 

At no  sphere  option  flag 

/ARCDAT/C 

7) 

ARC1N 

1 

I AT  A 

RLORV 

I 

I AT  A 

OUTPUT 

1 

I ATA 

STATEF 

I 

1ATA 

IPFL61 

1 

IPFLG1F0  supresses  print-out  of  velocity  losses  and 

/6L0BAL/( 

89) 

OUTPUT 

I 

IPFLG1 

inertial  Euler  angles. 

PDBCQL 

I 

1PFL61 

OLTOSI 

0 

IPFLG1 

SALVE 

I 

IPFLG1 

IPFL63 

1 

IPFLG3F0  supresses  print-out  of  iopact  data. 

/global/i 

71  ) 

OUTPUT 

1 

IPFLG3 

QLTOSZ 

0 

IPFLG3 

ITER 

I 

01  iteration  nunbor. 

/cntrl  /( 

2) 

ETIAE 

« 

ITER 

GROPE 

a 

ITER 

OUTPUT 

l 

ITER 

JAER 

1 

Aerodynanlc  nedel  option  flag 

/ ARCOAT /( 

9) 

AEROCO 

1 

JAER 

ARC  I A 

I 

JAER 

OUTPUT 

I 

JAER 

STATEF 

I 

JAER 

UT 

i 

JAER 

J3 

1 

Angle  of  attack  option  flag. 

/DYAA  /( 

175) 

ARCIA 

0 

J3 

J 3 = 1 : Optinal  angle  of  attack; 

COATRL 

* 

J 3 

J3  = 2:  Constant  angle  of  attack; 

APLAAE 

A 

J3 

J 3 = 3:  Untrinned  lift  Unit; 

OUTPUT 

1 

J3 

J 3 = 9:  Vertical  rite  or  pitchover; 

J3  = 5:  Unpoocr  « d total  ace* ler at  I on  liait; 
J3  = 6:  Gravity  torn; 

J3  = T : Dynaslc  pressor#  constraint; 

J 3 s 6:  Heating  rate  constraint; 

J 3 = 9:  Reynolds  nunber  constraint. 


X 

m 

imi  X 

n 

LPSI  X 

Ad 


Logical  flag  tbat  Indicates  to  tbc  QL  nodule  that 

/CATRL 

n 

28) 

ALGCOA 

I 

KONVER 

the  QL  Iteration  is  converged. 

APPLY 

I 

KONVER 

ARCIA 

1 

KONVER 

CO  HQ  AO 

0 

KONVER 

GROPE 

0 

KONVER 

ALDRV 

I 

KONVER 

OUTPUT 

I 

KONVER 

RKUTT 1 

I 

KONVER 

Relative  flight  path  angle  cestate 

/D 

n 

101  > 

AL1 

I 

LGAA 

ARCIA 

I 

L6AA 

COATRL 

I 

LGAA 

ALDRV 

I 

LGAA 

OUTPUT 

I 

LGAA 

WRAPOP 

I 

LGAA 

Aerodynes! c lift  (LBS) 

/ DYAA 

/< 

80) 

AL9 

I 

LIFT 

AL5 

I 

LIFT 

AL8 

I 

LIFT 

APPLY 

1 

LIFT 

COATRL 

1 

LIFT 

ENVPRQ 

1 

LIFT 

OUTPUT 

I 

LIFT 

TH3 

I 

LIFT 

UT 

0 

LIFT 

Aass  costate 

/ 0 

/< 

108) 

ALDRV 

1 

LA 

OUTPUT 

I 

LA 

HR  AP  UP 

1 

LA 

Relative  longitude  costate 

/O 

/( 

105) 

NLORV 

I 

LAU 

OUTPUT 

I 

LAU 

HRAPUP 

1 

LAU 

Relative  azlngth  angle  cost ate 

/O 

/( 

102) 

AL1 

I 

LPSl 

ARCIA 

I 

LPSI 

COATRL 

I 

LPSI 

ALDRY 

I 

LPSI 

OUTPUT 

I 

LPSI 

WRAP UP 

l 

LPSI 

10  NOV  72  -6.01-97 


FORTRAN 

MATH 

rrtf »r 

DESCRIPTION 

STORAGE 

SUBROUTINE 

USAGE 

SYMBOL 

SYMBOL 

tuut 

BuOCK  LOC 

SUBfi  CODE 

VAR 

LR 

Xn 

i 

Altitude  cost  ate 

70 

/( 

103  ) 

NLORV 

I 

LR 

R 

OUTPUT 

I 

LR 

URAPUP 

I 

LR 

LRHO 

X 

i 

Latitude  restate 

/O 

/( 

1 OB  ) 

NLORV 

1 

LRHO 

P 

OUTPUT 

1 

LRHO 

MR  A0  UP 

I 

LRHO 

LTAU 

X 

i 

Subarc  duration  costate 

/D 

/( 

107  ) 

OUTPUT 

1 

LTAU 

* 

WRAP  UP 

1 

LTAU 

LV 

X 

i 

Relative  velocity  costate 

/D 

/( 

100) 

AL1 

I 

LV 

V 

CONTRL 

I 

LV 

NLORV 

I 

LV 

NPLANE 

I 

LV 

OUTPUT 

I 

LV 

MR AP  UP 

I 

LV 

n 

m 

i 

Mass 

(G'S) 

/D 

/( 

97) 

AL9 

I 

N 

AL7 

I 

N 

ALB 

I 

N 

AL9 

I 

N 

APPLY 

I 

N 

BRANPT 

I 

N 

COSTAB 

I 

M 

COSTA! 

I 

M 

INTRPT 

I 

M 

NLORV 

1 

N 

OUTPUT 

I 

M 

SALVE 

1 

N 

STATEF 

I 

N 

MRAPUP 

I 

M 

MACH 

« 

i 

/DYNA 

/( 

2b) 

AEROCO 

I 

NACH 

ENVPRQ 

I 

NACH 

OUTPUT 

I 

NACH 

STATEF 

M 

NACH 

MU 

v 

i 

Relative  longitude 

(RAO) 

/D 

/( 

96) 

OUTPUT 

I 

NU 

POBC0L 

I 

NU 

MRAPUP 

I 

MU 

NOPRNT 

M 

Not  used. 

/ CNTRL 

/( 

29) 

OUTPUT 

N 

NOPRNT 

SALVE 

0 

NOPRNT 

TRAJIN 

0 

IPRNT 

P 

Pr 

I 

Seal  - 1 at  us  rectua 

(FT) 

/ORBIT 

/( 

5 ) 

OUTPUT 

I 

P 

POBCQL 

H 

P 

PA 

P. 

1 

At aospher 1 c pressure 

( LBS/FT*) 

/OVNA 

/( 

19) 

IMPULS 

NLORV 

I 

I 

PA 

PA 

OUTPUT 

1 

PA 

TH2 

1 

PA 

PERGEE 

R 

I 

Perigee  radius 

(FT  ) 

/ORBIT 

/( 

12) 

OUTPUT 

1 

PERGEE 

P 

POBCQL 

0 

PERGEE 

PHI 

I 

Rank  angle 

(RAO) 

/OVNA 

/( 

80) 

CONTRL 

M 

PH! 

OUTPUT 

l 

PHI 

MRAPUP 

I 

PHI 

PS! 

* 

I 

Relative  szleutb  angle. 

(RAD) 

/O 

/( 

93) 

OUTPUT 

I 

PSI 

STATEF 

I 

PS! 

URAPUP 

1 

PSI 

PS!! 

*f 

I 

I ner 1 1 a 1 sz 1 nut A 

( RAD) 

/ORBIT 

/( 

3) 

OUTPUT 

I 

PS11 

I 

POBCQL 

M 

PSU 

Q 

q 

I 

Dynaalc  pressure 

(LBS/FT2) 

/DYNA 

/( 

27) 

ENVPRQ 

OUTPUT 

I 

1 

Q 

Q 

POBCQL 

1 

a. 

STATEF 

N 

Q 

UT 

I 

Q 

RHO 

p 

I 

Let  1 1 ude 

( RAO) 

/D 

/( 

95) 

AL9 

I 

RHO 

OUTPUT 

1 

RHO 

STATEF 

I 

RHO 

URAPUP 

I 

RHO 
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FORTRAN 

SYMBOL 


DESCRIPTION 


SUBR  CODE  VAR 
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fortran 

SYPIBOL 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


TOWAGE 

BLOCK LOC 


SUBROUTINE  USA6E 
SUBR  Cf)OE 


"VAR 


TINE 


V 


VI 


VNU 

y 


XJ 


XNCG 


xnui 

XX 


2 


V 


U) 


J 


Mt 


CQ 


z 


I 


I 


I 


I 

1 


I 


I 

I 


I 


Tr  » j a c tor  y - 1 1 at 


( SEC) 


R«  1 it l «•  velocity. 


(FT/SEC) 


Inert! a f velocity  (FT/SEC) 

Ateospheric  viscosity  (dynamic)  ( SLGS/FT/SEC ) 

Uelght  (LBS) 


Control  blend  factor 


Aerodynamic  aoaent  about  canter  of  gravity 

(FT-LBS) 

Inertial  longitude  (RAO) 

Fraction  of  subarc  that  has  transpired 


A 20  »or  d array  used  to  store  the  total  linear 
solution  fro*  the  preceding  QL  iteration. 


/DYNA 

n 

2 ) 

ENVPRQ 

1 

TINE 

OUTPUT 

1 

TINE 

POBCQL 

I 

TINE 

STATEF 

n 

TINE 

URAPUP 

I 

TINE 

/O 

/( 

91  ) 

AL1 

1 

V 

AL9 

I 

V 

AL7 

1 

V 

AL8 

I 

V 

AL9 

I 

V 

BCOND 

I 

NON 

BNORY 

0 

NON 

BRANPT 

n 

NON 

CONTRL 

I 

V 

ENDPT 

1 

NON 

ENVPRQ 

I 

V 

FETCH 

0 

NON 

INTERP 

n 

V 

INTRPT 

n 

NON 

nlorv 

0 

NON 

NLDRV 

i 

V 

OUTPUT 

i 

V 

PDBCQL 

i 

V 

STATEF 

i 

V 

URAPUP 

i 

V 

/ORBIT 

/< 

l ) 

OUTPUT 

i 

VI 

POBCQL 

i 

ORBPR 

PDBCQL 

pi 

VI 

/OYNA 

/( 

21*») 

OUTPUT 

i 

VNU 

PDBCQL 

i 

VNU 

/DYNA 

/( 

91  ) 

AL5 

i 

u 

ENVPRQ 

i 

w 

OUTPUT 

i 

u 

PDBCQL 

i 

u 

QLTOSZ 

i 

w 

STATEF 

n 

u 

TH3 

l 

u 

/DYNA 

/( 

159  ) 

ARCIN 

0 

XJ 

0L2 

i 

XJ 

OUTPUT 

i 

XJ 

STATEF 

i 

XJ 

UT 

i 

XJ 

/DYNA 

/( 

160  ) 

DL2 

i 

XNCG 

OUTPUT 

i 

XNC6 

UT 

n 

XNCG 

/ORBIT 

/( 

*l  > 

OUTPUT 

i 

XNUI 

PDBCQL 

n 

XNUI 

/DYNA 

/( 

1 ) 

ARCIN 

0 

XX 

ERROR 

i 

XX 

OUTPUT 

i 

XX 

STATEF 

n 

XX 

/z 

/( 

1 ) 

BNDRY 

l 

z 

BRANPT 

I 

z 

ENDPT 

i 

z 

ENVPRQ 

I 

z 

INTERP 

0 

z 

INTRPT 

i 

z 

L I NOR  V 

i 

z 

NO ANAL 

n 

z 

OUTPUT 

I 

z 

RKUTTl 

0 

z 

RKUTT2 

n 

z 

SALVE 

n 

z 

URAPUP 

n 

z 
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s?  J>  / / 


ZD 


A 20  •prd  array  containing  tha  aactor  f(X,Z,W)  in  /ZD  /(  1)  ENVPRO  1 ZO 

Equation  17.1*7  in  Vo  I . 1 of  tbi*  docunant.  LINDRV  I ZD 

OUTPUT  I ZO 
AXUTT2  I ZD 
tfRAPUP  I ZD 
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SUBR0UTINE 

PDBCQL 


PDBCQL  computes  all  functional  target  conditions  and  their  partials  with 
respect  to  the  state.* 


*See  documentation  for  Subroutine  PDBC  in  the  Steepest  Descent  module 


//£> 


PDBCQl 


SUBROUTINE  PDBCQL! XX,  F $,  SO,  1DP,  ISXP) 

LOGICAL  SWITCH,  ILOAO 

REAL  P1ACH,  ISP,  ISPV,  ISPR,  JSPPI,  ISPT,  ISPVV,  ISPVR,  ISPVA, 
•1SPVT,  I SrRR  fSPRW,  1SPRT,  ISPnfc.  1SP&T,  ISPfT,  Lift,  LIFT  V . 
•LIFTR,  LJFTA,  LIFTVV,  LIFTVR,  LIFTVA,  LlFTRR,  LlFTRA,  nUR,  LlFTAA, 
•IRATED,  ISPF,  ISPFF 
REAL  PIACHV . MACHR  HACH VR  WACHRR 
REAL  LIFT*  LlFTVft,  LlFTRn,  L1FT«W,  Li FTNA 

copwon  /dyAa / 

• XX  ,TlnE  SI  NG  An,  CO  SG  API,  ONEGA  0flEGA2,R  ,6  ,SINA  , 

• COSA  , DYNO I 1 , OflEGAT, TAMP  ,PA  ,RO  ,CS  ,TE(SPR  ,PAft 

•ROR  , CSR  'TEPJPRR.PARR  , RORR  'CSRR  ^XOQE  ,WACH  ,0  ' 

*0V  , QR  ,QVV  ,QVR  , ORR  ,FVAC  ,FVACV  . F VACR  . F VACH  , 

•FVACT  FVACVV,FVACVR,FVACRR,FVACTTT  PIACHV  .PIACHR  , I SP 

• ISPV  1 1 SPR  'iSPPl  , I SPT  ,ISPVV  I SP  VR  ,ISPV«  ,ISPVT  'iSPRR  . 

• ISPRO  , I SPRT  'iSPCW'  ,lSPflT  ,ISPTT  'LIFT  ,LIFTV  ,LlFTR  'lIFTA  , 

•LIFT VV ,LlFTVR, LIFTVA  LlFTRR, Ll FTR A QR AG  ,0RA6V  ,0RA6R  ,ORAGA  , 
•DRAGV V , DRAGVR , DRAGVA, ORAGRR , DRAGR A ORAGAA, ALPHA  ,PHI  ,LlFTM  , 
•LIFT  Vrt, Li FTRPt'  Ll FTflFt, Li FTflA, OBR  DBRR  G AdPlAD,  AE  'TAX 

•w  ,SlNPHl'C0$PHI, SI NFS  I ,COSPSl'5lNfiHO,COSRH0,5INROfi'CO5ROR, 

• NUR  , XX6  , XXP  , AX  I N ,coo  'coon  ,Clo  ,fk  ^XCG«  , 

•xcGnn  ,zcfin  ,zcann  ,xjv  ,xjr  'xjvv  ,xjvr  ,xjrr  >achvr, 

• PIACHRR,  S I N2R0, C0S2R0 . C0S2GN, Cn  ,CWA  ,Cnn  , CNAA  'Crtnn  , 

•CNAtn  ,cno  ,cnon  ,cnonn  ,cnAnn  ,ulftv  ,ulftr  ,ulftvv,ulftvr, 
•ulftva,ulftrr,ulftra,ipow  ,xarc  !tstart,gh  ,grr  liftaa, 
•coonn  ,CLAnn  ^clon  ,CLOnn  ,dyni99;ct  ;coqae  ,sidae  ;cod 

• SID  ,DELTAE!cDE  , XCG  ,ZCG  XJ  ,XP1CG  , CALPHA'  ALftAX  , 

*DB  , ULFT  ^CULFT  ,ULFTA  .TSTAGE'tINES  , XdC&AA, IRATED  FRATEO 

connON  /oyna/ 

• WTT  ,Jl  J 2 ,J3  ,XNCGA  F VACF  ,ULFTAA,ISPF  ,ISPFF  , 

• H_OAD  ,PXF|  ,FXnn  ,SblITCH/INGF  ,CL  ,CLA  ,CLft  , CLAA  , 

♦CLnn  , CLAN  ' CD  CD A ,CDH  ;COAA  ,CDPW  fCDAn  ' DYN1 98, 

• 0YN199,DYN200,XnCGV  .XflCGR  ,XrtCGN  , XflCGVV, XrtCGVR, XnCGVn, XflCGVA, 

• XNCGRR,  XPICGRPI,  XnCGRA,  XnCGrm^MCGnARORRR  ,DYN219,0VN215,DYN2U, 

• DYN2 17, I DAM  ,TAIRB  , T Al RBV , T AI RBH, T ARBV V , T ARBHH, T ARB VH; SF C 
•SFCV  ,SFCH  ;SFCVV  ,SFCHH  ,$FCVH 

COnnON/ GLOBAL/ 

• GR  , ER  ,0n6Z  , XlAPIRF  , YnuRF  ,LUn  , TO  ,EPSLON,  INNER  , 

• I TfiPJAX , JJOP!  6 > ,IFATAL,NARC  ,NBRAN  ,NFARC  ,ID(9>  ,XTAB(26>, 

• I TABt  20  ),  SIG,nAXTAB,Gn,PSInF  , IPFlGI, IPFLG2, IPFLG3, 1PFlG9, 

•I NEQFL!  20  ) itPSO,  X$OL,  INARX  X6L0BL! 7 ) 

C0n«0N/ARC6AT/ 


• SREF 

,XISP 

TPIULT 

, OTNC  ' 

, OTP  I 

* I ATn 

,IP10DE 

, JAEfl 

,JPRO 

, QPIAX 

, 6PIAX 

♦XLKAX 

hdmax 

,Gn00T 

,AwF«AX 

PHMAX 

.(IAEA 

•PIAEB 

,rtAEC 

,nAED 

, PIAEE 

>A£F 

>AE6 

*nT 

>ISP 

,nxC6 

>ZCG 

,nwoA 

,nwoa 

♦nDB 

,XCGR 

,ZCGR 

,XE 

*OREF 

OlnENSION 

,nCND 
ARCOA! HO) 

, RHOB 

Qpiult 

REWAX 

,FR ATE 

EQUIVALENCE!  SREF , ARCOA  > 

real  nagbv,  nu,  «,  lv,  lga«,  lpsi,  lR,  lrho,  l*u,  ln,  ltau,  non 
tonnON  /o/ 

• X,  M,  Xll9>,  PIAGBV , ERR,  09,  010,  C(90),  CSAVE(HO),  V,  GAN,  PSI, 
•ALT,fiHO(nu,nf  TAU.  HT  LV.  LGAn,  LPSI,  Lfl,  lRhO.  LrtU,  LN.  LTAU, 

• LHT,  0109,  OliO,  BVC  90 ),  iSAVE(20),  0T(20),  NP01NT<26),  DELT 120) 

oir£nsion  N0n<  z6 ) 

EQUIVALENCE  (NON,  V) 

THIS  SUBROUTINE  COPIPUTES  FUNCTIONS  OF  STATE  AND  PARTIAlS 
FOR  VARIOUS  PURPOSES  IN  TABTOP 
••  DEFINITIONS** 

XX  = VARIABLE  CODE  NUNBER 

F = VALUE  OF  FUNCTION 

S = PARTIAL  DERIVATIVE  ARRAY 

SO  = TINE  DERIVATIVE  OF  F 

IOP  = OPTION  Flag  = o = copipute  f only 

1 = COPIPUTE  S 

2 = ESTIMATE  SO  IF  POSSIBLE 

3 = CONFUTE  SO 

I$XP=  BYPASS  Flag  TO  INHIBIT  REDUNDANT  CONFUTATION 
OlnENSION  S( 1 >,F< 1 ) 


PDBCQL 

OYNA 

DYNA 

OYNA 

DYNA 

OYNA 

DYNA 

DYNA 

OYNA 

JUL21 

OYNA 

OYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

OYNA 

DYNA 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA 

OYNA 

OYNA 

DYNA 

OYNA 

DYNA 

DYNA 

DYNA 

DYNA 

JUL2I 

AUG09 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

0 

D 

0 

D 

JUL21 

D 

0 

D 

PDBCQL 

PDBCQL 

POBCQL 

PDBCQL 

PDBCQL 

PDBCQl 

POBCQL 

PDBCQl 

PDBCQL 

PDBCQl 

PDBCQl 

PDBCQl 

PDBCQL 

PDBCQl 

PDBCQl 

PDBCQl 
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76. 

COMMON/  ORBIT/  VI. 

GAMI, 

PSII, 

XMUI, 

P, 

77. 

* ECC, 

AINCL, 

ARGP, 

ASCNOD 

SMlMAJ 

APOGEE, 

78. 

79. 

* PERGEE, 

* HMNTM, 

ANOMLV, 

DVIOV, 

CAPX, 

DVID6, 

CAPY, 

ASYMP , 

ENERGY, 

80. 
61. 
82. 
83. 
8m  . 
85  . 
66. 

* OVIDM  , 

DVlOM 

OVIDPS, 

DVIORO, 

0V10MU, 

0G10V, 

* 06I0G  , 

DGIOH 

0G10M  , 

DGIDPS, 

DGIDRO, 

D6IDMU, 

* OPIDV  , 

OPIOG, 

DPIDM  , 

DPIDM  , 

DPIOPS, 

OPIDRO, 

* OPI0MU, 

0MIOV, 

0MI06  , 

0*1  DH  , 

DMiDfi  , 

0MI0P5, 

* OMIORO, 

DMIOMU, 

DPOV  , 

DPOG  , 

DPOH  , 

DPDM  , 

* OPOPS  , 

0PDRO  , 

OPDMU  , 

DECOV  , 

DECOG  , 

OECOH  , 

• OECOM  , 

DECDPS, 

OECDRO 

OECDMU, 

d 1 D V , 

DIDG  , 

* D1DM  , 

DIOM  , 

DIOPS  , 

DlDRO  . 

OI0MU  , 

OBEOV  , 

87  . 
66. 
ev. 

90. 

91 . 

92. 

M: 

* OBEDG  , 

D0E0H  , 

DBEDM  , 

OBEDPS, 

dbeor6. 

OBEOMU, 

» DNODV  , 

DNOOG  , 

DNODH  , 

0NO0M  , 

ONOOPS, 

dnodrD, 

* DNOOMU, 
COMMON/ 0R8 

OSMOV, 

IT/ 

DSMOG, 

DSMDH, 

DSrtDM, 

DSMDPS 

* DSMDRO, 

DSMDMU, 

DAPDV, 

DAPDG, 

DAPDtf, 

DAPDM  , 

» DAPDPS, 

OAPORO  . 

OAPOMU, 

OPEOV , 

OPEOG, 

OPEDH  . 

♦DPEDM 

, DPEDPS 

DPEDRO 

,DPEOMU 

DANDY 

,oan6g 

95. 

* OANOH  , 

OANDM  , 

DANOPS, 

0ANORO, 

0AN0MU, 

ocxov  , 

96. 

97  , 
90. 
99. 
100. 
101  . 
i e\9 

* DCXDG  , 

DCXDH  , 

DCXOM  , 

DCXOPS, 

DCXORO, 

DCXOMU, 

♦ OC YOV  , 

DCYDG  , 

OCVOH  , 

DCYOM  , 

OCV0PS, 

OCYORO, 

♦ DCYOMU, 

OASOV  , 

dasdg  , 

DASDH  , 

DASOM  , 

DASDPS, 

* OASDRO . 

DASOMU. 

OENOV  , 

OENGG  , 

GENOH  , 

OENOM  , 

* OENOPS,  OENDRO, 

* DrtOOM  , DrtODPS, 

DIMENSION  OABPRMt 18 ) 

OENOMU, 
0MODRO 
. PPO( 7,10^ 

OrtODV  , 
OflODMU 

0M0D6  , 

DMOOH  , 

C0MM0N/0AB1T/  YMXRF,SNXLMA,CSXLMR.SDOWN,SCAOSS,TO,TC 
* , SNP  SR  , CSPSR  ,$NGi  ,C$GI  ,Sf5ll  ,CPSU 

• STOT  ,CSI  ,5NI  ,SNGNU  * CSAMO  ,COS0MU  , 

* SINOMU  !THT  . >TFUEL 

DIMENSION  JVAR< 36  ) MA$X( 36  ),  MS< 2 ) 

DIMENSION  FIAPC  7 ) 

equivalence  <masxc  d,msxi  ),<  mas*(  2 ),ns*2  > . c masx(  3 >,msk3>, 

1<  MA$X(9  ),M$Xi  >,  ( MASXt  5 >,MSX5  > ,<MASX<  6 >,MSX6  > ,<MA$XO  >,MSX7I, 

2imasx(8).msx6>,  ( masx(9  >,msx9 ) ,(ma$x(  10  ),ms*io  ),<  masxi  li >,msx1i > 
3,  ( MASKC  12).  (*iS K 1 2 >,<MASX<  I 3 I , MSX  I 3 >,  < MA5K<  19  ),M SX19  >, 

9 (MASK(  15  >,MSX15  >,(MASX<  16  ) , MSX  lb  ) , ( MASX(  17  >,MSX17 ), 

5 ( nA SKI  18 ),MSX18>,( MASXt  19  ) M$K 1 9 >,< MASXt  20  ) MSK20  ), 

6 ( MASXt  2 1 ),MSX21  >,(MASKt  22  >,MSK22>,t  MASXt  23>,MSX23>, 

7 ( MASXt  29 ), MSX29 >, ( MASXt  25 ), MSX25  >,t  MASXt  2fc  ), MSX26  >, 

8 ( MASXt  27  >,MSX27  >,  ( MASXt  28  ) , MSK28  > , ( MASXt  29>,MSX29>, 

9 ( MASxt  30 >,MSX30),t MASXt  31  >,MSX3t  >,t MASXt  32>,MSX32>, 
x tnASxt  33>,M$x33>,tMASx<39  >,M$x39),t  masxi  35>,msx3&>, 

A ( MASKt  36KMSX36) 

EQUIVALENCE  tVNU.  0YN21S).  t VNR . DYN215  ) 

DATA  J VAR  /OOOOODl, 0000003,  0000007, 

1 0000010,0000023.  0000093, 

2 0000107,  0000367,  0000517,  0001001, 

3 0003093,  0005093,  0010023,  0020063, 

9 0090063,  0100093,  0201001,  ©900003, 

501000001  ,03000003  ,09000007  ,010000000 

6023000023  ,093000093  ,0109000107  ,0367000367 

70509000517  ,01001001001  ,03093001093  ,05093001093 

6010023010023  ,020036000063  ,090036000063  ,010009310093  , 

9 01001001001,  01003900003  / 

OATA  MA$X  / 1,2,  9.  8,  16,  32  , 69,  128.  256  , 512  , 1029,  2098, 
19096,  8192,16389.  32768  , 65536  , 131072  . 262199  . 529288, 

2 1098576  , 2097152  , 9199309  , 8388606  , 16777216 

3 3355993 2 , 67108869,  139217728,  268935956,  536870912  , 

9 1073791829  , 2197903698  ,9299967296,8589939592  , 

5 17179869109.0/ 

OATA  M$/  03000003  07000007/ 

DATA  MAP  /l,  2,  9,  7,  3,  5,  6/ 

DO  1 ILOQP  : 1 9 

1 5< I LOOP  ) = 0. 

OCORHO  = OflEGA*COSRHO 
IFtXX.  6T.0)  SO  TO  10 
X=1 

MM  = 0617777 

60  TO  50 

10  CONTINUE 

1 Ft  XX . 6E , 30  ) GO  TO  530 

PARAMETER  IS  AMONG  ORBITAL  SET 


ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
r ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT 
ORBIT  ■ 
ORBIT 
PDBCQL 
POBC0L 
PDBCQL 
POBCQL 
> PDBCQL 
POBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
POBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
POBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
PDBCQL 
POBCQL 
POBCQL 
POBCQL 
PDBCOL 
PDBCQL 
PDBCQL  10- 
PQBCQL 
POBCQL 
POBCQL 

PDBCQL  ■* 

POBCQL 

PDBCQL 
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) 


151. 

152. 

153. 

1*4  . 
44ft*-* 

156. 

157. 

158. 

1**.. 


1 1 60 . 
161 


162. 

1*3. 
Us  . 
U»  . 
44 


[167. 

168. 

>69. 
170. 
171  . 
172. 
444* 


1 79  . 
175. 

17*  . 
177. 
17«. 
1#*. 
Ufl,. 


181  . 
182. 
183. 

la*#  . 
4* 


166. 

187. 

168. 

4 4U4* 


190. 

l?i. 

192 

193. 

195. 

196. 

197. 
196. 

190. 

400* 

201  . 
202. 
203. 

20s  . 
20*  . 
20*. 
207  . 
20*. 
404* 
210. 
211. 

212. 

213. 

2 Is  . 
Urn 


216 

217. 

21*. 

21*. 


TEST  FOR  ESTIMATE  OPTION 

Ks|K-|t 

IF(IOP.EB.O)  GO  TO  20 

TEST  FOR  PARAMETER  CALCULATION  ONLY 
A-18+A 


PDBCQL 

POBCQL 

PDBCQL 

P08C0L 

POBCQL 


20  IFt ISAP.EQ.O)  GO  TO  90 
30  MPUANDt  JVAR(K)  -MSt  1S*P>> 
IF(MM.NE.O)  Sfi  TO  50 
IFtX-18)230,230,920 


PDBCQL 

POBCQL 

POBCQL 

POBCQL 


90  m - JYARt A 1 

TEST  AND  COMPUTE 


VI 


POBCQL 

POBCQL 


50  IFtO.EQ.ANDtMW.MSAl>>  60  TO  60  POBCQL 

ve  = r*omega*cosrho  POBCQL 

V I = SQRTl  V* V ♦2.*VE*V*C0S6AM*SINPSI*VE*VE>  „ . POBCQL 

lFtMtn.tf.nSA2>  "GO  TO  230  *"  POBCQL 

TEST  ANO  COMPUTE  GAMMA  INERTIAL  AND  ITS  TRIG  FUNCTIONS  POBCQL 


60  I F{  AND(rm,mSK2).EQ.0>  60  TO  TO 
SN6I  = V*SiN6AM/YJ 
GAM  = A$IN(SN6I) 

CSGI  = SQRTt  1 . - SNGI*SN6I) 

ISKP  =1 

1F(MM.LT.MSK3)G0  TO  230 
C TEST  ANO  COMPUTE  PS1  INERTIAL 


AND  ITS  TRIG  FUNCTIONS 


70  I FC  ANDt  MM. MS A3). EG. 0)  60  TO  60 

SPSIUl  V*c6s6AM*SINP$l  + VE>/(  VI  +CS61  ) 

PSII  = ATAN2<  V*C056AM* 5 I NFS  1 ♦ VE  , V*C0SGAM#CO$P$|} 
CPSIU  COSCPSII) 


lr5f^ 


LT.MSA9 ) 60  TO  230 
TEST  ANO  COMPUTE  «U  INERTIAL 


60  I Ft  ANO( nM.nSKM >.EQ.O > 60  TO  90 

xnuu  mu+  6m6Z*time 

IFtKK  .LT.  0 .AND.  IPFL61  .NE.  0)  60  TO  590 
lFtMM.LT.MSA5>  60  TO  230 
TEST  AND  COMPUTE  SEM1-LATQS  RECTUM 


90  IP( ANDt  MM . MS A 5 > . EO . 0 ) 60  TO  100 
P-  FUR*  V J * V 1 * CSGI  *CSGJ  /GM 
lFtMM.LT.MSA6)  GO  TO  230 
C TEST  AND  COMPUTE  ECCENTRICITY 


100  1F( ANDt  PM, MS A 6 ) . EQ . 0 ) 60  TO  110 
RV20MU  = R*VI*YI/6M 

ECC  = SQRTt  1.  - RV20MU*t  2.-RV20MU  UCSGMCS6I  ) 
lf( MM.LT.M5A7 ) 60  TO  230 

C TEST  AND  COMPUTE  INCLINATION  AND  ITS  TRIG 


FUNCTIONS 


110  I Ft  ANDt  MP). MSA7  ).£Q  .0  ) 60  TO  120 
C$I=  COSftHO*  5PSII 
AINCL  = ACOStCSll 
SNI  = SIN(AINCL) 

IFtMM.LT.MSA6)  60  TO  230 
C TEST  AND  COMPUTE  AR6.  OF  PER16EE 


120  I Ft  ANDt  MM  MSAB  ) . EQ . 0 ) 60  TO  130 
CSfiNU  =<P  -R  )/R/ECC 

IFtABS(CSGNU)  .GT.  1.)  CSGNU  = SI6N11.,  CSGNU) 
GNU  = ACOSt CSGNU) 

SRO I = SINRHO/SN) 

IFF  ABSt  SROI  ).ST.l.  ) SROI  r S!6Nti.,SR0I> 

ARGP  s ASINC  SROI  ) - GNU 
IFtMM.LT.MSA9)  SO  TO  230 

C TEST  AND  COMPUTE  L0N6.  OF  ASCENDING  NODE 


130  IFC AND<MM,MSA9 >.EQ.Q)  GO  TO  190 
5PSI  = SPSI  MS1NRH0/SNI 

IF(  ABStSPSI  ).6T.l.  ) SPSU  S I 6N< 1 . , SPSI > 
ASCNOD  = XMUl  - AS  I Nt  SPSI  ) 

IFt Mfl.LT.MSAIO ) 60  TO  230 
C TEST  ANO  COMPUTE  SEMI-MAJOR  AXIS 


190  IFt  ANOt  MM.MSAIOJ.EQ.O)  GO  TO  150 
SMIMAJ=  R*GH  /C  2 . *GM  -R*Vl*Vl> 
IFt  MM.LT.MSAU  ) GO  TO  230 

TEST  AND  COMPUTE  APOGEE 


PDBCQL 

PDBCQL 

POBCQL 

PDBCQL 

PDBCQL 

PDBCQL 

POBCQL 


POBCQL 

POBCQL 

POBCQL 

POBCQL 

POBCtU. 

POBCQL 

POBCQL 


POBCQL 

POBCQL 

POBCQL 

PDBCQL 

PDBCQL 


POBCQL 

PDBCQL 

POBCQL 

PDBCQL 


POBCQL 

POBCQL 

PDBtQL 

POBCQL 

POBCQL 


POBCQL 

PDBCQL 

PDBCQL 

PDBCQL 

PDBCQL 

PDBCQL 


PDBCQL 

POBCQL 

POBCQL 

PDBCQL 

POBCQL 

PDBCQL 

POBCQL 

PDBCQL 

PDBCQL 


PDBCQL 

PDBCQL 

POBCQL 

POBCQL 

POBCQL 

PDBCQL 


POBCQL 

PDBCQL 

PDBCQL 

POBCQL 


3 


50- 


1 2 3 0 — 1 920n 


[230- 


230- 


230- 


to=t 


230- 


Too^, 


230- 


f i o— i 


230- 


T5o=! 


230- 


ttaorf 


230- 


T 90^ 


230- 


r^=i 


230- 


590 
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150  1F( AN0(  rm.nSKll  1.EQ.0)  60  TO  160 
APOGEES  5RIRAJ*(  1 . +ECC  ) 

1F(  nn  LT.RSK12)  GO  TO  230 

_C TEST  AND  COMPUTE  PER16EE 

no  iFt  ano(  nn,(nsiU2  ) -EQ.o  ) 60  to  wo 

PERGEE  = SRIRAJ*< 1 .-ECC) 
lF(nn.LT.nSH13)  GO  TO  230 

JJ TEST  AND  COMPUTE  TRUE  AMOWOlV , 

17  0 1 F ( ANDt  Art, R5K 1 3 > . EQ  . 0 ) 60  TO  180 

ANORLV  = AT AN2t  SNGI/CS6I,  I.-  R/  P ) 
lFtflrt.LT.R$*14>  GO  TO  230 

J TEST  AND  COMPUTE  CAP  l 

160  1 Ft  AND(nnfnSKl<l  l.EQ.O)  60  TO  190 
CAP X = P/ECC  - 
I F ( Pin . LT . R$K 15  ) 60  TO  230 

J TEST  AND  COMPUTE  CAPV 

190  lF(AN07nn*RSltl5)  EO.O)  GO  TO  200 
CAPV  s P*ECC  / SORT!  ECC*ECC  -1) 

IFt RR.LT.R$K16)  GO  TO  230 

_C test  and  compute  ASSYRPTOTE 

200  1F( ANO(nn(nSK16).EQ.O)  60  TO  210 
ASVRP  = ACOSt 1 ./ECC  ) 

IFt  RR.LT.RSK17 ) 60  TO  230 

j; TEST  AMO  COMPUTE  ENERGY 

210  IFt  AND(  Pir», «SK1 7 l.EO.O)  60  TO  220 
ENERGY  = 2.*6PI  / SRIRAJ 

,IF(nn.LT.rtSK18)  60  TO  230 

C TEST  AND  CORPUTE  RORENfUR 

220  IFt  ANDt  RR  R5K16  l.EO.O)  60  TO  240 
HRNTfls  R*  V I »CS6 1 
IFt  Pm.6E.nSA19 ) GO  TO  240 
IF(KK.LT.O)  GO  TO  $40 

Z RETURN  BEO , ORB.  PARA.  THROUGH  »R6.  LIST 

230  F s ORBPRnt K ) 

RETURN 

_C TEST  AND  COMPUTE  PARTIAlS  OF  V INERTIAL 

240  IFt  ANDt  RR, RS* 19  l.EO.O)  60  TO  250 

0V1DV  =( V+R*0C0RH0*C0S6AA*SINP$I )/ VI 
SAG  I sV*5 IN6AR/ VI 


OVIOG  = -VE*$N6I*SINP$! 

DVIDH  = V£*(  V * C0S6AR*  5INP5I+  R*OCORHO  )/  tR*Vl> 

D V I DM  =0. 

DVlOPSs  VE*V*COSGAR*COSPSI/  VI 

OVlOROs  -SINRH0*VE*( V* CQS6AW* S 1 NPSI ♦ VE ) / (COSRHO*Vl> 

ovionus  o. 

I F t RP1 . LT  . RSK20  ) GO  TO  420 

_C TEST  AND  COMPUTE  PARTIAlS  OF  6ARRA  INERTIAL 

250  IFt  ANDt  pmfflSit20).EQ.0)  60  TO  260 
VIC1  = VI*  CSGI 
TflQ=  - V*  SlNGAW/t  VI*  VIC1I 
061 DV  = SINGAR/VICI  ♦ TnO*OVIDV 
06 1 06  = V*C056Afl/VlCI  * TflO*DVI06 
OGIOH  s TRO*DVlOH 
OSIORsO. 

OGIOPSs  TRO*  OVIOPS 
OGIOROs  TRO*  OVIORO 
D6IDRU=0. 

IFt RR.CT.ASK21 > GO  TO  420 

_C TEST  ANO  COMPUTE  PARTIALS  PSI  INERTIAL 

260  IFt  ANDt  RR,A$lt21  l.EO.O)  GO  TO  270 
TR1=  CPSlWCPSll  /tV*COSGAR*COSPSI) 

DPIDV=-VE*  TR1/  V 

OPIOHs  -DP IOV*V/R 

OP  1 06=  0PIDH*R*SIN6Art/C0S6AR 

DPIDPSz 

1 CPSII*CP$II/l  COSPSI*COSPSI)*SINPSI*VE  *TR1  /cospsi 

OPIOROs  -R»0AG2*S1nRH0*TR1 
DPiomj=  o. 

DP  I DR  = 0. 


PDBCOL  TfcO- 
PDBCOL 
PDBCOL  23 

POBCOL  1 


POBCOL  180 
PDBCOL 
PDBCOL 
PDBCOL 


POBCOL  ZOO— | 
POBCOL 

PDBCOL  23 

PDBCOL 

PDBCOL  ? 10 — 
POBCOL 

POBCOL  231 

PDBCOL  m 

POBCOL  ?20  — 
PDBCOL 

PDBCOL  231 

PDBCOL  .. 

POBCOL  ?40  — 
PDBCOL 

PDBCOL  240— 

PDBCOL 

POBCOL 


PDBCOL  250= 

PDBCOL 

POBCOL 

POBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

POBCOL 

PDBCOL 

POBCOL 

PDBCOL  ?60- 

PDBCQL 

PDBCOL 

PDBCOL 

POBCOL 

PDBCOL 

POBCOL 

PDBCOL 

PDBCOL 

POBCOL 

PDBCOL 

POBCOL 

POBCOL  ITI  — 

PDBCOL 

PDBCOL 

POBCOL 

PDBCOL 

PDBCOL 

POBCOL 

POBCOL 

PDBCOL 

PDBCOL 
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X 


IFdnm.LT.n5.K22)  GO  TO  920 

TEST  ANO  COWPUTE  PARTIALS  OF  WU  INERTIAL 

IF( AND(mn,n$K22).E0.0)  60  TO  260 
onrov  =0. 
onioG  =o. 

DMOH  =0. 

onion  =o. 
oniDPS=o. 

OnlDB0=0. 

omonu=i . 

IF(mn.LT.nSK23)  GO  TO  920 

TEST  AND  COmPUTE  PARTIALS  OF  SErtl-LATUS  RECTun 


280  I Ft ANO(nn#nSK23).EO.O ) GO  TO  290* 
Tn2s  2.*  P /V 1 
Tn3=  2.*  P -/  R 
Tnn=-2.*P/CS61  *SN61 
DPDV=  Tn2»0V!0V  ♦ Tn^OGlO* 

OrDGs  Tn2*D¥lDG  ♦ T«4*DGI06 
DP0h=  TH3  ♦ Tn2*D¥lDH  4 Tn«i*D61DM 
OPDn=  o. 

DPDP S=  Tn2*DVl DPS  ♦ Tn9*06I0PS 
OPORO=  Tn2*OvIORO  4 Tfl9*06I0R0 
OPDnu=  o , 

I F( nm. lT , nSR29 ) 60  TO  920 

TEST  AND  COMPUTE  PARTIALS  OF 


ECCENTRICITY 


290  I Ft  AND<mm.nSK2*i  >.EQ.O>  GO  TO  300 

Tnn=  (Rvionu  -1  >*RV20nu*C56i*cS6l/ECC 
Tn5=  2-»Tnn/Yl 

.Tnt  = RV20mu*(2.  - RY20nu)  * CS61 4 SNGI / ECC 

Tn7  = Tmm/  R 

OECDY=  TPI540YIDY  * Tn6*0SI0¥ 

DECOG=  Tm5*DV 1 06  4 Trt6*0GID6 
DECDH=  Tn74  Tft5*DV 1 OH  4 Tn6»D6IDH 
OECDrtxO. 

DECDPS=Tn5*DVlDPS  4 Tnb*D6IDPS 
DECDR0=Tm5*DYlDR0  4 Tn6*D6IDR0 
DECDnUs  0. 

lF(nn.LT.nSK25  ) 60  TO  920 

_C TEST  AND  COmPUTE  PARTIAlS  OF  INCLINATION 

300  I Ft  AND(Pin.m$K2>  ).EQ.O)  60  TO  310 

Tne  = -cosrho*  cpsii  /sni 

DIDY=  Tn8*0P 1 0 V 
0106  = Tn8*DPI06 
0 1 DM  = Tne*OPIOH 
oion=  o. 
didps=  Tne*opiops 

D 1 DRO-  5 1 NfirtO*SPS 1 1 /SNI  4 Tn8*0P10fl0 
DIQnu=  0. 

IF( nn.LT .nSK2<> ) 60  to  920 

_C TEST  AND  COmPUTE  PARTIALS  OF  AR6 . OF  PERIGEE 

310  I Ft AN0(nn/nSK26 >.£Q.O)  GO  TO  320 
CGNAR  = COS( GNU  4AR6P  > 

SN6NU  = SI N( GNU  > 

DGNDP=  -1 ./(  R*ECC«SNGNU) 

DGNDR  = -P*OGNDP/  R 

OGNDE  = -( P-R  ) /ECC  *DGNDP 

Trt9  = - SINRHO*CSI/SNl/SNI/CGNAR 

OBEDY  =-06N0P*DP0Y  - DGNOE*OECOV  4 Tm9*0I0¥ 

OBEOG  =-OGNDP»OPOG  - DGNOE«DECOG  4 Tn9*DID6 
DBEDH  = -DGNDR  -DGNDP*DPDH  -D6N0E*DECDM  ♦ Tn9*0IDM 
DBEDfn  =0. 

DB£ORO=  COSRHO/( SNl^CGNAR )-DGNDP*OPDRO  -DGNDE*D£CDR0  4Tn94D10R0 
DBEOPS=  -D6NDP*DPDPS  -DGNDE^OECDPS  4Tn940I0PS 
DBEOrtU=  0. 

IF(mm.LT.nSK27 ) GO  TO  920 

_C TEST  AND  COmPUTE  PARTIALS  OF  L0N6.0F  ASCENOING  NOPE 

320  I Ft AND(nn.nSK27 ).EQ.O)  GO  TO  330 
CDNO  = -C0M ascngo  -nu-  opigz^tme) 

ONOOPI  = CPSII  *SlNRHO/( 5nI*CDN0) 

DNOORR  = SPSU*COSRHO/(  SNUCDNO  ) 

ONOOI  = - SPSI  I*SINRH0*C5I  /t  SNI*SNUCDNO ) 

ONOOY  = OtiOOP  l* OP IDV  4DN0DI*0IDY 


PDBCOL  280- 

POBCOL 

POBCOL 

POBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

POBCOL 

PDBCOL 

PDBCOL 

pobcol  Tro^ 

POBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

POBCOL 

PDBCOL 

POBCOL 

POBCOL 

PDBCOL 

POBCQl 

PDBCOL 

PDBCOL  TOO^ 

POBCOL 

POBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

POBCOL 

PDBCOL 

POBCQL 

PDBCOL 

POBCQL 

POBCQL 

POBCQl 

POBCQl 

PDBCOL  TfO^ 

POBCOL 

POBCQL 

PDBCOL 

POBCQL 

PDBCOL 

POBCQL 

POBCOL 

POBCOL 

POBCOL 

PDBCOL  

POBCOL  llo^ 

PDBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

POBCOL 

POBCQL 

POBCOL 

POBCOL 

PDBCOL 

PDBCOL 

POBCOL 

POBCOL 

POBCOL 

PDBCOL 

POBCOL 

PDBCOL  ^30- 

PDBCOL 

POBCOL 

POBCQL 

PDBCOL 

PDBCOL 
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41  / 


DNCOS  = ONODP I *DP l D6  +DN0DI*0ID6 
ONOOH  = ONOOPMDPIOH  ♦DNOOl*DIDH 
DNOOH  =0. 

ONOQP5=DNODPI*DP10PS  > OMOD 1 *01  DPS 
DN0DRO=  DNODRR  +DNODP I *DP I DRO  ♦ ONODI*DIORO 
DN00flU=  1. 

I P(  Pin . LT  . P1SK28  ) 60  TO  HZO 
TEST  AND  COMPUTE  PART  1 ALS  OF  SWIHAJ 
330  IF(  AND(  API ,flSK28  ) .EQ.O  ) 60  TO  3<40 
TEST  FOR  flOMENTUrt 
IF(iC.EQ.36>  GO  TO  <410 

DSnDfi  = SNIPIAJ/RM  1 . ♦ SMlflAJ*Vl*Vl/6«> 
DSfIDtf  I = 2 .*SrtimAJ*SflIMAJ*¥I  /Gfl 

osno*  * osnovi*oviDv 
osnps  = oSfnovi*ovl06 

DSftDH=  OSMDR  ♦ DSMDVI*DVIDH 

osnon  = o. 

OSrtDPS=  DSrtDVI*  DV I DPS 
OSrtOBOr  OSPlOV J*DYI0R0 
DSnonu  * o. 

TEST  FOR  ENERGV 
1 F( K .EQ . 35  ) 60  TO  <400 
IF(  nrt.LT  .MSK29  ) 60  TO  <*20 

TEST  AND  COMPUTE  PABTIAlS  OF  APOGEE 

3*40  IF( AND(rtn,mSK29 ).EQ.O>  60  TO  350 
GAPDA  * 1 , *ECC 
DAPoe  = sninAj 

DAFO¥=  DAPDA*PSP)DV  * DAPDE*DECD Y 
DAP06  =DAPDA*DSrtDG  ♦ DAPDE»DECD6 
DAPCH=DAPDA«DS<nOH  +DAPOE*OECDH 
OAPOrt  = 0. 

DAPDPS=  OAPDA*OSnDPS  ♦ OAPOE«OECOPS 
OAFDRO=  DAPDA*  DSMDRO  + DAPDE*OECORO 
OAPDftU=  0. 

IF<  flfl.LT  .P1SK30  > GO  TO  *420 

TEST  A (VO  COMPUTE  PARTI  ALS  OF  PERI6EE 

3>0  I F < ANO(  Pin . M$K  30  ) . E Q . 0 ) 60  TO  360 


OPEOA  = l.-ECC 
OPECE  = -SnlPJAj 

DPEDW  = DPEDA*DSnDY  ♦ DPEOE*  DECD V 
DPE06  = OPEDA*DSnDG  ♦ DPEDE*DECD6 
OPEOH  = OPEDA*QSflOH  ♦ DPEDE*DECDH 
DPEDrt  = 0 

DPECPS=  OPEOA*DSnDPS  ♦OPEOE*OECOPS 
DPEORO=  OP  EDA*  DSnDRO  *OPEDE*DECDRQ 
DPEOflU=  0. 

IFtnn.LT  n$K 3 1 ) GO  TO  <420 
TEST  AND  COMPUTE  P ART  I ALS  OF  ANOflOLV 

360  IF(AND(nnn$K31  ) . EQ . 0 ) 60  TO  370 
CS AMO  - Cost  ANOflLY ) 

CS2  s C S ANO*CSAMO 

COM  = 1.  - R/P 

DAN061  = CS2/  CS61 / C56I/  CON 

DANOR  = CS2*SM6I/( P*C0N#C0N*CS6I ) 

OAMOP  = - 0 AMOR  * R/P 

0 AMO V = DANDG1 *D6IDV  * DAMDP*DPD¥ 

0AN06  S DAN061 *06106  ♦ DAMDP*DPD6 

DANDrt  = DANOR  * DANDG I * 06 1 DH  + OAMDP*DPDH 

DAMDfl  =0 . 

OAMDPS  s DANDGI *D6IDP5  + DANDP*DPOPS 
DAmORO  = DANDG I * 06 1 DRO  + DAMDP*OPDRO 
OANOnU  s 0. 

IFt flrt.LT.flSK32 ) GO  TO  M20 
TEST  AND  COMPUTE  PARTIAlS  OF  CAP 

3 70  IFl  AN0(rtflflSK32 ).£C.O ) 60  TO  380 
DCXOP  = 1./  ECC 
DCXOE  = -P/( ECC*ECC ) 

DC  XD  ¥ = OCXDP*OPOV  + OCXOE*DECDY 
OCXDG  = PCXOP'OPOG  4 OCXP£*0EC0G 
OCXDH  = PCXDP*DPDH  + DCXOE*DECDH 
OCXDfl  =0. 

OCXDP  S=  OCXOP*OPOPS  +DCXDE*DEC0P5 
DCXDRO=  DCXOP*DPORO  +DCXDE*OECDRO  --- 


DPEOE*  DECDv 
DPEDE*DECD6 
DPEDE*DECDH 


OPEOA*DSnOPS  ♦0PE0£*0£CDP$ 
0PEDA*05nDR0  *DPEDE*OECDRO 


PDBCOL  T*iO“ 

POBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

PDBCOL 

POBCOL 

PDBCOL 

POBCOL 

PDBCOL 

PDBCQ-l 

PDBCOl 

PDBCOL  flTcP 

PDBCOL 

PDBCOl 

PDBCOl 

PDBCOL 

FDRXOl  . - 

PDBCOL 

POBCOL 

PDBCOL 

PDBCOL 

POBCQl 

POBCOL 

POBCOL  3 60  — 

PDBCOl 

PDBCOl 

PDBCOL 

PDBCOL 

PDBCOl 

PDBCOl 

PDBCOl 

PDBCOl 

PDBCOl 

PDBCOL 

POBCQl 

PDBCOl  "570- 

POBCOL 

POBCOL 

PDBCOl 

PDBCOl 

PDBCOL 

PDBCOl 

POBCQl 

PDBCOl 

POBCQl 

POBCQl 

PDBCOl 

PDBCOl 

POBCQl 

POBCQl 

POBCQL 

PDBCOl  "580- 

PDBCOl 

PDBCQt 

PDBCOl 

POBCOL 

PDBCOl 

POBCQl 

PDBCOl 

PDBCOl 
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434 
4 35. 
436. 


437  . 

438 

439  . 
<♦40. 
441  . 

4*2. 
HH  3. 
4*«*  . 
HM*  . 
***  . 
4H  / . 
MMU  . 
4*V. 
N*0  . 
***■4  ■ 
462 

4>  3. 
*>*  . 
H>*  . 
*>*  . 
4»/  . 
H»*l  . 
*»  V. 
4*0  . 
4*1  . 
4*2  . 
4*  3. 
464 
465. 

4**  . 

4*/  . 
4*4  . 
4*V  . 
4/0. 
4/  1 . 
4 / 2 . 
4/3. 

475  . 
476. 

47/  . 
4 /*  . 
4/4. 
440. 
1441  . 

442. 

443. 


44*  . 

48  7. 

D488. 

44«. 
4 40. 

4 VI  . 


4V2. 

14  V3. 


495. 

496. 


4%/  . 


499  . 

500 

501  . 

502 

_ >03. 
>04  . 
>0*  . 


0CXD*U=  0. 

IF( *fl.LT.*SK33  ) BO  TO  420 
C TEST  AND  CONPQTE  PARTIAL5  OF  CAPY 


380  IF< ANO< *fl,*SA33  ).E0.0)  GO  TO  390 
T*1  = ECOECC 

T*2  = TUI-1 

S0E2  ^ SQRT( T*2 ) 

DCYOP  = ECC/  SQE2 

DCYDE  = P/SQE2*(  1.  - 1*1/  T*2> 

DCYDV  =DCY0P»DPD Y ♦ DCYDE^DECDV 
OCYOfi  =DCYDP  *DPDG  +0CY0E*DECD6 
DCYOH  =DCYOP#OPOH  ♦ DCY0E*DECOH 
Devon  =0 

DCYDPS  =OCYDP*OPDPS  ♦DCYDE*  DECDPS 
DCYDRO  = DCY0P*DP0R0  +DCYOE*  RECORD 
DCYD*u'=  0. 

lF(*n.LT.*SA34)  60  TO  420 

Z TEST  A HP  CONPuTE  PART  I ALS  OF  ASSYrtPTOTE 

39 0 I F ( ANDt  nn ,ns* 34  ) . EQ  .0)  60  T 0 420 

SNASY  = $IN(ASY*P> 

OASOE  = 1./  < $NASY*£CC*ECC) 

OASDV  £ DASDE»DECDV 
0AS06  = DASDE*DECDG 
DASDH  = D ASDE*OECDH 
DASOn  = 0. 

D ASDP  S = OASDE*DECOPS 
DASDRO  = DASDE*  OECORO 
OASQNU  £ 0. 

GO  TO  420 

c COMPUTE  PART1ALS  of-  energy ' 


400  continue 

OCNOSCU  -2 . *6rt  / ( SrtinAj*  snirtAj) 

OENOV  = OENDSrt  * DSrtOY 

DEND6  = DENDSA  * D5*D6 

DENOH  = DEMOS*  ♦ DSftOH 

OENDn  = 0. 

DEMDPS-  DEMOS*  * OS*OPS 
OEMDRO=  DENDS*  * OS*ORO 
OENO*U=  0. 

GO  TO  420 

C CONFUTE  PARTIALS  OF  WONENTu* 


410  continue 

D*OOR=H«NT*/R 

0*0DYl=  H*NTB  / VI 

D*0DG1=  - R*  Yl  * SNGI 

DnOOY  = 0*00 Y I *0 Y 1 0 V ♦ D*006I  *DGIDY 

OftODG  = DN0DYI*DYIDG+0*0DGI*DG1DG 

DnODH  = DNOOfi  4 D*OD  Y I *D Y I DH  +0*006I*D6IDH 

0*00*  =0. 

0*00PS  =D*OOYI*DYIOP5  4 0*OO6I*O£IOP5 

D*OORO  =0*00 Y I *0Y 1 DRO  ♦ 0*0061 *06 I ORO 

0*00*U  =0. 

C STORE  PARTI  AlS  IN  S AND  CONFUTE  SO 


420  K=A-l a 

DO  430  J=I,I 
JrtAP  = *AP(J) 

$U*AP>  = PPOIJ,  A) 

430  CONTINUE 

0 F = OR0PR*CAI 
RETURN 

KX.SE.30  REENTRY  TYPE  TARGETS 


POBCOL 

PDBCQL 

PDBCQL 


POBCOL 

POBCOL 

PDBCQL 

PDBCOL 

PDBCQL 

PDBCQL 

PDBCQL 

PDBCQL 

POBCOL 

POBCOL 

POBCOL 

POBCOL 

PDBCQL' 

PDBCQL 

PDBCQL 


POBCOL 

PDBCQL 

PDBCQL 

PDBCQL 

POBCOL 

PDBCQL 

PDBCQL 

PDBCQL 

PDBCQL 

PDBCQL 

PDBCQL 

PDDCQL 


PDBCQL 

PDBCQL 

PDBCQL 

POBCOL 

PDBCQL 

POBCOL 

PDBCQL 

PDBCQL 

POBCOL 

PDBCQL 

PDBCQL 

PDBCQL 

POBCOL 

POBCQL 

POBCOL 

POBCQL 

PDBCQL 

PDBCQL 

PDBCQL 

POBCOL 

PDBCQL 

PDBCQL 

PDBCQL 

POBCQL 

PDBCQL 

POBCQL 

PDBCQL 

PDBCQL 

POBCQL 

PDBCQL 

POBCQL 


l90={ 


420 ) 


420 1 

420 


530  A = KA-29 

GO  TO  <540,570,600,630,690,750,8001 
* , A 

C DOWN RANGE  CALCULATION 


PDBCQL 

POBCOL 

PDBCQL 

PDBCOL 


540  COSONU  = COS< *U-Y*XRF ) POBCOL 

S I NOrtU  = SIN<*U-Y«XRFI  PDBCQl 

TDNU*=  CSPSRM  S I NRHO*CSXL*R“COSRHO*SNXL*R*COSOrtU )+SNPSR*COSRHO*SlN  PDBCQL 

1DNU  PDBCOL 

TDDEN=  SInRHO*SMXl*R  +COSRHO*CS XL«R*COSD*U  PDBCQL 

TO  = ATAN2<T0NU*,.TDDEN)  PDBCQL 

SDOWN  =TO*ER  " “ PDBCQL- 


570- 


600-1  630-i  690 “|  75  0-j  800- 


540—1 
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f 


506. 

507. 

508. 
509 
510. 
511  . 

5 12. 
5 13. 

4m 


515. 

516. 


517. 

518 

519. 

520. 

521. 

522. 

523. 
52*  . 
5 2s*  . 
52*  . 
52/  . 
5 2w  . 
5 2*. 
5 30. 

5 31  . 

6 aa.. 


1533. 


539. 
535  . 

536. 

537. 

53*. 
5 3*. 
5*  0 . 
!>*  1 . 
t»H  2 . 
5*3. 
5**  . 


IF(KK.U.O)  £0  TO  580  PDBCQl 

F=  TD*ER  PDBCQL 

C PARTIALS  OF  D0WNRAN6E  PDBCQL 

550  COSTD  = COS(TO)  PDBCQl 

S( 5 ) =ER*C05T0*C0STD*(( CSP$R*( COSRHO*CSXLMR+SINRHO*SNXLMR*COSDMU > PDBCQL 

1 -5NP5R*SINPMO*SINOP1U)/TOOEN  - TONUfl*< C05flH0*S«XLnR  -SINRHO*CSXL  PDBCQL 

2MR  « COSDftU  )/(  TDDEN*TDDEN ) ) PDBCQL 

St 6 ) =ER*COST0*COSTO*< ( C5P$R*C0SRH0*5NXLFlR*  S I NDflU  + $NP  SR*COSRHO  PDBCQL 
1 *COSOriU  l/TDOEN  ♦ T0NUfl»C0SRH0»CSXLf1R»S  INOMU/(  TOOEM»TOO£N)  ) PDBCQL 


580-1 


560  RETURN 
C CROSS 


RANGE  COMPUTATION 


PDBCQL 

PDBCQL 


570  C0SDP1U  = COS(MU-VMXRF) 
S1N0P1U  = S 1 NC  MU-VMXRF  ) 


PDBCQL 

PDBCQL 


610-n 


580  CONTINUE  PDBCQL 

STC  = CSPSR  *COSRHO»SINO«U  - SNP$R*( S I NRHO* C SXLMR  -C0  SR  HO*SNXLRR*  PDBCQL 

1 COSDrtU)  PDBCQL 

TC  = A$I  N( STC  ) PDBCQL 

SCROSS=TC*ER  PDBCQL 

IFtKK.LT.O)  £0  70  610  PDBCQL 

F=TC*ER  PDBCQL 

PART  I ALS  OF  CROSS  RANGE  PDBCQL 

5ba  COS TC.  COS(TC)  PDBCQL 

SI  5 ) = 'ER/COSTC*( -CSPSR*SINRHO*SINDMU  - SNP SR*( COSRHO^CSXLHR  + S 1 NRHO  PDBCQL 

1*  SNXLPlR*  COSDMU))  PDBCQL 

S<6)  ^ £R/C05TC*< CSPSR*C05RH0*C0SDMU  - SNPSfi*COSRHO*SNXLflR*S J NOMU ) PDBCQL 

RETURN  POBCQL 

TOTAL  RAN6E PDBCQl 


600  COSDMU  = cost mu-vmxrf ) 


PDBCQL 


610  CONTINUE 

COSTHT  = SINRHO*  SNXLMR  * C05RH0*CSXLMR  * COSOMU 
THT  r ACOSt COSTHT) 

STOT  s ER*THT 
IF(KX.LT.O)  RETURN 
F=  ER*THT 

620  SNTHT  . SIN(THT) 

U S(  5 )=  -ERM  COSRHO*SNXLMR  -SlNRHO*CSXLtnR*COSOrtU  ) / SNTMT 
sindmu-  Sim  mu-ymxrf ) 

S<  6 ) - COSRrtO*CSXLrtR*S! NDRU/SNTHT*ER 
GO  TO  560 

DYNAMIC  PRESSURE 


PDBCQL 

POBCQL 

PDBCQL 

PDBCQL 

POBCQL 

POBCQL 

POBCQL 

PDBCQL 

POBCQL 

PDBCQL 

POBCQL 

PDBCQl 


560- 


5 96. 

597 

59B 

!>**. 
5*0. 
» 1 . 


553 

559. 

5»  . 
5s>*  . 
>*/  . 
*>*. 


630 


*90 


CONTINUE 

Fr  Q 

PART1ALS  of  DYNAMIC  PRESSURE 
S(  1 > - QY 
St  9)  = QR 
RETURN 

HEATING  RATE 


POBCQL 

POBCQL 

PDBCQL 

POBCQL 

PDBCQL 

PDBCQL 

PDBCQL 


690  CONTINUE 

HTD  = QMULT*1760O.*SQRT(RO/RH0B)*( V/ 26000 . )**3 . 15 
F = HTD 

HEATING  RATE  PARTIALS 
/On  S(1  ) = 3.15*MT0/U 
0 S( 9 ) = HTD/2 . *ROR/RO 

DPTilRM 

REYNOLDS  NUMBER 


POBCQL 

PDBCQL 

PDBCQL 

PDBCQL 

PDBCQL 

PDBCQL 

POBCQL 

PDBCQL 


561  . 

562. 

563. 

&**  , 

. 


566 
569  . 

>/0. 
» / 1 . 
5/2. 
>/3. 


750  RE  = V*RO/YNU 
F = RE 

PARTIALS  OF  REYNOlS  NUMBER 
St  1 ) = RO/VNU 

S(9)  = ( V*ROfi  - RE*VNR  )/ YNU 
RETURN 

FUEL  WEIGHT  (FIRST  STAGE  ONLY ) 


POBCQL 

PDBCQl 

PDBCQL 

PDBCQl 

PDBCQl 

PDBCQl 

PDBCQl 


600  WTFUEL  = ZSAYEt  7 )*£R 
F-  WTFUEL 

FUEL  UT  PARTIALS 
St  7)  r -GR 
RETURN 
END 


PDBCQl 

PDBCQl 

PDBCQL 

PDBCQL 

PDBCQL 

PDBCQL 
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IN 


h QR1 RAN 

HATH 

DESCRIPTION 

storage 

SUBROUTINE  USAGE 

SYMBOL 

5YW80L 

am£ 

BLOCK 

LOC 

SUBfi  CODE  VAR 

AINCL 

/ 

n 

Orbital  inclination 

(RAD  ) 

/ORBIT 

/( 

7) 

OUTPUT 

PDBCOL 

ft 

AINCL 

AINCL 

ANOftLY 

< 

n 

Trut  anoao i y 

(RAO) 

/ORBIT 

/( 

13) 

OUTPUT 

PDBCOL 

I 

n 

ANOftLY 

ANOftLV 

APOGEE 

R 

• 

0 

Apogee  radius 

(FT  ) 

/ORBIT 

/( 

1 1 ) 

OUTPUT 

PDBCOL 

I 

0 

APOGEE 

APOGEE 

ARGP 

3 

9 

ft 

Orbital  argument  of  parigtt 

( RAD  ) 

/ORBIT 

/( 

6) 

OUTPUT 

PDBCOL 

i 

n 

ARGP 

ARGP 

ASCNOO 

0 

ft 

Longitude  of  ascending  node 

(RAD) 

/ORBIT 

/( 

9 ) 

OUTPUT 

POBCOL 

i 

n 

ASCNOD 

ASCNOO 

ASYftP 

e 

m 

Outgoing  etyaptote 

(RAD) 

/ORBIT 

/( 

16) 

PDBCOL 

ft 

AS  YftP 

CAPX 

X 

0 

T 

/ORBIT 

/( 

1*1) 

POBCOL 

0 

CAPX 

CAPV 

V 

0 

Asyaptote  paraaotor 

(FT  ) 

/ORBIT 

/( 

15) 

PDBCOL 

0 

CAPY 

COSDftU 

c o *(  u ~Ut  > 

ft 

See  Isabel 

/ORBIT 

/( 

163  ) 

PDBCOL 

ft 

COSDftU 

COSGAft 

C 0 s 1 

i 

See  ayabol 

/DVNA 

/( 

9) 

AL1 

AL9 

ALT 

AL8 

AL9 

CONTRL 

NLORV 

OUTPUT 

PDBCOL 

STATEF 

1 

1 

1 

I 

1 

1 

1 

1 

I 

ft 

COS  6 Aft 
COSGAft 
CD  SB  Aft 
COSGAft 
COSGAft 
COSGAft 
COSGAft 
COSGAft 
COSGAft 
COSGAft 

COSPSI 

cos^ 

i 

See  ayabol 

/OVNA 

/( 

95  ) 

AL9 

alt 

ALB 

AL9 

CONTRL 

NLDRV 

POBCOL 

STATEF 

I 

I 

1 

I 

I 

1 

I 

0 

C05PSI 

COSPSI 

COSPSI 

COSPSI 

COSPSI 

COSPSI 

COSPSI 

COSPSI 

COSRMO 

CQSP 

i 

See  ayabol 

/DYNA 

/( 

97  ) 

AL9 

AL7 

ALB 

AL9 

CONTRL 

NLDRV 

OUTPUT 

POBCOL 

STATEF 

1 

I 

I 

I 

1 

I 

I 

1 

A 

COSRHO 

C05HH0 

COSRHO 

COSRHO 

COSRHO 

COSRHO 

COSRHO 

COSRHO 

COSRHO 

CPS1  I 

cost  V'j  ) 

rt 

Cosine  of  inertial  azlautb 

/ORBIT 

/( 

157  ) 

PDBCOL 

ft 

CPSII 

CSANO 

cost  t ) 

M 

See  ayabol 

/ORBIT 

/( 

162) 

PDBCOL 

ft 

CSANO 

CSG1 

cost  >j) 

n 

Cosine  of  inertial  flight  path 

angle 

/ORBIT 

/( 

155) 

POBCOL 

ft 

CS6I 

CSI 

cost/) 

ft 

Cosine  of  Inclination 

/ORBIT 

/( 

159  ) 

PDBCOL 

ft 

CSI 

C5PSR 

cos(^  ) 

r 

i 

Cosine  of  reference  aziauth 

/ORBIT 

/( 

153  ) 

CHECK 

PDBCOL 

0 

I 

CSP5R 

C5PSR 

CSXLUR 

cost  p -pr  ) 

1 

Cosine  of  refernece  latitude 

/ORBIT 

/( 

197  ) 

CHECK 

PDBCOL 

0 

CSXLftR 

CSXLftR 

OANOG 

0 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

109  ) 

PDBCOL 

0 

DAN06 

OANDH 

0 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

105  ) 

PDBCOL 

0 

OANDH 

OANOft 

0 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

106  ) 

PDBCOL 

0 

DANOft 

DANOftU 

0 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

109  ) 

PDBCOL 

0 

DANDftU 

OANOPS 

0 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

107  ) 

PDBCOL 

0 

OANDPS 

DANDR0 

0 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

10B  ) 

PDBCOL 

0 

dandro 

0 AND  V 

0 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

103  ) 

PDBCOL 

0 

OANDV 
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FORTRAN 

syabol 


MATH 

SYABOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

8lo%  loc — nrarw 


OAPOG 

0 

P tr  1 1 

al 

der 

I vat  i 

va 

of 

oun 

dary 

cond 

it 

Ion 

/ORBIT 

/( 

90) 

POBCOL 

0 

OAPOG 

OAPOH 

0 

Parti 

ai 

dar 

i vati 

va 

of 

eun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

91  ) 

P06C0L 

0 

OAPOH 

OAPOA 

0 

Parti 

al 

der 

1 v.tl 

va 

of 

o un 

diry 

cond 

it 

i on 

/ORBIT 

/( 

92) 

PDBCOL 

0 

DAPDA 

DAPDAU 

0 

Parti 

al 

dtr 

1 vati 

va 

of 

oun 

dary 

cond 

It 

ion 

/ORBIT 

/< 

95) 

POBCOL 

0 

OAPOAU 

OAPOPS 

0 

Parti 

al 

dar 

1 vati 

va 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

93) 

POBCOL 

0 

OAPOPS 

DAPORO 

0 

Parti 

al 

dar 

I vat  I 

va 

of 

oun 

dary 

cond 

it 

Ion 

/ORBIT 

/( 

99  ) 

POBCOL 

0 

DAPDRO 

DAPDV 

0 

Parti 

al 

dar 

I vati 

va 

of 

oun 

dary 

cond 

1 1 

1 on 

/ORBIT 

/( 

89) 

PDBCOL 

0 

DAPDV 

OASDG 

0 

Parti 

al 

der 

i vati 

va 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

125) 

POBCOL 

0 

OASDG 

OASDH 

0 

Parti 

al 

der 

I vati 

va 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

126 ) 

POBCOL 

0 

OASDH 

OASDA 

0 

Parti 

al 

dar 

i vat  I 

va 

of 

oun 

dary 

cond 

It 

ion 

i ORBIT 

/( 

127) 

POBCOL 

0 

DASDA 

OASOAU 

0 

Parti 

al 

dar 

i vati 

va 

of 

oun 

dary 

cond 

it 

i on 

/ORBIT 

/( 

130) 

POBCOL 

0 

OASDAU 

DASDPS 

0 

Parti 

a) 

dar 

1 vat  i 

va 

of 

oun 

dary 

cond 

it 

1 on 

/ORBIT 

/( 

128) 

PDBCOL 

0 

DASDPS 

OASORO 

0 

Parti 

al 

dar 

ivati 

va 

of 

oun 

dary 

cond 

It 

ion 

/ORBIT 

/( 

129) 

PDBCOL 

0 

DASDRO 

OASOV 

0 

Parti 

al 

der 

I vati 

va 

of 

oun 

dary 

cond 

It 

i on 

/ORBIT 

/( 

129  ) 

PDBCOL 

0 

DASDV 

DBEOG 

0 

Parti 

al 

dar 

ivati 

va 

of 

oun 

dary 

cond 

It 

Ion 

/ORBIT 

/( 

69) 

POBCOL 

0 

DBEDG 

DBEDH 

0 

Parti 

al 

dar 

ivati 

va 

of 

oun 

dary 

cond 

It 

ion 

/ORBIT 

/( 

70) 

PDBCOL 

0 

DBEDH 

OBEDA 

0 

Parti 

al 

dar 

i vati 

va 

of 

oun 

dary 

cond 

It 

ion 

/ORBIT 

/( 

71) 

POBCOL 

0 

OBEDA 

DBEDAU 

0 

Parti 

al 

der 

i vati 

ve 

of 

oun 

dary 

cond 

it 

i o n 

/ORBIT 

/( 

79) 

POBCOL 

0 

DBEOAU 

OBEOPS 

0 

Parti 

al 

dar 

1 vati 

va 

of 

oun 

dary 

cond 

It 

1 on 

/ORBIT 

/( 

72) 

PDBCOL 

0 

OBEDPS 

DBEDRO 

0 

Parti 

al 

dar 

I vati 

va 

of 

oun 

dary 

cond 

it 

Ion 

/ORBIT 

/( 

73) 

POBCOL 

0 

DBEDRO 

DBEDV 

0 

Parti 

ai 

dar 

ivati 

va 

of 

oun 

dary 

cond 

It 

Ion 

/ORBIT 

/( 

66  ) 

POBCOL 

0 

D8E0V 

DCXDG 

0 

Parti 

al 

dar 

Ivati 

va 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/(* 

111  ) 

POBCOL 

0 

DCXOG 

DCXDH 

0 

Parti 

al 

dar 

Ivati 

va 

of 

oun 

dary 

cond 

it 

1 on 

/ORBIT 

/( 

112) 

POBCOL 

0 

DCXDH 

ocioa 

0 

Parti 

al 

dar 

i vati 

va 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

113) 

POBCOL 

0 

OCXOA 

DCXDAU 

0 

Parti 

ai 

dar 

Ivati 

va 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

116) 

POBCOL 

0 

DCXOAU 

DCXDPS 

0 

Parti 

ai 

dar 

ivati 

ve 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

119) 

POBCOL 

0 

DCXDPS 

OCXORO 

0 

Parti 

ai 

der 

ivati 

ve 

of 

oun 

dary 

cond 

it 

Ion 

/ORBIT 

/( 

115) 

PDBCOL 

0 

DCXORO 

ocxov 

0 

Parti 

al 

der 

ivati 

va 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

110  ) 

POBCOL 

0 

ocxov 

0CYD9 

0 

Parti 

al 

der 

Ivati 

va 

of 

oun 

dary 

cond 

It 

ion 

/ORBIT 

/( 

118) 

POBCOL 

0 

OCYDG 

OCYDM 

0 

Parti 

a I 

der 

ivati 

va 

of 

oun 

dary 

cond 

It 

ion 

/ORBIT 

/( 

119) 

PDBCOL 

0 

OCYOH 

DCYOA 

0 

Parti 

al 

der 

Ivati 

va 

of 

o un 

dary 

cond 

It 

Ion 

/ORBIT 

/< 

120) 

POBCOL 

0 

OCYDA 

DCVOAU 

0 

Parti 

al 

dar 

ivati 

va 

of 

oun 

dary 

cond 

it 

ton 

/ORBIT 

/( 

123) 

PDBCOL 

0 

OCYDAU 

DCVDPS 

0 

Parti 

al 

dar 

ivati 

va 

of 

oun 

dary 

cond 

it 

Ion 

/ORBIT 

/( 

121  ) 

POBCOL 

0 

DCYDPS 

DCVDRO 

0 

Parti 

al 

dar 

i vati 

ve 

of 

o un 

dary 

cond 

It 

ion 

/ORBIT 

/( 

122) 

PDBCOL 

0 

OCYDRO 

OCYOV 

0 

Parti 

ai 

dar 

ivati 

va 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

117) 

PDBCOL 

0 

DCYOV 

DECOG 

A 

Parti 

al 

dar 

Ivati 

va 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

55) 

PDBCOL 

A 

DECDG 

OECDM 

A 

Parti 

al 

dar 

ivati 

va 

of 

oun 

dary 

cond 

it 

Ion 

/ORBIT 

/< 

56) 

PDBCOL 

A 

DECDH 

DECOA 

0 

Parti 

al 

dar 

Ivati 

ve 

of 

oun 

dary 

COfrd 

it 

ion 

/ORBIT 

/( 

57) 

PDBCOL 

0 

DECOA 

DECDAU 

0 

Parti 

al 

dar 

ivati 

ve 

of 

oun 

dary 

cond 

It 

Ion 

/ORBIT 

/( 

60) 

PDBCOL 

0 

DECDAU 

DECDPS 

A 

Parti 

al 

der 

ivati 

va 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

58) 

PDBCOL 

A 

DECDPS 

DECORO 

A 

Parti 

al 

der 

Ivati 

va 

of 

o un 

dary 

cond 

It 

ion 

/ORBIT 

/( 

59  ) 

POBCOL 

A 

DECDRO 

DECOY 

A 

Par 1 1 

al 

dar 

ivati 

va 

of 

oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

59) 

PDBCOL 

A 

DECOY 

OENOG 

0 

Parti 

al 

der 

ivati 

ve 

of 

oun 

dary 

co  nd 

it 

ion 

/ORBIT 

/< 

132) 

POBCOL 

0 

OENOG 

OENOH 

0 

Parti 

al 

dar 

ivati 

ve 

of 

oun 

dary 

cond 

it 

1 on 

/ORBIT 

/( 

133) 

PDBCOL 

0 

OENDH 

GENOA 

0 

Parti 

al 

der 

ivati 

ve 

of 

oun 

dary 

cond 

it 

1 o n 

/ORBIT 

/< 

139) 

PDBCOL 

0 

DENDA 

OENOAU 

0 

Parti 

al 

dar 

Ivati 

v* 

of 

oun 

dary 

cond 

it 

i on 

/ORBIT 

/( 

137  ) 

POBCOL 

0 

OENOAU 

DENOPS 

0 

Parti 

al 

dar 

ivati 

ve 

of 

Oun 

dary 

cond 

it 

ion 

/ORBIT 

/( 

135) 

PDBCOL 

0 

OENDPS 

DENORO 

0 

Parti 

al 

dar 

ivati 

ve 

of 

oun 

dary 

condi t 

Ion 

/ORBIT 

/< 

136) 

POBCOL 

0 

DENDRO 

DENDY 

0 

Parti 

al 

dar 

ivati 

ve 

of 

oun 

dary 

condi t 

Ion 

/ORBIT 

/( 

131  ) 

POBCOL 

0 

DENDY 
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FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE 
TloTk  lOC 


subroutine  usage 
iUBR  CODE  VAR 


06106 

M 

P «r  1 1 • 1 

d »r  i 

a at  I 

va 

of 

bo  under  y 

061  OH 

M 

Parti al 

der  i 

vat  1 

ve 

of 

boundary 

061  DM 

0 

Parti  a 1 

der  i 

v at  i 

v a 

of 

bo  under y 

061 OMU 

0 

Partial 

dar  i 

* at  1 

va 

of 

bo  under  y 

061  OPS 

M 

Parti al 

d*r  1 

* at  i 

va 

of 

bo  under  y 

061 DRO 

M 

Parti  al 

d«r  i 

v at  i 

VC 

of 

bo  under  y 

061 DV 

M 

Part i at 

der  l 

* at  1 

ve 

of 

bo  under  y 

0106 

M 

Parti al 

der  i 

vati 

ve 

of 

bo  under  y 

D1DH 

M 

Parti al 

dar  i 

v at  i 

va 

of 

boundary 

0 1 DM 

0 

Parti #1 

dtr  l 

vati 

va 

of 

bo  under  y 

DIDMU 

0 

Parti al 

dtr  1 

vati 

VC 

of 

bo  u nder  y 

OIOPS 

n 

Parti al 

dtr  1 

vati 

va 

of 

boundary 

OlOfiO 

m 

PtrtUl 

dar  » 

vati 

ve 

Of 

bo  under  y 

DIDV 

M 

Parti al 

dtr  i 

vat  i 

va 

of 

bo  under  y 

OKI  06 

0 

Parti al 

dar  i 

vati 

ve 

of 

bo  u nder  y 

DM1 DH 

0 

Parti al 

dtr  i 

vati 

va 

of 

bounder  y 

DM10M 

0 

Parti al 

dtr  i 

vati 

v a 

of 

boundary 

OMIOMU 

0 

Parti al 

dtr  i 

vati 

va 

of 

bounder y 

dmiops 

0 

Partial 

dtr  t 

vati 

va 

of 

bounder  y 

OMIORO 

0 

Parti al 

dtr  i 

vati 

v a 

of 

boundary 

omov 

0 

Parti al 

dtr  1 

vati 

va 

of 

bounder  y 

DMOO  6 

0 

Parti al 

dar  i 

vati 

v a 

of 

bounder  y 

OMOOH 

0 

Parti al 

dtr  1 

vati 

va 

of 

boundary 

OMOOM 

0 

Parti al 

dtr  1 

vati 

va 

of 

boundary 

OMOOMU 

0 

Parti al 

dtr  i 

vati 

ve 

of 

bounder  y 

OMOOPS 

0 

Part) al 

dtr  I 

vati 

ve 

of 

bounder  y 

DMODRO 

0 

Partial 

der  1 

vati 

va 

of 

boundary 

OMOOV 

0 

Parti al 

dtr  1 

vati 

va 

of 

bounder  y 

DN006 

0 

Partial 

dtr  i 

vati 

VC 

of 

boundary 

DNOOH 

0 

Parti  a 1 

dtr  i 

vati 

VC 

of 

bounder  y 

ONOOM 

0 

Parti al 

dtr  1 

vati 

va 

of 

bo  under y 

ONOOMU 

0 

Parti  a ! 

dtr  I 

vati 

v e 

of 

boundary 

DNOOPS 

0 

Par t 1 al 

dar  I 

vat  i 

va 

of 

bo  under  y 

ONODRQ 

0 

Parti al 

dtr  i 

vati 

va 

of 

boundary 

ONODV 

0 

Partial 

dtr  1 

vati 

va 

of 

boundary 

0P06 

M 

Parti al 

dar  1 

vati 

va 

of 

bounder  y 

OPOH 

M 

Partial 

dar  i 

vati 

va 

of 

bounder y 

DPDM 

0 

Parti al 

dtr  i 

vati 

va 

of 

boundary 

DPOMU 

0 

Part i a 1 

dar  l 

vati 

va 

of 

boundary 

Dp  DPS 

M 

Parti al 

dtr  i 

vati 

va 

0 f 

bounder  y 

DPORO 

M 

Parti al 

da r i 

vati 

va 

of 

boundary 

OPOV 

M 

Partial 

dar  i 

vati 

va 

of 

boundary 

0PE06 

0 

Parti al 

der  i 

vati 

va 

of 

boundary 

OPEDH 

0 

Parti al 

dar  i 

vat  f 

ve 

of 

boundary 

OPEDM 

0 

Partial 

der  I 

v at  i 

va 

of 

boundary 

OPEOMU 

0 

Partial 

dtr  i 

vat  I 

va 

of 

bo  under y 

DPE0P5 

0 

Parti al 

dar  1 

vati 

va 

of 

boundary 

DPEDRO 

0 

Par  1 1 a 1 

der  i 

vati 

va 

0 f 

boundary 

OPEOV 

10  NOV  72  G. 01-97 

0 

Parti al 

der  ] 

vati 

*e 

of 

boundary 

condi  t 

Ion 

/ORBIT 

/( 

27  ) 

PDBCQL 

M 

D6ID6 

co  nd 1 1 

1 o n 

/ORBIT 

/< 

ZB  > 

POBCQL 

M 

061  OH 

co  nd i t 

i o n 

/ORBIT 

/( 

29) 

PDBCQL 

0 

DG1DM 

co  nd  i t 

ion 

/ORBIT 

/I 

32  > 

PDBCQL 

0 

D6IDMU 

co  nd i t 

t on 

/ORBIT 

/( 

30  ) 

PDBCQL 

M 

061  OPS 

condi t 

i on 

/ORBIT 

/( 

31  > 

PDBCQL 

M 

D6IDR0 

condi  t 

1 o n 

/ORBIT 

/< 

26  ) 

PDBCQL 

M 

D6IDV 

condit 

i on 

/ORBIT 

/( 

62) 

PDBCQL 

M 

01 DG 

condi t 

i o n 

/ORBIT 

/( 

63  ) 

PDBCQL 

M 

D1DH 

condi  t 

ion 

/ORBIT 

/( 

69  ) 

PDBCQL 

0 

01  DM 

co  nd i t 

l o n 

/ORBIT 

/( 

67  ) 

PDBCQL 

0 

DIDMU 

co  nd i t 

i o n 

/ORBIT 

/( 

65  ) 

PDBCQL 

M 

D1DPS 

condi t 

i o n 

/ORBIT 

/( 

66  > 

PDBCQL 

M 

DtQRO 

co  nd i t 

ion 

/ORBIT 

/( 

61  ) 

PDBCQL 

M 

DIDV 

cond i t 

1 e n 

/ORBIT 

n 

91  ) 

PDBCQL 

0 

DM1  D6 

condi  t 

i o n 

/ORBIT 

/( 

92  ) 

PDBCQL 

0 

DMIDH 

condit 

i o n 

/ORBIT 

/( 

93) 

PDBCQL 

0 

DMIDM 

co  nd 1 1 

i o n 

/ORBIT 

/t 

96  ) 

POBCQL 

0 

DMIDMU 

condit 

i o n 

/ORBIT 

/( 

99  ) 

PDBCQL 

0 

DMI dps 

condit 

i o n 

/ORBIT 

/( 

95  ) 

PDBCQL 

0 

OMI DRO 

condit 

i o n 

/ORBIT 

/( 

90  ) 

PDBCQL 

0 

DMIDV 

condit 

i o n 

/ORBIT 

/( 

139  ) 

PDBCQL 

0 

DMO  D 6 

condit 

i o n 

/ORBIT 

/( 

190  ) 

PDBCQL 

0 

DMODH 

condit 

ion 

/ORBIT 

/( 

191  ) 

PDBCQL 

0 

OMOOM 

condit 

i e n 

/ORBIT 

/( 

199  ) 

PDBCQL 

0 

DMOOMU 

condit 

i o n 

/ORBIT 

/( 

192  > 

PDBCQL 

0 

DMODPS 

condit 

i on 

/ORBIT 

/( 

193) 

PDBCQL 

0 

DMODRO 

condit 

i on 

/ORBIT 

/( 

138  ) 

PDBCQL 

0 

DMOO  V 

condit 

i o n 

/ORBIT 

/( 

76  ) 

PDBCQL 

0 

DNODG 

condit 

i e n 

/ORBIT 

/< 

77  ) 

POBCQL 

0 

DNODH 

condit 

i on 

/ORBIT 

/( 

78) 

PDBCQL 

0 

ONODM 

condit 

i on 

/ORBIT 

/( 

81  ) 

PDBCQL 

0 

ONODMU 

condit 

i o n 

/ORBIT 

/( 

79  ) 

PDBCQL 

0 

DNODPS 

condi  t 

i o n 

/ORBIT 

/( 

80) 

POBCQL 

0 

DNODRO 

condit 

I on 

/ORBIT 

/( 

75  ) 

POBCQL 

0 

ONODV 

condi  t 

i o n 

/ORBIT 

/< 

98  ) 

POBCQL 

M 

DPD6 

condit 

ion 

/ORBIT 

/( 

99  ) 

POBCQL 

M 

DPDH 

condit 

i on 

/ORBIT 

/< 

50  ) 

PDBCQL 

0 

DPDM 

condit 

i o n 

/ORBIT 

/( 

53) 

PDBCQL 

0 

DPOMU 

condit 

i o n 

/ORBIT 

/( 

51  > 

PDBCQL 

M 

OPDPS 

condit 

i o n 

/ORBIT 

/( 

52) 

PDBCQL 

M 

DPDRO 

condit 

i o n 

/ORBIT 

/( 

97) 

PDBCQL 

M 

OPOV 

condi  t 

i o n 

/ORBIT 

/( 

97  ) 

PDBCQL 

0 

DPED6 

condit 

i o n 

/ORBIT 

/< 

98  ) 

POBCQL 

0 

OPEDH 

condit 

I on 

/ORBIT 

/( 

99  ) 

PDBCQL 

0 

OPEDM 

condit 

i on 

/ORBIT 

/< 

102  1 

POBCQL 

0 

OPEOMU 

condit 

i on 

/ORBIT 

/( 

100  ) 

PDBCQL 

0 

DPEOPS 

co  ndi t 

i on 

/ORBIT 

/{ 

101  > 

PDBCQL 

0 

DPEDRO 

condit 

i o n 

/ORBIT 

/( 

96  ) 

POBCQL 

0 

DPEOV 

DESCRIPTION 


ST  Q ft  ft  G E 
BLOCH  LOt 


S DBfiQuT I HE  USAGE 
TUBRCOOE VftR 


OPIDG 

A 

Pertlil 

der i v at  1 ve 

of 

boundar  y 

condi t i on 

/ORBIT 

/( 

39) 

POBCQL 

A 

OP  1 06 

OP  I OH 

A 

Partial 

derivative 

of 

boundary 

condl 1 1 on 

/ORBIT 

/( 

35  ) 

POBCQL 

A 

OP  I OH 

OPIDA 

0 

Parti al 

derivative 

of 

boundary 

condi t ion 

/ORBIT 

/( 

36) 

POBCQL 

0 

OP  I DA 

OPIOAU 

0 

Partial 

derivative 

of 

boundary 

condi t i on 

/ORBIT 

/( 

39) 

POBCQL 

0 

OPIOAU 

OPIOPS 

A 

Parti  a i 

derivative 

of 

boundary 

condition 

/ORBIT 

/( 

37  ) 

POBCQL 

A 

OPIOPS 

OPIORO 

A 

Parti al 

der i vat i ve 

of 

boundary 

condi t ion 

/ORBIT 

/( 

38) 

POBCQL 

A 

OPIORO 

OPIOV 

A 

Parti al 

der i vat i ve 

of 

boundary 

condi t ion 

/ORBIT 

/( 

33) 

POBCOL 

A 

OPIOY 

OSAOG 

A 

Parti al 

derivative 

of 

boundar y 

condi t Ion 

/ORBIT 

/( 

63) 

POBCQL 

A 

OSAOG 

DSADH 

A 

Partial 

of 

boundary 

condi t ion 

/ORBIT 

/( 

89) 

POBCOL 

A 

DSADH 

OS  ADA 

0 

Partial 

derivative 

of 

boundary 

condition 

/ORBIT 

/< 

65  ) 

POBCQL 

0 

OSAOA 

DSADAU 

0 

Partial 

derivative 

of 

boundar  y 

condi t ion 

/ORBIT 

/( 

88) 

POBCQL 

0 

OSADAU 

OSAOPS 

A 

Partial 

der 1 vat  I ve 

of 

bo  undary 

condi t i on 

/ORBIT 

/( 

66) 

POBCQL 

A 

OSAOPS 

DSAORO 

A 

Parti al 

der i vat i ve 

of 

boundar  y 

condi t ion 

/ORBIT 

/( 

87) 

POBCQL 

A 

OSADRO 

OSAO  V 

A 

Partial 

derivative 

of 

boundar  y 

condition 

/ORBIT 

/( 

62  ) 

POBCQL 

A 

OSAOY 

DV1DG 

A 

Partial 

der i vat i ve 

of 

boundary 

condi t Ion 

/ORBIT 

/( 

20) 

PDBCQL 

A 

DYIOG 

OVIOH 

A 

Partial 

der i vat i ve 

of 

boundary 

condition 

/ORBIT 

/( 

21  ) 

POBCQL 

A 

OVIOH 

DV1DA 

0 

Partial 

der 1 vat  1 ve 

of 

boundary 

condi t i on 

/ORBIT 

/( 

22) 

POBCQL 

0 

DVIOA 

D VI 0 AU 

0 

Partial 

derivative 

of 

boundary 

condi t i on 

/ORBIT 

/( 

25  I 

POBCQL 

0 

0V10AU 

DVIDPS 

A 

Partial 

derivative 

of 

boundar  y 

condition 

/ORBIT 

/( 

23) 

PDBCQL 

A 

DV10PS 

OVIORO 

A 

Partial 

derivative 

of 

boundary 

condi t i on 

/ORBIT 

/( 

29) 

POBCOL 

A 

OVIORO 

DVIDV 

A 

Parti al 

derivative 

of 

boundary 

condition 

/ORBIT 

/( 

19) 

POBCQL 

A 

DVIDV 

POBCQL 

I 

PPO 

ECC 

e 

A 

Orbital 

cccentr 1 c 1 ty 

/ORBIT 

/( 

6) 

OUTPUT 

1 

ECC 

PDBCQL 

A 

ECC 

ENERGY 

E 

0 

Energy 

/ORBIT 

/( 

17) 

OUTPUT 

I 

ENERGY 

POBCQL 

0 

ENERGY 

ER 

1 

Earth  radlua. 

(FT) 

/GLOBAL/! 

2) 

ENVPRQ 

I 

Efi 

R 

POBCQL 

1 

ER 

OLTOSZ 

I 

ER 

STATEF 

I 

ER 

GAAI 

7. 

0 

I ner 1 1 a 

f 1 i ght  path 

angles 

(RAO) 

/ORBIT 

/( 

2) 

OUTPUT 

l 

GAAI 

1 

PDBCQL 

0 

SAA1 

6A 

GW 

1 

Product 

of  Neoton* 

s uni »«r s a 1 

gr  av  1 1 at i ona  1 

/GLOBAL/! 

67) 

OUTPUT 

1 

GA 

constant 

and  the  nass 

of  the  earth. 

( FT3/SEC2) 

PDBCQL 

STATEF 

I 

l 

GA 

GA 

GR 

a 

I 

Gravitational  acceleration  at 

surface  of 

the  earth. 

/GLOBAL/! 

1 ) 

AL5 

I 

GR 

(FT/SEC2) 

APPLY 

I 

GR 

BRANPT 

I 

GR 

A Aoeentua  /ORBIT  /( 

I IPFLG1FO  suprtjsts  print -out  of  velocity  losses  and  /GLOBAL/! 
inertial  Euler  angles. 


I Relative  longitude 


(RAO)  /O  /( 


COSTAB  I 
COSTA!  I 
INTRPT  1 
OUTPUT  I 
PDBCQL  I 
OLTOSZ  1 
SALVE  I 
STATEF  I 
TH3  I 

18)  OUTPUT  1 
POBCQL  A 

69)  OUTPUT  1 
POBCOL  I 
OLTOSZ  0 
SALVE  1 

96)  OUTPUT  1 
POBCQL  1 
URAPUP  I 
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fOHlRA* 

SYMBOL 


MATH 

symbol 


CODE 


DESCRIPTION 


8lO 


mm  w 


OMEGA 

ti 

I 

Earth  rotation  rata  (RAO/SEC) 

/OVNA 

/( 

5) 

ALS 

I 

OMEGA 

AL7 

I 

OMEGA 

CONTRL 

1 

OMEGA 

POBCOL 

I 

OMEGA 

TRAJIN 

ft 

OMEGA 

0M6Z 

V 

I 

Earth  rotation  rate  (RAO/SEC) 

/GLOBAL/! 

3) 

POBCOL 

I 

OftGZ 

TRAJIN 

1 

OMGZ 

ORBPRft 

vi 

I 

Inertial  velocity  (FT/$EC) 

/ORBIT 

/( 

1 ) 

OUTPUT 

I 

VI 

POBCOL 

I 

ORBPRM 

POBCOL 

ft 

YI 

P 

p 

n 

Seal > 1 at us  rectos  (FT) 

/ORBIT 

/( 

5) 

OUTPUT 

I 

P 

Kr 

POBCOL 

ft 

P 

PERGEE 

R 

0 

Perigee  radios  (FT) 

/ORBIT 

/( 

12) 

OUTPUT 

1 

PERGEE 

P 

POBCOL 

0 

PERGEE 

PPO 

i 

Partial  derivative  of  boandary  condition 

/ORBIT 

/( 

19) 

POBCOL 

ft 

OVIOY 

POBCOL 

1 

PPO 

PS1I 

* 

ft 

Inertial  ailnath  (RAO) 

/ORBIT 

/( 

3) 

OUTPUT 

1 

P51I 

I 

POBCOL 

ft 

P5II 

0 

4 

I 

Djaaalc  pressure  (LBS/FT2) 

/OYNA 

/( 

27) 

ENVPRQ 

OUTPUT 

I 

I 

0 

0 

POBCOL 

I 

0 

STATEF 

ft 

0 

UT 

I 

0 

QftULT 

-0  OR  1 

I 

Heating  flag  noltlpller 

/ ARCDAT /( 

SO) 

NLORY 

I 

OMULT 

POBCOL 

I 

OftULT 

OR 

dq/dR 

I 

See  synbel 

/DYNA 

/( 

29) 

POBCOL 

1 

OR 

STATEF 

ft 

OR 

UT 

I 

OR 

OV 

aq/av 

I 

See  lyabol 

/OVNA 

/( 

26) 

POBCOL 

1 

QV 

STATEF 

ft 

QY 

UT 

1 

QV 

R 

R 

I 

Radial  distance  fron  earth  center  te  vehicle 

/DYNA 

/( 

7) 

ALS 

I 

R 

(FT) 

ALT 

l 

R 

ALB 

1 

R 

AL9 

1 

R 

CONTRL 

1 

R 

ENVFRO 

I 

R 

NLORY 

I 

R 

POBCOL 

I 

R 

QLTOSI 

I 

R 

STATEF 

ft 

R 

RHOB 

D . 

I 

/ARC0AT/( 

39) 

NLORY 

l 

RHOB 

(LB/FT**3> 

POBCOL 

X 

RHOB 

RO 

I 

Atnospheri  c density  (SLGS/FT3) 

/DYNA 

/( 

15) 

ALT 

ALB 

X 

RO 

RO 

AL9 

1 

RO 

NLORY 

I 

RO 

OUTPUT 

I 

RO 

POBCOL 

I 

RO 

STATEF 

I 

RO 

ROR 

dp  / 3R 

I 

See  synbol 

/DYNA 

/( 

19) 

alt 

I 

ROR 

*e 

alb 

1 

ROR 

AL9 

1 

ROR 

NLORY 

1 

ROR 

POBCOL 

1 

ROR 

STATEF 

I 

ROR 

SCROSS 

s. 

0 

Cross  range  (FT) 

/ORBIT 

/( 

1 A9  ) 

OUTPUT 

I 

SCROSS 

c 

PDBCQL 

0 

SCROSS 

SOOUN 

5„ 

0 

Oonn  range  (FT) 

/ORBIT 

/( 

1S8) 

OUTPUT 

I 

SDOtfN 

0 

POBCOL 

0 

SOQUN 

SINDMU 

s i n(  #i"Pr  > 

ft 

See  syebol 

/ORBIT 

/( 

IBS) 

PDBCQL 

ft 

SINDNU 
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('A 

X 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


-Kars*-  Humm  "iw 


S1N6AN 

sin? 

1 

Sea  aynbol 

/OYNA 

/( 

3) 

ALl 

1 

SINGAft 

ALA 

I 

SINGAft 

ALT 

I 

SINGAft 

AL6 

t 

SINGAft 

ALA 

I 

SINGAft 

CONTRL 

I 

SINGAft 

NLORV 

1 

SINGAft 

POBCOL 

I 

SINGAft 

STATEF 

N 

SINGAft 

SINPSI 

si  n* 

I 

See  »y *bo 1 

/OYNA 

/( 

9A> 

ALA 

I 

S1NPSI 

alt 

I 

SINPSI 

ALB 

I 

SINPSI 

ALA 

1 

SINPSI 

CONTRL 

I 

SINPSI 

NLORV 

I 

SINPSI 

POBCOL 

I 

SINPSI 

STATEF 

0 

SINPSI 

SI  NR HQ 

s l np 

I 

Set  lyebol 

/DYNA 

/( 

96) 

ALA 

I 

SI  NR  HO 

ALT 

I 

SINRHO 

ALB 

1 

SI  NR  HO 

ALA 

I 

SINRHO 

CONTRL 

1 

SINRHO 

NLORV 

1 

SINRHO 

OUTPUT 

1 

SINRHO 

POBCOL 

I 

SINRHO 

STATEF 

n 

SINRHO 

SftlftAJ 

g 

ft 

(FT  ) 

/ORBIT 

/( 

10) 

OUTPUT 

i 

SftlftAJ 

"i 

POBCOL 

ft 

SftlftAJ 

SNGI 

s 1 n(  ?j  ) 

ft 

Sint  of  inertial  flight  path  angle 

/ORBIT 

/( 

15A) 

POBCOL 

ft 

SNGI 

SN6NU 

s 1 n(  v ) 

n 

/ORBIT 

/( 

161  ) 

POBCOL 

n 

SNGNU 

SNI 

s 1 n(  / ) 

ft 

Sine  of  i nc 1 i nation 

/ORBIT 

/( 

160  ) 

POBCOL 

* 

SNI 

SNPSR 

s I n(  +r  ) 

i 

/ORBIT 

/( 

152) 

CHECK 

0 

SNPSR 

POBCOL 

I 

SNPSR 

SNILNR 

$ I n(  p ) 

i 

Sint  of  referent*  latitude 

/ORBIT 

/( 

196  ) 

CHECK 

0 

SNXLftR 

POBCOL 

I 

SNXLftR 

spsu 

s l n(  ) 

ft 

Sin  of  inertial  ailnoth 

/ORBIT 

/( 

156) 

POBCOL 

ft 

SPSU 

STOT 

5, 

0 

Total  range 

(FT  ) 

/ORBIT 

/( 

156  ) 

OUTPUT 

I 

STOT 

POBCOL 

0 

STOT 

OLTOS 2 

I 

STOT 

TC 

'c 

ft 

(RAO) 

/ORBIT 

/( 

151  ) 

POBCOL 

ft 

TC 

TO 

'o 

ft 

(RAD) 

/ORBIT 

/( 

150) 

POBCOL 

ft 

TO 

1HT 

*T 

ft 

Total  range  angle 

(FT) 

/ORBIT 

/< 

165  > 

POBCOL 

ft 

THT 

Tine 

I 

Trajectory  tint 

(SEC) 

/OYNA 

/( 

2) 

ENVPRO 

I 

TIftE 

OUTPUT 

1 

TIftE 

POBCOL 

I 

TIftE 

STATEF 

ft 

TIftE 

WRAP UP 

I 

TIftE 

10  HOY  12  6.01-A7 


V 


VI 

VNR 

VNU 

w 


zsave 


V I Relative  velocity.  (FT/SEC)  /0  /(  91)  ALI  I V 

AL9  1 V 
ALT  I V 
AL6  I V 
AL9  I V 
BCONO  I *0* 
BNDRY  0 MOM 
BRANPT  M MOM 
COMTRL  I V 
EMDPT  1 MOM 
ENVPRQ  I V 
FETCH  0 MOM 
I MTERP  M V 
1MTRPT  M MOM 
NLDRV  0 MOM 
MLORV  I V 
OUTPUT  I V 
PDBCQL  I V 
STATEF  I V 
MR  AP  UP  I V 


v , 

n 

I ner t l ■ 1 velocity 

( FT/SEC) 

/ORBIT 

/( 

1 ) 

OUTPUT 

I 

VI 

I 

PDBCQL 

I 

ORBPRM 

POBCQL 

H 

VI 

3MB/aR 

1 

So*  tyaboi 

/OYNA 

/( 

215) 

PDBCQL 

I 

VNR 

u 

i 

At  ao  s p her  1 c vitcoiity  (dynaalc) 

( SL6S/FT / SEC ) 

/OVNA 

/( 

219) 

OUTPUT 

I 

VNU 

PDBCQL 

1 

VNU 

u 

i 

Height 

( LBS  ) 

/OYNA 

/( 

91  ) 

AL5 

I 

M 

ENVPRQ 

1 

M 

OUTPUT 

I 

M 

POBCQL 

l 

M 

QLTOSI 

1 

W 

STATEF 

M 

U 

TM3 

2 

M 

u . 

M 

Inertial  longltade 

(RAO) 

/ORBIT 

/( 

9 ) 

OUTPUT 

I 

XMUI 

HI 

PDBCQL 

M 

XMUI 

o 

I 

Reference  longitude 

(RAD) 

/ORBIT 

/( 

195  ) 

CHECK 

0 

VMXRF 

yr 

PDBCQL 

I 

VMXRF 

I 

A taenty  aord  drrey  containing  the  v 

a 1 uta  f r oa  the 

/D 

/( 

151  ) 

BCOND 

0 

ZSAVE 

Initial  arc  of  the  itate  and  coatate 

at  the  initial 

BRANPT 

I 

ZSAVE 

point  of  the  trajectory. 

COSTAB 

I 

ZSAVE 

COSTA J 

I 

ZSAVE 

IMTRPT 

1 

ZSAVE 

PDBCQL 

I 

ZSAVE 

SALVE 

I 

ZSAVE 
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SUBR0UTINE 

QLT0SZ 


Purpose 

QLTOSZ  handles  the  interface  between  the  QL  trajectory  module  and  the 
Phase  I or  II  (SSSP)  sizing  modules.* 


-*See  documentation  of  subroutine  TRTOSZ  in  Steepest  Descent  Module 


\ 


QlTOSZ 


1. 

2. 

3. 

9. 

5. 

6. 

I. 

B. 

9. 

to. 

II: 

II: 

1 9 . 
20. 
Zl. 
22. 
23. 

2*i . 
2*  . 
2* . 
2/. 
2e. 
2o. 
30. 
3t . 

32. 

33. 
3«. 
3t>. 
3*. 
37  . 
3o. 
39. 

90. 

91. 
H2. 
93. 
9*4  . 
9*. 
9b. 
97  . 
90. 
99. 
50. 
51  . 
52. 
5 3. 
5*4. 
55. 
5b. 
5/. 
50. 

59. 

60. 
61. 
6i. 
63. 
6*4  . 
6>  . 
66. 
67. 
60. 
69. 
10. 

11. 

12. 
13. 
7*4. 
1»  . 


Subroutine  qltosz 
common  /v/  v(820> 

REAL  MAGBV,  HU,  M,  LV,  L6AM,  LP5I,  LR,  LBHO,  LRU,  LR,  LTAU,  NOR 
*£ORRON  /D/ 

• X,  H,  X I ( 9 ) , RAGB V,  ERR  # 09,  010,  C(90),  CSAVE<90),  V,  GAR,  PSI, 
•ALT  RHO.MU,M,  TAU,  HT,  LV.  LGAP1,  LPSf,  LR,  LRHO.  LRU.  L«.  LTAU. 

• LHTA  D1 09 , oilO.  &V( 90  ),  2SAVE<20>,  0T<  203,  NPOlNTUO),  6eLT<26> 

dimension  N0m26> 

EQUIVALENCE  (NOR,  V) 

COMMON  /CNTRL/ 

•NU  , ITER  I TAP  A (TAPS  ,JRIN  ,JMAX  , LINES  ,XPT 

• XARD  , I NDX(  9 ) NEulNOM,  CNT016,RH0C  ,RHOP  ,NPTS  ,RINES  , 

•XPAGE  , NNP  NltP  I ARC  TRSTR  , IMAX  'xTlRE  'xONVEB .NDPRNT, 

•IN8QRY  , NUPAGE,  iVARV(iO),  AIN  WOVARY,  PLA$t,  2LA5T,  XOOES 

LOGICAL  1 NBDRY,  NEUNOR,  KONVER,  NOPANT,  NuPAGE- 
LOGICAL  SWITCH,  I LOAD 

REAL  RACH.  ISP.  ISPV,  ISPR,  ISPR,  ISPT,  ISPW,  ISPVR^  ISPVR, 
♦ISPVT,  ISPRR,  tSPRM,  ISPRT,  ISPrtM,  JSPrtT,  ISPfT,  LlPt,  LIF7V. 

•LIFTR,  LIFTA'  LlFTV$,  L1FTVB,  LIFTVA,  LlFTflR,  LIFTRA,  MUR,  LlFTAA, 
•irate6,  ispf  ISPFF  ' ' ' 

real  rachv,  rachr,  rachvr,  rachrr 

REAL  LIFTR  LIFTVR,  LIFTRR,  LlFTRR,  LIFTRA 
tORMON  /DY*A/ 

OMEGA  ,0RE6A2 
PA  BO 
RORR  , CSRR 
QRR  ,FVAC 
FVACTT, T 
ISPVV  , ISPVR 
ISPT?  , L I FT 
LIFTRA, DRAG 
OR AGRA , OR AGAA 
OBR  , OflRR 
C0SPS1 , S I NRHD 

coo  ,coom 

X JR  ,XJVV 
CR  ,CRA 
CRAMR  , ULFT V 
XARC  , TSTART 
OYN 1 99, CT 
ZCG  ,XJ 
TSTAGE,TIRES 


•XX  ,tire 

•COSA  ,DVN011 
♦ROR  , CSR 
*0V  ,QR 

•FVACT  ,FVACVV 
•ISPV  , I SPfi 
•ISPRR  , ISPRT 

• Lli-TVV, LIFTVR 

•ORAGVV, ORAGVR 
♦LIFTVR, LIFTRfl 
•W  S 1NPHI 

•MUR  , XX6 
•XCGRR  , ZCGR 
•RACHRR, SIN2R0 
•CRAM  ,CRO 
•ULFTVA,ULFTRR 
♦COORR  ,CLARR 
•SIO  ,OELTAE 

•db  ,ulft 

CORRON  /DYNA/ 

•RTT  ,J1  ,J2  J3  ,XRCGA  , F VACF 

•IlOAD  , fkr  ,fkrr  , switch, inqf  ,cl 
•clrr  ,clar  ,co  ,coa  ,cdr  ,cdaa 

*0YN199,DYAFPO0,XMCGV  , XMCGR  , XMCGM  ,XMC£VY 
•xrcgrr^xrcgrr,xrcgra,xrcgrr,xrcgra,rorrr 

• DYN21 7,1  OAR  TAIRB  , TAI RB V, TA I RBH, T ARB V V 

•sfcv  ,sfch  !sfcvv  'sfchh  ,sfcvh 
real  rub.  ruo, 

CORRON  /SIZING/ 

PHASE  It  SIZING  PARARERERS 
*TZ,  VV(  3 ),  QP(19),  EROR, 

• S V(  28  ).  SQ(  37,5  ),  SE(ll).  TlAT, 

PHASE  I SUING  PARAMETERS 


S1NGAR 

OREGAT 

terprr 

QW 

f VAC VR 

ISPR 

ISPRR 

LIFTVA 

OR AG V A 

LIFTRR 

COSPHI 

XKP 

ZCGRR 

C0S2R0 

CROR 

ULFTRA 

CLOR 

COE 

CULFT 

J2 

FXMM 

CO 

XMCGV 
XRCGRA 
TAIRB 
SFCVV 
I SPB 


COS&AR 

TARP 

PARR 

QVR 

FVACRR 

ISPT 

I-SFRT 

LIFTRR 

ORAGRR 

LIFTRA 

SINPSI 

AKIN 

XJV 

C0S2GR 

CRORR 

ipow 

CLORR 

XCG 

ULFTA 


R 

CS 

KOOE 

FVACV 

RACHV 

ISPVR 

LIFTV 

ORAGV 

ALPHA 

GARRAO 

COSRHO 

CLO 

XJ  VR 

CRR 

ULFTR 

GH 

COOAC 

XRCG 

XRCGAA 

ULFT AA 

CLA 

CORR 

XRCGVR 

0VN219 

TARBHH 


G ,S1NA 

TERPR  ,PAR 
RACH  Q 
FVACR  ,FVACR 
RACHR  ,ISP 
ISPVT  , ISPRR 
LIFTR  , LIFTA 
DRAGR  , OR AGA 
PHI  .LIFTR 
AE  , TAX 
S1NR0R  COSROR 
F K , XC6R 
XJRR  , RACHVR 
CRAA  , CRRfl 
ULFTVV'ULFTVR 
GRR  .liftaa 
SIOAE  ,C00 
CALPHA, ALRAX 

i rated, frated 

ISPF  , ISPFF  , 
CLA  ,CLAA  , 
COAR  DYN 1 9 8 , 

XRCfiVR, XRCGVA, 
DYN215  0YN216, 
TAR8VH, SFC 


ISPO,  1 DvEL, NNB,NO 


• WBO, 
•BKl, 
•OX  1 
•AEXIT, 
*XPL, 
•DVO 


WLOO, 

BX2, 

0X2. 

tva6o, 

TVACB, 

DVB 


OWES, 

8X3, 

0X3, 

NO, 

NN8, 

RUB, 


OUEO, 
8X9, 
0X9, 
Wf  0 , 
w£0 . 
RUU, 


PZ(  5 ), 

tlng, 

tolwt, 

isize; 

PRFlS, 
iovel, 
webz 
vsffi. 


VO, 

bjp  B 

TRaAlG, 

IPASS, 

ISPO, 

*uh 


SW( 20  ), 


TWRAT2, 
TWRATO, 
IPSRAX, 
ISPB, 
WLO, 

•7jT*P,  BEC6  , BSTg',  orb!;  ITNBiif'  ITNOW  " . 1 5ZD(  23 ) 

SAVES  TRAJECTORY-TO-SIZING  OATA  DURING  SOLUTION  TRAJECTOR 

ENTRY  POINTS  INCLUDE 

IWTERl  SAVE  INI T . STATES 

ARCENO  SAVES  I NTERAEOI ATE  DATA 

TRJEND  SAVES  FINAL  WTS.  AND  IMPULSIVE  VELOCITY 

CORRON  /PRINT/  AP(IOO) 

CORRON/  ORBIT/  VI,  6ARI  PSI I,  XRUl,  P, 

• ECC,  A1NCL,  ARGP,  ASCNOD,  SRlMAJ,  APOGEE, 

• PERGEE,  ANORLY,  CAPX,  CAPY,  ASYflP,  ENERGY, 

• HRNTR,  OVIDV  OVlOG, 


JUL2I 

Y 

0 

0 

0 

D 

JUL2 1 
D 
0 
D 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

DYNA 

OYNA 

DYNA 

OYNA 

DYNA 

DYNA 

OYNA 

OYNA 

JUL21 

DYNA 

OYNA 

OYNA 

OYNA 

OYNA 

DYNA  - 

DYNA 

OYNA 

OYNA 

OYNA 

DYNA 

OVNA 

OYNA 

OYNA 

OYNA 

OYNA 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA 

DYNA 

OYNA 

DYNA 

JUL21 

AUG09 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

•SIZING 

SIZING 

SIZING 

JUL21 

JUL21 

JUl2  1 

J UL2 1 

JUL21 

JUL21 

JUL21 

orbit 

CRB1T 

ORBIT 

ORBIT 
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76. 
77  . 

78. 

79. 

• 0. 
ei. 
82. 
83. 
es . 
8*  . 
86  . 
87. 
8e . 

89. 

90. 

91. 

92. 

93. 
9s  . 
9b  . 

96. 

97. 
9e. 
99. 

100. 
101  . 
102. 
103. 
10*  . 
10k  . 
10*  . 
10/  . 
10s. 
10s. 
1 10. 
111. 
1 12. 
113. 

1 1*  . 

1 lk  . 

-un. 


117. 

lie. 

llv. 
120. 
121  . 
122. 
123. 
12*  . 
2 2k  . 
12k. 
12/  . 
12s. 
12s. 
1 30. 
4~34~ 


132 


133. 

139. 

*35. 
13k. 
13/  . 
1 3s. 
1 3s. 
Is  O . 
Is  » . 
Is  2. 
Is  3. 
lss  . 
Is*  . 
Is*. 


198. 


D V 1 OH  , 
DGIDG  , 

opjdv  ; 
opioau, 

OAIDRO, 
DPDPS  , 
DECDW  , 
OIDH  , 
08E0G  , 
ONOOV  , 


ovidh, 

OVIDPS, 

OVIDRO, 

CVIDAU, 

OGIDV. 

ORBIT 

OGIDH, 

DG10F1  , 

DGIDPS, 

OoIDRO 

OGIDAU, 

ORBIT 

DPIDG, 

DP  I OH  , 

DP  I DA  , 

DPIDPS, 

DPIDRO, 

ORBIT 

OMIDV, 

DnlDG  , 

OAIDH  ' 

CAIDA  , 

DfllDPS, 

ORBIT 

oniDnu, 

OPDV  , 

DPDG  , 

DPDH  , 

DPDA  , 

ORBIT 

OPORO  , 

OPonu  , 

DECDV  , 

OECDG  , 

OECDH  , 

ORBIT 

OECDPS, 

OECORO, 

OECOnU, 

OIOV  , 

DIOG  , 

ORBIT 

Dion  , 

OIOPS  , 

OIORO  . 

DIOAU  , 

OBEOV  , 

ORBIT 

OBEOH  , 

DBEDW  , 

OBEDPS, 

CBEDRO 

DBEOflU, 

ORBIT 

DNODG  , 

DNODH  , 

onooia  , 

CNOOPS, 

DNOORO, 

ORBIT 

D$ADV 

DSADG, 

osnoH, 

DSAOA, 

osnops 

ORBIT 

* 

osnoRO, 

OSAOAU, 

OAPOV, 

* 

DAPOPS. 

DAPORO, 

OAPOAU 

•DPE0A 

DPEOPS 

, OPECRO 

DAN0H  , 

DANOrt  , 

OANOPS 

0CX0G  , 

DCXOH  , 

OCXDA 

OCYDV  , 

DCYOG  , 

OCVOH 

OCYDAU, 

OASOV  , 

OASOG 

OASORO, 

DASOnU, 

OENOV 

OENOPS, 

DENORO, 

OENDAU 

DflODfl  , 

DAODPS . 

DnOORO 

OAPOG 
OPED  V 
.0PEDP1U 
DANDRO*, 
DC  XDP  S 
DCYDA  , 
OASOH  , 
OENDG  , 
OflODV  _ 

oaodau 


PAPON, 

DPEOG 

DANDY 

QCXORO, 
DCYOPS, 
DASDfl  , 
DEMON  , 
DAOOG  , 


OAPOfl  , 
OPEDH  , 
.OANDG 
DCXDV  . 
OCXDAU, 
DCYDRO, 
DASDPS/ 
DENDfl  , 
OnOOH  , 


,CPSll 

, cosonu 


uii'itsdiun  unornm  i o i , rrwi  i , to  * 

EQUIVALENCE  ( VI ,0R8PR«),<DVIDV,PP0  ) 

COnnON/ORBIT/  YAXRF,SNXLnR,CSXLflR.SDOUN,SCIiOSS.TO,TC 
* , SNPSR  CSPSR  , SNG1  ,CSGI  ,SP$II 

* STOT  'CSI  , SNI  , SNGNU  'CSANO 

* SlNDrtU  ,TMT  ,MTFUEL 

cgpiaon/ global/ 

*6R  , ER  OAGZ  , XLAflRF , YAURF  ,LUA  ,TG  EP SLOW  I NNER  . 

MTfiflAX^JJQPC  6^  IFATAL . NARC  NBRAN  *,  Mr  ARC  ,10(9)  ,KTAB(20>, 

* I TABC zb  ),  SI6,nAXTA8,Grt,PSIRF  , IPFLG 1 . I PFl«2, I PFlG3, IPFLG9, 
*INEQFl(26),  ltp$0,  KSOL.  INARX,K6L08L(  7) 

i lNitiAL  state  Save 

ENTRY  01NTR1 

RAO  s 57.2957795130823 

FTNA  = 1./6076. 10333 

JFC JTVP.NE.2)  60  TO  5 

1PFl61=0 

1PFl62=0 

IPFlS3=0  _ 


ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

global 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 


CONTINUE 

SQ(  17,  1)  = YU) 

500  7,  2)  = VC  2 )*RAD 
S0(  17,  3)  = YCO-ER 
50(  17  5 ) - Y(5  )*RAO 

50  0 7,  9)  = V(3)«RA0 
50  0 6,  1>=YC6>*RAD 
N0RB1  = ORBI 

nOABI  = 18*<N0RBI  -1)47 
SVC  7 > = 6R*VC  AORBI ) 

IFCNFARC  .EQ.  NARC)  60  TO  7 

INTB  = 2 

NSB  £ N8RAN 

NSAB  = NF ARC  - NSB 

GO  TO  8 


JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 


7 INTB  = p 


JUL21 


8 CONTINUE 

IFI INTB.NE.2)  RETURN 
SVC  21 >=1. 

CALL  QLNVPI 
RETURN 

II  INTERAEDIATE 

ENTRY  OLAENO 
I A 1 = I ARC 

IFC JTYP.LE.O)  GO  TO  30 
II-A  PHASE  1 
10  CONTINUE 
11-6  TEST  FOR  KEY 
BOOSTER 
IF  (IFIXtSOCl, 
OPTIAAl 


ARC  DATA 


SIZING  DATA 


ARCS 

THRUST  TERAINATION  ARC 
D.EQ.IAI)  GO  TO  100 
STAGE  TIAE 


JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

AUG15 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 


20  I Ft  IF  I X<  SOU  , 2 ) ) . EO  . I Al  ) GO  TO  110 


JUL21 


T 


30 — | 


100-1 


TTTT=- 
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1M9. 


150 

151. 

152. 
153 

ls**«  . 
1>*  . 
is**. 
i>  / . 

Ui. 

159. 

160. 

Ui. 
1*2 . 
1*3. 
. 

1**  . 
1**. 
1*/  . 
1**. 
1*«. 
1/0. 
1/1. 
1/2. 
1/3. 
1/4  . 
1/*  . 
1/*. 
1//  . 
1/*. 
1/9. 
1*0. 
1*1  . 
1*2. 


189. 

185. 


186 


187. 

188. 

189. 

190. 
1*1  . 

192. 

193. 

194  . 


196. 

197. 

198. 


1 aa  i 

200. 

201. 

202. 


*03. 
204  . 
20*  . 
20*  . 
20/  . 
20*. 
20*. 
210. 
211  . 
212. 
213. 

2 14  . 
2 1»  . 
21*. 
21/  . 
21*. 
219. 


OPTIHAL  PITCHOVER  TIRE 


JUL21 


30  IF  ( IFIXt SOt 13,3)  l.EQ.Ifll  > GO  TO  120  JUL21 

TEST  FOR  BRANCHING  AND  INJECTION  JUL21 

I F ( 1NTB.E0.2.AND.NSB  + NSAB.GE. I F 1 X( SOt 1 , 3 ) > . AND . I ARC . EQ . NSB  + NSAB > JUL21 

* GO  TO  500  JUL21 

TEST  FOR  BRANCHING  ANO  ENTRY  TERflINUS  J UL2 1 

I F ( INTB.EQ.2.AND.NSB*NSAB.LT.IFIX( S0( 1,3I).AND.IARC.EQ.NSB+NSAB>  JUL21 
•GO  TO  600  JUL21 

RETURN  JUL21 

BOOSTER  CHARACTERISTIC  VELOCITY  JUL.2 1 


100  VSTG-  = AP(  17) 

I Ft JTYP.EO.l ) GO  TO  20 
1 1 1 -A  PHASE  II  AT  STA6ING 
QP<9>  =AP<9) 

SWt 10)=ST0T/ER 
SUt 20  >=AP( 1 ) 

SV( 7>=W 
SV(  8 ) =AP(3> 

SV( 9 ) = AP<  2 ) 

SV<  1Q)=AP(  9> 

SY(  1 2 )=AP(  32) 

SVt  17  ) = AP( 5 > 

S V t 1 8 )=APt 7 ) 

S VI  19)  = AP(  6) 

Svt  21  >=  0. 

Svt 22  )=  R 
Svt  23  >=  AP(  30  ) 

Svt  29  )=  APt  29  ) 

SVt  25)=  0. 

*5 V<  26  )=  90.-  API  92> 

SOt 12,1)  = APt  7 7 l/FTNW/ER 
SOt  36,  1 ) = APt  55) 

SOt  36,2  >=  APt  56) 

$0137,1)=  APt  1 ) 

GO  TO  20 


POINT 


1)0  SOt  18,2)  = APIS) 
GO  TO  150 


120  SOt  18,3)  - API  8) 


150  RETURN 
300  CONTINUE 
RETURN 

ENTRY  TRJNDO 
IFt JTVP-1  )150,  310,900 


310  IOVEL=  APt 17) 
OVO  = APt 17  ) 
NFO  = APt  9 ) 
GO  TO  150 


-VSTG 


900  CONTINUE 

IFt JNTB.NE.2)  GO  TO  500 
IFt IFlXt  SOt 1,3) J-NSB-NSAB >600,500,500 
C PHASE  II  INJECTION  PT.  6ATA 


JUL2) 

JUL21 

JUL21 

JUL2I 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 


JUL21 

JUL21 


JUL21 


JUL21 

JUL21 

JUL21 

JUL21 

JUL21 


JUL21 

JUL21 

JUL2I 

JUL21 


JUL21 

JUL21 

JUL21 

JUL21 


500  Pit  1 ) = APt  7) 

JUL21 

P Z(  2 > = API  6 ) 

JUL21 

Pit  3)  = APt  2 ) 

JUL21 

PZt  9 ) = Y(  3)*RA0  - APt  5 ) 

JUL21 

PZt  5 ) = APt  20) 

JUL21 

SVt  7)  = 50(3.5) 

JUL21 

SVt  3)  = APt  17) 

JUL21 

Svt  9 ) = APt  9 ) 

JUL21 

Svt  5 ) = S V(  7 ) -SVt  9 ) 

JUL2I 

SOt  3,1)=  APt  6 7) 

JUL21 

SOt  3,2)=  APt  68) 

JUL2I 

SOt  3,3)=  APt  69  ) 

JUL21 

50(19,9)=  APt  10) 

JUL21 

SOt 19,5  >=  APt  2 ) 

JUL21 

SOt 15,3)=  APt 11  ) 

JUL21 

SOt  15,9  )=  APt  69) 

JUL21 

SOt  36,3)=  API  55) 

JUL21 

SOt  36,9  )=  APt  56  ) 

JUL21 

SOt  36,5  )=  APt  5 7 > 

JUL21 

. 0R8ITER  BURN  TINE 

JUL21 

TFo" 


500-, 


I 600-1 


20* 


20-* 


150- 


310— 1900-1  150H 


150  — 1 


500- 

500- 


4600-H 
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t OHIRftN 
SYMBOL 


HAIM 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE 
8lOC<  LOT" 


subroutine  USAGE 
SOBfi  CODE  VAR 


ovo 

0 

Or  bi ter  Ideal  velocity  C f pa  ) 

/SIZING/! 

307  ) 

QLTOSZ 

0 

ovo 

EH 

1 

Earth  radios.  (FT) 

/6LDBAL/C 

2) 

ENVPRQ 

I 

ER 

CR 

POBCOL 

I 

ER 

QLTOSZ 

I 

ER 

STATEF 

I 

ER 

6* 

1 

Gravitational  acceleration  at  surface  of  the  earth. 

/Global/c 

1 ) 

AL5 

I 

GR 

( FT/SEC2  1 

apply 

branpt 

I 

I 

GR 

GR 

COSTAB 

I 

GR 

COSTA! 

1 

GR 

1NTRPT 

I 

GR 

OUTPUT 

1 

GR 

POBCQL 

I 

GR 

QLTOSZ 

I 

GR 

SALVE 

I 

GR 

STATEF 

1 

GR 

TM3 

I 

GR 

I ARC 

I 

1 

/CNTRL  /( 

2*0 

ARCIN 

I 

I ARC 

BCONO 

M 

I ARC 

BNDRY 

M 

I ARC 

BRANPT 

I 

I ARC 

CHECK 

M 

I ARC 

COSTAB 

I 

I ARC 

COST  A I 

I 

I ARC 

ENOPT 

I 

IARC 

FORCES 

I 

IARC 

INARC 

n 

IARC 

INTRPT 

I 

IARC 

MAGIC 

M 

IARC 

MARCH 

I 

IARC 

QLTOSZ 

I 

IARC 

SALVE 

M 

IARC 

URAPUP 

M 

IARC 

IOVEL 

0 

Total  Ideal  velocity  required  to  orbit  Cfpa) 

/SIZING/! 

297  ) 

QLTOSZ 

0 

IOVEL 

IPFL61 

0 

JPFL61F0  supresses  print. out  of  velocity  losses  and 

/GLOBAL/C 

69) 

OUTPUT 

I 

I PFL61 

Inertial  Euler  angles. 

POBCQL 

I 

IPFL61 

QLTOSZ 

0 

IPFLGl 

SALVE 

I 

1PFL61 

IPFL62 

0 

IPFLG2F0  supresses  prlnt-out  of  orbital  paraaeters. 

/GLOBAL/C 

70) 

QLTOSZ 

0 

IPFLG2 

IPFLG3 

0 

IPFL63F0  supresses  prlnt-out  of  lapact  data. 

/GLOBAL/C 

71) 

OUTPUT 

I 

IPFL63 

QLTOSZ 

0 

IPFL63 

JTVP 

1 

Siting.  Flag. 

/SIZING/C 

313) 

QLTOSZ 

I 

JTVP 

URAPUP 

I 

JTVP 

NARC 

I 

Nuaber  of  subarcs  In  the  probles. 

/GLOBAL/C 

18) 

BCONO 

I 

NARC 

3 

BNDRY 

l 

NARC 

CHECK 

I 

NARC 

ENOPT 

I 

NARC 

ENVPRQ 

I 

NARC 

FETCH 

I 

NARC 

INARC 

I 

NARC 

MAGIC 

I 

NARC 

QLTOSZ 

I 

NARC 

SALVE 

1 

NARC 

URAPUP 

I 

NARC 

NBRAN 

N , 

I 

Number  of  the  last  subarc  on  the  stea  of  a branch 

/GLOBAL/C 

19) 

BNDRY 

I 

NBRAN 

1 

problen.  If  the  problen  is  not  a branch  problen. 

BRANPT 

I 

NBRAN 

then  NBRAN  = 0. 

COSTAB 

I 

NBRAN 

ENVPRQ 

I 

NBRAN 

INTRPT 

I 

NBRAN 

MAGIC 

I 

NBRAN 

QLTOSZ 

1 

NBRAN 

SALVE 

I 

NBRAN 

10  NOV  n G.01-B7 


FORTRAN 

SYMBOL 

MATH 

SYMBOL 

coot 

DESCRIPTION 

STORAGE  SUBROUTINE  USAGE 

BlGTa  LOf  SUBR  CODE  VAR 

NF  ARC 

N. 

I 

Nuabir  of  the  last  subarc  o n the  first  branch.  If 

/GLOBAL/! 

20) 

BCONO 

1 

NF  ARC 

2 

the  problem  is  not  a branch  probltn,  then  NFARC  3 

BNOR  V 

I 

NF  ARC 

MARC. 

BRANPT 

I 

NF  ARC 

COSTAB 

I 

NF  ARC 

ENVPRQ 

I 

NF  ARC 

1NTRPT 

I 

NF  ARC 

MAGIC 

I 

NFARC 

QLTOSZ 

1 

NF  ARC 

SALVE 

I 

NFARC 

ORBI 

1 

Qrbitcr  Ignition  arc 

/SI Z1 NG/< 

316) 

OLTOSZ 

I 

ORBI 

R 

R 

I 

Radial  distance  frpa  earth  center  to  vehicle 

/OVNA  /( 

7) 

ALA 

1 

R 

(FT) 

ALT 

I 

R 

AL6 

I 

R 

AL9 

I 

R 

CONTRL 

I 

R 

ENVPRQ 

1 

R 

WLDflV 

I 

R 

PDBCQL 

I 

R 

OLTOSZ 

1 

R 

STATEF 

M 

R 

SO 

M 

A synthesis  data  array  (37,5)  that  contains  the 

/SIZING/! 

79) 

ENVPRQ 

M 

SQ 

flyback  data  and  sone  injection  quantities 

OLTOSZ 

N 

SO 

STOT 

5W 

" I 

Total  range  (FT) 

/ORBIT  /( 

158) 

OUTPUT 

I 

STOT 

T 

PDBCQL 

0 

STOT 

OLTOSZ 

1 

STOT 

sv 

M 

A synthesis  array  (26)  containing  staging 

/SIZING/! 

96) 

ENVPRQ 

M 

sv 

parameters  and  misc  flags 

QLTOSZ 

M 

SV 

SH 

0 

A synthesis  array  (20)  containing  counters  and 
siting  options 

/SIZING/! 

26) 

OLTOSZ 

0 

SW 

VST6 

n 

Booster  staging  velocity  (fps) 

/SIZING/! 

311  ) 

QLTOSZ 

M 

VST6 

M 

U 

i 

Weight  (LBS) 

/OYNA  /( 

91  ) 

AL5 

I 

H 

ENVPRQ 

I 

M 

OUTPUT 

I 

M 

PDBCQL 

I 

M 

QLTOSZ 

I 

U 

STATEF 

M 

W 

TH3 

I 

M 

UFO 

0 

Orbiter  burnout  ucight  (lb) 

/SIZING/! 

296) 

QLTOSZ 

0 

UFO 

V 

i 

An  820  aord  array  containing  the  particular  and 

/V  /( 

1 ) 

GROPE 

0 

V 

haaogeneous  solutions  being  integrated.  The  first 

INARC 

M 

V 

18  nords  comprise  the  particular  solution.  Each 

MADAMS 

M 

V 

block  of  16  nords  thereafter  conprisea  an 

QLTOSZ 

I 

V 

independent  homogeneous  solution. 

RKUTTi 

M 

V 

SALVE 

H 

V 

WRAP UP 

I 

V 

10  MOV  72  G. 01-97 


SUBROUTINE 

RKUTT 1 


1’urpose 


RKUTT1  carries  out  the  standard  fourth  order  Runge-Kutta  integration  of 
the  particular  and  homogeneous  solutions.  It  is  used  over  the  first 
three  intervals  of  each  subarc  as  a starting  procedure  for  MADAMS.* 


♦See  Section  17.6  of  Vol.  I. 


7*3 


RKUTT 1 


SUBROUTINE  RKUTTKF) 


THIS  ROUTINE  CARRIES  OUT  THE  STANDARD  FOURTH  ORDER 
RUNGE-KUTTA  INTEGRATION  OF  THE  PARTICULAR  AND  HOMO- 
GENEOUS SOLUTIONS.  IT  IS  USEO  OVER  THE  FIRST  THREE 
INTERVALS  OF  EACH  SUBAflC  AS  A STARTING  PROCEDURE 
FOR  MADAMS. 

COMMON  /S/  S 
COMMON  III  Z(50) 

COMMON  /CNTRL/ 

*NU  , 1 TER  .ITAPA  #ITAPB  ,JMIN  ,JMAX  LINES  , APT  ,MOM 

♦ KARO  , IN0X<9>  ,NEtdN0rt,CNT016,RH0C  ,RHOP  ,NPTS  ,MIN£S  , 

•KPAGE  , NNP  ,NUP  .IARC  ,TRSTR  ,IMAX  ,KTIME  , KONVER . NOPRNT , 
*INBDRY,NUPAGE, IVARV( ZO  ),  NN,  NOVARY,  PlAST.  ZlAST,  KODES 

LOGICAL  1NBDRY,  NEUNOM,  KONGER,  NOPRnT,  NUPA6E  " * 

COMMON  /PC/ 

•PC  I , N , PC3  ,I0P  , PCS  ,PC6  , PC7  MAXBC  ,NAUX 
COMMON  / Z I / Zl<20,  9 / 

COMMON  /Y/  Y(  820  ) 

REAL  RA6BV,  MU,  M,  LV,  LGAM,  LPS1,  LR,  LfiHO,  LMU,  LM,  ltau,  NOM 

♦ , LHT 
COMMON  /0/ 

♦ X,  H.  XI(9>,  MAGBV , ERR,  D9,  DIO,  C(90>,  C$AVE(90),  V,  6AM,  PSI, 
•AlT,RHO,MU,M,  TAU,  MT,  lV,  LGAM,  LPSI,  lR,  LRHO,  LMU,  LM,  LTAU, 

♦ LHT  D109,  OilO,  &V(90>,  ZSAvE(20),  QtC20),  NP0lNT(20),  0ElT( 20 > 
DIMENSION  NOM( 20  ) 

EQUIVALENCE  (NOM,  V) 

COMMON  /STUFF/  FK< 820,  9> 

DIMENSION  S(  820  >,CC<  9 ),  FSll  ),  F(  1 ) 

EQUIVALENCE  (FS,  FK  ) J - 

T = H/2. 

DATA  CC/  1.,  2.,  2.,  I./ 

DO  1 1 s I.  Ml 

1 FS(  I ) = F(  1 ) 

X = X ♦ T 
CALL  INTERP 
DO  5 J = 2,  9 

I F( J .NE.  9)  60  TO  3 
X = X ♦ T 
T = M 

I F( XONVER  > 60  TO  3 
NENNOM  s .TRUE. 

L = KPT  ♦ 1 

00  2 1 ft  I.  M 

2 Z(  I ) = Zl(  1 , L ) 

3 L : J - 1 

00  9 I ft  1.  NN 
H 51  I ) = YC  I ) ♦ T*FK(  I,  L) 

5 CALL  LINORVC  S,  FK 1,  J )) 

DO  7 J = 1,  9 
T = CC( J )/6.*H 
00  7 I = 1.  Ml 
7 Y(  I ) = Y<  I ) ♦ T*FM  I,  J) 

RETURN 

END 
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F 0 H T ft  AN 
SYMBOL 


MATH 

SYMBOL 


COOE 


DESCRIPTION 


STORAGE  subroutine  USAGE 
BLOCK LOC  SUBR  CODE VAR 


FK 

FS 

H 


KONVEA 


KPT 


N 


NEUNOM 


s 


X 


An  620*4  array  used  to  stora  th.e  vectors  k j , k2. 

/STUFF  /( 

1 ) 

MADAMS 

M 

FI 

k2,  and  k^  defined  by  Equations  17.6-2  thru  -5  In 
Ve 1 . 1 of  this  document. 

RKUTT1 

RKUTT1 

I 

0 

FK 

FS 

An  620x4  array  used  to  itore  the  vectors  kj,  k2. 

/STUFF  /( 

1 > 

MADAMS 

N 

FI 

kj,  and  ku  defined  by  Equations  17.6-2  thru  -5  in 
Vol.I  of  this  docuaent. 

BKUTT1 

RKUTT1 

I 

0 

FK 

FS 

Integration  step  size  in  quasitiae. 

/D  /( 

2) 

AL4 

I 

H 

INARC 

M 

H 

MAO AMS 

I 

H 

RKUTT1 

I 

H 

RKUTT2 

I 

H 

SALVE 

M 

H 

URAPUP 

M 

DT 

Logical  flag  that  indicates  to  the  QL  nodule  that 

/ CNTRL  /( 

28) 

ALGCON 

I 

KONVER 

the  QL  Iteration  is  converged. 

APPLY 

I 

KONVER 

ARCIN 

I 

KONVER 

CO  HOMO 

0 

KONVER 

GROPE 

0 

KONVER 

NLDRV 

I 

KONVER 

OUTPUT 

I 

KONVER 

RKUTT1 

I 

KONVER 

The  subarc  point  nusber . KPT  - 1 on  the  first 

/ CNTRL  /( 

8 ) 

BCOND 

0 

KPT 

point  of  subarc,  and  KPT  = NPTS  on  the  last  point 

BNORY 

0 

KPT 

of  the  subarc. 

FORCES 

I 

KPT 

MAGIC 

0 

KPT 

RKUTT 1 

I 

KPT 

SALVE 

M 

KPT 

URAPUP 

M 

KPT 

Total  nt/aber  of  QL  state  and  costate  variables.  N 

/PC  /( 

2) 

BNORY 

I 

« 

= 18. 

CHECK 

I 

N 

INARC 

I 

N 

LINDRV 

] 

N 

NLDRV 

I 

N 

nomnal 

I 

N 

RKUTT1 

I 

N 

SALVE 

I 

N 

URAPUP 

I 

N 

A logical  flag  that  indicates  to  the  Runge-Kutta 

/CNTRL  /( 

15  ) 

I NTERP 

0 

NEUNOM 

Integration  ahether  or  not  the  systea  Jacobian 

LINDRV 

M 

NEUNOM 

needs  to  be  reevaluated. 

RKUTT1 

0 

NEUNOM 

SALVE 

0 

NEUNOM 

URAPUP 

0 

NEUNOM 

The  nuaber  of  quantities  currently  being 

/CNTRL  /( 

52  ) 

BNQRY 

M 

NN 

nuaericaliy  integrated. 

I NARC 

M 

NN 

MADAMS 

I 

NN 

MAGIC 

M 

NN 

NOMNAL 

I 

NN 

RKUTT) 

I 

NN 

RKUTT2 

1 

NN 

S AL  VE 

M 

NN 

URAPUP 

M 

NN 

An  620  sord  array  used  to  store  the  particular  and 

/S  /( 

1 ) 

NOMNAL 

M 

S 

hoaogeneogs  solutions. 

RKUTT1 

M 

S 

The  quasitiae  variable. 

/0  /( 

1 ) 

AL4 

I 

X 

BNDRY 

0 

X 

ERROR 

I 

X 

FETCH 

0 

X 

FORCES 

1 

X 

INARC 

H 

X 

I NTERP 

I 

X 

MADAMS 

M 

X 

RKUTT 1 

M 

X 

RKUTT2 

M 

X 

SALVE 

M 

X 

STATEF 

1 

X 

- - - - --  * 

URAPUP 

M 

TT 
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FORTRAN 

SYMBOL 


DESCRIPTION 


STORAGE 

BLOC  A lT5 


UBROUT I N£ 
SUB R CODE- 


An  620  aord  array  containing  the  particular  and 
hoaogeneoys  solutions  belnq  Integrated.  The  first 
16  acrds  comprise  the  particular  solution.  Each 
block  of  16  aords  thereafter  coaprlses  an 
Independent  hoaogeneous  solution. 


0 A 20  aord  array  used  to  store  the  total  linear 
solution  froa  the  preceding  flL  iteration. 


1 ) CHORE  0 
INARC  n 
MADAMS  * 
0LT0SZ  I 
RKUTT1  H 
SALVE  n 
NRAPUP  I 

1 ) BNDRY  I 
BRANPT  I 
ENOPT  I 
ENVPRQ  I 
INTERP  0 
INTRPT  I 
L I NOR  V I 
NORNAL  M 
OUTPUT  I 
RKUTT1  0 
RKUTT2  M 
SALVE  n 


A 2 0 1 ^ array  containing  tha  first  four  values  of  2 /ZI 
In  the  present  suberc. 


1 ) INTERP  I ZI 
RKUTT1  I Z! 
SALVE  n Z! 


6 OCT  72 


SUBR0UTINE 

RKUTT2 


Purpose 

RKUTT2  carries  out  the  standard  fourth  order  Runge-Kutta  integration  of 
the  converged  state/costate  solution  and  the  velocity  losses.* 


*See  Section  17.6  in  Vol.  I. 


RXUTT2 


SUBROUTINE  RKUTT2 


THIS  ROUTINE  CARRIES  OUT  THE  5TANDAR0  FOURTH-ORDER 
RUNGE-KUTTA  INTEGRATION  OF  THE  CONVERGEO  STATE/CO- 
STATE  SOLUTION  ANO  THE  VElOCITV  LOSSES 

COftnON  tl/  2(50) 

COnnON  /zo/  201 50  > 

REAL  nAGB¥,  «U,  «,  LV,  LGAN,  LPSI,  Lfl,  LfiMO,  L«U,  LN,  LTAU,  NON 
*,  LHT 
CONNON  /O/ 

*X,  H,  X I ( 9 ) , PWGBV,  ERR,  09,  010,  C<90>,  C$AVE<90),  V,  GAN.  PSI, 
♦ALT,fiHO,NU,n,  TAU.  HT.  LV.  LGAfl  LPSI,  Lfi,  LfiMO.  LNU.  LN,  LTAU. 
*LHT.  D1 09,  0110.  &V(90>,  lSAVE(20>,  QT<20),  NPOlNTUO),  OELTI 20 > 
OIH^NSION  NON( 20  ) 

EQUIVALENCE  (NON,  V) 

COnnON  /CNTRL/ 

*NU  , ITER  l TAP  A ,ITAPB  ,JMN  ,JWAX  , LINES  ,*PT  ,flO« 

♦ KARO  , INDX( H ) ,NEUN0N,CNT016,RH0C  ,RHOP  ,NPTS  , NINES  , 

*KP AGE  ,NNP  , NUP  , I ARC  , TRSTR  ,I«AX  ,XTINE  . XONVER  . NOPRNT, 

*lNft0RV,NuPAGE,IVARV(2O>,  NN,  NOVARV,  PLAST,  ZlA$T,  KODES 
LOGICAL  INOORV,  NEWNON.  XONVER  NOPAnT  NUPAGE 
DIREMSIOH  FU50,  9).  $(  50),  CCl  H ) , FSli) 
equivalence  (FS,  f«> 

OATA  CC/  |.f  2. , 2.,  1./ 

T = H/2. 

00  1 I s INN 
1 FS(I)  x 20(  I > 

X = X ♦ T 

DO  5 J = 2*  -9  - - - - 

IF(J  .NE.  9)  GO  TO  3 
X x X ♦ T 
T = H 

3 L x J - 1 

DM  I : 1,  NN 
9 $(I>  = Hi)  ♦ T*FX(I  L ) 

5 CALL  MLORVCS,  FX(l,  J)) 

DO  7 J = I,  9 
T = CC(J)/t.*H 
00  II  s 1.  NN 
I 2(1)  = 2(1)  ♦ T*FK(  I , J) 

RETURN 

END 
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FORTRAN 

SYRBOL 


NATH 

SYRBOL 


CODE 


DESCRIPTION 


STORAGE  r SUBROUTINE  USAGE 
BLOCK  LOC  SUBR  CODE VAR 


H 


NN 


X 


z 


zo 


h 


x 


Z 


I Integration  stop  1 1 it  In  qua 1 1 1 1 no . 


1 The  nuabir  ot  quantities  Currently  being 
numerically  Integrated. 


R The  quas 1 1 1 me  variable. 


R A 26  eor d array  used  to  store  the  total  linear 
tolutlon  froa  the  preceding  QL  Iteration. 


I A 20  eor d array  containing  the  vector  f(X,Z,M) 
Equation  IT. 1-7  In  Vcl.I  of  this  document. 


/D  /< 


/cntrl  n 


/o  a 


n /< 


/zo  /( 


2 ) AL4  1 H 
INARC  R H 
AAOANS  I H 
RXUTT1  I H 
RKUTT2  I H 
SALVE  R H 
WRAP  UP  R DT 

52 1 BNDRY  ft  NN 
INARC  ft  NN 
NADARS  I NN 
RAG1C  R NN 
NORNAL  I NN 
RKUTT1  I NN 
RKUTT2  I NN 
SALVE  R NN 
WRAP  UP  R NN 

1 ) ALN  1 X 
BNDRV  0 X 
ERROR  1 X 
FETCH  0 X 
FORCES  \ X 
INARC  R X 
INTERP  1 X 
RADARS  R X 
RKUTT1  R X 
RKUTT2  R X 
SALVE  R X 
STATEF  1 X 
WRAPUP  R TT 

1 ) BNDRV  I Z 
BRANPT  I Z 
ENDPT  1 Z 
ENVPRO  I Z 
INTERP  0 Z 
INTRPT  I Z 
LINDRV  I Z 
NORNAL  R Z 
OUTPUT  I Z 
RKUTTI  0 Z 
RKUTT2  R Z 

salve  r z 

URAPUP  R Z 

1 ) ENVPRO  1 ZD 
LINDRV  1 ZO 
OUTPUT  I ZD 
RKUTT2  I ZD 
WRAP UP  1 ZD 
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SUBROUTINE 

SALVE 


Purpose 


SALVL  controls  the  subarc  by  subarc  integration  of  the  particular  and 
homogeneous  solutions.  In  addition  it  sets  up  all  initial  conditions 
on  the  state  and  costate.* 


*See  Section  17  of  Vol.  I. 


V 


SALVE 


PfiOGRAPf  SALVE  SALVE 

SAlVE 

THIS  ROUTINE  CONTROLS  THE  INTEGRATION  OF  THE  PARTI-  SAlVE 
CULAR  AND  HOMOGENEOUS  SOLUTIONS  OVER  ALL  THE  SuBARCS  SAlVE 

salve 

COMMON  /S/  S ( 620  ) SAlVE 

COMMON  /CNTRL/  CNTRL 

*NU  , I TER  , I T AP  A I TAPB  ,JMlN  ,JMAX  LINES  , 1C  P T , MOM  , CNTRL 

• KARO  , I NDX(  4 ) .NEUNOn, CNT016,RH0C  ,RHOP  ,NPTS  , MINES  , CNTRL 

•KPAGE  , NNP  , NUP  ,IARC  , TRSTR  ,IMAX  K T I ME  , KON VER . NOPRNT # CNTRL 

* INBDRV , N UP AGE, I VARV( 20  ) , NN,  NOVARY,  PLAST.  ZLAST  KOOES  CNTRL 

LOGICAL  INBDRV.  NEWNOM,  KONVER,  NOPHNT  NUPA6E  CNTRL 

COMMON  /JACOB/  JAKE(HOO)  JACOB 

COMMON/ ARC0 AT/  AfiCDAT 

♦SREF  ,EJ  ,XISP  TMULT  ,OTNC  ,DTPI  , ARCDAT 

• I ATM  I MODE  , J AER  ,JPBO  ,QMAX  ,6MAX  * , ARCDAT- 

♦XLMAX  , HDMAX  GMDOT  ,AlFMAX  ,PHMAX  ,MAEA  , ARCDAT 

• MAEB  ,MAEC  ,MAED  ,MAEE  ,MAEF  ,MAEG  , ARCDAT 

*MT  ,MISP  MXCG  MZC6  ,MUDA  MulDB  , AfiCDAT 

• MDB  , XC6R  ZCGR  ,XE  ,ZE  #XT  , ARCDAT 

• OREF  MCND  ,RHO0  ,OMULT  .REMAX  ,FRATE  ARCDAT 

DIMENSION  ARCDAMO)  ARCDAT 

EQUIVALENCE!  SREF, ARCDA ) ARCDAT 

COMMON/GLOBAL/  GLOBAL 

• GR  ,ER  OMGZ  , XLAMRF, YnuRF  ,LUM  ,T0  , EP SlON , I NNER  , GLOBAL 

• ITRMAX. J JOP( 6 ) -IFATAL.NARC  ,NBRAN  fNFARC  ,10(4)  ,KTAB(20>,  GLOBAL 

• I TAB( 20  > SIGMAXTABGM,PSIRF  IPFlGI, IPFlG2, IPFLG3  I PFl64,  GLOBAL 

*ineqfl(20),  itpso,  kSol,  inark  kglObl( 7 ) global 

real  magbv,  mu,  m,  LV,  LGAM,  lFSI,  LR,  LRHO,  LRU,  LM,  LTAU,  NOW  D 

• LHT  D 

COMMON  /D/  - 0 

• X,  H.  X I ( 4 ) , MAGBV,  ERR,  09,  DIO,  C(4Q),  CSAvE(40>,  V,  GAM,  PSI,  0 
*AlT,RHOMU,M,  TAU,  HT,  LV,  LGAM,  LPSI,  lR,  LRHO.  LMU,  LM,  LTAU,  JUL21 

• LHT.  D1&9,  D 1 ] 0 , 6v(40),  ZSAVEC20),  QT(2Q),  NP0INT(20),  DELTl  20  > D 

DIMENSION  NOM( 20  ) D 

EQUIVALENCE  (NOM,  V)  D 

COMMON  /Block/  Ilctio,  2 0 > , 1ICT(10,  20),  ITCUO,  20),  JtAB(20),  BLOCK 

• I TCT(  10  20  ).  LT  AB( 2 0 ) , NOKNOW,  N0C(20),  VAl!C(10,  20),  BlOCK 

• VAlTCUO,  20),  I P A V BlOCA 

COMMON  ft/  Zt>0)  Z 

COMMON  fll/  IU  20,  M > ZJ 

COMMON  /¥/  YC820)  V 

COMMON  /F/  F( 820,  4)  F 

COMMON  /PC/  - PC 

• PCI  , N , PC3  , I DP  .PCS  , PC6  , PC  7 ,MAXBC  ,NAUX  PC 

DIMENSION  8N0M(  18  ),  CnOM(18)  SAlVE 

L = 0 SAlVE 

00  14  IARC  - 1,  NARC  SAlVE 

DO  90  I = 1,  MOO  SAlVE 

90  J AA£( I > = 0 SAlvE 

Salve 

READ  IN  THE  DATA  FOR  THIS  SUBARC . SAlvE 

salve 

CALL  READmS( 9.  ARCDA  42,  IARC)  SAlVE 

SAlVE 

STORE  THE  NUMBER  OF  POINTS  FOR  THIS  SUBARC  AND  COMPUTE  THE  STEP-  SAlVE 
SIZE.  SAlvE 

SAlvE 

NPTS  = NPOINT(IARC)  SAlvE 

M s 1.  0/Fl0AT(NPTS  - 1)  SALVE 

salve 

COMPUTE  NUMBER  OF  HOMOGENEOUS  SOLUTIONS  FOR  THIS  SUBARC.  SAlVE 

SAlvE 

MOM  s NOC( IARC  > SAlVE 

NN  = N»lMOM  ♦ 1 ) SALVE 

SAlvE 

STORE  THE  FIRST  FOUR  POINTS  OF  THIS  SUBARC.  SALVE 

SALVE 

X - IARC  - I SALVE 

NOPRNT  = .FALSE.  SALVE 

DO  9 KPT  = t#  H SALVE 

I N0X( KPT  ) = KPT  SAlVE 

XUKPT)  = X SALVE 

CALL  NOMNAL  SALVE 

DO  H s lf  I SALVE 


£V> 

iv> 

<4 


» zid,  *m  = zc  1 > 

I X = X 4 H 

RESTORE  THE  FIRST  POIMT  OF  THE  NOMINAL. 

OO  10  I = 1,  N 
i Z(I)  =ZItI,  1) 

X = I ARC  * 1 
NEWNOM  s .TRUE. 

SET  UP  THE  INITIAL  CONDITIONS  OF  THE  PARTICULAR 
ANO  HOMOGENEOUS  SOLUTIONS  FOR  THE  START  OF  THIS 
ARC 

DO  210  1 s 1.  9 

IFUICU,  IAftC)  - I)  201,  202,  209 

CONTINUOUS  ST AT £ . IF  THIS  IS  THE  START  OF  THE  2ND 
BRANCH,  SET  PARTICULAR  SOL.  TO  VALUE  AT  END  OF  STEM. 

OTHERWISE,  LET  PART.  SOL.  SO  ACROSS  CONTINUOUSLY . 

I Ft  I ARC  .CO.  NFARC  4 I)  Vt I > = BNOMt  I ) 

60  TO  210 ' . 

DO  203  J si,  NN  18 

KNOWN  STATE.  ZERO  THIS  STATE’S  ROW  IN  ALL  HOMOGEN- 
EOUS SOLUTIONS  UP  TO  THIS  PT.  ANO  SET  THE  PART.  SOL. 
TO  THE  OESIREO  VALUE. 

i TIJ)  = 0 

Yt I ) = VALlCt I,  I ARC  ) 

60  TO  210 

IF( I ICt I I ARC  ) - 5 > 205,  206,  208 

UNKNOWN  STATE.  SET  THE  PART.  SOL.  FOR  THIS  STATE 
EQUAL  TO  THE  TOTAL  SOL.  FROM  LAST  ITER.  ANO  INTJIO- 
PUCE  A NEW  HOMO.  SOL. 

“TTTTT-zTn 

L:LM8 
IL  s L ♦ I 
Y(IL>  = 1 
GO  TO  210 

KNOWN  DROP  WEIGHT.  IS  THIS  THE  START  OF  2ND  BRANCH 

I F< I ARC  .EQ.  NFARC  * 1)  GO  TO  207 

NO.  SUBTRACT  OFF  DROP  WEIGHT  FROM  PART.  SOL. 

Y< I ) = V< I > - VALlCt I,  I ARC  ) 

GO  TO  210 

START  OF  2N0  BRANCH.  SUBTRACT  DROP  NT.  FROM  PART. 

SOL.  AT  END  OF  STEM. 

Y(I)  = BNOMd  ) - VALlCt  I,  I ARC ) 

GO  TO  210 

SIZING  DROP  HT.  IS  THIS  THE  START  OF  2N0  BRANCH 

IFt  I ARC  .EQ.  NFARC  4 1 ) GO  TO  209 

NO.  SUBT.  OROP  WT.  FROM  PART.  SOL. 

WPRO  = GR’t  ZSAVEt  7 ) - M) 


SALVE 

SALVE 

SALVE 

SALVE 

SALVE 

SALVE 

SALVE 

SALVE 

SALVE 

salve 

salve 

SALVE 

SALVE 

SALVE  201  — 1 202—120-#- 


CALL  WTDRPC  WPRO,  WORP,  DW0RP,  3) 

Yd)  = Yd ) - w6rp/gr 


IFt I ICt I , I ARC  ) LT.  7)  GO  TO  2091 

WT.  DISTRIBUTION  BETWEEN  STEM  ANO  BRANCHES.  SUBT. 
INITIAL  WT.  AT  START  OF  1ST  BRANCH  FROM  WT . AT  END 
OF  STEM. 

Yt  7 ) > BNOMt  7 ) - CNOMt  7 ) 

GO  TO  210 

SUBT.  SIZ1N6  PROP  WT . FROM  THE  WT . AT  END  OF  STEM. 

WPRO  = GR*<  ZSAVEt  7 ) - BNOMt/)) 

CALL  WTORPt  WPRO,  WORP,  DWDRP,  3) 

Y( I ) = BNOMt  7 ) - WDRP/6R  

CONTINUE 
DO  219  I = 1,  9 

IFdlCTd,  I ARC ) -l)  219,  211,  213 

KNOWN  COSTATE.  ZERO  OUT  THE  APPROPRIATE  ROW  OF 
PART. ANO  HOMO.  SOLS. 

00  212  J = I,  NN,  18 
YtJ  4 9)  s 0 
GO  TO  219 

IS  THIS  THE  START  OF  THE  2ND  BRANCH 


211-1213-1219 
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? i 3 1 — * 
2131—1 


146. 

147. 

148. 

149. 

150. 

»M. 

1*2. 

U»a-P 


213  1 F C I ARC  .ME.  NFARC  ♦ 1 ) GO  TO  2131  SALVE 

C YES.  IS  THIS  COSTATE  UNKNOWN.  SALVE 

IFdICTU,  I ARC  ) .EQ.  2)  60  TO  2131  SALVE 

C COSTATE  DISTRIBUTION  FROM  STEA  TO  BRANCHES. SET  PART.  SALVE 

C SOL.  FOR  THIS  COSTATE  EQUAL  TO  01 FF . BETWEEN  END  OF  SALVE 

C STEfl  AND  START  OF  1ST  ARC  SALVE 

VC  I ♦ 9)  = BNOA<I  ♦ 9)  - CNOmi  4 9)  SALVE 

60  TO  219  _ SALVE 


214- 


154. 

is*. 

IS*. 

in. 

1*0. 


2131  VC  1 4 9)  = Z<  I 4 9)  SALVE 

C UNKNOWN  COSTATE.  SET  PART.  SOL.  TO  VALUE  OF  TOTAL  SALVE 

C SOL.  FROM  LAST  ITER.  AND  INTRODUCE  A NEW  HOAO  SOL.  SALVE 

L = L 4 18  SALVE 

IL  = L ♦ I SALVE 

V<  1L  4 9 ) = 1 SALVE 


214  Continue  * 

I F C NFARC  .EQ.  NARC 
DO  215  ! s 1.  16 
21c  CNOA<  1)  = VC  I ) 


160. 

161. 

*62 . 


.OR.  1 ARC  .EQ.  NBRAN  ♦ 1)  GO  TO  216 


SALVE 

salve 

SALVE 

SALVE 


3 


164. 

165. 

166. 

167. 

168. 
169. 
WO. 
Wl. 
1/2. 
1/3. 
W 


216  CONTINUE 

START  THE  INTEGRATION  BY  RUNGE-KUTTA. 
00  12  KPT  =1.4 

I Ft  KPT  .EQ.  NPTS)  NEWNOA  = .TRUE. 

CALL  LIN0RV1 Y.  F<  1.  KPT  >) 

WRITE!  ITAPB)  (YIIJ),  IJ  = 1,  NN ) 

1F( KPT  .NE.  1)  60  TO  121 
CALL  OUTPUT 


SALVE 

SALVE 

SA-LVE 

SALVE 

SALVE 

SALVE 

salve 

SALVE 

SALVE 

SALVE 

SALVE 


n 


175. 

176. 

1 //. 

U 


179. 

180. 
181. 

1W2. 

1W3. 


121  I F t KPT  .LT.  4)  CALL  RKUTTlt  F<  1 , KPT>)  SALVE 

FINISH  INTEGRATION  OVER  THIS  ARC  BY  AO AAS-AOULTON . SALVE 
12  CONTINUE  SALVE 

1 F C KPT  .EQ.  NPTS  >60  TO  131  SALVE 


131-. 


13  KPT  = KPT  4 1 
NEWNOA  = .TRUE. 

CALL  NOANAL 
CALL  AADAAS 

WRI TEC  I TAPS  ) CYC  I J 3 IJ  = I.  NN ) 

1 F ( KPT  .LT.  NPTS)  6ft  TO  13 


salve 

SALVE 

Salve 

salve 

salve 

salve 


13— 1 


185. 

186. 

16/  . 
160. 
169. 
190. 

131 

C 

c 

13^ 

CALL  OUTPUT 

CALL  WRITASC41.  V.  NN  2*IARC) 

IF( I ARC  .NE.  NBRAN)  60  TO  14 

THIS  IS  THE  END  OF  THE  STEA  OF  A BRANCH  PROBLEA. 
STORE  THE  PARTICULAR  SOLUTION. 

00  132  I = 1.  18 
BNOA( I ) = VC  I > 

SALVE 

SALVE 

SALVE 

salve 

salve 

SALVE 

SALVE 

192. 

14 

CONTINUE 

salve 

193. 

I F < I PFL6 1 .£0.  0)  CALL  PRORPA 

JUL  198 

194. 

RETURN 

SALVE 

19* . 

ENO 

salve 

14-1 
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FORTRAN 

SYMBOL 


HATH 

SYMBOL 


COOE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK  LOC  SUBfi  CODE VAR 


ARCOA 

S . 

I 

/ARCOAT/t 

1 > 

ARCIN 

I 

SREF 

rtf 

BNDRY 

I 

ARCDA 

CHECK 

I 

ARCDA 

FETCH 

I 

ARCDA 

SALVE 

I 

ARCDA 

STATEF 

I 

SREF 

UT 

I 

SREF 

WRAP  UP 

1 

ARCDA 

F 

1 

An  820*N  array  used  to  atore  thi  vector* 

/F 

/( 

1 ) 

MADAMS 

I 

F 

k \ , ko,  k j , and  fcu  defined  by  Equations 
17.6-7  thru  >10  of  Vo  1 . 1 of  this  document. 

SALVE 

I 

F 

GR 

9r 

I 

Gravitational  acceleration  at  surface  of  the  earth* 

(FT/SEC2  ) 

/ GL0BAL/( 

1 ) 

AL5 

I 

GR 

APPLY 

I 

GR 

branpt 

I 

GR 

COSTAB 

I 

GR 

COST  Al 

I 

GR 

I ntrpt 

I 

GR 

OUTPUT 

I 

GR 

POBCQL 

1 

GR 

QLTOSZ 

I 

GR 

SALVE 

I 

GR 

STATEF 

I 

6R 

TH3 

I 

GR 

H 

h 

n 

Integration  step  site  In  quasitine. 

/D 

/( 

2 ) 

ALA 

I 

H 

INARC 

M 

H 

MADAMS 

I 

H 

RKUTT1 

I 

H 

* 

* 

** 

RKUTT2 

I 

H 

SALVE 

M 

H 

URAPUP 

M 

DT 

I ARC 

I 

H 

Subarc  nuabor. 

/ CNTRL 

/< 

2H  ) 

ARCIN 

I 

I ARC 

BCQNQ 

M 

I ARC 

BNDRY 

M 

I ARC 

BRANPT 

I 

1 ARC 

CHECK 

M 

1 ARC 

COSTAB 

I 

I ARC 

COST  AI 

I 

I ARC 

► 

ENDPT 

I 

I ARC 

FORCES 

I 

I ARC 

INARC 

M 

I ABC 

I NTRPT 

1 

I ARC 

MAGIC 

M 

I ARC 

MARCH 

1 

1 ARC 

QLTOSZ 

I 

I ARC 

SALVE 

M 

I ARC 

URAPUP 

M 

I ARC 

IIC 

I 

A 10*20  array  containing  the  initial  condition 

/BLOCK 

/< 

1 ) 

BCOND 

M 

IIC 

codes  for  the  QL  state  vector.  The  colunns 

BRANPT 

I 

IIC 

correspond  to  subarc  starting  points,  the  rent,  to 

CHECK 

I 

IIC 

QL  state  variables. 

COSTAB 

I 

IIC 

COST  Al 

1 

1 1C 

COSTAO 

I 

IIC 

I NTRPT 

I 

IIC 

SALVE 

I 

IIC 

I ICT 

I 

A 10*20  array  containing  the  target  condition  codes 

/BLOCK 

/( 

201  ) 

CHECK 

I 

I ICT 

for  the  state  vector.  the  colunns  correspond  to 

COSTAB 

M 

I ICT 

the  subarc  end  points.  The  nonzero  entries  in  a 

CO  ST  A I 

M 

I ICT 

coiuan  are  the  state  target  condition  cedes  that 

COSTAO 

0 

I ICT 

apply  at  the  end  of  the  corresponding  subarc. 

MAGIC 

SALVE 

0 

I 

I ICT 
I ICT 

1 NOX 

0 

An  array  of  four  nords  that  indicate  to  Adams- 

/CNTRL 

/( 

11  ) 

BCOND 

M 

I NOX 

Moulton  Integration  in  nhat  order  the  derivatives 

MADAMS 

M 

I NDX 

of  the  particular  and  homogeneous  solutions  are 
stored. 

SALVE 

0 

INOX 

IPFLG1 

I 

IPFL61F0  supresses  prlnt-out  of  velocity  losses  and 

/global/c 

69  1 

OUTPUT 

I 

1 

IPFLG1 

Inertial  Euler  angles. 

PDBCQL 

1PFL61 

QLTOSZ 

0 

IPFL61 

SALVE 

I 

IPFLG1 

6 OCT  72  6.01-NN 


FORTRAN 

SVABOL 


NATH 

svabol 


CODE 


DESCRIPTION 


JMML 


BLOCK 


uoc 


SUBROUTINE  USAGE 
SUBR  CDOfe VAR* 


1 T APB 

I 

Nuobcr  of 
hi stor  1 os 
solutions 
mr 1 tton. 

the  logical  unit  onto  phich  the  quasttiaa 
of  the  particular  and  hoaooeneous 
froa  the  current  OL  iteration  are 

/CNTRL 

/( 

H ) 

GROPE 

salve 

0 

I 

1 T APB 
I T APB 

JAKE 

0 

An  18*18  array  defined  by  Equation  17.5-5  in  Vol.J 
of  this  docuaent.  Tho  entrv  In  the  l-tb  roi  and  j- 
tb  coluan  Is  the  total  partial  derivative  of  the 
quasitioe  derivative  of  the  V|  component  of  V pith 

/JACOB 

/t 

1 ) 

Ll NOR V 
NLORV 
NLOR  V 
SALVE 

1 

A 

A 

0 

JAKE 

JACOB 

VDV 

JAKE 

respect  to  the  V*  coapcnent  of  V#  l.«.r 

avl/dvj. 


* J' 

•here  _ _ _ 

VT  s (yT,  xT> 

KPT 

A 

The  subarc  point  nuaber.  KPT  = 1 on  the  first 

/CNTRL  /( 

6) 

BCONO 

0 

KPT 

point  of  subarc,  end  KPT  - NPTS  o»  the  Iasi  point 

BNDRV 

0 

KPT 

of  the  subarc. 

FORCES 

I 

KPT 

AAGIC 

0 

KPT 

RKUTT1 

I 

KPT 

SALVE 

A 

KPT 

* 

WRAP  UP 

A 

KPT 

A 

■ 

I 

Aess  < 6* S ) 

/0  /( 

97  ) 

AL9 

I 

A 

AL7 

I 

A 

AL8 

I 

A 

Al9 

I 

A 

APPLY 

1 

A 

BRANPT 

1 

A 

_ 

COSTAB 

I 

A 

COSTA! 

I 

A 

1NTRPT 

I 

A 

NlDRV 

I 

A 

OUTPUT 

I 

A 

SALVE 

I 

A 

STATEF 

I 

A 

•RAP  UP 

I 

A 

AOA 

A 

The  nuaber  of  heaogeneous  solutions  currently  being 

/CNTRL  /( 

9 ) 

GROPE 

0 

AOA 

Integrated. 

INARC 

A 

AOA 

Li  NOR  V 

I 

AOA 

NO ANAL 

I 

AOA 

SALVE 

A 

AOA 

URAPUP 

A 

AOA 

N 

1 

/pc  n 

2 ) 

BNORV 

I 

N 

= 16. 

CHECK 

I 

N 

INARC 

I 

N 

Li  NOR  V 

I 

N 

NLDRV 

1 

N 

NO ANAL 

1 

N 

RKUTT1 

I 

N 

SALVE 

I 

N 

NR  AP  UP 

1 

N 

NARC 

I 

Ngnbcr  of  sgborcs  In  the  proble*. 

/GLOBAL/I 

18  ) 

BCONO 

I 

NARC 

3 

BNORV 

I 

NARC 

CHECK 

I 

NARC 

ENOPT 

I 

NARC 

ENVPRO 

I 

NARC 

FETCH 

I 

NARC 

1 NARC 

I 

NARC 

AAGIC 

I 

NARC 

QLTOSZ 

I 

NARC 

SALVE 

I 

NARC 

URAPUP 

I 

NARC 

NBRAN 

N, 

I 

Nuaber  of  the  last  subarc  on  the  stea  of  a branch 

/GLOBAL/I 

19  ) 

BNORV 

I 

NBRAN 

1 

problea.  If  tha  problea  is  not  a branch  problea. 

BRANPT 

I 

NBRAN 

then  NBRAN  = 0. 

COSTAB 

l 

NBRAN 

ENVPRQ 

I 

NBRAN 

INTRPT 

1 

NBRAN 

AAGI  C 

I 

NBRAN 

QlTOSZ 

I 

NBRAN 

SALVE 

I 

NBRAN 

b OCT  72  6.0I-«H 


FORTRAN 
S YRBOL 


RATH 

SYRBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

block  loc  su8n  code  <6fl 


NEUNOA 


NFARC 


MS 


HOC 


NO PR NT 

NPOINT 

RPTS 


VALIC 

I 


XI 


0 

A logical  flag  that  Indicates  to  the  Rungc-Kotta 

/cntrl 

n 

15) 

INTEAP 

0 

NEUNOA 

Integration  ehether  or  not  the  systea  Jacobian 

LIWDRY 

B 

NEWNDB 

need*  to  b«  reevaluated. 

rkutti 

0 

NEwNOA 

salve 

0 

NEWNOfl 

WRAPUP 

0 

NEUNOA 

I 

Nuabtr  of  the  last  subarc  on  the  first  branch.  If 

/GLOBAL/! 

20) 

BCOND 

1 

NFARC 

the  problea  is  not  a branch  problea,  then  NFARC  = 

BNDRY 

I 

NFARC 

NARC. 

BRANPT 

I 

NFARC 

COSTAB 

I 

NFARC 

ENVPRO 

I 

NFARC 

I NTRPT 

I 

NFARC 

BASIC 

I 

NFARC 

OLTOSZ 

I 

NFARC 

SALVE 

I 

NFARC 

a 

The  nunber  of  quantities  currently  being 

/CNTRL 

n 

52) 

BNORV 

B 

NN 

numerically  Integrated. 

I NAP. C 

B 

NN 

BAOAflS 

1 

NN 

BAGIC 

B 

NN 

NOANAL 

I 

NN 

RKUTTI 

I 

NN 

RKUTT2 

I 

NN 

SALVE 

B 

NN 

URAPUP 

B 

NN 

I 

An  array  containing  a running  total  of  the  nunber 

/BLOCK 

/( 

8H2) 

BNDRY 

I 

NOC 

of  free  (unknonn)  state  and  costate  variables  at 

BRANPT 

I 

hoc 

the  start  of  each  subarc. 

COSTAB 

0 

NOC 

costai 

0 

NOC 

- 

• 

- * 

eOSTAO 

0 

NOC 

INARC 

I 

NOC 

I NTRPT 

I 

NOC 

salve 

I 

NOC 

WRAP  UP 

I 

NOC 

0 

Not  used. 

/cntrl 

/< 

24  ) 

OUTPUT 

fl 

NOPRNT 

Salve 

0 

N0PRN7 

trajin 

Q 

IFRNT 

i 

A toenty  eord  array  containing  the  number  of  points 

/D 

/( 

191  ) 

INARC 

0 

NPOINT 

In  each  subarc. 

SALVE 

I 

NPOINT 

n 

The  total  nuaber  of  points  In  the  subarc. 

/CNTRL 

/< 

.19) 

BCOND 

0 

npts 

BNDRY 

0 

NPTS 

FORCES 

I 

NPTS 

INARC 

fl 

NPTS 

BASIC 

0 

NPTS 

Salve 

B 

NPTS 

WRAPUP 

0 

NPT5 

1 

A 10i2Q  array  containing  the  desired  values  of  all 

/BLOCK 

/< 

862  ) 

BCOND 

B 

VALIC 

the  fixed  (knoan)  QL  state  variables.  The  coluens 
correspond  to  the  subarc  starting  points,  the  roes, 
to  OL  state  variables. 

SALVE 

1 

VALID 

FI 

The  quaslttae  variable. 

/D 

/( 

1) 

AL4 

X 

X 

BNDRY 

0 

X 

ERROR 

I 

X 

* 

FETCH 

0 

X 

FORCES 

I 

X 

INARC 

B 

X 

INTER? 

I 

X 

BADABS 

B 

X 

RKUTTI 

B 

X 

RKUTT2 

B 

X 

SALVE 

B 

X 

STATEF 

I 

X 

WRAPUP 

B 

TT 

0 

A four  aord  array  containing  the  first  four  values 

/D 

/( 

3) 

interp 

I 

XI 

of  qualities  In  the  suberc. 

SALVE 

0 

XI 

6 OCT  72  G. 01-44 


FORTRAN 

svpsol 


DESCRIPTION 


HiiisJL- 

SLOCK  - LC'w 


SUBR 

SUSR  uOO£  VS 


SUBR0UTINE . 
SPLINE 


Purpose 


SPLINli  interpolates  the  univariant  tabular  functions.  In  addition,  it 
computes  the  first  and  second  partials  of  these  functions  by  evaluating 
the  derivatives  of  the  cubic  spline  interpolating  function.* 


♦See  Section  17.7  of  Vol.  I. 


f**?  / 


1 


1 

I 


spline 


1 . 
2. 
3. 
*». 

I. 

I. 

1. 

8. 

1. 

)0. 

11. 

12. 

1 3. 
1h  . 

U. 

u. 

1?. 

u. 

u. 

to. 

JU- 


13. 
in. 
*>. 
U. 
2? . 
20. 
t«. 


32. 

33. 

-3*4-. 

35. 

36. 

3 7 . 
-ifcr 
39. 
HO. 

HI  . 

H2. 

HH. 

H5. 

*6. 
H 7 . 
H0. 
H9. 


SUBROUTINE  SPLI NE( IT  T F DFOX,  D2FDX2 > SPLINE 

SPLINE 

THIS  ROUTINE  PERFORMS  THE  NATURAL  CUBIC  SPLINE  SPLINE 

INTERPOLATION  AT  THE  PT  T OF  THE  FUNCTION  WHICH  SPLINE 

15  TABULATEO  IN  TABLE  NO.  IT.  SPLINE 

SPLINE 

EXTERNAL  NUCA5E  SPLINE 

COmflON  /TABLE/  TABLE(2100>  /GLOBAL/  8(66)  SPLINE 

D I DENS  1 ON  X<1>#  Y(l),  Z(  1 ),  LOCI(l),  LOCL(l),  LOCF{  1)  SPLINE 

EQUIVALENCE  (X.  TABLE),  (Y,  TABl£(76i)>.  (Z.  TABLE!  HOI  >>,  SPLINE 

► (LOCI,  X),  (LOCL.  Y ) ( LOCF  Z).  < NT  6(66>)  SPLINE 

DATA  slXTH/i7155z525z5252525253D/  SPLINE 

DATA  SPLINT  /6HSPLINE/  SPLINE 

FORflAK 1HO,  22HTHE  TABLE  NO.  IN  LOC.  06  17H  IS  OUT  OF  RANGE.)  SPLINE 

FORflATC 1H0,  22HT8E  TABLE  NO.  IN  LOC . 06  20H  HAS  NOT  BEEN  INPUT.)  SPLINE 

* ••  HAKE  SURE  TABLE  NO.  WITHIN  RANGE.  * 'SPLINE 

1 F( I T .LE.  NT)  GO  TO  100  SPLINE 

ITLOC  s XLOCF(IT)  SPLINE 

WRITEI6.  10)  ITLOC  SPLINE 

CALL  ER"OR( SPLINT.  -I,  1)  SPLINE 

STOP  SPLINE 


1F(  1 T .LE.  0)  60  TO  110 

NON-ZERO  TABLE  NO.  HAKE  SURE  IT  WAS  INPUT 

II  = LOCK  IT) 

IF( II  .ST.  0)  GO  TO  120 
ITLOC  s XLOCFt IT  ) 

WR I TEC  6 . 20)  ITLOC 
CALL  EPRORt SPLINT,  -2,  1) 

STOP 

JEERO  TABLE  NO.  SENO  BACK  CONSTANT  ZERO  FNC . 


110 


F = 0. 

DFOX  = 0. 
02FDX2  = 0. 
RETURN  . 


SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPlINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 


SPLINE 

SPLINE 

SPLINE 

SPLINE 


120-1 


120  IF  = LOCF< IT) 

C WHAT  KINO  OF  FUNCTION  IS  F. 

IF( IF  - II  - 1)  130,  HO,  150 
C CONSTANT  FNC. 


130 


F z Y<  II  ) 
OFOX  = 0. 
02FDX2  s 0. 
RETURN 


LINEAR  FNC. 


SPLINE 

SPLINE 

SPLINE 

SPLINE 


1 30— i HO-i 1 50-» 


SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPlINE 


3 


HO 


Y 1 z V<  II  ) 

XI  z X(  ID 
OFDX  = < Y( IF  ) 
F = Yi  ♦ ( T 
02FDX2  a 0. 
RETURN 


Yl  )/(  X(  IF)  - XI) 
XI  >«QFOX 


NONLINEAR  FNC.  IS  T.GT.  FIRST  TABLE  ENTRY. 


SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 


TTmht 


51 . 

52. 

53. 

»H. 
5*  . 
50  . 
57  . 
50. 

59. 

60. 
-4-U. 

62. 

63. 

0H  . 

65  . 
60  . 
67  . 
60. 

69. 

70. 

71. 

72. 


150  IF(  T .GT.  X(  II  ))  GO  TO  UO 

NO.  LINEARLY  EXTRAP.  FOR  F( T ) 

Yl  = VC  II) 

X)  a X<  II  ) 

I IP  1 z II  ♦ 1 
DEL  = X( 1IP1 > - XI 
0FDX  = < Y( IIP1 ) - Yl  )/OEL 
F = Yl  ♦ ( T - XI  )*OFDX 


SIXTH*DEL*Z(  1 1 P I ) 


02F0X2  * 0. 
RETURN 


IS  T .lT.  LAST  ENTRY  IN  TABLE. 


160  IF( T .lT.  X( IF  ))  GO  TO  170 

NO.  LINEARLY  EXTRAP.  FOR  F(T) 

IF«1  = IF  - 1 
Yl  = V<  IF) 

XI  z X( IF  ) 

DEL  - Xl  - XC IFH1  ) 

DFDX=( Y 1 - Y( IFrtl ))/DEL*  SIXTH*Z( JFW) >*OEL 
F = Yl  ♦ <T  - Xi)*OFOX 
02F0X2  a 0. 

RETURN 

FINO  TABLE  ENTRIES  THAT  BRACKET  T. 


SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 


SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPLINE 

SPlINE 

SPlINE 

SPLINE 


TTo=; 
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73. 

79. 


75. 

76. 


170  JL  = LOCUIT) 

IF(T  - X( i L ) ) 180,  220,  190 


SPUME 

SPLINE 


160  IL  = IL  - 1 

IF<T  - X(1L>>  180.  210,  210 


SPLINE 

SPLINE 


180—  190*|  220- 

180—*  210— j 


“1 


77. 

76. 

79. 

BO. 

81. 


190  IS  = IL  ♦ 1 

DO  200  I = IS,  IF 
IF( T - Xt I ) .LT.  0.  ) 60  TO  210 
200  IL  = 1 


SPLINE 

SPLINE 

SPLINE 

SPLINE 


210- 


210  LOCL( IT)  s IL 


SPLINE 


82. 

83. 

89. 

85. 

86. 


87. 

86. 

89. 

90. 

91. 

92. 

93. 
9 h . 
9s» . 
9* . 
91  . 
96. 


220  ILP1  = IL  ♦ 1 

INTERPOLATE  FOR  F(T) 

0X1  = T - X(  IL ) 

0X2  = X( ILP 13  - T 

VI  = V(IL)  . 

V2  = VULPil 

21  = 2( IL  ) 

22  = Z( 1LPI I 
DEL  = 0X1  ♦ 0X2 

TEMP  Is  22*0X1  * 21*0X2 
TEMP 2 = $IXTH*0EL 

F = UY2*DX1  ♦ V1*DX2>  + SI XTH*< 22*0X 1**3  ♦ 21*0X2**3 ) )/OEL 
* - TENP2*TENP1 

DFOX  s CCY2  - VI)  ♦ .5*<22*0X1**2  - 2 1 *DX2**2 ) )/0EL  -TErtP2*(22« 

D2F0X2  = TEflPl/DEl 

RETURN 


ENO 


SPLINE 
SPLINE 
SPLINE 
, . S8MNE 
SPLINE 
SPLINE 
SPLINE 
SPLINE 
SPLINE 
SPLINE 
SPLINE 
SPLINE 
SPLINE 
21  ) SPLINE 
SPLINE 
SPLINE 

spline 


I 

5 

! 


! 

\ 

i 

\ 
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TORTBAW 

SVflBOL 


HATH 

SVflBOL 


CODE 


DESCRIPTION 


’many 


BLOCK LOC 


LOCF 


LOC] 

LOCL 


NT 

X 

V 

2 


I A 50  eord  array  that  corresponds  -to  tables  1 thru 
50.  Each  entry  1*  an  integer  that  points  to  the 
last  value  of  the  independent  variable  of  tbo 
cor r • spend  I ng  table. 

1 ft  2)00  eord  array  used  for  storing  up  to  50  spline 
fitted  unlverient  tables. 

A ft  50  eord  array  that  corresponds  to  tables  1 thru 
50.  Each  entry  Is  an  Integer  that  Indicates  the 
last  Interval  In  ehlch  Interpolation  of  the 
corresponding  table  occured. 

1 Largest  vslviriast  table  number  in  this  case. 

I A 2100  aord  array  used  for  storing  up  to  50  spHne 
fitted  unlvarlant  tables. 

I A 50  eord  array  that  corresponds  to  tables  1 thru 
50.  Each  entry  Is  an  integer  that  indicates  the 
last  Interval  U shlch  Interpolation  ©t  the 
correspond i ng  teble  occurei. 

1 A 50  eord  array  that  corresponds  to  tables  1 thru 
50.  Each  entry  is  an  integer  that  points  to  tha 
last  valua  of  tha  independent  variable  of  the 
corresponding  table. 


/TABLE 

n 

HOI  ) 

SPLINE 

I 

LOCF 

SPLINE 

I 

Z 

/TABLE 

/< 

1 > 

spline 

I 

LOCI 

spline 

I 

X 

/table 

/( 

701  > 

spline 

A 

LOCL 

SPLINE 

I 

V 

/ GLOBAL/ < 

66  1 

SPLINE 

I 

NT 

/TABLE 

/( 

1 > 

spline 

1 

LOCI 

SPLINE 

I 

X 

/table 

/( 

701  ) 

spline 

A 

LOCL 

spline 

I 

V 

/TABLE 

/( 

HOI  ) 

SPLINE 

I 

LOCF 

SPLINE 

I 

Z 
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SUBR0UTINE 

STATEF 


/ =■  •<£ 


STATEF 


SUBROUTINE  STATEF 

THIS  ROUTINE  COMPUTES  ALL  OYNAMIC  QUANTITIES  WHICH 
BEAR  NO  EXPLICIT  DEPENDENCE  ON  THE  CONTROL 

COMrtDN/GlOBAL/ 

♦ GR  , ER  . OMGZ  ,XLAMRF,YMURF  ,LUM  ,T0  EP5L0N, I NNER  , 

♦ I TRMAX  J JOP(  6 J (FATAL, NARC  , NBRAN  NF  ARC  ,IOM>  .XTAB(20). 

♦ ITABC26),  SIG.MAXTAB . Gfl,PSI^F  , IPFLGl, IPFLG2, IPFL63, IPFL&V, 

♦ INEQFL<26>,  ifPSO,  *$OL,  INARK,K6L08l(?> 

COMMON/ AflCDAT/ 


♦ SREF 

,EJ 

,XISP 

, TMULT 

, OTNC 

, DTP  I 

♦ I ATM 

, I MODE 

, JAER 

,JPRO 

QMAX 

, 6MAX 

♦XLMAX 

, HOMAX 

, 6MD0T 

.AlFMAX 

PHMAX 

,MAEA 

♦ MAEB 

,MAEC 

, MAED 

, MAEE 

,MA£F 

,MA£6 

♦ NT 

,MISP 

,MXCG 

.MZCG" 

,MWDA 

,MWDB 

♦ NOB 

, XCGR 

, ZCGR 

XE 

,ZE 

XT 

♦ OREF 
DIMENSION 

,MC«0 
ARCDA( SO) 

,RHOB 

QMULT 

, REMAX 

,FRATE 

EQUIVALENCE* SREF.ARCOA) 

REAL  NA&BV,  «U,  M,  LV,  LGAB,  LPSI,  LR,  LRHO,  LMU,  LM,  LTAU,  NQM 
*.  LHT 
COMMON  /O / 

♦ X,  H XU**),  MAGBV,  ERR,  D9,  DIO,  C(<*0>,  CSAvEMO),  V,  GAN  PSI, 
*ALT,ftHO,MU,M,  TAU,  HT,  LV,  LGAM  LPSI.  LR,  LRHO,  LMU,  LM,  LTAU, 
♦LHT,  D1D9,  DUO,  BVMO),  2SAVE(20>,  QT(20),  NPQ1nT(20),  OElT( 20 > 
DIMENSION  N0M20) 

EQUIVALENCE  ( NON.  V) 

LOGICAL  SWITCH,  I LOAD 

real  NACH,  ISP,  ISPV,  I SPR  I SPN,  ISPT,  ISPVV.  ISPVR.  ISPVN, 
♦ISPVT,  ISPRR,  iSPR/9,  I5PRT;  1SPNM,  I5?«T,  ISP1T,  LIFT,  LIFTV',  * 
♦LlFTR,  lifta,  liftvv,  LIFTVR,  uftva,  limrr,  lIftra,  nur,  liftaa, 
*iaate6,  ispf!  ispff 

REAL  MACHV,  MACHR  MACHVR,  NACMRR 

real  liftn,  li ftvm,  liftrm,  liftnn,  liftna 

COMMON  /OVNA/ 

♦XX  .TIME  ,SINGAM,COSGAM, OMEGA  ,0MEGA2,R  ,b  ,SlNA  , 

♦cosa  ' qvnq 1 i omegat , tamp  ,pa  ,ro  ,cs  .tempr  ,par  , 


R > .SI  NA 
CS  .TErtPR  PAR 
ROOE  MACH  , Q 
F VAC V ,FVACfi  , F VACM 
MACH V , MACilR  ,ISP 
ISPVM  ISPvT  ,ISPRR 

liftv  .lietr  .lifta 

ORAbV  DR AGR  , DRA&A 

alpha  ,phi  ,liftm 
gammad.ae  .tax 


R ,b 

CS  .TErtPR 

♦ROR  ;CSR  ;TEMPRR;PARR  ;RORR  ;CSRR  >00E  ',MACH 

♦ QV  ,QR  ,QW  , QRR  ,FVAC  ,FVACV  ,FVACfi 

♦ FVACT  ,FVACW,FVACVR,FVACRR,FVACTT,T  ,MACHV  , MACiifi 

♦ISPV  , ISPR  , I SPM  ,ISPT  , ISPVV  , ISPVR  , ISPVM  , ISPvT 

♦ ISPRM  , 1 SPRT  , I SPMM  l SPMT  , l SPTT  ,UFT  , LIFTV  ,lIE 

♦LlFTVV.LlFTVR, LIFTVA, LlFTRR, LIFTRA, DRAG  ,DRAGV  ,ORA 
♦ORAG W, DRAG VR, DRAG VA, OR AGRR,ORAGRA,ORAGAA, ALPHA  ,PHI 
♦LIFTVM,LIFTRM,LIFTMM,LIFTMA,DBR  ,dbrr  ,gammad,ae 


«W  , SINPHl .COSPHI .SINPSI ,COSPSI(SlNRHO,COSRHO,SlNROR,COSROR 
♦MUR  ,X*G  ,X*P  , AK IN  ,coq  ,coom  ,clo  ,f*  ,xcgm 

♦ XCGMM  , ZCGM  , ZCfiMM  ,XJV  ,XJR  ,XJW  ,XJVR  ,XJRR  , MACHVR 

♦MACHRR  SIN2R0, C0S2R0, C0S2GM, CM  ,CMA  ,CMM  ,CMAA  ,CMMM 


•CMAM  , CMO  , CMOM  .CMOMM  .CMAMM  ,ULFTV  .ULFTR  , UlFT VV, ULFTVR, 

♦ULFTVA  ULFTRR,ULFTRA,IPOW  ,XARC  ,TSTART,6H  ,GRR  ,LlFTAA, 

♦cdomm  'clabm  ,clom  'clomm  ,oynih9,ct  ,cooae  ,sioae  ,coo  , 

♦sio  ,deltae,cde  ,xcg  ,zcg  ,xj  ,xmcg  ,calpha,almax  , 

♦db  ,ulft  ,culft  ,ulfta  ,TSTAGE, TImES  ,xmcgaa,irateo,frated 

COMMON  /DYNA/ 

♦MTT  ,Jl  , J2  ,J3  , XMCGA  ,FVACF  ,ULFTAA,ISPF  , ISPFF  , 

• I LOAD  , FXM  FXMM  , SWITCH, INQF  ;CL  ,CLA  ,CLM  ,ClAA  , 

♦ CLMM  ,ClAM  CO  , COA  COM  ,COAA  ,COMM  ,COAM  , DYN 198, 

*0YN199,DYN200,XnCGV  ,XMCGR  . XMCGM  XMCGV V . XMCGVR, XMCGVM  XMC6VA 
♦XMCGRR, XMCGfifl, XMCGRA, XMCGMM, XMCbMA, RORRR  , 0YN2 1 1 , DYN2 1 > , 0 YN2 1 6, 
♦DYN2 J /, IDAM  , TAJRB-  , TAIRBY, TAIRBH, TARBVV, TARBHH  TARBVH, SFC  , 
♦SFCV  ^sfch  !sfcvv  'sfchh  ^sfcvh 

DIMENSION  DYN(l) 

equivalence  (Ovn,  xx> 

DATA  XSTATF/fcHSTATEF/ 

OATA  DE6/5F. 2957795130823/ 

S1N6AM  =' SlNtGAM) 

COSGAM  £ COS( GAM) 

C0S2GM  = (COSGAM  ♦ S INGAM  )♦< COSGAM  - SINGAfO 


COSGAM 

C0S2GM 

SINPSI 

COSPSI 

SINRHO 

COSRHO 

SIN2R6 


SlNlPSI  ) 

COS(  PSI  ) 
SIN(RHO) 
COS(RKO) 
StMRKQ«CQSRHO 
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SUBROUTINE  STATEF 

THIS  ROUTINE  COMPUTES  ALL  DVNAHI C QUANTITIES  WHICH 
BEAR  NO  EXPLICIT  DEPENDENCE  ON  THE  CONTROL 

C0M0N/6L0BAL/ 

♦Gfi  , ER  OdGZ  XLAWRF  YNURF  ,LUfl  ,TO  ,EPSlON, INNER  , 

* ITRWAX  * J JOP(  bS  'lFATAL,NARC  ,NBRAN  ,NFARC  ,IOM>  KT  AB(  20  ) , 

♦I TAB(  26 ),  SIG,HAXTAB  Gfl,PSI$F  , IPFLG1, IPFLG2, IPFL63, IPFLG9, 

♦ INEQFU26),  ifpSO,  K$OL,  I NARK , KSL0Bl(  7) 

COnnON/ARCuAT/ 

♦ SREF  ,EJ  ,XI$P  ,TflULT  ,OTNC  ,DTPt 

♦ I ATM  ' INODE  J AER  ,JPRO  , QflAX  , GHAX 

♦ XLHAX  .HOflAX  GHDOT  ,AlF*AX  ,PHflAX  ,«AEA 

♦ WAEB  , P1AEC  >AED  ,flAEE  ,«AEF  , NAEG 

*«T  ,«ISP  >XCG  ,MZCG“  ,«WOA  ,HWD8 

♦«DB  ' XC6R  ZCGR  ,XE  ,2E  ,XT 

♦DREF  PlCNO  ,RHOB  0P1ULT  REAAX  ,FRAT£ 

OIPIENS I ON  ARCDA(NO) 

EQUI VALENCE! SREF , ARCOA ) 

REAL  flAGBV,  HU,  PI,  LV,  L6AH,  LPSI,  LR,  LRHO,  LHU,  LH,  LTAU,  NON 
*.  LHT 
COfWON  /D/ 

•X,  H 11(H),  FlAGBV,  ERR,  09,  010,  C<90),  CSAVEMO),  V,  GAN,  P$I, 

♦ A1.T  RHO.PIU, A,  TAU,  HT,  LV,  LG  API  LPSI.  LR,  LRHO.  L«U,  LH,  LTAU. 
♦LHT  0109,  0110,  &V(90>,  ZSAVEtiO),  Qt(20),  NP0INT(20),  OElT(  20 ) 

OinENSION  NQm26> 

EQUIVALENCE  ( NON,  V) 

LOGICAL  SNITCH,  IlOAO 

REAL  PIACH,  ISP,  ISPV,  I SPR , ISPn,  ISPT  ISPVV,  I SP  VR  ISPVH, 
♦ISPVT,  1S0RR,  tSPRn,  ISPRT,  ISPiW,  ISPfiT  , ISPtT,  Lift,  L I F T V'  * 
♦LlFTR,  LIFTA,  LIFTVV,  lIFTVR,  lifTva,  liftrr,  lIFTRA,  HUR,  lIFTAA 

♦irate6,  ispf,  ispff 
real  aachv,  aachr,  fiachvr,  aachrr 

REAL  LIFTA,  LIFTVA,  LlFTRA,  lIFTAA,  lIFTAA 

coaaon  /ovna/ 

♦XX  TIAE  , S INGAA  COSGAA  OAEGA  ,0rtEGA2,R  ,G  ,SINA  , 

♦ COSA  DVNOll.OflEGAT  TAAP  ,PA  ,R0  ,CS  ,T£flPfl  ,PAR  , 

•ROR  csr  ,teaprr'parr  ,rorr  ,csrr  ,aode  ,aach  ,q 

♦QV  OR  , QV V Q VP  , QRR  ,FVAC  ,FVACV  ,FVACR  ,FVACrt  , 

♦ FVACT  ,FVACVV,FVACVR,FVACRR,FVACTT,T  , AACHV  , AAC»4R  ,ISP 

♦ ISPV  , I SPR  , I SPA  'ISPT  ISPVV  I SP Vfi  ;iSPVA  , I SP  VT  ,ISPRR  , 

♦ISPRA  , ISPRT  ;iSPAA  'ISPAT  'iSPTT  ,lIFT  ,LIFTV  ,LlFTR  ,LlFTA  , 

♦LlFTVV,LlFTVRfLlFTVA*LlFTRR*LlFTRA0RAG  ,oragv  ,dragr  .oraga  , 
♦dragvv,oragvr,oragva,oragrr,oragra,oragaa, alpha  ,phi  , lifta  , 

♦LIFTVA, LIFTRA, LIFTAA, LIFTAA  D0R  OBRR  GAAAAO, AE  ,TAX  , 

♦N  SI NPHI , COSPHIS INPSICOSPSI , $ INRHO, COSRHO, SlNROR, COSROR, 

♦ AUR  , XKG  ,XXP  AX  I N .COO  ,COOA  ,ClO  ,FX  ,XC6A  , 

♦XCGAfl  , 2CGA  , ZCGAA  ,XJV  ,XJR  ,XJVV  ,IJ*R  , X JRR  ,AACHVR, 

♦AACHRR, SIN2RO,COS2RO,COS26fl,CA  , CAA  ,CAA  ,CAAA  CAAA  , * 
♦CAAA  , CAO  ,CAOA  ,CAOAA  ,CAAAA  ,ULFTV  ,ULFTR  ,UlFTVV,ULFTVR, 

♦ULFTvA,ULFTRR,ULFTRA,IPOn  ,XARC  ,TSTART,6M  ,GBR  , lIFTAA, 
♦COOAA  , CL AAA  ,CLOA  ,CLOAA  ,DVNl*t9,CT  ,CDDA£  ,S1DAE  ,COD  , 

♦ SIO  ,OELTAE,COE  XCG  ,ZCG  ,XJ  ,XAC6  , CAlP HA  AlAAX  , 

♦OB  ,ULFT  ,CULFT  ,ULFTA  ,TSTAGE,TIAE$  ,XAC6AA,1RATE0,FRATED 

CONHON  /DVNA/ 

♦ ATT  ,J1  J2  , J 3 XACGA  ,Fv ACF  ,UlFTAA,15PF  , ISPFF  , 

♦ I LOAD  ,FXA  FXAA  , SNITCH  INQF  ,CL  ,ClA  ,Cl«  ,ClAA  , 

♦CLAA  CLAA  ,C0  ,COA  ,COA  ,COAA  ,COAA  ,CDAA  , DVN198, 

♦OVN199,OYN200,XACGV  XACGR  , XACGA  , XACG V V, XACGVfi, XACGVA, XAC6VA, 
♦XACGRR,XACGRA,XACGRA,XACGAA,XACGAA,RORRR  ,DYN2H,DYN215,0YN216, 
♦DYN217,IDAA  TAIRB  , TAI RBV, TAl RBH, TARBVV, TARBHM, TARBVH, SFC 
♦SFCV  ISFCH  . SFCVV  SFCHH  '$FCVH 

OlAENSlON  OVN(l) 

EQUIVALENCE  (OVN,  XX) 

DATA  XSTATF/6HST&TEF/ 

DATA  OEG/57. 2957795130023/ 

S INGAA  = SIN(GAA) 

COSGAA  c COS(GAA) 

C0S2GA  = (COSGAA  ♦ SINGAA  )•(  COSGAA  - SINGAA ) 

SINPSI  = SINtPSI  ) 

COSPSI  = COS(PSI) 

SINRHO  r SIN(RHO) 

COSRHO  = COS(RHO) 

SIN2R0  s SI NRHO*COSRHO 


STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

GLOBAL 

GLOBAL 

GLOBAL 

global 
GLOBAL 
ARCOAT 
, ARCOAT 
, ARCOAT 
, ARCOAT 
, ARCOAT 
, ARCOAT 
, ARCOAT 
ARCOAT 
ARCOAT 
ARCOAT 
D 
0 
0 
0 

JUL21 

0 

0 

0 

OVNA 
OVNA 
“OVNA  ' 

, OYNA 
OVNA 
OYNA 
DVNA 
OVNA 
JUL21 
DVNA 
OVNA 
OVNA 
OVNA 
DVNA 
OVNA 
OVNA 
DVNA 
DVNA 
DVNA 
OVNA 
OVNA 
OYNA 
OVNA 
OVNA 
DVNA 
OVNA 
OVNA 
OVNA 
DVNA 
DVNA 
DVNA 
DVNA 
DVNA 
JUL21 
AUG09 
STATEF 
STATEF 
STATEF 
STATEF 
STATEF 
JUL19B 
STATEF 
STATEF 
STATEF 
STATEF 
JUL19B 
STATEF 
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76. 

77. 

78. 

79. 

80. 
81 . 
§3: 

84. 

86. 

84. 

87. 

80. 

80. 

90. 

91 . 

92. 


SIN2R0 

♦ 51 NRHO  >*(  COSRHO  - SINRHO) 


SIN2R0  = SIN2R0  ♦ 

COS2RO  - (COSRHO 
R = ALT  ♦ ER 

GRAVITY  AND  ITS  PARTIAL*. 

6 = 6M/fl**2 

GH  ? -6/R 

GH  s SH  ♦ GH 

GRR  = -6H/R 

GRR  = GRR  ♦ GRR  4 GRR 

U £ 6R*M 

XX  = X ♦ 1.  - XARC 
TIME  = TSTART  ♦ XX*TAU 
TIMES  = TinE  - TSTAGE 

IS  THIS  FREE  FALL. 

I F € KOOE  .EO.  0)  RETURN 

NO.  COMPUTE  ATnOSPHERIC  AND/OR  THRUST  AFFECTS 
1F(  1 ATn  - 1 ) 101.  102,  103 

*62  STANDARD  ATMOSPHERE 


STATEF 

STATEF 

JUL21 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 


94.  101  call  ANL62S(  ALT  T AWP  RORRR  IOA«) 

95.  60  TO  1 Oh 

^ C *63  PATRICK  AFB  ATMOSPHERE 


STATEF 

STATEF 

STATEF 


101*— 1 102-!  103-i 


3 


104— » 


97  . 102  CALL  ANl63P(ALT.  TAMP,  RORRR  I DAH ) 

98.  GO  TO  104 

99.  C VACUUM.  CHECK  FOR  CG  TRACK. 


STATEF 

STATEF 

STATEF 


1 04—1 


100. 


102. 

103. 

104. 

10*  . 
10*. 
107. 
10«7. 
100. 
1 10. 
111. 
112. 
113. 
1 l-«  . 
11*  . 
11*. 
117. 
1 10. 
1 1«. 
120. 
121. 
122. 
123. 

1 2*4  . 
12*  . 
12*. 
12/  . 
120. 
120. 
1 30. 
1 31  . 
1 32. 
1 33. 
134  . 
I*  . 
13*  . 
13/  . 
130. 
1 30. 


1 4 1 , 
142. 

1*43. 
1*4*4  . 

l0>  . 
1*4*  . 
iHi  . 
1*40  . 


103  IFUAER 


2) 


108,  108.  107 

COMP.  MACH  AND  DYNAMIC  PRESSURE 


STATEF 

STATEF 


PRESSURE 


104  MACH  £ Y/CS 
FCTR  = V* V/2. 

--  ft*  =-FCTR*Rfl 

c IS  REFERENCE  AREA  POSITIVE 

I F ( SREF  .LE.  0.  ) GO  TO  108 

C YES.  COMPUTE  PARTIALS  OF  MACH  AND  DYN. 

MACHV  = l./CS 
MACHR  £ -MACH*MACHY*CSR 
MACH VR  £ MACHR/V 
MACHRR  = MACHR*CSR 

MACHRR  £ -MACHV*(  MACHRR  ♦ MACHRR  ♦ MACH*C5RR  ) 

QY  £ V*RO 
OR  £ FCTR*ROR 
Q V V £ RO 
0 VR  £ V*ROR 
QRR  £ FCTR*RORR 

C IS  THIS  BIVARIANT  AERO. 

IF( JAER  .EO.  21  GO  TO  106 

C NO.  UNIVARIANT.  COMPUTE  COEFFICIENTS  MEEOE0  FOR 

C LINEAR  AERO  MODEL. 

CALL  SPLlNE(MAEA,  MACH, 

CALL  SPlINE(MAEB,  

CALL  SPLINE! MAEC, 
call  SPLINE! MAED,  MACH' 

CLA  £ CLA*DE6 
CLAM  = CLAM*OEG 
CLAMM  £ ClAMM»DEG 

C IS  MOMENT  BALANCING  CALLED  FOR. 

IFIJAER  .EO.  I ) GO  TO  108 

C VES.  CHECK  TO  SEE  IF  OUST  SIMPLE  CG  TRACK 

I F( OREF  .LE.  0.  ) GO  TO  105 

C NO.  UNTRIM  AERO  OATA. 

C MOMENT  BALANCING 

CALL  SPlINE(MAEE,  MACH,  CMO,  CMOM,  CMOMM) 
call  SPLINE!  MAEF,  MACH,  CM  A CMAM,  CMAMM > 

CMA  £ cma*oeg 
CMAM  £ CMAM*OEG 
CMAMM  £ CMAMM*DEG 

C IS  THIS  POWERED  FLIGHT 


MACH, 

CLA, 

CLAM, 

CLAMM) 

MACH, 

CLO, 

CLOM, 

CLOMM) 

MACH. 

COO, 

CDOM, 

COOMM) 

MACH, 

FKM, 

FKMM) 

COMPUTE  COEFF.  NEEDED  FOR 


STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 


io?  — Ti  06—i 


108-H 


105 — | 


105  I F ( I POw  .EO.  0)  GO  TO  107 

YES.  COMPUTE  BLEND  FACTOR  AND  PARTIALS. 
10.  CALL  SPlINE( MAES . 0,  XJ,  XJQ,  XJflO) 

b 1FCXJ  .LT.  0.  .Oft.  I.  Lt.  XJ S CALL  ERRORt  XSTATF,  -1,  11 
XJV  = XJQ*QY 
X JR  £ XJQ'QR 

X J V Y £ XJ0*0VY  * X JQQ*QV*0 V 
XJYR  = X J0*0 VR  * X JOQ*OV*6R 


STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 


To 7= 


6 OCT  72  6.01-44 


199. 
1 150 . 


XJRR  - XJQ*QRR  4 XJQQ«QR«QR 

COMPUTE  C6  COORDS.  AND  THEIR  PARTIALS 


STATEF 

STATEF 


151  . 

152. 

153. 
159. 

I**  . 
1>*. 
. 

158. 

159. 

160. 
161  . 

U2. 
U3.‘ 
i+H  . 

-u 


10/  call  spline* nxcs,  y.  xcg,  xcgm,  xcgmmj 

CALL  SPLlNE*MZC6,  U , ZC6,  ZCGM,  2CGWU 

xcgm  s xcsn*6fl 
ZC&M  = ZC6M*6R 
XC&I9M  = XXGHM*6R»GR 
ZCGMM  = ZCGflM*GR*GR 

C IS  THIS  POWERED  FLIGHT 


STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 

STATEF 


108  1FUF0W  .EO.  0)  RETURN  STATEF 

C VES.  IS  VACUUM  THRUST  TABULAR.  STATEF 

C VES.  ARE  WE  POWERED  BV  Al RBREATHER  JUL21 

1FCJ1  .WE.  H ) GO  TO  1081  JUL21 

C AIRBREATHER.  COMPUTE  THRUST  AND  SPEC.  FUEL  CONSUMP.  AU609 

CALL  BLINE* V,  ALT,  TA1RB)  JUL21 

GO  TO  1062  JUL21 

C WOT  AIRBREATHER.  IS  VAC.  THRUST  TABULAR. JUL21 


1081—1 


1082-1 


166. 

167. 

1*0. 

1*0. 

WO. 

in. 

in. 

W3. 
If*  . 


1081  IF(  MTT  .LE.  0)  RETURN  JUL21 

IFCMTT  .LE.  0)  RETURN  STATEF 

C VES.  COMPUTE  NOMINAL,  I.E.  UNTHROTTlED,  VACUUM  STATEF 

C THRUST  STATEF 

CALL  SPLINE*  NTT,  TIMES,  FVAC.  FVACT,  FVACTT)  STATEF 

IF*  F VAC  ,LT.  0.)  CALL  ERROR* XSTATF,  -2,  1)  STATEF 

FVAC  = TMULT*FVAC  STATEF 

FVACT  = TMULT*FVACT*XX  STATEF 

FVACTT  - TMULT*F V ACTT*XX**2  STATEF 

C _____  COMPUTE  BASE  DRAG  IF  INPUT  . STATEF 


176. 

in. 

wo. 


1062  I FI  I POW  .EO.  2)  CALL  SPLlNECMDB,  ALT,  DB,  OBR,  DBRR ) 
RETURN-  - 
END 


JUL21 

STATEF 

STATEF 


6 OCT  72  G. 01-16 


ALT 

h 

I 

Altltatfe 

(FT  ) 

/D 

/( 

9*1)  OUTPUT  1 
STATEF  I 
WRAPUP  I 

ALT 

ALT 

alt 

coo 

CD0 

I 

Or  e g coefficient  at  • = 0 

/OVNA 

/( 

109  ) AEROCO  I 
STATEF  1 

coo 

coo 

COOH 

ac^/an 

I 

See  syabel 

/DVNA 

/( 

105  ) AEROCO  I 
STATEF  I 

COOH 

COOH 

COOHH 

a2cDQ/an2 

I 

See  syabol 

/DVNA 

/( 

1 95  ) AEROCO  I 
STATEF  I 

COOHH 

COOHH 

CLA 

C«-. 

H 

Lift  coefficient  slope 

( RAD' 1 ) 

/DVNA 

/( 

187  ) AEROCO  H 
STATEF  H 
UT  I 

CLA 

CLA 

CLA 

“ CLAH 

ac.  /an 

• 

H 

See  ayabol 

/DVNA 

/( 

191)  AEROCO'  H 
STATEF  H 
UT  l 

CLAH 

CLAH 

CLAH 

CLAIM 

a2 c,  /an2 

n 

See  syabol 

/DVNA 

/( 

196)  AEROCO  f 
STATEF  H 

CLAHH 

CLAHH 

CLO 

I 

Lift  coefficient  at  a = 0 

/OVNA 

/( 

106)  AEROCO  ( 
STATEF  I 

CLO 

CLO 

CLOH 

ac^/an 

I 

See  ayabel 

/DVNA 

/( 

197  ) AEROCO  J 
STATEF  I 

CLOH 

CLOH 

CLOHH 

d*cL0/dn2 

I 

See  syabel 

/DVNA 

/( 

198)  AEROCO  I 
STATEF  I 

CLOHH 

CLOHH 

* - * " CHA 

C-. 

H ' 

Hoaent  coefficient  slope  * 

' ( RAD* 1 ) 

/DVNA* 

/( 

123  7*  flOr.ECO  I 
STATEF  H 
UT  I 

CHA 

CHA 

CHA 

CHAN 

ac.  /an 

H 

See  syabol 

/OVNA 

/( 

127 ) HO HE CO  1 
STATEF  H 
UT  I 

CHAN 

CHAH 

CHAH 

CHAHH 

a*Cm  /an2 

n 

See  syabal 

/DVNA 

n 

131 ) HO HE CO  1 
STATEF  H 

CHAHH 

CHAHH 

CHO 

C*o 

I 

Hoaent  coefficient  at  a * 0. 

/DVNA 

n 

128)  HOHECO  I 
STATEF  I 

CHO 

CHO 

CHOH 

ac.  /an 

( 

Set  syafcel 

/DVNA 

/( 

129)  HOHECO  r 
STATEF  I 

CHOH 

CHOH 

CHOHH 

d2cm  /an2 

#0 

I 

Sot  syabol 

/OVNA 

/< 

130  ) HOHECO  I 
STATEF  I 

CHOHH 

CHOHH 

COSGAH 

COI) 

H 

See  ijaftal 

/DVNA 

/( 

9 ) AL1  1 

ALH  I 

COSGAH 

COSGAH 

AL7  1 COSGAH 
AL8  I COS6AH 
AL9  I COSGAH 
CONTRL  I COSGAH 
NLDRV  I COSGAH 
OUTPUT  I COSGAH 
POBCQL  I COSGAH 
STATEF  H COSGAH 

COSPSI  cos*  0 Sic  Iflkll  /OVNA  /(  95)  AL9  I COSPSI 

ALT  I COSPSI 
AL8  1 COSPSI 
AL9  I COSPSI 
CGMTRL  I COSPSI 
NLORV  I COSPSI 
POBCQL  I COSPSI 
STATEF  0 COSPSI 

COSRKO  cos O n Sic  ejabol  /OVNA  /<  97)  AL9  I COSRHO 

AL  7 I COSRHO 
AL8  I COSRHO 
AL9  I COSRHO 
CONTRL  I COSRHO 
NLDRV  I COSRHO 
OUTPUT  I COSRHO 
POBCOL  I COSRHO 
STATEF  H COSRHO 


6 OCT  72  6.01-99 


FORTRAN 

SYABOL 


DESCRIPTION 


yj2£i! 

BLOCK 


SUBROUTINE 
SUBfl  CODE 


C0S2GA 

co  t2> 

0 

See  tyabol 

/DYNA 

/( 

121  ) 

ALY 

I 

C0526A 

STATEF 

0 

C0S26A 

C0S2R0 

co  s2p 

0 

See  tyabol 

/DYNA 

/( 

120) 

AL* 

COS2RO 

AL7 

COS2RO 

ALB 

C0S2R0 

NLDRV 

C0S2R0 

STATEF 

0 

C0S2R0 

cs 

• 

I 

Speed  of  tognd 

(FT/SEC) 

/OYNA 

/( 

16) 

OUTPUT 

CS 

STATEF 

CS 

CSR 

a«/aR 

1 

Soo  tyabol 

/DYNA 

/< 

20) 

STATEF 

CSR 

CSRR 

d*»/9R* 

I 

See-  tyabol 

/DYNA 

/( 

2 4) 

STATEF 

CSRR 

DB 

D. 

1 

Boor  drag 

< LBS  ) 

/DYNA 

/( 

163) 

ALl 

OB 

b 

ALY 

DB 

AL6 

DB 

AL7 

DB 

ALB 

OB 

AL9 

DB 

apply 

OB 

CONTRL 

OB 

NLDRV 

DB 

OUTPUT 

DB 

STATEF 

DB 

TH3 

DB 

UT 

DB 

OBR 

dD^/dR - 

I 

Soo  tyabol 

/OYN$ 

/(  . 

86) 

ALl 

OBR 

” 

* 

al*t 

DBR 

AL6 

OBR 

AL7 

OBR 

alb 

OBR 

AL9 

DBR 

APPLY 

OBR 

STATEF 

DBR 

TH3 

DBR 

UT 

OBR 

OBRR 

d2Dfc/8R2 

I 

Soo  tyabol 

/DYNA 

/( 

87) 

ALA 

AL6 

OBRR 

DBRR 

AL7 

OBRR 

AL6 

DBRR 

.T* 

AL9 

DBRR 

apply 

OBRR 

STATEF 

OBRR 

TH3 

OBRR 

UT 

DBRR 

DREF 

D * 

I 

/ARC0AT/( 

37) 

STATEF 

DREF 

raf 

UT 

OREF 

ER 

E- 

I 

Eorik  radio*. 

(FT) 

/ GLOBAL/! 

2) 

ENVPRO 

ER 

R 

PDBCOL 

ER 

OLTOSZ 

ER 

STATEF 

ER 

FK 

k 

I 

Induced  drag  coefficient 

/DYNA 

/( 

107) 

AEROCO 

FA 

STATEF 

FA 

FAA 

dk/an 

I 

Soo  tyabol 

/DYNA 

/( 

182) 

AEROCO 

FAA 

STATEF 

FA  A 

FAAA 

d2k/dfl2 

1 

Soo  tyabol 

/DYNA 

/( 

183) 

AEROCO 

STATEF 

FAAA 

FKAA 

F VAC 

a 

Total  vacuus  tbrost  (rocket) 

(LBS) 

/OYNA 

/( 

33) 

APPLY 

F VAC 

ARON 

a 

F VAC 

IflPULS 

A 

F VAC 

NLDRV 

F V AC 

STATEF 

A 

F VAC 

TH2 

F VAC 

FVACT 

a 

Not  wood. 

/DYNA 

/( 

37) 

ARCIN 

FVACT 

STATEF 

A 

FVACT 

T M2 

FVACT 

6 OCT  72  6.01-NN 


FORTRAN 

SVflBOL 


MATH 

SVflBOL 


CODE 


DESCRIPTION 


FVACTT 

G 

GAR 

GH 

6« 

GR 

GRR 
I ATM 
I DAM 

I POM 

JAER 

Jl 


9 


7 


dg/dR 

GW 

9r 


d2g/dR* 


M 


fl 


I 


fl 


I 


I 


H 


I 


I 


I 


I 


I 


Net  used. 


Instantaneous  gravitational  acceleration  , 

(FT/SEC2) 


Relative  flight  path  angle. 


(RAD  > 


Sea  tyabol 


Product  of  Menton's  universal  gravitational  _ , 

constant  and  the  aass  of  the  earth.  ( FT9 /SEC2  ) 


Gravitational  acceleration  at  surf ace  .of  the  earth. 

(FT/SECM 


See  syabol 


Ataosphere  option  f| 


Optional  ataospherlc  calculations  flag. 

IDAfl  = -1:  Coaputa  d3#,/dft3; 

IDAfl  = 0:  No  optional  calculations; 

IDAfl  = 1:  Coaputa  G9##/dR  , dp,/d R,  etc. 

Ponered  flog. 

1POM  - 0:  No  thrust  and  no  base  drag 
I POM  s 1:  Thrust,  but  no  base  drag 
I POM  = 2 : Thrust  and  base  drag 

Aerodynaalc  aodel  option  flag 


Thrust  option  flog. 

Jl  = 1 : Constant  thrust; 

Jl  ~ 2:  Input  vacuua  thrust; 

Jl  = 3:  Ponered  total  acceleration  Halt; 
Jl  - 8:  Air-breather  engine. 


- STORAGE  SUBROUTINE  USA61 
BLOCK UJC  SUBR  CODE VAR 


/DVNA 

/( 

81  ) 

/OVNA 

/( 

6) 

/D 

/( 

82) 

/OVNA  /<  M2) 

/GLOBAL/I  A7 ) 

/ SlOBAL/(  1) 

/DVNA  /(  M3) 

/ ARCOAT/I  7) 
/OVNA  /(  218) 

/OVNA  /(  138  ) 

/ARC0AT/<  8) 

/OVNA  /<  173) 


ARCIN 

I 

FVACTT 

5TATEF 

fl 

FVACTT 

T M2 

I 

FVACTT 

AL8 

l 

6 

AL7 

I 

G 

AL8 

I 

G 

AL8 

I 

6 

CONTRL 

I 

G 

NLORV 

I 

G 

STATEF 

fl 

6 

ARCIN 

I 

GAfl 

ENVPRO 

I 

GAfl 

OUTPUT 

I 

GAfl 

STATEF 

I 

GAfl 

MR  AP  UP 

I 

GAfl 

AL7 

1 

GH 

AL8 

I 

GH 

nldrv 

I 

GH 

STATEF 

fl 

6M 

OUTPUT 

I 

Gfl 

PD8C0L 

I 

GR 

STATEF 

I 

Gfl 

AL5 

I 

GR 

APPLY 

I 

GR 

BRANPT 

I 

GR 

COSTAB 

I 

GR 

COST  AI 

I 

GR 

INTRPT 

I 

GR 

OUTPUT 

I 

GR 

POBCOL 

I 

GR 

OlTOSZ 

I 

GR 

salve 

I 

GR 

STATEF 

I 

GR 

TH3 

I 

GR 

ALT 

I 

GRR 

alb 

1 

GRR 

NLORV 

I 

GRR 

STATEF 

fl 

GRR 

ARCIN 

1 

1 ATfl 

NLORV 

I 

1 ATfl 

OUTPUT 

I 

I ATfl 

STATEF 

I 

I ATfl 

ARCIN 

0 

I DAM 

ERROR 

I 

I OAN 

NPLANE 

0 

IDAfl 

STATEF 

I 

IDAfl 

MKAPUP 

0 

IDAfl 

ARCIN 

fl 

1 POM 

FORCES 

1 

I POM 

NPLANE 

I 

I POM 

STATEF 

I 

I POM 

THROTL 

I 

I POM 

AEROCO 

I 

JAER 

ARCIN 

I 

JAER 

OUTPUT 

I 

JAER 

STATEF 

I 

JAER 

UT 

I 

JAER 

apply 

I 

Jl 

ARCIN 

0 

Jl 

CONTRL 

fl 

Jl 

FORCES 

I 

Jl 

NPLANE 

I 

Jl 

STATEF 

1 

Jl 

THROTL 

fl 

Jl 

6 OCT  72  6.01-88 


FORTRAN 

SYABOL 


MATH 

SVRBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK  LOC  SUBR  CODE  VAR 


KODE 

i 

Storing  victor  flea 

/DYNA  /( 

25  ) 

APPLY 

I 

KODE 

KOBE  = O:  Frit  fall,  • - d = 0, 

ARC1N 

0 

KODE 

KOOE  = 1:  Both  o md  # opttuel  ; 

contrl 

H 

KODE 

RODE  = 2:  a eptla«)  «nd  d = 0) 

FORCES 

1 

KOOE 

KOOE  s 3:  « nonoptinal  and  d optlnal; 

NLDRV 

I 

KODE 

KOOE  s «f;  Virtical  rise  or  pltchover; 
KODE  = 5:  o nonoptinal  and  d = 0. 

STATEF 

I 

KOOE 

a 

■ 

i 

Was# 

< 6*S  ) 

/o  /< 

9 7 ) 

AL9 

I 

A 

AL7 

I 

A 

AL8 

I 

A 

AL9 

I 

A 

APPLY 

I 

A 

8RANPT 

I 

A 

COSTAB 

l 

A 

COSTA! 

I 

A 

INTRPT 

I 

A 

NLORV 

I 

A 

OUTPUT 

I 

A 

SALVE 

I 

A 

STATEF 

J 

A 

WRAP  UP 

I 

A 

BACH 

PI 

H 

/DYNA  /( 

26) 

AEROCO 

I 

AACH 

ENVPRQ 

I 

AACH 

OUTPUT 

1 

AACH 

STATEF 

n 

AACH 

AACHfl 

an/d  r 

H 

S«e  synbel 

/DYNA  /( 

HH  ) 

STATEF 

H 

AACHR 

- 

. 

or 

I _ 

RAC  H|l 

AACHRR 

a2n/a«s 

n 

Sm  tynbol 

/DYNA  /( 

116) 

STATEF 

UT 

A 

I 

RACHRR 

RACHRR 

AACHV 

an/av 

H 

S«*  aynbo 1 

/DYNA  /( 

93) 

STATEF 

A 

AACH  V 

UT 

1 

RACHV 

AACHVR 

d2n/avan 

0 

Sn  tyikol 

/DYNA  /( 

117) 

STATEF 

UT 

Q 

I 

AACHVR 

RACHVR 

AAEA 

1 

Curv*  nunbir 

/ ARCOAT / < 

18) 

STATEF 

I 

AREA 

AAEB 

I 

/ Afi  CDAT/( 

19) 

STATEF 

I 

AAEB 

AAEC 

I 

Curve  nunbir 

/ ARCOAT / ( 

20) 

STATEF 

I 

AAEC 

AAEO 

I 

/ ARCDAT/( 

21  > 

STATEF 

I 

AAED 

AAEE 

1 

Curve  ngnbir 

/ ARCOAT/ ( 

22) 

STATEF 

I 

AAEE 

HAEF 

I 

/ARCDAT/( 

23) 

STATEF 

I 

RAEF 

HAEG 

2 

/ARC0AT/< 

2H> 

STATEF 

I 

RAEG 

HOB 

1 

/ARCOAT / ( 

31  ) 

ARCIN 

I 

AOB 

STATEF 

I 

ROB 

HTT 

I 

Table  nunbir  for  tabulitad  rocket  vicuus  thrust 

/DYNA  /( 

172) 

ARCIN 

A 

RTT 

STATEF 

I 

RTT 

HXC6 

I 

Carve  nunber  -icg  table 

/ARC0AT/< 

zn 

STATEF 

2 

AXCG 

HZC6 

I 

Curve  nunber-  xcp  table 

/ARC0AT/( 

28) 

STATEF 

l 

AZCG 

PSI 

* 

I 

(RAD) 

/D  /( 

93) 

OUTPUT 

l 

PSI 

STATEF 

I 

PSI 

URAPUP 

I 

PSI 

0 

H 

Oynenlc  pressure  ( 

LBS/FT2) 

/DYNA  /< 

27) 

ENVPRQ 

I 

Q 

OUTPUT 

I 

Q 

P0BC0L 

I 

0 

STATEF 

A 

Q 

UT 

1 

0 

OR 

aq/a  R 

H 

See  synbel 

/DYNA  /< 

29) 

POBCQL 

I 

QR 

STATEF 

A 

OR 

UT 

1 

OR 

QRR 

a2q/a«2 

n 

See  synbel 

/DYNA  /( 

32) 

STATEF 

UT 

A 

I 

QRR 

QRR 

ov 

aq/av 

H 

See  synbel 

/DYNA  /( 

28) 

PDBCOL 

I 

QV 

- 

STATEF 

A 

QV 

UT 

1 

OV 

6 OCT  12  G. Ol-NN 


1 


FORTRAN  HATH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 
BLOCK  LOC  SUBR  COOE  VAR 


0 VR 
Q V V 
R 


RHO 


RO 


ROR 


RORR 


RORRR 


SINGAft 


5INPS) 


SINRHO 


32q/3VdR 

d2q/3V2 

R 


P 


ap8/ae 


a2p  /aR2 

» 


d3pt/dfi3 
s i nr 


s I n* 


s I np 


ft 

ft 


I 


I 


1 


I 


I 


ft 


0 


ft 


See  eyaboi 

/DYNA 

/( 

31  ) STATEF 

ft 

Q VR 

UT 

I 

Q VR 

Set  syabot 

/OYNA 

/( 

30)  STATEF 

ft 

Q V V 

UT 

I 

Q V V 

Radial  distance  froa  earth  canter  to  vehicle 

/DYNA 

/( 

T)  AL9 

R 

(FT) 

AL7 

R 

ALS 

R 

AL9 

R 

CONTRL 

R 

ENVPRO 

R 

nldrv 

R 

POBCQL 

a 

OLTOS2 

R 

* 

STATEF 

ft 

R 

Latitude  (RAD) 

/D 

/( 

95  ) AL9 

RHO 

OUTPUT 

RHO 

STATEF 

RHO 

WRAPUP 

RHO 

Ataospharlc  density  (SL6S/FT^) 

/DYNA 

/( 

15)  AL7 

RO 

ALB 

RO 

AL9 

RO 

NLDRV 

RO 

OUTPUT 

RO 

PDBCQL 

RO 

STATEF 

RO 

Sea  syabol 

/DYNA_ 

/( 

19)  AL7 

ROR 

ALB' 

ROR 

AL9 

ROR 

NLDRV 

ROR 

PDBCOL 

ROR 

STATEF 

ROR 

Sea  syabol 

/DYNA 

/( 

23)  AL7 

RORR 

ALB 

RORR 

AL9 

RORR 

nldrv 

RORR 

STATEF 

RORR 

Sea  syabaT 

/OYNA 

/( 

213)  AL7 

RORRR 

AL8 

RORRR 

AL9 

RORRR 

STATEF 

RORRR 

Sea  lyalol 

/DYNA 

/( 

3)  ALl 

SINGAft 

AL9 

SINGAft 

AL7 

SINGAft 

ALB 

SINGAft 

AL9 

SINGAft 

CONTRL 

SINGAft 

NLDRV 

SINGAft 

PDBCQL 

SINGAft 

STATEF 

ft 

SINGAft 

/DYNA 

/( 

99 ) AL9 

SINP5I 

AL7 

5INPSI 

ALB 

S1NPSI 

AL9 

SINPSI 

CONTRL 

SINPSI 

NLDRV 

SINPSI 

POBCQL 

SINPSI 

STATEF 

0 

SINPSI 

Sea  « y aba  1 

/DYNA 

/( 

96)  ALA 

SINRHO 

AL7 

SINRHO 

ALB 

SINRHO 

AL9 

SINRHO 

CONTRL 

SINRHO 

NLDRV 

SINRHO 

OUTPUT 

SINRHO 

POBCQL 

SINRHO 

STATEF 

ft 

SINRHO 
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fortran 

SYRBOL 


SIN2R0 


SR  EF 


TAIRB 
T AMP 
TAU 

TINE 

TINES 

TRULT 

TSTA6E 

T ST ART 
V 


M 


MATH 

SYRBOL 


$ t nZp 


S 


ret 


7 


T 


»u  It 


V 


u 


code  DESCRIPTION 


ft  Sh  ayabol 


I Aerodynealc  reference  irn 


I Al r - bre ether  angina  thrust 
I At  no  spheric  tanparatura 
I Subarc  duration 

It  Trajectory  tloa 

ft  Elapsed  burning  tloa  of  present  rocket 

I Thrust  oultlpller  or  nuaber  of  engines 

I Trajectory  tine  et  nhteh  present  rocket 
I gnlted. 

I Trajectory  ttae  at  ahich  present  subarc 
I Relative  velocity. 


ft  Height 


STORAGE  SUBROUTINE  USAS! 
BLOCK LDC  SUBR  CODE VAR 


/DVNA 

/( 

119)  AL4* 

I 

SIN2RI 

AL7 

I 

S I N2R( 

ALB 

I 

SIN2RI 

NLDRV 

I 

S1N2RI 

STATEF 

fl 

SIN2RI 

(FT2) 

/ ARCDAT/( 

1 ) ARCIN 

! 

SREF 

BNDRV 

1 

ARCOA 

CHECK 

I 

ARCDA 

FETCH 

I 

ARCOA 

SALVE 

I 

ARCDA 

STATEF 

I 

SREF 

UT 

I 

SREF 

WRAPUP 

I 

ARCDA 

( LBS) 

/DVNA 

/( 

219)  STATEF 

I 

TAIRB 

TH9 

I 

TA1RB 

( OEfi-R  ) 

/DVNA 

/( 

13)  STATEF 

I 

T AftP 

(SEC) 

/D 

/( 

98)  ARCEN 

1 

TAU 

INARC 

ft 

TAU 

NLDRV 

I 

TAU 

OUTPUT 

I 

TAU 

STATEF 

I 

TAU 

(SEC) 

/DVNA 

/( 

2)  ENVPRfi 

I 

TIRE 

OUTPUT 

1 

TIME 

PDBCQL 

I 

TINE 

STATEF 

ft 

TIRE 

WRAP  UP 

I 

TIRE' 

ng  1 ne 

/OYNA 

/( 

168)  STATEF 

ft 

TIRES 

(SECS) 

/ ARCDAT/( 

V)  ARCIN 

I 

trult 

STATEF 

I 

trult 

e n g I nre 

/DVNA 

/< 

167)  ARCIN 

ft 

TSTA6E 

(SECS) 

STATEF 

I 

TSTA6E 

TRAJIN 

0 

TSTA6E 

coaaenced. 

/DVNA 

/( 

191  ) ARCEN 

ft 

T ST  ART 

ARCIN 

ft 

TSTART 

STATEF 

I 

TST  ART 

TRAJIN 

0 

TSTART 

(FT/SEC) 

/O 

/( 

91)  AL1 

I 

V 

ALH 

I 

V 

AL7 

I 

V 

AL0 

I 

V 

AL9 

I 

V 

BCOND 

I 

NOR 

BNDRV 

0 

NOR 

BRANPT 

ft 

NOR 

CONTRL 

I 

V 

ENDPT 

I 

NOR 

ENVPRQ 

I 

V 

FETCH 

0 

NOR 

INTERP 

It 

V 

INTRPT 

n 

NOR 

NLOfiV 

0 

NOR 

NLDRV 

V 

OUTPUT 

V 

POBCQL 

V 

STATEF 

V 

WRAPUP 

V 

(LBS) 

/DVNA 

/( 

91  ) ALS 

w 

ENVPRQ 

w 

OUTPUT 

W 

PDBCOL 

W 

OLTOSZ 

M 

STATEF 

ft 

u 

TH3 

i 

w 

6 OCT  72  6.01-AA 


I 

The  quasitins  variable. 

/D 

/( 

1 ) 

AL4 

I 

X 

BNOBY 

0 

X 

ERROR 

I 

X 

FETCH 

0 

X 

FORCES 

I 

X 

INARC 

ft 

X 

INTER? 

1 

X 

NADARS 

ft 

X 

RKUTT1 

ft 

X 

RKUTT2 

ft 

X 

SALVE 

ft 

X 

STATEF 

I 

X 

NR  AP  OP 

ft 

TT 

I 

Quasitiae  at  nhlch  present  subarc  connenccd. 

/OYNA 

/c 

HO.)  >RCIN 

0 

XARC 

STATEF 

I 

X ARC 

1 

Canter  of  gravity  body  t station 

(FT  ) 

/DVNA 

/( 

157  ) 

0L2 

1 

XCG 

STATEF 

I 

XCG 

UT 

1 

XCG 

ft 

See  synbol 

/DVNA 

/( 

106  ) 

0L2 

I 

XCGfl 

STATEF 

n 

XCGft 

UT 

I 

XCGfl 

ft 

/OYNA 

/( 

109  ) 

0L2 

I 

XCGft  ft 

STATEF 

n 

xcGftn 

UT 

r 

XCGft  ft 

I 

Control  blend  factor 

/OYNA 

/( 

159  ) 

ARC1N 

0 

XJ 

0L2 

i 

XJ 

^ - 

OUTPUT 

i 

If 

STATEF 

i 

XJ 

UT 

i 

XJ 

0 

See  synbol 

/OYNA 

/( 

113  ) 

DL2 

i 

X JR 

STATEF 

0 

XJR 

UT 

i 

X JR 

0 

/OYNA 

/( 

116  ) 

0L2 

i 

X JRR 

STATEF 

0 

X JRR 

UT 

1 

XJRR 

0 

See  synbol 

/OYNA 

/( 

112  ) 

DL2 

I 

XJV 

STATEF 

0 

XJY 

UT 

I 

XJV 

0 

See  synbol 

/DYNA 

/( 

115  ) 

0L2 

I 

XJ  VR 

STATEF 

0 

XJ  VR 

UT 

I 

XJ  VR 

0 

See  synbol 

/OYNA 

/( 

111  ) 

0L2 

I 

XJVV 

STATEF 

0 

XJV* 

UT 

I 

XJVV 

ft 

Fraction  of  subarc  that  has  transpired 

/OYNA 

/( 

1 ) 

ARCIN 

0 

XX 

ERROR 

I 

XX 

OUTPUT 

1 

XX 

STATEF 

ft 

XX 

I 

Center  of  gravity  body  i station 

( FT  ) 

/DVNA 

/( 

158  ) 

0L2 

I 

ZCG 

STATEF 

I 

ZCG 

UT 

1 

ZCG 

ft 

See  synbol 

/OYNA 

/( 

110  ) 

0L2 

I 

ZCGft 

STATEF 

ft 

ZC&ft 

UT 

I 

ZCGft 

ft 

See  synbol 

/OYNA 

/( 

111  ) 

DL2 

I 

ZCGftft 

STATEF 

ft 

ZCG  Aft 

UT 

I 

ZCGftft 
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SUBROUTINE 

THR0TL 


Purpose 

niROTL  determines  whether  the  rocket  thrust  should  be  throttled  in  order 
to  satisfy  a total  acceleration  limit. 


THROTl 


* 


SUBROUTINE  THROTL 

THIS  ROUTINE  DETERMINES  WHETHER  THE  THRUST  SHOULD 


BE  THROTTLED  IN 

ORDER  TO  SAT  1 

ISFY  A 

POWERED  ACCEL 

LIMIT. 

COMMON/ ARCDAT/ 

•SREF  .EJ 

,XISP 

,TAULT 

, QTNC 

yOTPl 

♦ I ATM 

,imooe 

y JAER 

. JPRO 

,OMAX 

,6MAX 

•XLMAX 

,HDMAX 

.GMOOT 

.alfmax 

PHMAX 

, MAEA 

• MAEB 

,MAEC 

, MAEO 

, MAEE 

. MAEF 

,maeg 

♦ AT 

>ISP 

,mxcg 

,MZC6 

nwoA 

, MWOB 

• MOB 

,XCSR 

,ZC6R 

,XE 

XT 

•DREF 

,MCND 

, Rhob 

, OMULT 

, REMAX 

, FRATE 

DIMENSION  ARCOA(HO) 

EOUI VALENCEt  SREF  ARCDA ) — • 

LOGICAL  SWITCH,  IlOAO 

REAL  MACH,  ISP . ISPY,  ISPR,  1SPM,  ISPT,  ISPVY,  ISPYR.  ISPVM, 
♦I5PYT,  ISPBR,  iSPRA,  ISPRT,  ISPmn,  1SPAT,  ISPTT,  LIFT , LIFT  V, 

•L JFTB  LIFTA,  LlFTVY,  LIFTER,  LIFT VA,  lJ^TBR,  lIfTRA,  MUR,  LlFTAA, 
*1  RATED.  ISPF,  ISPFF 
REAL  nACHY,  MACHR,  MACHVR,  NACHRR 
REAL  LIFTA,  LIFT  YM,  LIFTRA,  LlFTMM  LIFTmA 
COMMON  /OYNA/ 

•XX  .TIME  ,$IN6AA,CO$6AA, OMEGA  QMEGA2, R ,6  ,S1NA  , 

•COSA  'OYNGl  1 , OrtEGAT, TAflP  >A  >0  ,C$  * TEMPR  , PAR 

• ROR  CSR  . TEMPRR .PARR  RORR  ,CSRR  . XODE  , MACH  .0 

•OV  ,QR  ,OYY  ,QYR  QRR  ,FVAC  ,FVACY  .fVACR  ,FVACA  , 

• F VACT  'FVACYY,FYACYR,FYACRR,FYACTTfT  'MACHY  , MACHR  , ISP 

• ISPY  ISPR  ,15PM  .ISPT  ,ISPVV  , 1SPVR  1ISPYM  , I SP  tf  T ,I5PRR  , 

♦’I  SPRM  'ISPRT  ,ISPMA  . I SPrtT  . ISPTT  .LIFT  1LIFTY  , Li  FTR  LIFTA  f * 
•LlFTVV,LlFTYR,LlFTYA,LlFTRR,LtFTfiA0RAG  DRA6Y  ,ORASR  ,ORAGA  , 


• ORAGW.DRAGvR.DRAGtfA^RAGRR.ORAbRA.DRAGAA,  ALPHA  ,PHI  , LIFTA 

•LIFTVA, LIFTRA, LlFTMM, HFTMA,OBR  DBRR  GAMMAD , RE  ,TAX 

•U  5 INPHI  COSPMI , S 1 NPS I , COSPS I S I NRHO ' COSRHO ,$INROfl,COSROR 

•MUR  , XXG  ,XXP  , AX  IN  , COO  ,COOM  ,CLO  ,FX  , XCGA 

•XCGMM  , ZCGA  , zcgmm  ,xjy  ,xjr  ,xj yy  'xjyr  ,XJRR  MACHVR 

*AACHRR, $1N2RO,CO$2R0, CQS2GA,  CM  ,CMA  ,CAA  ,CAAA  ,Cpm« 

• CMAR  ,CMO  ,CMOfl  ,CMOMM  CflAtnfl  . ULFT  Y ,ULFTR  UlFT YY,  UlFTvR 

• ULFTVA^LFTRR.ULFTRA^POU  ,xarc  'tstart'gh  ,grr  ,liftaa 

•cdomm  ,clamm  ,clom  ,CLOnn  ,dynh9,ct  .cooae  ,sioae  ,coo 

Mf  t fk  ' ftp.  T AFr  rr»r  * r*  r»  w i * r*  Baja  a. 


•SID  'OElTAE.COE  , XC6  , ZCG  ,XJ  ,xmcg  ,CAlPHA,AlMAX 
*DB  #ulft  .culft  ,ulfta  tstage, times  ,xwcgaa, jaated,fbated 

COMMON  / OVNA/  ' 

•MTT  ,J1  , J2  ,J3  ,XACGA  ,FVACF  ,ULFTAA,ISPF  , ISPFF 

• koao  !fkm  ,fkmm  , SWITCH, INQP  CL  CLA  , CLM  ,claa 

•clam  .Clam  ,cd  ,coa  ,com  ,cdaa  comm  ,cdam  ,Dvwm 
•DYN199DYN200,  XMCGV  , XflCGR  ,XMCGfl  , XMCGYY ,XMCfiVA,  XMCG^M,  XMCGVA 
♦XMC6RR. XMCSRM, XflCGRA, XMCGflM  XflCGMA . RORRR  , DVN2I9, DVN2 15 , DVN21 6 
*0YN2  W, I OAM  TAIRB  , T A I RB V . TA I RBH, T ARB W , TAR0HH, T ARBVH, SFC 

•SFCV  . 5FCH  . SFCVV  , SFCHH  .SFCVH 
DIMENSION  PR0DK2,  6H  ) 

COMMON  /MATS/ 


THROTL 

THROTL 

THROTL 

THROTL 

THROTL 

THROTL 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCDAT 

ARCDAT* 

DYNA 

DYNA 

DYNA 

OVNA 

DYNA 

OVNA 

DYNA 

OVNA 

JUL21 

DYNA 

DYNA 

DYNA 

DYNA 

OVNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

DYNA 

OYNA 

DYNA 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA 

DYNA 

DYNA 

JUL21 

AU609 

MATS 

MATS 


• PI  ,P2  ,P3  , XX 1 XX2  , XX3  , XX  IT  ,XX2T  ,XX3T  f MATS 

• XX  ID  . XK2D  , XX3D  ,XX1A  ,XX2A  ,XK3A  YDA  , GOA  ,POX  . MATS 

•XM1 9 .XM20  . XM2 1 ,Xfl22  ,XXITT  , XX2TT  'XX3TT  .XX1TD  ,XX2TD  , MATS 

• XK3T0  XX  IT  A XX2T A ,XX3TA  .XX10D  , XK2D0  ,XX30D  ,XK1DA  ,XK20A  , MATS 

• XK3DA  XX 1 AA  . X X 2 AX  ,XX3AA  .XMil  ,XM92  ,XA<«3  . XM  HH  , XMi5  , MATS 

•XX 1Y  , XX2Y  , XX  3Y  XXtG  ,XX2G  . XX3G  ,XX1P  ,XX2P  ,XX3P  f MATS 

•XX 1R  XX2R  .XX3R  ,XX10  ,XX20  ,XK30  ,XX1U  ,XX2U  ,XX3U  , MATS 

•XXIM  XK2A  XX3M  ,XXIZ  ,XX2Z  ,XX3Z  ,XXJYT  ,XX2YT  .XX3YT  , MATS 

• XX 1 YD  XX2  YD  XX  3 YD  ,XX1YA  ,XK2VA  .XK3VA  XX 1 GT  #XK2GT  .XX3GT  , MATS 

•XKtGO  XX2G0  ' XX3G0  ,XK1GA  ,XK2GA  fXX3GA  ,XX1PT  ,XK2PT  ,XX3PT  , MATS 

• XX1P0  XK2P0  . XX3PD  .XK1PA  .XX2PA  #XX3PA  * XX 1 AT  ,XX2RT  XX3RT  , MATS 

• XX 1 RD  XX2RD  XX 3R0  ,XX1RA  ,XX2RA  #XX3BA  ,XX10T  ,XX20T  ,XX30T  , MATS 

•XX10D  !XX20D  XX30D  .XX10A  ,XX2 OA  ,XX30A  ^XlUT  *XX2UT  .XX3UT  . MATS 

•XX1UD  XK2UD  , XK3U0  ,XX1UA  ,XK2UA  ,XX3UA  XX 1MT  ,XK2MT  . XX3MT  MATS 

COMMON  /MATS/  MATS 

• XK1M0  XX2MD  XX3A0  , XX  IMA  XK2MA  XX3MA  .XX1ZT  ,XX2ZT  . XX3ZT  , MATS 

•XX 1 ZD  , XK220  XX3ZD  .XXIZA  ,XK2ZA  ,*X3ZA  XKIVY  XX2 V Y ,XX3YY  , MATS 

• XX 1G Y . XX2GV  f XX  33 V .XX1PV  ,XK2PV  XX  3P  Y 'XXIRY  ,XX2RY  XK3BV  , MATS 

• XX 10 Y , XX20Y  XX3QV  ,XX1UV  ,XX2UY  , XX 3UY  .XX1MV  ,XX2MV  KX3MV  , MATS 

•XX12Y  . XX2ZY  XK3ZY  .XX1GG  ,XX2G6  ,XX3GG  ,XX1PG  ,XX2PG  ,XX3P6  , MATS 

•XX1RG  . XK2RG  , XX3R6  #XX10G  ,XK20G  ,XX30G  ,XXluG  ,XX2U6  .XX3U6  . MATS 

• XX  IMG  XX2MG  t X X 3Mb  ,XX1ZG  ,XK2Z6  ,XX3ZG  ,XX1PP  ,XK2PP  ,XX3PP  , MATS 


3i 


♦XKlRP  ( XK2RP  t XK3RP  ,XK10P  ,XK20P  ,XK30P  ,XK1UP  ,X*2UP  ,XX3UP  , MTS 

♦XK1HP  XK2P1P  ,X.K3flP  ,XX1ZP  ,XK2ZP  ,XK3ZP  ,XK1RR  ,XK2Rfl  ,XK3RR  , MTS 

•XK 10R  XK20R  , XK30R  ,XK1UR  ,XX2UR  ,XK3UR  ,XKinR  ,XK2MR  ,XX3HR  , MTS 

*X*1ZR  X*2ZR  ,XK3Zft  ,1*100  ,X*200  ,XK300  ,XKIU0  ,XK2U0  ,X*3U0  _ MTS 

*XK1«0  XK2W0  ,XK3ltO  , XK 1 20  ,XK220  ,XK3Z0  ,XK1UU  ,X*2UU  ,X*3UU  , MTS 

•XK1HU  ,XK2ftU  ,XK3flU  .XK1ZU  ,XK2ZU  ,X«3ZU  ,XX1M  ,XK2M  ,XK3M  , MTS 

*XK  1 2n  X*2Zn  XK3ZO  ,X*1ZZ  ,XK2II  , X*3ZZ  ,X*PIU,X*P!2T,l*P13l'  MTS 

»XKPI12XKPI22,  XXP1 32, XKPI13,XKPI23,XKPI33,PA1  ,PA2  MTS 

COMON  /MTS/  MTS 

*0PDV<3,  6),  0EP0EV<2,  8 >,  OPOL(  3,  3),  PR0D5I 3,  6*0,  PR009I  2,  2^  > MTS 
COMON  /MTS/  HATS 

«P*  ,P&  ,PP  ,PR  ,P0  ,PVV  ,P0V  ,PPV  ,PRV  , MTS 

•P0V  PGS  ,PPS  , PRfi  ,POS  ,P  PP  >RP  ,POP  ,PRR  , MTS 

•POR  >00  , Ptfi  'PLP  MTS 

EQUIVALENCE!  PR031,PRGQ5  > MTS 

SWITCH  e -.FALSE.  THROTL 

IF(GMX  ,LE.  0 .OR.  IPOW  .EO.  0 .OR.  J1  .GT.  H)  RETURN  JUL21 

CALL  TM3000  THROTL 

IF( XR1  .LE.  0.)  RETURN  THROTL 

J1  = 3 THROTL 

SWITCH  = .TRUE.  THROTL 

RETURN  THROTL 

END  THROTL 


FORTRAN 

SYMBOL 


RATH 

SYMBOL 


COOE 


DESCRIPTION 


vs 

H 


-STORAGE 

Oc  * *'M 


'hms-w 


GHAX 

6-*.  1 

/ ARCDAT/< 

12) 

AL5 

I 

6 MAX 

HAM 

NP  LAME 

I 

6 HA  X 

throtl 

1 

GUAM 

TH3 

I 

GAAX 

IPOM 

I 

Ponorod  flag. 

/DYNA 

/( 

139  ) 

ARCIM 

H 

IPOM 

IPOM  s 0:  No  thrust  and  no  bast  drag 

FORCES 

I 

IPOM 

I POM  = 1:  Thrust,  but  no  bast  drag 

NPLANE 

I 

IPOM 

IPOM  = 2:  Thrust  and  bass  drag 

STATEF 

l 

IPOM 

THROTL 

I 

IPOM 

J1 

M 

Thrust  option  flag. 

/ DYNA 

/( 

173  ) 

APPLY 

I 

Jl 

J1  * ):  Constant  thrust; 

ARON 

0 

J1 

J 1 = 2:  Input  vscuua  thrust; 

CONTRL 

H 

Jl 

J1  = 3:  Ponorod  total  accalaratien  Malt; 

FORCES 

I 

Jl 

J1  = Hi  Air- br a atbor  angina. 

NPLANE 

I 

Jl 

STATEF 

I 

Jl 

THROTL 

n 

Jl 

SWITCH 

0 

Logical  flao  that  Is  truo  if  this  is  tha  cenputa 

/DYNA 

/( 

189  ) 

CONTRL 

I 

SWITCH 

point  at  ahfch  tha  poaarad  accaleration  constraint 

NPLANE 

1 

SWITCH 

THROTL 

0 

SWITCH 

XXI 

I 

First  antra  of  3 nord  la-plans  control  constraints 

/HATS 

/< 

H) 

ALGCON 

i 

XX 1 

X 

THROTL, 

i 

XX 1 

TH1 

0 

XX 1 

TH2 

0 

XXI 

TH3 

0 

XX 1 

TH9 

0 

XXI 

_ _ 

....  . 

- 

- 
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SUBROUTINE 

TH1 


Purpose 

Till  evaluates  the  constant  thrust  constraint 


J 


T - C»p  0 • 


TMI 


SUBROUTINE  TNI 


THIS  ROUTINE  APPLIES  WHEN  NET  THRUST  1$  A CONSTANT 


LOGICAL  SNITCH,  I LOAD 

REAL  MACH,  ISP,  I SP N,  ISPR,  ISPN,  ISPT,  ISPVV-  ISPVR,  ISPVM, 
•ISPVT,  I SPRR  ISPRM,  I SPRT  ISPMH,  ISPMT^  ISPTT,  LIFT,  LlFTV, 
•LlFTR,  LIFTA'  LIFT VV  LIFT VR  LlFTVA,  LIFTRR  LIFTRA,  MUR,  LlFTAA, 
•IAATE6,  ispf'  ISPFF 
REAL  MACHV,  MACHR,  MACHVR , MACHRR 
real  uftm,  liftvm,  LJFTRH,  LIFTMM,  LIFTMA 
COMMON  /DVfcA/ 

•XX  .TIME  . S I NGAM. COSGAM . 0ME6A  .0nESA2.fi  .6  .SlNA 


OMEGA  ,0MEGA2 

,R 

,s 

,SINA  , 

JUL2) 

PA  >0 

Ics 

,TEMPR 

, PAR 

OVNA 

ROAR  ,CSRR 

'XOOE 

MASH 

,8 

" 0 VNA 

ORR  FVAC 

'fvacv 

'fvacr 

, F V ACM  , 

OVNA 

F VACTT, T 

MACHV 

, MACHR 

; zsp  , 

DVNA 

ISPVV  I SP  VR 

, I SP VM 

ISPvT 

, I SPRR  , 

DVNA 

ISPTT  , LIFT 

'liftv 

* liftr 

, LIFTA  , 

OVNA 

LIFTRA, DRAG 

OR  AG  V 

OR  AGR 

, OR A6A  , 

DVNA 

•ora6vv,dragvr,drasvadragrr,oaasra,orasaa. alpha  phi  ,liftm 

• Ll FT VM, L 1 FIRM, L 1FTMM  LIFT MA,06R  , QBRR  ,SAMMAI)'aE  ,TAX 

•w  ,siMPHi,cosPHJ,siNPSi,cospsi,siwAHO,co5AH0,$iNROR,co5ROfi 

• MUR  , XK6  >XP  , AX  IN  ,C00  ,CDOM  ,CLO  , XCSM 

•XCSMM  ,ZCGH  'ZCGHM  ,XJV  ,XJR  ,XJVV  'iJVR  ,XJRR  MACHVR 

•MACHRR, SIN2R0,C0S2R0,C0S2GM, CM  , CMA  ,CMM  CMAA  ,CMMM 
•CMAM  , CMO  ,cmom  ,cmomm  .cmamm  ,ulftv  ,ULFTR  , ULFTW,UlFTVR 

•ULFTVA,ULFTRR  ULFTRA  IP0W  ,XARC  , TSTART.fiH  ,SRR  , LlFTAA 
•CDOMM  * CLAMM  'CLOM  ^CLOMH  ,DVNIm9,CT  !C0BA£  ' SI  DAE  ,COD 

•SIO  ,deltae'coe  , xcg  ,zcg  - ,xj*  ,xmcg  'calpha, AlMAX 

•ob  ,ulft  'culft  , ulfta  'tstage, times  'xmcgaa'irated,frateo 

COMMON  /DVNA/ 

•MTT  ,JI  ,J2  ,J3  , XMCGA  ,FVACF  ,UlFTAA,1SPF  , ISPFF 


•MTT  ,JI 
• I LOAD  , FXM 
•CLMM  ,CLAM 


' Fit  MM  .SWITCH.  INOF 


• CLMM  ,CLAM  ,C0  ,COA  ,COM  ,CDAA  ,COMM  ,COAH  , 0YN1 96 

• 0VN1 99,  DVN200,  XMCGV  XMCGR  ,XMCGM  , XMCSW,  XMCG  MR  XMC6VH,  XflCSVA 

• XMC6RR,  XMC6RM,  XMCGR  A,  XMCGMM,  XMCGMA,  RORRR  ,0VN2lH,  0VN215 , QVN2  1 6 

• 0VN2 17,1 OAM  T A 1 RB  , TAIRBV , TAI RBH, TARBVV,  TARBHH, TARBVH, SFC 

•SFCV  . SFCH  ^SFCVV  , SFCHH  ,SFCVH 

DIMENSION  PR06l( 2,  AH) 

COMMON  /HATS/ 

•PI  ,P2  ,P3  ,XX1  ,1X2  , XK3  , XXI T ,XX2T  ,XX3T 

•XX10  , XK20  XX  3D  , XX 1 A , XX2A  ,XK3A  , VOA  GDA  .PDA 


•XHI9  , XM20  ,XM21  , XM22  ,XKITT  ,XK2TT  ,XX3TT  .XK1T0  ,XX2TD  , 

• XX3TD  XXI TA  XX2TA  XX  3T  A .XXIOO  ,XX200  ,XX300  * XX 1 DA  ,XX20A  , 

•XK30A  , XX 1 AA  ,XK2AA  ,XX3AA  ,XMHl  ,XMh2  ,XHH3  ,XMHH  ,XMH5  , 
•XXIV  , XX2V  XK3V  , XX1G  ,XK2G  ,XK3G  ,XX)P  'XK2P  ,XK3P  , 

♦XJtlR  ,XX2fi  , XX3R  ,XX10  ,XX20  ,XX30  ,XXIU  ,XX2U  ,XX3U  , 

• XX LM  ,XX2M  X X 3M  ,XX1Z  ,XX2Z  ,XX3Z  ,XX1VT  '*X2VT  ,X*3VT  , 

•XK1VD  , XX2V0  XK3V0  ,XK1VA  ,XX2VA  ,XK3VA  ,XX)6T  XK2GT  ,XX3GT  , 

•XX1GD  , XK2G0  XX 360  .XXIGA  ,XX2GA  XK3GA  ,XX1PT  'XX2PT  ,XX3PT  , 

•IXIPO  , XX2PQ  , XX3P0  , XX1PA  XK2PA  XX3PA  ,XXlRT  * XK2RT  ,XX3RT  , 

•XX IRQ  , XK2R0  ,XX3RD  ,XX1RA  ,XX2RA  XX 3R A ,XXI0T  XK20T  ,XX30T  , 

•XXIOO  , XX200  XX 300  ,XX10A  XX20A  XX 30A  ,XXIUT  XK2UT  ,XX3UT  , 

•XK1U0  , XX2UD  , XX3U0  ,XX1UA  ,XK2UA  ,XK3UA  , XX 1MT  XK2MT  ,XK3MT 

COMMON  /MATS/  ' 

•XX1M0  , XX2M0  , XK3M0  ,XXIMA  ,XK2MA  XK3MA  ,XKIZT  XK2ZT  ,XX3ZT  , 

♦XXIZD  , XK2Z0  , XK3Z0  ,XK12A  #XX2ZA  XX 32 A ,XX1VV  ,XK2VV  ,XK3VV  , 

•XXIGV  XX2GV  XX3SV  ,XK1PV  ,XX2PV  ,XK3PV  ,XX)RV  XX2RV  ,XX3RV  , 

•XX10V  , XX20V  XX 30 V ,XX1UV  , XX2UV  XK3UV  ,XX1MV  XX2MV  ,XX3MV  , 

•XX 1 ZV  , XX2ZV  XX  3ZV  XX 1GG  ,XX2GG  ,XX3GG  ,XK1P6  ,XX2PG  ,XX3PG  , 

•XX1R6  , XX2RG  XX3RG  ,XXIOG  ,XX20G  ,XX30G  ,XXtUG  ,XK2UG  ,XX3UG  , 

• XX  IMG  , XX2MG  XX3M6  ,XX1ZG  ,XX2ZG  ,XX3Z6  ,XX1PP  ,XX2PP  ,XX3PP  , 

• XX 1 RP  XX2RP  XX3RP  ,XX10P  ,XK20P  XX 30P  ,XK1UP  ,XX2UP  ,XX3UP  , 

• XX  IMP  , XK2MP  XX  3MP  ,XX1ZP  ,XX2ZP  ,XX3ZP  ,XX1RR  ,XX2RR  ,XX3RR  , 

• XX10R  , XK20R  XX 30R  ,XX1UR  , XX2UR  ,XX3UR  ,XX1MR  XX 2MB  ,XX3MR  , 

•XX 1 ZR  , XK2ZR  XX3ZR  ,XX100  ,XX200  ,XX300  ,XX1U0  ,XX2U0  ,XX3U0  , 

•XXI MO  , XX2M0  XX3M0  ,XXlZO  ,XX2Z0  ,XX3Z0  ,XX1UU  ,XX2UU  ,XX3UU  , 

•XX1MU  ,XX2MU  , XX3MU  ,XX1ZU  , XX2Z0  ,XX3ZU  ,XX1MM  XK2MA  ,U3MM  , 

• XX 1 ZM  , XK2ZM  XX 3ZM  ,XX1ZZ  ,XX2ZZ  ,XX3ZZ  , XXP 1 1 1 , XXP 1 2 1 , XXP 1 3 1 , 
•XKPI12,XKPI22,XXPI32,XXPI13,XKPI23,XXPI33,PA1  P A2 

COMMON  /MATS/ 

•0P0V(3,  «>.  OEPOEVt  2,  8),  OPOU  3,  3),  PR0D5C  3,  6h>,  PR009t2,  29) 
COMMON  /MAts/ 
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74. 

77. 

78. 

79. 


• 0. 
61. 
62. 
83. 
8*  . 
Bp  . 
8». 
67. 
60. 


*pv  ,p$  ,pp  , pr 

♦ POY  , Pfi6  ,PP6  ,PR6 

*P0R  ,POO  .PLG  .PtP 

EOOI  VAUMCE(  PR001#PR005  ) 
C 

ENTRY  TH 1 002 
ENTRY  THJ001 
NO  KIT  = I. 

ENTRY  THIQQO 
50  XU  = T - CT 
C 

return 

END 


,P0  ,PYV  , PGY 

,POG  ,PPP  ,PRP 


,P  PV 
,POP 


PRW 

.PRR 


NAT  5 

NATS 

NATS 

NATS 

THl 

TH  l 

TNI 

THl 

THl 

THl 

THl 

THl 

THl 
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FORTRAN 

SYMBOL 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


CT 

CT 

I Vs  1 ua  for  thrust 

Is  usad. 

In  cist  constant  thrust  constraint 

(LBS) 

/DVNA 

/( 

150)  TH‘1 

I 

CT 

T 

T 

1 Thrust 

( LBS  ) 

/OYNA 

/( 

92)  AL6C0N 
All 

n 

l 

T 

T 

AL9  I T 
AL6  I T 
ALT  I T 
AL8  I T 
AL9  I T 
APPLY  I T 
ABCIN  O T 
CONTBL  N T 
DL2  _ I T 
IftPULS  1 T 
OUTPUT  I T 
TH1  I T 
TN2  I T 
TH3  I T 
TH9  I T 


in 

0 First  tntry 

of  3 nord  In-plana  control  constraints 

/NATS  /< 

9) 

algcon 

1 

XK1 

ft 

THR0TL 

I 

Xftl 

TH1 

0 

XK1 

TH2 

0 

Xftl 

TH3 

0 

Xftl 

TH9 

0 

Xftl 

Xft  IT 

K«" 

0 First  antry 
* par  1 1 a ! s 'of 

of  3t3  uatrls  containing  tha  axplldt 

/NATS  /< , 

_ 7 ) 

algcon 

1 

XX  IT 

ft  nlth  raspact  'to  m,  ftp 

TM1 
T M2 
TM3 

O' 

Q 

XK  IT 
XK  IT 
XftlT 

N 
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SUBR0UTINE 

TH2 


Purpose 

HI2  evaluates  the  un throttled  vacuum  thrust  constraint 
T " fVAC  + AEpa  " °, 

In  addition,  it  evaluates  the  explicit  first  and  second  partials  of  this 
constraint  with  respect  to  the  state  and  control  as  they  are  needed. 


TH2 


SUBROUTINE  THE  TH2 

TH2 

THTS  ROUTINE  APPLIES  WHEN  THRUST  IS  NOT  THROTTLED  TH2 

TH2 

TH2 

LOGICAL  SWITCH,  I LOAD  0 YNA 

REAL  AACH,  ISP , ISPV,  1SPR,  1SPA,  I SPT  ispvva  ispvr,  ispva,  oyma 

•ISP VT  ISPRR,  ISPRA,  ISPRT,  ISPAA,  ISPAT,  lSPTT^  LIFT,  LIFT  V,  DVNA 

• LIFTR  LIFTA,  LIFTVV,  LlFTVR,  LIFtVA,  LlFTRR,  lIFTRA,  HUfi,  LlFTAA,  OYNA 

•IRATE6,  ISPF,  ISP FF  DVNA 

REAL  aachv,  aachr,  aachvr,  AACHRR  OYNA 

REAL  LlFTA,  HFTVft,  LIFTRA,  LlFTAA,  LlMAA  OYNA 

• COAAON  /DVNA/  OYNA 

•X*  , TIAE  ,$J«GAA,C0S6AA,0A£GA  ,0«E6A2,R  ,6  ,SINA  , JUL21 

•COSA  'OYNOl I#OA£GAT,TAAP  ,PA  ,RO  ,CS  ^TEAPR  ,PAR  , OYNA 
♦ROR  , C5R  , TEAPRR, PARA  ,RORR  - rCSRR  , LODE  , WACH  ,0  ' , OYNA 

•ov  !or  ,ovv  ,ovr  ;qrr  FVAC  !fvacv  !fvacr  ,FV*CA  , DVNA 

•FVACT  FVACVV,FVACVR,FV’ACRR,FVACTT,T  ,AACMV  , AACHR  ,I5P  , DVNA 

• ISPV  , I SPR  ,I5PA  , 1 SPT  ,!SPVV  ,ISPVR  ,ISPVA  ,ISPVT  , ISPRR  , OYNA 

• ISPRA  , ISPRT  ,ISPAfl  , I SPAT  ,JSPTT  ,LIFT  ,LIFT¥  , LIFTR  ,LIFTA  , OVNA 

•LlFTVY, LlFTVR, LIFTVA, LIFTRR, LIFTRA, DRAG  ,DRAGV  ORAGR  , ORAGA  , DVNA 

•oragvv,oragvr,oragva,oragrr,oragra,dragaa'alpha  ,RHI  , LIFTA  , DVNA 

•LIFTVA, LlFTAA, LlFTAA, LlFTAA, OBR  DBRR  GAAAAO  AE  ,TAX  , DVNA 

♦M  ,SINPHI,C0SPHI,SINPSI ,COSP$I ,SINRH0,C0SRH0,SINR0R,C0SR0R,  OYNA 

•AUR  , XL6  ,XLP  ,AXIN  ,CDO  ,CDOA  ,CLO  ,FL  , XC6A  , OYNA 

•XCGAA  ZCGA  , ZCGAA  ,XJY  ,XJR  ,XJVV  ,XJVR  ,XJRR  , AACHYR , OYNA 

•AACHRR  SIN2RO,COS2RO,COS26A,C«  ,CAA  ,CAA  ,CAAA  ,CAAA  , OYNA 

•CAAA  CAO  ,CAOA  , CAO AA  , CAAAA  ,ULFTV  ,ULFTR  ,ULFTYV, ULFTYR,  OYNA 

• ULFTVA  ULFTRR,ULFTRA, IPOU  , XARC  TSTART  GH  GRR  , LlFTAA,  OYNA 

•COOAA  ,CLAAA  , CLOA  , CLOWA  , 0YN199, CT  ,COOAE  'SIOAE  ,COD  , OYNA 

• SIO  ,OELTAE,COE  ,XC6 — ,2CG  ,XJ  ,XACG  1 CALPHA, ALAAJf  , * OYNA 

•OB  , ULFT  ,CULFT  ,ULFTA  ,TSTAGE,TIAES  ,XACGAA,IRATEO,FRATED  OYNA 

COAAON  /DVNA/  DVNA 

•ATT  ,J1  , J2  ,J3  , XACGA  ,FVACF  ,ULFTAA,ISPF  ,ISPFF  , OVNA 

•ilOao  #fla  ,flaa  switch, inqf  ,cl  ,Cla  ,cla  ,claa  , ovna 

•claa  ,claa  ,co  ,cda  ,cda  ,coaa  ,cdaa  ,cdaa  ,oyni98,  ovna 

*DVW199,0YW2OO,XACGV  , XACGR  , XACGA  , XACGV V, XAC6VB, XACGVA, XACGVA,  DVNA 

• XACGRR, XACGRA, XACGR A, XACGAA, XACGAA,  RORRR  , 0VN2l9,DVN215,0YN216,  DVNA 

• 0VN2) / I OAA  T A I RB  , T Al RB V, TAI RBH, T ARB V V, TARBHH, TARB VH , SFC  , JUL21 

• SFCV  , SFCH  a SFC Y V ,SFCHH  ,SFCYH  AU609 

01 AENSION  PR06i<2,  69)  AATS 

COAAON  /AATS/  AATS 

• PI  ,P2  ,P3  , XK 1 ,XL2  , XL3  ,XL1T  ,XL2T  ,IK3T  , AAT5 

• XXIO  XK2D  , XL  3D  , XL  1 A ,XL2A  ,XL3A  ,VOA  , GOA  ,POA  , AATS 

•XAI9  , XA20  „XA21  , XA22  ,XL1TT  ,XL2TT  ,XL3TT  ,XLlTO  ,XL2T0  , AATS 

• XL3T0  XK 1 T A XL2TA  ,XK3TA  ,XL1DD  ,XL20D  ,XL300  ,XL10A  ,XK20A  , AATS 

• XL30A  XL  1 AA  , XL2AA  ,XK3AA  ,XA9l  ,XA92  ,XA«t3  ,XA99  ,XA95  , AATS 

• XLIV  , XL2 Y , XL  3 V ,XL1G  ,XL26  ,XL3G  ,XL1P  ,XL2P  ,XL3F  , AATS 

•XLIR  XL2R  , XL3R  ,XLtO  ,XL20  ,XL30  ,XLIU  ,XL2U  ,XK3U  , AATS 

•XL1A  , XL2A  XL3A  ,XLIZ  ,XL2Z  ,XL3Z  ,XL1VT  ,XL2YT  ,XL3YT  , AATS 

• XL1Y0  XL 2 VO  , XL3Y0  ,XL1YA  ,XL2YA  ,XL3YA  ,XLIGT  ,XL2GT  ,XL3GT  , AATS 

•XL1G0  , XL2GD  ,XL3G0  ,XL1GA  ,XK2GA  ,XL3GA  ,XL1PT  ,XL2PT  ,XK3PT  , AATS 

•XL1P0  , XL2PD  , XL3P0  ,XL1PA  ,XK2PA  ,XL3PA  ,XL1RT  ,XL2RT  ,XK3RT  , AATS 

•XL1RD  , XK2RD  ,XL3R0  ,XL1RA  ,XL2RA  ,XL3RA  ,XL10T  XL20T  ,XL30T  , AATS 

• XL10D  , XL 200  , XL300  ,XL10A  XK20A  ,XL30A  ,XL1UT  ,XL2UT  ,XK3UT  , AATS 

• XL  100  , XL2U0  , XL3U0  ,XL1UA  ,XL2UA  ,XL3UA  ,XL1HT  ,XL2AT  ,XL3AT  AATS 

COAAON  /AATS/  AATS 

•XL1A0  , XL2AD  , XL3A0  ,XK1AA  ,XK2AA  ,XL3AA  ,XL1ZT  ,XL2ZT  ,XL3ZT  , AATS 

•XL1ZD  XK2ZD  ,XK3ZD  ,XK1ZA  ,XL2ZA  ,XL3ZA  ,XL1YY  ,XL2YV  ,XX3VY  , AATS 

•XL16V  , XL2GV  ,XL3GY  ,XL1PY  ,XL2PY  ,XL3PY  ,XL1RY  ,XL2RY  ,XX3RV  , AATS 

• XL10Y  , XL20Y  , XK 30 Y ,XL1UV  ,XL2UY  ,XL3UV  ,XL1AY  ,XL2AV  ,XK3AV  , AATS 

•XLIZY  , XL2ZY  ,XL3ZV  ,XL1GG  ,XL2GG  ,XL3GG  ,XL1PG  ,XL2P6  ,XK3P6  , AATS 

ULIRG  XK2R6  ,XK3RG  ,XKlOG  ,XK20G  ,XL30&  ,XL1U6  ,XL2UG  ,XK3U6  , AATS 

• XL1AG  ,XL2AG  , X L 3 AG  ,XL1ZG  ,XL2ZG  ,XL3Z&  ,XL1PP  ,XL2PP  ,XK3PP  , AATS 

•XL1BP  XL2RP  , XL3RP  ,XL10P  ,XL20P  ,XL30P  ,XL1UP  ,XX2UP  ,XL3UP  , AATS 

• XL I AP  , XL2AP  , XL3AP  ,XK1ZP  ,XL2ZP  ,XL3ZP  ,XL1RR  ,XL2RR  ,XK3RR  , AATS 

•XL10R  XK20R  , XL30R  ,XK1UR  ,XL2UR  ,XL3UR  ,XK1AR  ,XL2AR  ,XL3AR  , AATS 

•XL1ZR  XL2ZR  ,XL3ZR  ,XLI00  ,XL200  ,XL300  ,XL1U0  ,XL2U0  ,XK3U0  , AATS 

• XL 1 AO  XL2A0  , XL3A0  ,XL1Z0  ,XL2Z0  ,XL3Z0  ,XL1UU  ,XL2UU  ,XK3UU  , AATS 

• XL  1 Ali  XL2AU  , XL3AU  ,XLIZU  ,XL2ZU  ,XL3ZU  ,XL1AA  ,XL2AA  ,XK3AA  , AATS 

• XL  1 ZA  XK2ZA  , XL3ZA  ,XLIZZ  ,XL2ZZ  ,XL3ZZ  , XLP 1 11 , XLP 1 2 1 , XKP I 3 1 , AATS 

• XLP 112, XLP 1 22, XLP 1 32, XLP 1 1 3, XLP 1 23,  XLP 1 33, PA1  ,PA2  AATS 

COAAON  /AATS/  AATS 

•OPOVt  3,  8 >,  OEPDEVI  2,  8),  DPOlC  3,  31,  PR005(  3,  69),  PR0D9(2,  29)  AATS 
COAAON  /AAtS/  AATS 


6 OCT  72  6.01-99 


76.  #PV  Pa  ,PP  .PR  ,P0  ,PW  ,PGV  ,PPV  ,99)1 

77.  #POV  ,PG6  .PPG  , PR6  ,POG  ,PPP  fPBP  fPOP  #PRB 

78.  *POR  >00  >L6  .PLP 

J9  EQUIVALENCES  PR0Ql,PRu051 


THIS  ENTRY  COUP.  2ND  PARTS.  N/RESP.  TO  STATE 

ENTRY  TH2020 
XX1RR  = AE*PARR 
XX1ZZ  s -FVACTT 

THESE  ENTRIES  COUP.  1ST  PARTS.  W/RESP.  TO  STATE 

ENTRY  TH2011 


87. 
8fl . 
89. 


ENTRY  TH2010 
XX 1R  £ AE*PAR 
XX  1 Z = -FYACT 

THESE  ENTRIES  COUP  . 


1ST  PARTS.  N/RESP.  TO  CONTROL. 


TW  . 

91 . 

92. 

93. 
9m  . 
9*. 
9*. 

97. 

98. 

99. 


ENTRY  TH2002 
ENTRY  TH2001 
*10  XX IT  = 1. 

C T HIS  ENTRY  CO«P.  THE  CONSTRAINING  ED.  ONLY 

ENTRY  TH2000 

SO  XXI  = T - F VAC  ♦ AE*PA 
C 

RETURN 

END 
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FORTRAN 
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NATH 

SYNBOL 


CODE 


DESCRIPTION 


mmi— 

BLOCH  LOt 


SUBROUTINE  JjSASfl 

"TiJ PITOTW 


AE 

A | 

1 

Total  Moult  tilt  trtt  (FT2) 

/ OYNA 

/< 

89) 

APPLY 

I 

AE 

• ilt 

ARCIN 

0 

AE 

INPULS 

I 

AE 

NLORV 

I 

AE 

TH2 

I 

AE 

F VAC 

I 

Total  vacuus  thrust  (rockat)  (LBS) 

/DYNA 

/< 

33) 

APPLY 

I 

F VAC 

ARCIN 

N 

F VAC 

IrtPULS 

N 

F VAC 

NLDRV 

I 

F V AC 

STATEF 

N 

F VAC 

TH2 

I 

F VAC 

FVACT 

1 

Not  usti. 

/DYNA 

/( 

37) 

ARCIN 

1 

FVACT 

STATEF 

N 

FVACT 

' 

TH2 

I 

FVACT 

FVACTT 

I 

Not  uatA. 

/DYNA 

/( 

91  ) 

ARCIN 

I 

FVACTT 

STATEF 

N 

FVACTT 

TH2 

I 

FVACTT 

PA 

I 

Ataosphtrlc  prtsturt  (LBS/FT2) 

/OVNA 

/( 

19) 

INPULS 

I 

PA 

A 

NLORV 

I 

PA 

OUTPUT 

I 

PA 

TH2 

I 

PA 

PAR 

dP  /dR 

I 

Sot  tyahal 

/DYNA 

/< 

18) 

APPLY 

I 

PAR 

TH2 

I 

PAR 

PARR 

a*Pt/aR2 

I 

Sat  synhol 

/OYNA 

/< 

22) 

apply 

TH2 

I 

I 

PARR 

PARR 

T 

T 

I 

Thrust  * - ( LBS  1 

/dyNa 

/( 

* 92  ) 

algcon 

N * 

r 

AL1 

I 

T 

AL9 

I 

T 

ALt 

I 

T 

ALT 

I 

T 

AL8 

I 

T 

• 

AL9 

I 

T 

apply 

1 

T 

ARCIN 

0 

T 

CONTRL 

N 

T 

DL2 

I 

T 

INPULS 

I 

T 

OUTPUT 

1 

T 

* 

TH1 

I 

T 

TH2 

,1 

T 

TH3 

T 

TH9 

I 

T 

XXI 

0 

First  tntry  of  3 nortf  la-plana  control  constraints 

/NATS 

/< 

,9) 

ALGCON 

I 

XX  1 

X 

throtl 

I 

XX 1 

TH1 

0 

XX 1 

TH2 

0 

XX 1 

TH3 

0 

XX  1 

TH9 

0 

xxi 

XKIRR 

will 

0 

Ths  first  tntry  In  a 3*5  aatrli  containing  X-fc 

/NATS 

/< 

205) 

TH2 

0 

XK1RR 

Rhh 

* * yn 

TH3 

N 

XK1RR 

TH9 

0 

XK1RR 

XX 1 T 

K(l) 

0 

First  tntry  of  3s3  natrti  containing  tht  aspllclt 

/NATS 

/< 

7) 

ALGCON 

I 

XK1T 

*t 

partlais  of  X nlth  rtspact  to  m,  X 

TH1 

0 

XX  IT 

TH2 

0 

XX  IT 

T M3 

A 

XX  IT 

XK1ZZ 

arCII 

0 

Tht  first  tntry  In  a 3il  aatrli  containing  X r 

/NATS 

/( 

297  ) 

TH2 

0 

XK1ZZ 

?v 
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SUBR0UTINF 

TH3 


Purpose 

T113  evaluates  the  powered  total  acceleration  constraint 


(Tcos(a-5j:)  - Dgcosa-D)2  ♦ (Tsin(a-6g)  - Ljjsina+L)2 

‘ - Umax") 2 ■ 0 

In  addition,  it  computes  the  explicit  first  and  second  partials  of  this 
constraint  with  respect  to  the  state  and  control  as  they  are  needed. 


SUBROUTINE  TM3 


THIS  ROUTINE  APPLIES  WHEN  THRUST  15  THROTTLED 


CORRON/GLOBAL/ 

• GR  . ER  -ORG 2 . XLArtRF  YrtURF  ,LUR  .TO  . EPSlON  I NNER  . 

• mnAX.  JJOPlb)  .ifatal.narc  .NBRAN  .NFARC  .10(9)  ,xmt20), 

• I TAB( 20).  SIG.RAXTAB.GR.PSIhF  , IPFlGI . IPFL62, IPFL63. IPFLGh, 

• INEQFK 26 ) Ttpso,  xsol'  inark,xglobl(7> 

COnnON/ ARCOAT/ 


• SREF 

,XISP 

, TrtULT 

, OTNC 

, DTP  I 

♦ IAT« 

. IflODE 

,JAER 

. JPRO 

, OWAX 

. GHAX 

•XL«AX 

, HDRAX 

.SHOOT 

AlFHAX 

PHHAX 

. HAEA 

• HAEB 

,waec 

.nAEO 

,haee 

>A£F 

.PIAE6 

•nT 

>ISP 

,HXCG 

.nzcG 

. nwDA 

. .nwoo 

•«0B 

. XCGR 

. ZC6R 

,XE 

, ZE 

'.XT 

• OREF 

. nCND 

.RHOB 

.OHULT 

REHAX 

.frate 

EQUIYALENCEISBEF.ABCDA) 

logical  switch,  Iloao 

REAL  flACH.  ISP  ISP¥.  I$PR, 

• isp¥T,  isprr,  Ispra,  isprt. 


ISPR,  ISPT,  ISP¥¥,  ISPVR, 
ISPRR,  ISPRT,  ISPTT.  LIFT 


•LIFTR.  LIFTA.  LlFT¥¥.  Li  FT¥R . LlftvA,  tl^TRR,  lIfTRA,  RUR.  lIfTAA, 

•irated,  ispf,  ispff 

REAL  AACH¥.  RACHR  RACHVR . RACHRR 

REAL  LIFTR,  LlFT¥fl,  LlFTRft,  LIFTRR.  LIFTRA 

connoN  /oy6a/ 

• XX  T 1 nE  . SlNGAfl, COSGAR.  ORE  6 A ,Gfl£GA2,R  ,6  ,$INA  , 

•COSA  0 YNO 1 1 , ORE GAT . TAnP  ,PA  ,RO  ,CS  .TERPR  .PAR 

• ROR  ,CSR  . TErtPRR , RARR  RORR  ,C5*B>  .XODE  ,RACH_.fl 

• OV  . OR  ,Q¥¥  , 0 VR  Qflfi  .FVAC  ,F¥AC¥  'FVACR  .FvACR  . 

*F¥ACT  . F¥AC¥¥. F ¥AC¥R, F V ACRR. F YACTT. T . RACH¥  , RACHR  _ I SP 

*ISP¥  . ISPR  .ISPfl  .ISPT  . I SP  V ¥ ,ISP¥R  ,ISP¥A  ,ISP¥T  , ISPRR  # 

•1 SPUR  . ISPRT  .ISPRA  .ISPRT  I SPTT  .LIFT  ,L1FT¥  LIFTR  LIFTA  # 

*LIFT¥¥LIFT¥R,LIFTVAlIFTRR,LIFTRADRAG  , OR AG Y ORAGR  DR AGA  # 
*dragy¥,drag¥R,oragva,dragrr,dragra,dragaa, alpha  phi  .liftr  . 

•L I FT¥A. Li FTRR, LIFTRR, LIFTRA  OBR  DBRR  GARRA0  AE  .TAX 
*U  ,S1NPHI,COSPHI,SINP$ICOSPSI.S1NRHOCOSRHOSINROR, CQSROR, 

•rtUR  ,XX6  ,XXP  ,a*in  .coo  ,cdor  ,Clo  ,fx  xcgr  , 

•xcgrr  ,zcgr  ,zc6ra  ,xj¥  ,xjr  ,xj¥¥  ,xj¥R  ,xjrr  ,rach¥R, 

*«ACMRR#SlN2RO,COS2fiO,COS2Grt#CH  ,CRA  .CAR  . CAAA  ,CWW  , 

•CRAR  ,CRO  . CflOR  .CRORR  ,CRA  RR  .ULFTY  .ULFTR  ,ULFT¥¥,UlFT¥R, 

•ULFT¥A,ULFTRR,ULFTRA,IP0W  ,XARC  ,T$TART.6M  ,6RR  .LIFTAA, 

•coora  , cl  arr  ,clqr  ,clorr  ,dyni99,ct  ,cooae  ,sioae  ,coo 
•SID  DELTAS, COE  , XCG  ,ZCG  ,XJ  .XACG  . calpha, Al«AX  , 

•OB  ,ULFT  ,CULFT  .ULFTA  .TSTAGE, TIRES  , XRCGAA  IRATED. FRATED 

CORRON  /OYWA/ 

•NTT  ,Jl  ,JZ  , J3  , XflCGA  ,F¥ACF  .ULFTAA.ISPF  .ISPFF  , 
•ILOAO  ,F KR  , FKRR  .SWITCH, INOF  ,Cl  , CLA  ,CLH  ,CLAA  , 

•clrr  ,Clar  ,co  ,coa  .con  ,coaa  .conn  ,coah  ,dyni9b, 

•0YN1990YN200. XnCG V . XnCGR  , XRC6R  . XttCGYY, XftCGVR. XRC6¥R. XRCGVA 
•XnCGRR, XWCGRn, XnCGRA, XflC6flft, XftCGftA  RORRR  0YN21H .DYN215 . 0YH216, 

• 0YN21 7, I OAH  T A I RB  TAI RB¥. TAI RBH  TARBV ¥, TARBHH  TARBVH.SFC 

•SFC¥  . SFCH  .SFC¥¥  . SFCHH  ,SFC¥H 

OinENSION  PR06i(2,  69) 
connon  /FIATS/ 


•NTT  ,Jl  ,J2 
•ILOAO  .FKft  .FXn« 
•CLflfl  ,Clah  ,cd 
•0YN1990VN200. XnCG V 


• PI 

,P3 

,XX1 

,XX2 

,XK1 

. XX 1 T 

, XX2T 

,XX3T  , 

RATS 

• XK10 

, XK20 

. XX 30 

,xxia 

,XX2A 

. XR3A 

. ¥DA 

.GOA 

#P0A  , 

RATS 

*xni9 

. XA20 

, xn2 1 

,XH22 

XX 1 TT 

XX2TT  XK3TT 

. XX 1 TO 

. XX2TD  , 

RATS 

•XK3TD 

. XX 1 T A XX2TA 

. XX3TA 

. XX 1 00 

,1X200  , XK30D 

.XK10A 

. XX2DA  . 

RATS 

•XK30A 

. XXI AA  . XK2AA 

. XX3AA 

,XHH1 

,X«92 

. XA93 

,X«H9 

. XH9S  . 

RATS 

• XK1¥ 

,XX2¥ 

. XX3¥ 

, XX 16 

. XX26 

. XX3G 

,xxip 

. XK2P 

xx3p  ; 

RATS 

• XX  1 R 

. XX2R 

. XX3R 

,XX10 

. XX20 

. XX  30 

. XX 1 u 

, XX2U 

. XK3U  , 

RATS 

• xxin 

, xx2n 

.xxjn 

. XX  1 z 

,XX2Z 

. XK3Z 

. XX 1 ¥T 

,XX2¥T 

XK3VT  , 

RATS 

•XX 1 ¥0 

, XX2Y0 

. XX3V0 

, XX 1 ¥A 

, XX2VA 

, XX  3¥A 

XX 1GT 

XX26T 

.XX36T  , 

RATS 

•XK1G0 

. XX2G0 

. XX3G0 

. XX  IGA 

XX2GA 

, XK3GA 

, XX  IP  T 

XX2PT 

.XX3PT  , 

RATS 

•XK1P0 

. XX2P0 

, XX3P0 

, XX  1 PA 

. XX2P A 

XX3PA  XX 1RT 

.XX2RT 

. XX3RT  , 

RATS 

•XK1R0 

. XK2R0  . XK3R0 

XX  IRA 

. XK2RA 

XX 3RA  .XX10T 

;XX20T 

.XX30T  , 

RATS 

•XX 100 

. XK200  . XX 300 

.XK10A 

XK20A 

, XX 30 A , XX 1 UT 

.XX2UT 

XX3UT  J 

RATS 

•XX1UD 

COflflON 

. XK2UD  . XX3U0 
/WATS/ 

. XX lUA 

.XK2UA 

. XX3UA 

. xxinT 

.XX2HT 

.U3HT 

RATS 

RATS 

•xxino 

. XK2H0  . XK3nO 

.XKinA 

. XX2HA 

.XX3HA  , XX 1 ZT 

XX2ZT 

. XX3ZT  . 

RATS 

•XX1Z0 

. XX2Z0  . XK3Z0 

. XX 1ZA 

, XK2ZA 

XX3ZA 

XX 1 ¥¥ 

XX2¥  ¥ 

,XX3¥¥  , 

RATS 

•XX1GY 

,XK2G¥  . XX 3G¥ 

, XX 1 P ¥ 

.XX2PV 

, XX  3P  ¥ 

. XX 1 R¥ 

XK2RV 

XK3R¥  , 

RATS 
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76. 

77. 

78. 

19. 

19: 

62. 

83. 
8** , 
8*  . 
e» . 

87. 

86. 


96. 

92. 


9*  . 
95  . 
9*. 
97  . 


C 

c 


100. 
101. 
102. 
103. 
lOi  . 
1C*  . 
10*. 
10/  . 
10*. 
10*. 
110. 
111. 
112. 
113. 
1 1*  . 
1 1»  . 
1 1*  . 
1 1/  . 
11*. 
11*. 
120. 
121. 
1 a a.. 


• c 


123. 

m. 


125. 

126. 

127. 
12*. 
12*. 
1 30. 

131. 

132. 

133. 
1 **  . 
13*. 
13*  . 
13#  . 
13*. 
1 3*. 
WO. 
!•<  I . 
N2. 
NJ. 
liH  . 

w> . 
w* . 
w# . 
w*. 

Wv. 


+XK 1 OV 

,XX20Y 

, XK30V 

XK1UV 

XK2UY  ,XX3UV 

XXI NV 

, XK2NV 

. XK3NY 

NATS 

•XX1ZV 

,XX2ZV 

XX  3Z  V 

XK1GG 

XX2GG  , XX 3G6 

XX  IPG 

,XX2PG 

XX  3PG 

NATS 

•XK1R6 

, XX2RG 

, XX3RG 

XX10G 

XK206  , XX 30G 

XX 1 UG 

, XK2UG 

, XX3UG 

NATS 

•XX1NG 

, XX2N6 

XK3N6 

XX  1 26 

XX2Z6  ,XX3ZG 

,XXIPP 

, XX2PP 

. XX3PP 

NATS 

* XX 1 RP 

, XX2RP 

XX3RP 

XX10P 

XX20P  ,XX30P 

. XX1UP 

, XX2UP 

XK3UP 

NATS 

♦XAlrtP 

,XK2fi\p 

,XK3NP 

XX1ZP 

XX2ZP  ,XX3 ZP 

XX  1 RR 

, XX2RR 

XK3RR 

NATS 

* XK10R 

, XX20R 

, XX30R 

XX  1 UR 

XX2UR  t XX 3UR 

XX  1NR 

, xx2nfl 

. XX3NR 

NATS 

•kKIZR 

,XX2ZR 

, XX  3ZR 

XX100 

XX 200  , XX 300 

, XK 1 UO 

, XX2U0 

. XX3U0 

NATS 

•xxino 

,XX2flO 

t XK  3N0 

XX1Z0 

XK2Z0  , XX  3Z0 

#xxiuu 

f XK2UU 

. XK3UU 

NATS 

• XK1PIU 

,XX2NU 

, XK3NU 

XX1ZU 

XX2ZU  # XX 3ZU 

XX  INN 

, XX2NN 

, XX  3NN 

NATS 

♦XX1ZN 

,xx2zm 

XX  32N 

XX12Z 

XK2ZZ  , XK3ZZ 

.XXP111 

,ximi 

XXP 131 

NATS 

* XKP  I 12 

, XXP I 22 

,XXP!32, 

XKPI13, 

XKPI23.XXPI33.PA1 

,PA2 

NATS 

COflflON 

/NATS/ 

NATS 

•OPDYl  3 

.8).  OEPOEYt  2 

8).  0PDU3.  3).  PR0D5<3.  69).  PR0D9<2.  29) 

NATS 

CONNON 

/NATS/ 

NATS 

*P  V 

. PG 

,PP 

PR 

PO  ,PVY 

,P6V 

,PPV 

.PRY 

9 

NATS' 

• POV 

.P6G 

.PPG 

PRG 

P06  ,PPP 

,PRP 

,POP 

,PRR 

t 

NATS 

*POR  .POO  . PL6  .PUP 

EQUIVALENCE! PftOOl.PRfiOS  ) 

NATS 

NATS 

ASF< X, 

V)  s T1«X  ♦ T2»V 

TH3 

TH3 

THIS  ENTRY  CONP . 2ND  PARTS. 

N/RESP. 

TO  STATE 

TH3 

ENTRY 

TH3020 

TH3 

ASSIGN 

6 TO  160 

TH3 

60  TO 

9 

TH3 

THIS  ENTRY  CONP.  NIXEO  PARTS .N/RESP .TO  STATE  AN0 

TH3 

COSTATE. 

TH3 

ENTRY 

TH3011 

TH3 

ASSIGN 

10  TO 

I GO 

TH3 

60  TO 

9 

TH3 

THIS  ENTRY  CONP.  1ST  PARTS. 

U/RESP. 

TO  STATE 

~ 

TH3 

9— n 


ENTRY  TH3010 
ASSIGN  20  TO  160 
60  TO  9 

THIS  ENTRY  CONP.  2ND  PARTS .N/RESP .TO  CONTROL 

ENTRY  TH3002 
ASSIGN  30  TO  160 
60  TO  5 

THIS  ENTRY  COUP  1ST  PARTS . W/RESP  . TO  CONTROL 

ENTRY  TH3001 
ASSIGN  90  TO  160 
60  TO  $ 

THIS  ENTRV  EYAL.  THE  CONSTRAINING  EO.  ONLY 

ENTRY  TH3000 
ASSIGN  50  TO  160 
60  TO  5 


9 T5  = -DRAGS  - 0&R+C05A 
T6  = LIFTR  - D6R* S INA 


TH3 

TH3 

TH3 

TH3 

TH3 

TH3 

TH3 

TH3 

TH3 

TH3 

TH3 

TH3 

TH3 

TH3 

TH3 

TH3 


TH3 

TH3 


5 


6 


10 


TCDAE  = T*CODAE 

TH3 

TSOAE  s T»SIOAE 

TH3 

OBCA  s DB*CQSA 

TH3 

DBSA  = OB*SINA 

TH3 

ll  = -TSOAE  ♦ DBSA 

TH3 

VY  = -TCDAE  ♦ DBCA 

TM3 

T 1 = -VY  - DRAG 

1M3 

T2  = LIFT  - ll 

TH3 

T3  = ll  - DRA6A 

TM3 

T9  = LIFTA  - VY 

TH3 

60  TO  160 

TH3 

1H3 

XK1VV  = ASFC-ORASVV,  LlFTYY)  ♦ DRAGY**2 

♦ LIFTYmJ 

TH3 

XX1YY  = XX 1 V V ♦ XXI YY 

TH3 

XX1RY  = ASF( -ORAGVfi . LIFTYR  ) - T5*0R A6Y 

♦ T6*LIFTV 

TH3 

XX1RV  = XX1RY  ♦ XXlAV 

TH3 

XX1NY  =■  T2*LlFTYN  ♦ LlFTY*LlFTN 

TH3 

XXINY  = XX1NY  ♦ XX1NY 

TH3 

XX1RR  = ASFC-ORAGRR  - OBRR^COSA,  LlFTRR 

- D£RR*SINA) 

♦ T5**2‘*T6»*2  TH3 

XX1RR  - XX1RR  ♦ XX1RR 

TH3 

XX1NR  = T2*LlFTRN  ♦ T6*LlFTN 

TH3 

XX1NR  = XK1NR  ♦ XX 1 NR 

TH3 

XX INN  = T2*LlFTNN  ♦ LlFTN**2  - <6NAX*6R>*»2 

TH3 

XX INN  = XX INN  ♦ XX INN 

TH3 

XX1YT  s.  -COOAE«ORAGY  ♦ SI OA£»LlFT Y 

TH3 

5—1 


5-H 


5H 
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/?? 


XK1VT  = XK  1 VT  ♦ XK1VT  TH3 

XK1RT  = COO AE*T5  4 SI0AE*T6  TH3 

XKlRT  = XKlRT  4 XKlRT  TH3 

XK1AT  = $1DA£*UFTA  TH3 

XK1AT  = XKlRT  ♦ XK  1AT  TH3 

XX 1 VO  = -T$DA£*0R AG V - TCOAE*LlFTV  TH3 

XK 1 VO  = XK 1 VO  ♦ XK 1 VO  TH3 

XK  IRQ  = TS0AE*T5  * TC0AE*Tfc  TH3 

XK IRQ  = XK IRQ  ♦ XK1RO  TH3 

XK  1 AO  = -TCOAE*HFTA  TH3 

XK2AD  = XK1A0  ♦ XX1AO  TM3 

XK 1 V A = ASFl -DRAGVA  lIFTVA)  - T3*0RA6V  ♦ TH*LiFT¥  TH3 

XK1VA  = XK1VA  4 XK I V A TH3 

XK1RA  = ASF(  -DRAGRA  4 DBR*S I NA  LIFTRA  - OBR*COSA ) 4 T3*T5  ♦ Th*T6  TH3 

XK1RA  = XK1RA  4 XK IRA  TH3 

XK1AA  = T2*LlFTAA  4 T«*UFTA  • -TH3 

XKIAA  = XKIAA  4 XK1AA  TM3 

20  XK 1 V = ASFt-DRAGV,  LlFTV ) TH3 

XK 1 V = XK1 V ♦ XK 1 v TH3 

XK1R  = ASF( T5,  T6>  TM3 

XK1R  ^ XK1R  4 XK 1R  T«3 

XK 1 A = T2*LlFTA  - 6R4fiAAX4#2»tf  TH3 

XK1A  = XK 1A  4 XK  1A  TH3 

30  UlTT  s 2.  TH3 

XK1T0  = A$F<  51  DAE  -COOAE)  TM3 

XK1TA  = -XK 1 TO  4 LIFT A* 510 AE  - 0RA6A*C00AE  4 DB*$1D  TH3 

XK1T0  = XK 1 TO  4 XK 1 TO  TH3 

XK1TA  = XK1TA  4 XK1TA  TK3 

XK 100  = -ASFt TCDAE,  TSOAE  ) 4 T*T  TH3 

XK10A  = -XK 1 DO  4 T*(DB*COO  - LlFTA«COOAE  - 0AAGA«$IOAE>  TH3 

XaOD  = XK  100  4 XK1D0  - - - - - ' TW 

XK10A  = XK10A  4 XK10A  TH3 

XKIAA  = ASF( Y V - DRAGAA  H 4 LlFTAA)  4 T3**2  4 TH**2  TH3 

XKIAA  s XKIAA  4 XKIAA  TH3 

HO  XK IT  . ASF( CODAE  SIOAE)  TH3 

XK1T  = XK IT  4 XK IT  TH3 

XK 10  = A5F<  TSOAE  -TCDAE)  TH3 

XK 10  - XK 10  4 XK 10  TH3 

XK 1 A = ASFt  T3#  Th>  T«3 

XK 1 A = XK 1 A 4 XK 1 A TH3 

50  XK 1 - ASFt  T 1 T2)  - <6AAX»tf>**2  TH3 

RETURA  TH3 

END  TH3 
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/2  7 


COO  coslg  * Sn  syabol 

COOAE  r a •(  t I 1 Sat  ««• 


COSH 


'00  ' 


DBR 


DBRR 


DRAG 


COSO  I Sat  tytbel 


0^  I Bast  drag 


dD^/aR  I Saa  syabol 

D 


d20k/dR2  1 s#* 


0 I Atrodyatalc  drag 


/DVNA  /( 
/DVNA  /( 

/DVNA  /( 
< LBS ) " /OVNA  " /( 

/DVNA  /( 

/DVNA  /( 
(LBS)  /OVNA  /( 


153 ) DL2 

COO 

OUTPUT 

COD 

TH3 

COO 

UT 

A 

COO 

151  ) AL1 

CODAE 

AL9 

CODAE 

AL6 

CODAE 

AL7 

CODAE 

ALB 

CODAE 

AL9 

CODAE 

apply 

COOAE 

CONTRL 

CODAE 

nlorv 

COOAE 

T M3 

CODAE 

UT 

0 

CODAE 

10)  AL1 

COSA 

Am 

COSA 

AL6 

COSA 

AL7 

COSA 

ALB 

COSA 

AL9 

COSA 

APPLY 

COSA 

CONTRL 

COSA 

NLORY 

COSA 

OUTPUT 

COSA 

TH3 

COSA 

UT 

A 

COSA 

163  ) ALT 

DB 

AL  9 

DB 

AL6 

06 

AL7 

DB 

ALB 

DB 

AL9 

DB 

apply 

OB 

CONTRL 

OB 

NLORY 

DB 

OUTPUT 

OB 

STATEF 

DB 

T M3 

DB 

UT 

OB 

66)  ALl 

DBR 

ALH 

OBR 

AL6 

DBR 

AL7 

OBR 

alb 

OBR 

AL9 

OBR 

apply 

OBR 

STATEF 

DBR 

TH3 

OBR 

UT 

OBR 

67)  ALA 

DBRR 

AL6 

DBRR 

ALT 

DBRR 

ALB 

DBRR 

AL9 

DBRR 

APPLY 

DBRR 

STATEF 

DBRR 

TH3 

DBRR 

UT 

DBRR 

69)  AL5 

DRAG 

ALT 

DRAG 

ALB 

DRAG 

AL9 

DRAG 

apply 

DRAG 

CONTRL 

DRAG 

ENVPRQ 

DRAG 

NLORY 

DRAG 

OUTPUT 

DRAG 

T M3 

DRAG 

UT 

A 

ORAG 
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FORTRAN 

SVrtBOL 


WAT  H 
SYflBOL 


CODE 


DESCRIPTION 


BLOCK 


DRAG*  dD/da  1 syabol 


ORAGAA 


ORAGR  8D/8R  I St!  tyabol 


OR  AGRA  820/8Rd«i  * *••  »*■*•* 


DRAGVR  320/8V8R  1 S,#  *7**01 


DR AGVV  a20/8V2  1 5#*  *7*h#l 


/DTNA  /<  TZ)  ALl  1 DRAGA 
AL5  I DRAGA 
ALT  I DRAGA 
ALB  1 DRAGA 
At9  I DRAGA 
APPLY  1 DRAGA 
TH3  I 0RA6A 
UT  W DRAGA 

/OVNA  /(  76)  ALl  I ORAGAA 

AL5  I ORAGAA 

ALT  I ORAGAA 

ALB  I ORAGAA 

AL9  I ORAGAA 

APPLY  1 ORAGAA 
TH3  ] ORAGAA 

UT  n ORAGAA 

/DVNA  /(  71 ) AL5  I ORAGR 

AL7  1 ORAGR 

ALB  1 ORAGR 

AL9  1 ORAGR 

APPLY  1 ORAGR 
T M3  I ORAGR 

UT  W ORAGR 

/OVNA  /(  77)  ALl  ! ORAGAA 

AL5  I OR  AGRA 

ALT  ! OR AGRA 

ALB  I OR AGRA 

* * " AL9 " * I ORAGAA 

APPLY  I ORAGRA 
TH3  1 ORAGRA 

UT  A ORAGRA 

/DVNA  /(  76)  AL5  1 DRAGRR 

AL7  I DRAGRR 

ALB  1 DRAGRR 

AL9  I ORAGRR 

APPLY  I DRAGRR 
TH3  I ORAGRR 

UT  ft  ORAGRR 

/OVNA  /(  70)  AL$  I DRAGV 

AL7  I DRAGV 

ALB  ) DRAGV 

AL9  I ORAGV 

APPLY  I ORAGV 
TH3  I ORAGV 

UT  n ORAGV 

/DVNA  /(  75)  ALl  1 DRA6VA 

AL5  1 DRAGVA 

AL  7 J DRAGVA 

ALB  1 DRAGVA 

AL9  I DRAGVA 

APPLY  I DRAGVA 
TH3  1 DRAGVA 

UT  A ORAGVA 

/OVNA  /(  7H)  AL5  1 DRAGVR 

AL  7 I DRAGVR 

ALB  1 DRAGVR 

AL9  I DRAGVR 

APPLY  1 DRAGVR 
T M3  1 DRAGVR 

UT  n DRAGVR 

/DVNA  /(  73)  AL5  I DR AGVV 

AL7  1 DR AGVV 

ALB  1 DR AGVV 

AL9  I DR AGVV 

APPLY  1 OR AGVV 
TH3  I OR AGVV 

UT  ft  DR  AGVV 


6 OCT  T2  G.01-9A 


FORTRAN 

SYflBOl 


RATH 

SVAftOL 


COOE 


DESCRIPTION 


i j»v  ;«8»;a:i  ■sa8 


6AAX 

GR 

LIFT 

LI  FT  A 

LI  FT  AA 

LIFTA 

LIFTAA 

LIFTAA 

LIFTR 


AAX 


9r 


I Aa«  I aua  'total  acceleration  g load 


I Gravitational  acceleration  at  surface  of  the  earth.  /GLOBAL/C 

(FT/SEC2) 


I Aerodyaaalc  lift 


(LBS)  /OVNA  /( 


dL/da 


8*L/8o* 


8L/8* 


I See  eyabol 


I See  eyabol 


See  lyekel 


82L/dada  1 


82L/8b2 


8L/8R 


I Sea  lyabol 


I Sea  ty  aba  I 


/DVNA  /( 


/DVNA  /( 


/DVNA  /f 


/DVNA  /( 


/DVNA  /( 


/OVNA  /( 


12  ) 

AL5 

1 

GAAX 

nplane 

1 

GAAX 

THROTL 

I 

GAAX 

TH3 

I 

6AAX 

1 > 

AL5 

I 

6ft 

APPLY 

1 

GR 

BAANPT 

I 

6R 

COSTAB 

] 

6R 

COST  AI 

I 

6R 

INTRPT 

I 

GR 

OUTPUT 

| 

GR 

PDBCQL 

1 

GR 

QLTOSZ 

I 

GR 

SALVE 

I 

GR 

STATEF 

1 

GR 

TH3 

1 

GR 

60) 

AL4 

I 

LIFT 

AL5 

1 

LIFT 

AL6 

I 

LIFT 

APPLY 

1 

LIFT 

CONTRL 

I 

LIFT 

ENVPRO 

I 

LIFT 

OUTPUT 

1 

LIFT 

TH3 

I 

LIFT 

UT 

0 

LIFT 

63  ) 

ALl 

I 

LIFTA 

AL4 

I 

LIFTA 

AL5  * 

I 

LIFTA 

AL6 

I 

LIFTA 

APPLY 

1 

LIFTA 

TH3 

1 

LIFTA 

UT 

0 

LIFTA 

144  ) 

ALl 

I 

LIFTAA 

AL4 

I 

LIFTAA 

AL5 

1 

LIFTAA 

AL6 

I 

LIFTAA 

APPLY 

I 

LIFTAA 

TM3 

I 

LIFTAA 

UT 

0 

LIFTAA 

81  ) 

AL4 

I 

lift* 

AL5 

I 

LIFT* 

AL6 

I 

LIFT* 

APPLY 

I 

LIFT* 

TH3 

I 

LIFTA 

UT 

0 

LIFT* 

85  ) 

ALl 

I 

LIFTAA 

AL<r 

1 

LIFT*A 

AL5 

I 

LIFTAA 

AL6 

I 

LIFTAA 

APPLY 

1 

LIFTAA 

TH3 

I 

LIFTAA 

UT 

0 

LIFTAA 

84  ) 

AL4 

I 

LIFTAA 

AL5 

1 

LIFTAA 

AL6 

I 

LIFTAA 

APPLY 

I 

LIFTA* 

TH3 

I 

LIFTAA 

UT 

0 

LIFTAA 

62) 

AL4 

I 

L1FTR 

AL5 

I 

LIFTR 

AL6 

I 

LIFTR 

APPLY 

! 

LIFTR 

T M3 

1 

LIFTR 

UT 

0 

LIFTR 

6 OCT  72  6.01-44 


f 2 ZC 


FORTRAN 

HATH  , 

DESCRIPTION 

SIMM 

SUBROUTINE  USAGE 

syhbol 

SYMBOL 

LU  lit 

BLOCK 

LOt 

SUBR 

CODE  VAR 

LIFTRA 

d8L/aRd« 

I Sm 

tyabol 

/OYNA 

/< 

68  > 

AL1 

ALA 

I 

I 

LIFTRA 

LlFTRA 

AL5 

] 

LIFTRA 

AL6 

I 

LIFTRA 

apply 

I 

LIFTRA 

TH3 

I 

LIFTRA 

UT 

0 

LIFTRA 

LI  FTRA 

a2L/3Ra» 

I Sat 

tyabol 

/ OYNA 

/( 

83) 

ALA 

AL5 

I 

I 

LIFTRA 

LIFTRA 

AL6 

I 

LIFTRA 

APPLY 

I 

LIFTRA 

TH3 

I 

LIFTRA 

UT 

0 

LIFTRA 

LIFTRR 

38L/dR* 

I Sat 

iyabo 1 

-* 

/DYNA 

n 

87) 

ALA 

AL5 

1 

I 

LIFTRR 

LIFTRR 

AL6 

I 

LIFTRR 

apply 

I 

LIFTRR 

TH3 

I 

LIFTRR 

UT 

0 

LIFTRR 

LIFTY 

dL/dV 

I Sat 

syabo 1 

/OYNA 

n 

61  ) 

ALA 

I 

LIFTY 

AL5 

I 

LIFTY 

AL6 

I 

LIFTY 

APPLY 

I 

LIFTY 

TM3 

I 

LIFTY 

UT 

0 

LIFTY 

LIFTYA 

a8L/ava« 

I Sat 

tyabol 

/DYNA 

/( 

66) 

AL1 

AIM-- 

I 

I. 

LI  FT  Y A 
LI  FT VA . 

AL5 

I 

LIFTYA 

AL6 

I 

LIFTYA 

APPLY 

I 

LIFTYA 

TH3 

I 

LIFTYA 

UT 

0 

LIFTYA 

LI  FTYA 

a8L/ava« 

I Sat 

ty  abo  1 

/DYNA 

/< 

82) 

ALA 

AL5 

1 

I 

LIFTYA 

LIFTYA 

AL6 

I 

LIFTYA 

APPLY 

I 

LIFTYA 

TH3 

] 

LIFTYA 

UT 

0 

LIFTYA 

LIFTYR 

a8L/awaR 

! Sat 

tyabol 

/DYNA 

/( 

65  ) 

ALA 

AL5 

I 

LIFTYR 

LIFTYR 

AL6 

I 

LIFTYR 

» 

APPLY 

I 

LIFTYR 

T H3 

I 

LIFTYR 

UT 

0 

LIFTYR 

LIFTYY 

d8L/aw8 

I Sat 

tyabol 

/DYNA 

/( 

6 A) 

ALA 

AL5 

I 

LIFTYY 

LIFTYY 

AL6 

I 

LIFTYY 

APPLY 

I 

LIFTYY 

TH3 

1 

LIFTYY 

UT 

0 

LIFTYY 

SIO 

s i n 4 g 

I Sta 

tyabel 

/DYNA 

/( 

159) 

DL2 

I 

SID 

OUTPUT 

I 

SID 

TM3 

1 

SIO 

UT 

n 

SID 

SIDAE 

% ) n(  a - ) 

I Sat 

tyabal 

/-OYNA 

/( 

152) 

AL1 

I 

SIDAE 

ALA 

I 

SIOAE 

AL6  I SIOAE 
A17  I SIDAE 
ALfi  1 SIOAE 
AL9  I SIDAE 
APPLY  I SIOAE 
COMTRL  I SIDAE 
TH3  I SIOAE 
UT  0 SIDAE 


6 OCT  72  6.01-AA 


r OBI  RAW 
SYMBOL 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


.flWil..  . ^ubbo.vtiwe;  u,s«p 

BLOCK l6T  SUBR  CODE YAR 


SIMA 


T 


M 

SKI 

XKlftft 
SKI  AT 
XKIRR 

SKIRT 

SKIT 

SKITT 

SKIT 

IKIVT 
SKI  TV 


si  no  1 s#«  Ijrtbol  /DYNA  /(  9)  AL1  I SIMA 

AL9  I SIMA 
AL6  I SIMA 
ALT  I SINA 
ALB  I 5 1 NA 

♦ AL9  I SINA 

APPLY  I SINA 
CONTRL  I SINA 
OUTPUT  I SINA 
TH3  I SINA 
UT  a SINA 

T I Thr  ait  (LBS)  /OYNA  /(  92)  ALGCOM  A T 

AL1  I T 
ALT  I T 
ALA  I T 
ALT  l T 
ALB  I T 
AL9  I T 
APPLY  I T 
ARCIN  0 T 
CONTRL  A T 
OL2  I T 
IAPULS  I T 
OUTPUT  I T 
THI  I T 
T M2  I T 
TH3  I T 


w 

1 

M*  I ght 

- 

(LBS) 

/OYNA 

/( 

91  ) 

AL5 

I 

M 

ENVPRQ 

1 

k) 

OUTPUT 

I 

W 

POBCQL 

I 

U 

OLTOSZ 

I 

M 

STATEF 

A 

W 

TH3 

I 

u 

0 

flrit  entry  of 

3 nord  In-plan*  control  constraints 

/ AATS 

/( 

9) 

AL6C0N 

I 

SKI 

K 

THROTL 

I 

SKI 

TNI 

0 

SKI 

TH2 

0 

SKI 

T M3 

0 

SKI 

TH9 

0 

SKI 

K(l) 

•• 

A 

TA«  first 

entry 

1 A 

a 3*2  natrli  containing 

Ky. 

/ARTS 

/< 

291  ) 

TH3 

A 

XK1AA 

if  < t 1 

■T 

A 

Tho  first 

ontr  y 

1 A 

a 3*3  natrli  containing 

*00 

/AATS 

n 

129 ) 

TH3 

A 

XK1AT 

K C 1 ) 

A 

TAs  first 

• ntry 

in 

a 3«5  natr 1*  containing 

*yh 

/AATS 

/( 

205) 

TH2 

0 

XK1RR 

AN 

T M3 

A 

XK1RR 

TH9 

0 

XK1RR 

K<n 

AT 

A 

Tht  first 

• ntry 

In 

a 3*3  natrl*  containing 

*hn 

/AATS 

/< 

9T  ) 

TM3 

A 

XK1RT 

K (II 

A 

First  entry  of 

3s3 

•atrls  containing  th*  *ipliclt 

/AATS 

/( 

T) 

AL6C0M 

1 

SKIT 

*t 

part  Isis 

f K pith 

r aspect  to  m,  Rg 

THI 

0 

XK1T 

TH2 

0 

SKIT 

T M3 

A 

SKIT 

rU) 

0 

First  «itry  lo 

3*6 

natrl*  containing  K-# 

/AATS 

/( 

23) 

ALGCON 

I 

XKMW 

i T 

TH3 

0 

XK1TT 

.K«n 

A 

Th*  first 

• ntry 

in 

a 3*8  natrl*  containing 

S 

/AATS 

/< 

96) 

ALGCON 

ALGCON 

I 

I 

SKY 

XK1Y 

f 

TH3 

A 

XK1V 

T 89 

0 

XK  1 V 

K<n 

A 

TA«  first 

• ntry 

In 

a 3*3  natrl*  containing 

K»* 

/AATS 

/( 

TO) 

ALGCON 

I 

XKUV 

* VT 

TH3 

A 

SK1YT 

K C 1 1 

A 

Th*  first 

• Atry 

1 A 

a 3*6  natrl*  containing 

s, 

/AATS 

/( 

192  ) 

ALGCON 

I 

XK  VV 

J w 

TH3 

A 

XKUV 

TH9 

0 

XK1VY 

SUBROUTINE. 

TH4 


Purpose 


IT  14  evaluates  the  airbreather  thrust  constraint 


T 


TAIRB  s 


0. 


In  addition , it  computes  the  explicit  first  and  second  partials  of  this 
constraint  with  respect  to  the  state  and  control  as  they  are  needed. 


/3g'-s 


TH* 


SUBROUTINE  TH«  T H«t 

THH 

THIS  ROUTINE  APPLIES  WHEN  THE  VEHICLE  IS  POWERED  BY  TH1 

AN  AIRBREATHER.  THH 

THM 

LOGICAL  SWITCH  I LOAD  OYNA 


REAL  NACH,  ISP,  ISPV 

, I SPR, 

ISPN, 

I SPT . ISPVV.  ISPVR.  ISPVN. 

OYNA 

♦ I SPVT,  I5PRR,  f 5PBN, 

I SPRT . 

ISPNN. 

I SPrlT . 

ISPTT. 

LIFT. 

LlFTV. 

OYNA 

•Ll FTR  LIFTA,  LIFTVV 

. LlFTVR.  LIFT 

VA.  LlFTRR.  LIFTRA.  NUR.  LlFTAA. 

OYNA 

*irate6.  ISPP.  ispff 

OYNA 

REAL  NACHV  , NACHR  . NACHVR . 

NACHRR 

OYNA 

REAL  LIFTN,  LlFTVN, 

liftrn. 

lIFTNN 

. LIFTRA 

OYNA 

CO RPl ON  /OYNA/ 

OYNA 

♦XX  .TIRE  ,SINGAN 

.COSGAN 

.ONEGA 

0NEGA2 

,R 

, 6 

, S I NA  , 

JUL21 

*COSA  DYNOl l , OflEGAT 

, tanp 

PA 

,R0 

c$ 

,TENPR 

, P AR  , 

OYNA 

• ROR  , CSR  , TENPRR 

, PARR 

RORR 

, CSRR 

, RACK  ' 

o 

OYNA 

*QV  ,QR  ,QVV 

OVR 

,ORR 

FVAC 

!fvacv 

, F VACR 

FVACN  : 

OYNA 

♦FVACT  ,FVACVV,FVACVR 

ifvacrr 

,FVACTT 

T 

nachv 

,nachr 

isp  ; 

OYNA 

♦ISPV  I SPR  ,I$PN 

, 1 SPT 

ispvv 

'ISPVR 

ISPVN 

!ispvt 

OYNA 

♦ isprn  , I sprt  ,ispnn 

,ISPnT 

ISPTT 

,LIFT 

* LIFT  V 

, L 1 FTR 

Jlifta  ; 

OYNA 

♦LIFTVV, LJFTVR,LJFTVA 

,LIFTRR 

liftra 

OR  AG 

OR  AGV 

DRA&R 

,DRAGA  , 

OYNA 

♦ORAGVV ,DRAGVR ,ORAGVA 

.DRAGRR 

ORAGRA 

DRAGAA 

.ALPHA 

PHI 

'liftn 

OYNA 

♦LIFTVN,L1FTRN,LIFTNN 

liftna 

D&R 

. DBRR 

.GANNAD 

,AE 

TAX  * 

OYNA 

'*W  , SI NPH I COSPHI 

SINPSI 

,COSPSI 

SINRHO 

COSRHO 

.SINROR 

COSROR, 

OYNA 

♦NUR  , XKG  rXKP 

, AKIN 

coo 

COON 

CLO 

FK 

, XCGN  , 

OYNA 

♦ xcgnn  ,zcgn  ,ZCGNn 

, X J V 

.XJR 

,XJVV 

X J VR 

XJRR 

, NACHV  R , 

OYNA 

•NACHAR  S I N2RO, COS2RO 

C0S2GN 

cn 

, cna 

.CNN 

CNAA 

, CNNN  , 

OYNA 

♦CNAN  ,CNO  , CNON 

cnonn 

CNANN 

ulftv 

ulftr 

ULFTV V 

,ULFTVfl, 

OYNA 

♦ULFTVA, ULFTRR , ULFTRA 

I PON 

X ARC 

TSTAOT 

GH 

GRR 

LlFTAA, 

OYNA 

•CDONN  ,clawn  ,clon 

.CLONN 

0YN1H9 

, CT 

COOAE 

S I DAE 

COD  , 

OYNA 

♦SIO  OELTAE,CDE 

XCG 

ZCG 

xnCS 

.CALPHA 

ALNAX  , 

OYNA 

♦OB  t ULFT  ,CULFT 

ULFTA 

tstage 

Itines 

XNCGAA 

IRATED 

'frated 

OYNA 

connon  /oyna/ 

OYNA 

♦NTT  ,J1  ,J2 

J3 

XNCGA 

,FVACF 

ulftaa 

1 SPF 

, I SPFF  # 

OYNA 

♦ I LOAD  'FKN  ,FKNN 

SNITCH 

tNQF 

,cl 

,ClA 

,CLN 

;claa  ; 

OYNA 

♦ CLNN  .CLAN  ,CO 

COA 

CON 

. COAA 

CONN 

, CD  AN 

, OYNl 98, 

OYNA 

♦DYN199,DYN200, XNC&V 

xncsR 

XNCGN 

.xncgvv 

.XNCGVR 

xnCGvn 

xnCGV  A 

OYNA 

♦XNCGRR , XNCGRN, XNCGRA 

XNCGNN 

XNCGNA 

RQARR 

0YN21H 

0YN215 

0VN21 6, 

OYNA 

♦ DYN21 1 , 1 OAN  , TAIRB 

TAIRBV 

TAIRBH 

TARBVV 

TARBHH 

TARBVH 

;sfc  ; 

JUL21 

♦ SFCV  . SFCH  . SFC V V 

SFCMH 

SFC  VH 

AUG09 

OINENSION  PROO 1(2.  bH> 

NATS 

CONNON  /NATS/ 

NATS 

♦PI  ,P2  ,P3 

XK  I 

XK2 

XK3 

XK  IT 

XK2T 

XK3T  , 

NATS 

♦ XK1D  , XX  20  XK  30 

XK1A 

XK2A 

XK3A 

VGA 

GOA 

/PDA 

NATS 

♦XN19  , XN20  , XN2 1 

XN22 

XK1TT  , 

XK2TT 

XK3TT 

, XK 1 TO 

,XK2T0  , 

NATS 

•XK3TD  XK  1TA  , XK2TA 

XK3TA 

XK10D  ( 

XK200 

XK  300 

, XK 1 DA 

, XK  2DA  , 

NATS 

♦XK3DA  , XK 1 A A ,XK2AA 

XK3AA 

XN41 

XPW2 

XNH3 

( XNHH 

,XNH5  , 

NATS 

•XK1V  , XK2V  , XK3  V 

XK  1 6 , 

XK2G  . 

, XK3G  , 

, XK IP  . 

, XK2P 

,XK3P  , 

NATS 

♦XK  IR  , XK2R  , XK3R 

XK  10  , 

XK20  . 

, XK30  , 

XK  1 U ( 

, XK2U 

, XK  3U  , 

NATS 

♦XK1N  , XK2N  , XK3N 

XK  1 Z , 

XK2Z  4 

, XK  3Z  , 

XKIVT  . 

XK2VT 

, XK3VT  . 

NATS 

♦ XK  1 VO  , XK2V0  , XK3V0 

XK1VA  , 

XK2VA  , 

, XK  3 VA  , 

XK1GT  , 

, XK2&T 

XK3GT  , 

NATS 

♦XK1G0  , XK2G0  ,XK3G0 

XK IGA  , 

XK2GA  . 

XK3GA  , 

XK1PT  . 

, XK2PT 

XK3PT  , 

NATS 

♦ XK IPO  , XK2P0  , XK3P0 

XK1PA  , 

XK2PA 

XK3PA  , 

, XK  1 AT  , 

XK2RT 

XK3RT  , 

NATS 

♦ XK1R0  , XK2R0  , XX 3RD  , 

XK  IRA  , 

XK2RA  , 

XK3RA  , 

XKIOT  , 

, XK20T 

, XK30T  , 

NATS 

• XK 100  XK200  , XK 300  , 

XK 10  A , 

XK20A  , 

XK30A  , 

XK1UT  , 

XK2UT 

XK3UT  , 

NATS 

• XK 1UD  , XK2U0  . XK 3U0  , 

XKlUA  , 

XK2UA  , 

XK3UA  , 

XK1NT  , 

XK2NT 

. XK3NT 

NATS 

CONNON  /NATS/ 

NATS 

♦XKINO  , XK2N0  , XK3AD  , 

XK1NA  , 

XK2NA  , 

XK3NA  , 

XKIZT  , 

XK2ZT 

, XK3ZT  . 

NATS 

•XK1ZD  XK2ZD  , XK3Z0  , 

XK1ZA  , 

XK2ZA  , 

XK3ZA  , 

XK1VV  , 

XK2VV 

, XK  3 V V , 

NATS 

♦XK1GV  XK2GV  , XK3GV  , 

XK IP V , 

XK2PV  , 

XK3PV  , 

XK1RV  , 

XK2RV 

, XK3RV  , 

nATS 

♦ XK10V  XK2DV  , IK 30 V , 

XK1UV  , 

XK20V  , 

XK3UV  , 

xkinv  , 

XX2NV 

XK3NV  , 

NATS 

♦XKIZV  , XK2Z V , XK3Z V , 

xkigg  , 

XK2G6  , 

XK3GG  , 

XK1P6  . 

XK2P6 

, XK3PG  , 

NATS 

♦XK IRQ  , XK2R&  ,XX3RG  , 

XK10G  , 

XK20G  , 

XK 306  , 

XKIUG  . 

XK2UG 

, XK 3UG  , 

NATS 

♦XKING  XK2NG  , XK3NG  , 

XK1ZG  , 

XK2ZG  , 

XK3Z6  , 

XK1PP  , 

XK2PP 

. XK3PP  , 

NATS 

•XKIRP  XK2RP  , XK3RP  , 

XK 1 OP  , 

XK20P  , 

XK30P  , 

XK 1 UP  , 

XK2UP 

, XK3UP  , 

NATS 

• XK1NP  XK  2NP  XK3NP  , 

XK1ZP  , 

XK2ZP  , 

XK3ZP  , 

XKIRR  , 

XK2RR 

XK  3RR  , 

NATS 

♦XK10R  XK20R  ,XK30R  , 

XKluR  , 

XK2UR  , 

XK3UR  , 

XK1NR  , 

XK2NR 

(XK3P*R  , 

NATS 

♦XK1ZR  XK2ZR  , XK3ZR  , 

XK 100  , 

XK200  , 

XK300  , 

XKIUO  , 

XK2U0 

, XK3U0  , 

NATS 

♦ XKINO  , XK2N0  , XK 3N0  , 

XK1Z0  , 

XK2Z0  , 

XK3Z0  , 

XK1UU  , 

XK2UU 

, XK3UU  , 

NATS 

♦XK1NU  , XK2NU  ,XK3NU  , 

XK12U  , 

XK2ZU  , 

XK3ZU  , 

XK1NN  , 

XK2NN 

, X K 3 NN  , 

NATS 

♦XK 1 ZN  XK2ZN  ,XK3ZN  , 

XK1ZZ  , 

XK2ZZ  , 

XK3ZZ  , 

XKP  111. 

XKP I 2 1 

, XKP 1 3 1 , 

NATS 

*XKPII2,XKPI22,XKPI32, 

XKPI13, 

XKPI23, 

XKPI33, 

PA1 

PA2 

NATS 

CONNON  /NATS/ 

NATS 

• OPDY< 3,  8 ),  OEPOEYt 2, 

8).  OPOL(  3 . 3).  PR0D513.  6H  ).  PR0D9(2.  ZH) 

NATS 

CONNON  /NATS/ 

NATS 

76. 

77. 

78. 

79. 

80. 
8 1 . 
82. 


8<<  . 
es . 
8*. 
8/  . 
68  . 

89. 

90. 

91. 


*P  V 

,P6 

,PP 

,PR 

♦ POY 

, P G6 

,PPG 

.PRG 

♦POR 

.POO 

_,PU6 

.PLP 

,P0 

,PQG 


XK 1 V V = -TARBYY 
XK1RV  s -TARBVH 
XK1RR  c -TARBHH 
XXIV  = -TAIRBY 
XK 1 R r -TAIRBH 
ENTRY  TH9002 
ENTRY  TM9001 
XK  I T = |. 

ENTRY  TH9000 
XK 1 = T - TAIRB 
RETURN 
END 


fPVV  PGV  PP Y .PRY 

,PPP  ,PRP  ,P0P  , PRR 


MATS 

HATS 

WATS 

HATS 

TH9 

TH9 

TH9 

7H9 

TH9 

TH9 

T HA 

TH9 

T rt*t 

TMi 

TH9 
- TH9 


6 OCT  72  6.01-HN 


FORTRAN 

SYMBOL 


NATH 

SYMBOL 


CODE 


DESCRIPTION 


TOflr^e-  tome 


T 

T 1 

Thrust  (LBS) 

/OYNA 

/< 

-12  > 

ALfiCON 

N 

T 

AL1 

T 

AL9 

T 

AL6 

T 

AL7 

T 

ALB 

T 

AL9 

T 

apply 

T 

ARC1N 

0 

T 

CONTRL 

N 

T 

DL2 

T 

INPULS 

T 

OUTPUT 

T 

TNI 

T 

• 

TH2 

T 

TH3 

T 

TH9 

T 

TAIRB 

! 

/0YNA 

/< 

219) 

STATEF 

TAIRB 

TH9 

TAIRB 

TAIRBM 

I 

Partial  of  TAIRB  art  h (.It  Muds) 

/OYNA 

/< 

221  1 

TM9 

TAIRBN 

TAIRBW 

1 

Partial  of  TAIRB  art  V 

/DYNA 

/( 

220) 

TH9 

TAIRBY 

TARBHH 

I 

Second  partial  of  TAIRB  art  b 

/OYNA 

/( 

223  ) 

TH9 

TARBHH 

TARBYH 

I 

Second  partial  of  TAIRB  art  V and  h 

/OYNA 

/( 

229) 

TH9 

TARBYH 

T ARBVtf 

I 

Second  partial  of  TAIRB  art  Y 

/OYNA 

/( 

222) 

TM9 

TARBVY 

XU  . 

0 

First  entry  of  3 aord  In-plane,  control  constraints 

/NATS 

/( 

9 ) 

algcon 

XXI 

X * 

TMROTL 

xxr 

TNI 

0 

XX 1 

TH2 

XX  l 

TH3 

0 

XXI 

TN9 

XX  1 

XX1RR  w(H  0 

The  first  entry  In  a 3s5  aatrls  containing  X h 

/NATS 

/( 

20S  ) 

TH2 

0 

XXlfifi 

*hh 

TH3 

N 

XK1RR 

TH9 

0 

XX1RR 

*UY  *(l>  0 

The  first  entry  in  a 3i8  aatrls  containing  X„ 

/NATS 

/( 

96) 

ALGCON 

I 

XXV 

"V 

* 7 

ALGCON 

I 

XXIV 

TH3 

N 

XX 1 Y 

TH9 

0 

XXIV 

XUYY  k { 1 ) 0 

The  first  entry  In  a 3*6  aatrls  containing  XHtf 

/NATS 

/( 

192  ) 

ALGCON 

] 

XXV  V 

' i* 

TH3 

N 

XK1YY 

TN9 

0 

XK1VV 
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SUBROUTINE 

TRAJIN 


t*. 


TRAJIN  takes  care  of  setting  various  flags  and  paramters  at  the  initial 
point  of  the  trajectory. 


T RAJ  IN 


M 


1. 

z. 

3. 


H . 

I. 
I. 
f . 
e, 

9. 

to. 

W. 

u. 

\ 3. 

u . 
u . 
u . 
Ir. 
)e. 

1 9 . 

to. 
tl. 
2 2 . 
S3. 
2** . 
>«  . 
I*. 
27. 
f«. 

29. 
3o_ 

31 . 

32. 

33. 
3*4. 
3*. 
3*. 
37 . 

30 . 
39. 
HO. 
HI. 
H2. 
H 3. 


H*#  . 
H5  . 
H*. 
H 7 . 
HO. 
H9. 
$0. 
51. 
5 2. 
53. 

5H. 
55  . 
5*. 
57. 
50. 


SUBROUTINE  TRRJIN 
CORRON  /CNTRL/ 

• NU  , I TER  I TAPA  , I TAPB  ,JRIN  ,JRAX  , LINES  ,KPT  ,ROR 

• KARO  I NDX( H ^ NEWNOR  CNT016, RKGC  ,RHOP  ,NPTS  ,RINE5  , 

• KPAGE  , NNP  UUP  I ARC  TRSTR  ,JRAX  KT I RE  . KONVER  . NOPRNT  , 

•INBDRY  NUPAGE, I VARY< lo ),  NN  NOTARY  PLASt.  ZLASl , KOOE§ 

LOGICAL  I NBORt  NEUNOR,  KONVER,  NOPkNT,  NUPAGE 
COnnOJV/ GLOBAL/ 

•GR  ,ER  ,ORGZ  XLARRF  YruRF  ,LUR  ,T0  , EPSLON, INNER  , 

•ITRRAXJJ0P( 6)  IFATAL.NARC  NBRAN  NF  ARC  .10(H)  , KTAB( 20  >, 

• ITAB( 20  > . SI 6 .MAX TAB. GW, P S I hF  I PFLG1 , 1 PFLS2 . IPFL63, IPFL6H, 

• INE0FL(26).  itPSO,  kSol,  I NARK ' KGLQBLi  7 ) 

LOGICAL  SNITCH.  ILOAO 

REAL  BACH.  ISP  ISPV,  ISPR,  ISPR,  ISPT.  ISPVV*  ISPYR*  ISPVR, 
•ISPVT,  ISPRR,  I5PRT,  ISPRR*  ISPflT.  ISPfT.  LlPt,  LIFT& 

♦LIFTR,  LlFTA,  LiFTVV,  LiFTYR,  llFTVA,  LIFTRR-.  LIFTRA,  RUR,  lIfTAA, 

•irate6,  ispf!  ispff 
REAL  RACHV,  rachr  rachyr  rachrr 
REAL  LIFTR,  LIFTYR,  LIFTRR,  LIFTRR  LIFTRA 
CORRON  /DYNA/ 


• XX  , TIRE  ,S1NGAR,C0$6AR,0RE6A 

•COSA  , OYNOl 1,0RE6AT,TARP  ,PA 
•ROR  , CSR  ,TERPRR,PARR  ,RORR 

• OY  OR  , 0 Y V 0 VR  ,QRR 

•FYACT  FVACVV,FVACVR,F  YACRR, FVACTT 

• ISPY  , I SPR  . I SPR  ^ISPT  , ISPVY 
•ISPRR  . I SPRT  , I SPRR  'iSPRT  ,ISPTT 
•liftyy'liftyr'l1ftya'liftrr,liftra 
•oragvv,oragyr'oragya'oragrr.oragra 
•liftyr, liftrr, liftrr, liftra, obr 

•a  SINPHI^COSPHI' SINPSI, COSPSI 

•RUR  ,XKG  , XKP  , AKIN  ,CDO 
•XCGRR  ZCGR  ZCGRR  ,XJV  ,XJR 
•RACHRR  SIN2R0.  CQS2R0,  C0S26R, Cn 

• CRAR  , CRO  ,CROf*  'CRORR  ,CRARR 
•ulftya#ulftrr,ulftra,ipon  ,XARC 

•COORR  CLARR  ,ClOR  CLORR  ,DYNlH9 

•sio  'oeltae'coe  ,XC6  ,zcg 

♦OB  , ULFT  ,CULFT  ,ULFTA  ,TSTAGE 
CORRON  /DYNA/ 

•RTT  ,J1  , J2  ,J3  , XRCGA 

•ILOAO  ,FKR  ,FKflfl  'SWITCH,  UQF 
•CLRR  , CLAR  ,CD  ,CDA  ,COR 
•DVNI99, DYN200,  XRCGY  XrtC.GR  ,XRCGR 
•xrcgrr,xrcgrr,xrcgra,xrcgrr,xrcgra 

• DYN2 1 1 , I OAR  'TAIRB  , TAIRBV, TAI RBH 
♦SFCY  SFCH  'SFCYY  ISFCMH  ,SFCYH 

EQUIVALENCE  ( IPRNT,  NOPRNT ) 

IPRNT  = 1 
TSTART  = TO 
TSTA6E  = TO 
ALPHA  = 0. 

OELTAE  = 0. 

0RE6A  = ORGZ 
0REGA2  = 0RE6A **2 
0RE6AT  = 2 . ♦OREfiA 
RETURN 
END 


0REGA2,R  ,G  ,SINA 
RO  ,CS  , TERPR  , PAR 
CSRR  ,KOOE  ,RACH  ,Q 
F VAC  ,FVACY  ,FVACR  ,FvACR 
T RACHV  ,RACHR  , ISP 

ISPYR  , ISPYR  , I SP YT  , ISPRR 
LIFT  , LIFT Y , LIFTR  , LIFTA 
DRAG  ,0RAGY  ,QRA6R  0RA6A 
ORAGAA, ALPHA  ,PHI  , LIFTR 
DBRR  , GARRAD, AE  , TAX 

S I NR  HO,  CO  SR  HO,  HNfiOR,  COSROR 
COOR  , CLO  ,FK  ,XCGR 

XJYY  XJ YR  , XJRR  , RACHYR 
CRA  , CRR  , CRAA  CARR 

ulfty  ,ulftr  ,ulftyy,ulftyr 

TSTART, GH  ,GRR  , LlFTAA 
CT  COOAE  , SI  DAE  , COO 
XJ  , XRCG  ,CALPHA,ALRAX 
TIRES  ,XRCGAA,IRATEO,FRATEO 

FYACF  , ULFTAA, I SPF  , ISPFF  , 
CL  , CL A ,CLR  ,Claa  , 

COAA  , CORR  , COAR  ,0YN19S, 
XRCGYY , XRCGYR , XRCGYR, XRCGVA, 
RORRR  ,0YN21H,0YN215,DYN216, 
TARBYY,TARBHH, TARBYH, SFC 


TRAJIN 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

CNTRL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA 

DYNA 

DYNA 

DYNA 

JUL21 

DYNA 

OYNA 

DYNA 

DYNA 

OYNA 

OYNA 

OYNA 

DYNA 

OYNA 

OYNA 

DYNA 

DYNA 

DYNA 

OYNA 

OYNA 

DYNA 

OYNA 

OYNA 

OYNA 

OYNA 

OYNA 

OYNA 

DYNA 

OYNA 

JUL21 

AUG09 

TRAJIN 

TRAJIN 

TRAJIN 

TRAJIN 

TRAJIN 

TRAJIN 

TRAJIN 

TRAJIN 

TRAJIN 

TRAJIN 

TRAJIN 
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<3 

N. 


TRAJIN  0 ALPHA 
UT  I ALPHA 

WSAPUP  I ALPHA 

( A AOS  ) /DVNA  /(  15$)  AL6C0N  M OELTAE 

ARCIN  M OELTAE 
COftTRL  M OELTAE 
DL1  I OELTAE 
OUTPUT  I OELTAE 
TRAJIN  0 OELTAE 
UT  I OELTAE 

JP&*T  0 Not  ml.  /CNTRL  /I  25)  OUTPUT  A NOPRNT 

SALVE  0 AO PART 
TRAJIN  0 I PART 

/DVNA  /(  5)  ALA  I OMEGA 

ALT  I OMEGA 
COHTRL  1 OMEGA 
POBCQL  I OMEGA 
TRAJIH  M OMEGA 

/DVNA  /<  12)  NLDRV  1 0 ME 6 AT 

TRAJIN  0 OMEGAT 

/DVNA  /(  A)  ALA  I 0ME6A2 
ALT  I 0MEGA2 
AL8  I 0MEGA2 
ALA  I 0MEGA2 
NLDRV  1 0MEGA2 
TRAJIN  0 0ME6A2 


0M62 

•» 

I 

Earth  rotation  rata 

(RAD/SEC) 

/ GLOBAL/t 

3) 

PDBCBL 

TRAJIN 

1 

I 

0M6Z 

0MG2 

TSTAGE 

0 

Trajectory 

Ignftoi. 

tlna  at  Rhlcb 

praaant 

rocket 

anal nc 

( SECS  ) 

/DVNA 

/< 

167) 

ARCIN 

STATEF 

TRAJIN 

M 

I 

0 

TSTA6E 

TSTAGE 

TSTAGE 

TSTART 

0 

tlna  at  nhlch 

present 

tuber c 

/DVNA 

n 

1 A 1 ) 

ARCEN 

ARCIN 

STATEF 

TRAJIN 

M 

M 

I 

0 

TSTART 

TSTART 

TSTART 

TSTART 

TO 

*0 

I 

Tr  ajactory 

•tart  tlaa. 

( SEC ) 

/GLOBAL/< 

T) 

FETCH 
INARC 
TRAJIN 
WRAP  UP 

M 

M 

TO 

TO 

TO 

TO 
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SUBR0UTINE 


Purpose 

UT  computes  all  those  dynamic  quantities  that  bear  an  explicit  dependence 
on  the  in-plane  control. 


r* 


UT 


1. 
2 . 
3. 

m. 

ft. 

ft. 

I . 

e. 

9. 

lo. 

It. 

is. 

13. 

U. 

U. 

u. 

ft: 


19. 

20. 

21. 

22. 


2«*. 
b. 
2*. 
2?. 
ffl . 
I«. 

30. 

31. 

32. 

33. 
3m. 
3». 

3t: 


3«. 
39. 
MO. 
Ml. 
M2. 
M3. 
MM  . 
M>  , 
M*. 
MX. 
MO. 
M 9 . 
50. 
$1. 

52. 

53. 
SM. 


1%: 


C 

c 

c 

c 

c 


ft7. 

50. 

59. 

60. 
61. 
62. 
63. 


6>  . 
60  . 
67. 
60. 

69. 

70. 

71. 

72. 

73. 

ft: 


SUBROUTINE  UT 


THIS  ROUTINE  COMPUTES  ALL  THOSE  DYNAAIC  QUANTITIES 
WHICH  BEAR  AN  EXPLICIT  DEPENDENCE  ON  THE  IN-PLANE 
CONTROL 

REAL  LCD,  L50,  LCOA.  LSOA 

real  lcdy,  lcdr,  lc6vv.  lcdyr.  lcdrr.  lcdva.  lcdra,  lcoaa,  LSDY, 
•lsdr,  lso v v . lsdyr,  l$6va,  l$6rr,  lsOra,  ls6aa 

COAAON/ ARCOAT/ 


• SREF 

,EJ 

,XISP 

,T*ULT 

,OTNC 

, OTP  I 

Mata 

, IAOOE 

, J AER 

, JPRO 

,QrtAX 

, 6AAX 

•XLAAX 

HOAAX 

GAQOT 

alfaax 

PHAAX 

, AAEA 

•AAEB 

, AAEC 

AAEO 

, AAEE 

,AA£F 

,AAEG 

• AT 

,AISP 

AXCG 

, AZCG 
;xt  - 

, AND  A 

, AWOB 

•AOB  * 

• ;jfCGR 

,2CGR 

,ZE 

XT 

• OREF 

,acno 

, RHOB 

, fiflULt 

, reaax 

,FRATE 

0 1 HENS  I ON  ARCOA(MO) 

EQUIVALENCE!  SREF  ARCOA ) 

LOGICAL  SWITCH,  IlOAD 

real  AACH.  ISP.  JSPv,  ISPB,  ISPrt,  I SPT,  ISPYY.  1SPVR,  ISPYA, 
•ISPVT,  I SPRR , I SPRA  ISPRT,  ISPAA,  ISPAT,  ISPtT,  LIFT,  LlFTY, 
♦LIFTR,  LlTTA,  LlFTYV,  LlFTYR,  LlFTYA,  lIFTRR,  LlFTRA,  AUR,  LlFTAA 
•IRATED,  1SPP,  iSrFr 
REAL  AACHV,  AACHR,  AACHVR,  AACMRR 
REAL  LIFT*  LIFT**,  LlFTAA  LIFT**,  Ll FTHA 
COftrtON  /DYNA/ 


• XX 

,TIAE 

. $ INGAA. COSGAA 

OAEGA 

.0AE6A2.R 

,6 

.SINA 

• COSA 

,dynoii 

OnEGAT 

TArtP 

PA 

,R0 

,cs 

TEAPR 

, PAR 

• ROR 

,CSR 

TEAPRR 

PARR 

,RORR 

, CSRR 

KOOE 

AACH 

♦ QV 

,QR 

, Q V Y 

, QYR 

, QRR 

, F Y AC 

,FVACY 

F Y ACR 

,fyaca 

♦FvACT 

,FVACYV 

,fyacyr 

F YACRR 

,FYACTT 

, T 

, rtACH V 

AACHR 

, ISP 

•ISPY 

ISPR 

, ISPA 

, I SPT 

, I SP  Y Y 

I SP  YR 

, I SP  YA 

I SP  YT 

, 1 SPRR 

•ISPRA 

, ISPRT 

I SPAA 

ISPrtT 

I SPTT 

, L IFT 

,LIFTY 

LIFTR 

,LIFTA 

•LIFTVY 

, LI  FT  YR 

,LIFTVA 

, LIFTRR 

LlFTRA 

, DRAG 

, OR AGV 

DRAGR 

, ORAGA 

• OR AG V V 

, ORAG YR 

.ORAGVA 

OR AQRR 

oragra 

.OflAGAA. ALPHA 

, PH  | 

,LIFTA 

•LIFTVA 

, LlFTRA 

'liftaa 

, L I F TrtA 

DBR 

. OBRR 

. GAAAAO 

AE 

TAX 

•W 

S1NPHI 

,cospni 

SI NP $ I 

COSPSI 

. SI NRHO . COSRHO 

SI nror 

. COSROR . 

• auR 

, XXG 

, XKP 

, AX  I N 

,C00 

, CDOrt 

CLO 

,FX 

. XCGA 

•xCGrm 

ZCGA 

ZCGAA 

, X J Y 

X JR 

, X J YY 

, XJ  YR 

,XJRR 

. rtACHYR . 

•AACHRR 

,SIN2R0 

C0S2R0 

, C0S2GA 

Crt 

, C AA 

, CAA 

CrtAA 

.CAAA 

• CAAA 

,CAO 

,CAOA 

,CrtOrtrt 

CrtArtrt 

.ULFTY 

. ULFTR 

,ULFTYY 

, ULFTYR 

•ULFTYA 

, ULFTRR 

,ulftra 

: ipow 

XARC 

, T5TART.GH 

,GRR 

.LlFTAA, 

•COOAA 

,claaa 

,CLOA 

,ClOaa 

DYN1M9 

, CT 

COOAE 

Si  OAE 

,C00 

• SID 

,deltae 

, COE 

, XCG 

ZCG 

,XJ 

, XACG 

,CAlPHA 

. ALAAX 

• OB 

,UlFT 

,culft 

,ULFTA 

TST  AGE 

, Tints 

, XACGAA 

, 1 RATEO 

.FRATEO 

COAAON 

/OYNA/ 

• ATT 

,Ji 

,J2 

,J3 

XrtCGA 

,fyacf 

, ULFTAA 

, 1 5PF 

, I SPFF 

•ILOAD 

;fx* 

, FX  Art 

, SWITCH 

INQF 

, CL 

. cla 

CLA 

.CLAA 

•claa 

,ClAA 

CO 

COA 

COrt 

, CDAA 

,CD*rt 

,COArt 

, 0YN1 9B, 

•0VN199 

, DYN200 

, XAC6Y 

, XrtCGR 

xnCGfl 

, XrtCGVY 

XACfiVR 

XACG YA 

, XAC6Y A 

•XACGRR 

, XACGRA 

XACGRA 

,xnCGnn 

XACGrtA 

, RORRR 

DYN2 1 M 

0VN2 1 5 

.0VN216. 

•DVN2I7 

, IOAA 

TAIRB 

TAIRBY 

, TA1RBH 

,TARBVY 

T ARBHH 

TARBVH 

, SFC 

* 

• SFCV 

. SFCH 

'$F CYY 

. SFCHH 

SFCVH 

0IAEN520N  PR0fil(2.  6M ) 

COAAON 

/AATS/ 

•PI 

,P2 

,P3 

,XX1 

XK2 

, XX3 

, XX1T 

, XX2T 

, XK3T 

• XX  ID 

, XX2D 

XX30 

, XX  1 A 

XK2A 

, XX3A 

, YOA 

, 6DA 

, PDA 

• XA19 

, XA20 

,XA21 

XA22 

XX1TT 

XX2TT 

XX3TT 

XX 1T0 

, XR2T0 

•XX3TD 

, XX 1 TA 

XX2TA 

XX3TA 

XX100 

, XX200 

XX300 

XX  IDA 

, XK20A 

•XX30A 

XX  1 AA 

, XX2AA 

XX  3AA 

inn  1 

, XrtM2 

, XAM3 

, XflMM 

, XAM5 

• XX 1 Y 

, XK2Y 

XX  3¥ 

XX 16 

XX2G 

, XK3G 

,XXIP 

, XX2P 

, XX 3P 

• XX 1R 

, XX2R 

XX  3R 

,XX10 

XX20 

, XX30 

XX 1 u 

, XK2U 

, XX  3U 

♦ XX  J A 

, XK2A 

, XX3A 

, XXIZ 

XX2Z 

, XX3Z 

XX 1 ¥T 

XX2YT 

, XX  3 YT 

• XX  1 VO 

XK2  YD 

XK3Y0 

XX  1 YA 

XK2YA 

f XX 3 YA 

, XX  1ST 

XK2GT 

, XX  36T 

• XX 1 GO 

, XX2G0 

XX’3G0 

XX  1 GA 

XX2GA 

XX  3GA 

XX 1PT 

XX2PT 

, XX3PT 

• XX  IPO 

, XK2P0 

, XX3PD 

, XX 1PA 

XK2PA 

XX3P  A 

XX 1 RT 

, XX2RT 

, XX3RT 

•XX 1 RO 

, XX2RD 

XX  3R0 

XX 1 RA  , 

XX2RA 

, XX3RA 

, XX 10T 

XX20T 

, XX 30T 

•XX 1 00 

, XX200 

XK300 

, XX 10A 

XX20A 

XK30A 

, XX 1 UT 

, XK2UT 

, XX  3UT 

♦ XX  1UD 

, XX2UD 

, XK3U0 

, X X 1 U A 

XX2UA 

, XK3UA 

, XX I AT 

, XX2AT 

, XX 3AT 

COAAON 

/AATS/ 

•XXlflO 

, XK2A0 

,XX3flD 

XX 1 AA  , 

XK2AA 

XK3rtA 

XX 1ZT 

, XX2ZT 

, XX3ZT 

•XX  1 ZO 

, X K2ZD 

, XX3Z0 

, XX 1 ZA  , 

XK2ZA 

XX3ZA 

XX 1 Y Y 

XK2  V V 

, XX 3YV 

•XX16Y 

, XK26V 

, XX3GY 

XX  1 P Y , 

XK2PY 

XX  3P  Y 

XX 1 R V 

XK2R  V 

, XX3RV 

•XX 1 0 V 

, XK20 Y 

XX  30  Y 

,XX1UV  , 

XX2UY 

, XX 3U V 

' XX 1 AY 

XK2AY 

, XK3AY 

t 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

ARCOAT 
, ARCOAT 
, ARCOAT 
, ARCOAT 
, ARCOAT 
, ARCOAT 
, ARCOAT 
ARCOAT 
ARCOAT 
ARCOAT 
OVMA 
DVNA 
OYNA 
OYNA 
OYNA 
dvna 
OYNA 
OYNA 
JUL2I 
OYNA 
OYNA 
OYNA 
OYNA 
DVNA 
OYNA 
OYNA 
OYNA 
DVNA 
OYNA 
OYNA 
OYNA 
OYNA 
OYNA 
OYNA 
OYNA 
DVNA 
OYNA 
DVNA 
OYNA 
OYNA 
OYNA 
DVNA 
OYNA 
JUL2I 
A JaC9 
*ATS 
A ATS 
AATS 
AAT5 
HATS 
HATS 
AATS 
AATS 
AATS 
AATS 
AATS 
AATS 
AATS 
AATS 
AATS 
AATS 
AATS 
AATS 
AATS 
AATS 
AATS 
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76. 

77. 

78. 
79- 
80. 
81  . 
62. 
63. 
Bh  . 
85  . 
66 . 
87  . 
68  . 
69. 
90. 
91  . 
9a. 
93. 
9*  . 
96. 
96 . 
97  . 

98. 

99. 

100. 

101. 
102. 
103. 
104  . 
1.0*  . 
10*  . 
10#  . 
10*. 
109. 
1 10. 
Ill . 
1 12. 
113. 
1 1**  . 
1 1*  . 
1 1*. 
11#  . 
4~l* 


•XK1AG 


•XK1AP 

•XK10R 

♦XK1ZR 

•XK1A0 


XK2ZV 

. XK3Z  V 

, XK 1 GG 

XK2GG 

, XK  366 

, XK  IPG 

XK2PG 

XK3PG  , 

XK2RG  . XK3RG 

, XK 10G 

XK206 

, XK306 

, XK 1U6 

, XK2U6 

, XK3UG  , 

XK2AG 

, XK3AG 

, XK 1 Z6 

, XK2Z6 

, XK  32G 

, XK 1 PP 

XK2PP 

XK3PP  , 

XK2RP  . XK3RP 

, XK 1 OP 

, XK20P 

XK30P 

, XK1UP 

XK2UP 

, XK3UP  , 

XK2MP 

, XK3AP 

, XK 1 ZP 

, XK  2 ZP 

, XK  3ZP 

, XK 1 RR 

XK2RR 

XK 3RR  , 

XK20R 

, XK30R 

XK  1 UR 

XK2UR 

XK  3UR 

, XK1AR 

, XK2AR 

XK3AR  , 

XK2ZR  , XK3ZR 

, XK 1 00 

XK200 

, XK  300 

,XK1U0 

, XK2U0 

XK 3U0  , 

XK2A0  ,XK3A0 

, XK 1 ZO 

, XK2Z0 

, XK3Z0 

, XK 1 UU 

, XK  2UU 

XK3UU  , 

XK2AU  , XK3AU 

, XK 1 ZU 

X K 2 ZU 

, XK3ZU 

, XK 1 RA 

. XK2AA 

XK3AA  , 

XK2ZA  ,XK3ZA 

, XK 1 ZZ 

, XK2ZZ 

, XK  3 ZZ 

, XKP  I 1 1 

,XKPI2l 

XKP I 3 1 , 

XKP I 22, XKP I 32 

XKP  113 

XKP 123 

, XKP I 33 

, PA  l 

, PA2 

,P0 

,POG 


,PVV 

,ppp 


,P6V 

“PUP 


,PPV 

,POP 


,PRV 

,PRR 


coaaon  /WATS/ 

•OPQYl  3 8 ) DEPOEYl  2,  8),  QPDU3,  3),  PR0D5( 3,  69),  PR009I2,  29) 

COAAON  /AAtS/ 

*P  Y P6  ,PP  , PR 

*P0  V * PG6  , PPG  -PR6 

♦POR  ,P00  ,PLG  ,PtP 

EQUIVALENCE!  P&0D1 ,PR605 ) 

THIS  ENTRY  COMPUTES  ALL  THE  AFORESAID  QUANTITIES 
INCLUDING  all  THEIR  2N0,  1ST  AND  AlXED  PARTI ALS 
W/RESP.  TO  STATE  AND  CONTROL.  FOR  THESE  REASONS, 
IT  IS  ONLY  CALLEO  AFTER  THE  IN-PLANE  CONTROL  HAS 
BEEN  CONVERGED. 

ASSIGN  1091  TO  LABL3 
ASSIGN  1071  TO  LABL9 
TO  LABL5 


ASSIGN  1061 
60  TO  100 


THIS  ENTRY  COAPUTES  ALL  THOSE  CONTROL-DEPENDENT 
QUANTITIES  THAT  ARE  NEEDED  TO  CONVERGE  THE  IN-PLANE 
CONTROL  WHEN  THE  ANGLE  OF  ATTACK  IS  TO  BE  OPTlAAL 

ENTRY  UTOP 

ASSIGN  105  TO  LAftL* 

ASSIGN  108  TO  LABL9 
ASSIGN  1062  TO  LABL5 
60  TO  100 

THIS  ENTRY  COMPUTES  ALL  THOSE  CONTROl-OEPENOENT 

quantities  that  are  needed  to  converge  the  in-plane 

CONTROL  WHEN  THE  ANGLE  OF  ATTACK  IS  TO  BE  NON- 
OP T I AAL 

ENTRY  UTNOP 
ASSIGN  106  TO  LABL3 
ASSIGN  109  TO  LABL9 

ASSIGN  1063  TO  LABLS  , 


ARTS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

AATS 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 


100-. 


100H 


119. 

120. 
121  . 
122. 


123. 
12s  . 
126  . 
12*. 
12/  . 
12*. 
12*. 
130. 
1 31  . 
1 32. 
1 33. 
1 3*  . 
1 2>  . 
13*  . 
13/  . 
13*. 

i W; 


lii. 
Is2. 
It  3. 
ltt  . 
It*  . 
It* . 
It/  . 
W*. 
It  9. 
1*0. 


10* 


SI NA  = SIN( ALPHA) 

UT 

COSA  = COS< ALPHA) 

UT 

SID  x SIN(DELTAE) 

UT 

COD  = COS(OELTAE) 

UT 

SIOAE  a S I NA*COD  - C0SA*SID 

UT 

CODAE  a COSA*COO  ♦ S1NA*SI0 

UT 

IF t .NOT.IlOAO)  RETURN 

UT 

CALL  AEROCO 

UT 

QS  = Q*SREF 

UT 

60  TO  LABL3 

UT 

OAtf  _ Q*AACHV 
QAH  5 Q*AACHR 

UT 

UT 

QAVA Y a QAV*AACHY 

UT 

QAYAR  : QAY«AACMR 

UT 

QARAR  a QAR»AACHR 

UT 

QVAY  a 0Y»AACHY*2. 

UT 

QYAR  = QY*AACHR  ♦ QR*AACHV  4 Q«AACHVR 

UT 

QRAR  - QR«AACHR«2.  ♦ Q+AACHRR 

UT 

ULFTYY  a SREF*CQYY*CL  ♦ QVAY*CLA  ♦ 

QAYAY*CLAA) 

UT 

OR AG V Y - SREF*( Q V V*CD  4 0VAV*C0A  4 

QAVAV»CDAA) 

UT 

ULFTYR  a SR£F*<QVR4Cl  ♦ 0YAR4CLA  4 

QAVAR*CLAA) 

UT 

ORAGVR  a SREF*( QVR»CP  ♦ QVflR*CDA  4 

QAVAR*COAA) 

UT 

ULFTRfi  a 5R£F*( QRR*CL  * OfiPtR^CLA  4 

QARAR*CLAA) 

UT 

ORAGRR  = SREF»<QRR*C0  4 QRpffi*CDA  4 

ORRAR»COAA ) 

UT 

ULFTYA  a SREF*(QY*CLA  4 QAV*CLAA ) 

UT 

DRAGVA  a $REF*<QY*COA  ♦ QAV«CDAA) 

UT 

ULFTRA  a SREF4(0R*CLA  4 QAR#CLAA> 

UT 

DRAGRA  = SREF»(0R*C0A  4 QAR*COAA ) 

UT 

ULFT Y = SR£F>< OY#CL  ♦ QAY#CLA) 

UT 

DRAGY  a SR£F#(OY«CO  ♦ OAV«CDA) 

UT 

ULFTR  a SREF#( QR*CL  ♦ QAR*CLA) 

UT 

DRAGR  a 5REF*(QR«C0  ♦ QAR*CDA ) 

UT 
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/«?  94 


I 


151 . 

152 . 

153. 

lfr*4  . 

U*  . 
1** . 
!»/. 
1»«. 
1**. 
1*0. 
1*1  . 
1*2. 
1*3. 

iW: 

u*. 
1*/ . 

1*#. 

1**. 


105 


ULFTAA  £ 9$*CLAA 
DRA60A  - 0S*CDM 
106  ULFTA  = 0S*CLA 
OR AgA  * OS«COA 
ULFT  x OS*CL 
DRAG  s QS*CD 

I F( JAER  EQ.  3)  60  TO  10T 
60  TO  LASL5 

,#“  UKU  s HtRSlI 

LlFTRR  = tltFTRA 
LlFTVA  = ULFT VA 
LIFTRA  x ULFTRA 
LIFT*  x ULFT V 
LIFT#  = ULFTR 
10^2  LIFTAA  = ULFTAA  - - 

1 LIFTA  = ULFTA 
°*3  LIFT  x ULFT 
RETURN 


UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

t*T 

UT 

UT 

UT 


170. 
171  . 

172. 
1/3. 
1/*  . 
1 /»  . 
1/*  . 
1//  . 
l/«. 
1 /*. 
1*0 : 
1*1 . 
1*2. 
1*3. 
1**  . 
1**  . 
1*»  . 
1*/  . 
1**. 
1**  . 
1*0. 
1*1 . 
1*2. 
1*3. 
1**  . 
1**  . 
i**  . 
1*/  . 
1 **  . 
1**. 
200. 
201  . 
202. 
203. 
2 Oh  . 
20*  . 
20*. 
20/  . 
20*. 
20*. 
210. 
211. 
212. 
213. 
2 lx  . 
21*  . 
21*  . 
21/  . 
2 1*. 
21*. 
220. 
221 . 
222. 
223. 
22*  . 
22*7 


107  CALL  ftiMECO 
OSD  = QS«DREF 

LCD  = ULFT+COSA  ♦ DRA6*SINA 

LSO  = ULFT*SINA  - DRA6*C0SA 

LCOA  s ULFTA*CO$A  ♦ 0RA6A*SINA 

LSOA  x ULFTA«SINA  - 0RA6A*C0SA 

XF  r XCS  - XC6R 

IF  ~ ZC6  - ZC6R 

VF  = ZE  - ZC6 

yF  = XT  - XC6 

FACTOR  x XJ/yF 

LCDAA  x LCOA  - LSD 

LSOAA  r lSOA  4 LCD 

xnCGA  x lCDAA*XF  4 LS0AA4ZF  4 QSO*CAA 
XflCii  = LCO*XF  ♦ LSO* IF  4 DB*YF  4 QSD*CA 
GO  TO  LABLi 


0/1 


LCDVR 

LCOvA 

lCDRR 

LCORA 

LSOWY 

LSOwR 

LSOYA 

lsorr 

lsora 


XACbfiA 

XAC6AA 

XnCGYA 

XftCGRA 

XAC6AA 


FACTOR 

FACTYA 

FACTRR 

FACTflA 

FACTAA 

LIFT** 

liftrr 


SItfA’DRAGV 

S1NA*DRAGR 

COSA'ORAGV 

C0SA4DRAGR 

4 S I NA+DRAGVV 
4 SINA»ORAG*R 
4 SI A)A*DRA£VA  - LSD* 

4 SIMA«DRAGRR 
4 SINA*0RA6RA  - lSOR 

- C0SA*0RA6V* 

- COSA»DRAGYR 

- C0SA4ORAGYA  4 lCOV 

- COSA*DRAGRR 

- COSA*ORAGRA  4 LCOR 
Q\tiw*Cm  4 anvnv4Cnmn) 
q *ar*cwa  4 QnvfiR*cnnn) 
QRAR+CAA  4 QARAR*CAAA ) 


SU  _ 5REF4DREF 
LCDV  = COSA*ULFTV  4 
LCOR  = C0SA4ULFTR  4 

LSD tf  = sina*ulfty  - 

LSDR  = $1 NA*ULFTR  - 
lCO**  X COSA*ULFT** 

COSA*ULFT*R 
CO$A*ULFT*A 
C0SA4ULFTRR 
C05A4ULFTRA 

sima*ulft*v 
sina*ulft*r 

S ] MA*ULFT  v a 
5 1 NA*ULF  TRfi 
SINA4ULFTRA 
XflCb**  = SD*IQYV*CA 
XACbtfR  x S0*(QVR4CA 
XrtCGRR  x SD*(ORR*CA 
4 0BRR4VF 

XACG*A  x LC0V4XC6A  - 

lcor*xcga  • 

LCD*  XCGWA  ■ 

SD*( Q*»CflA 
SD*( QR*CAA 
LC0AA»XC6A 
XACG*  x S04(0Y*CA  4 
XACGR  x $0*(QR*Cn 
XAC6A  x LCD*XCGfl 
XC6A*F  x XCGA/yf 
FACT  * x XJY/MF 
FACTS  x XJR/yf 
FACTA  x FACT0R4XCGANF 
FACT**  x XJ Vtf/yF 
XJVR/yF 
FACTV»XC6MF 
XJRR/yF 
FACTR»XC6fMF 

FACTOR/yF*(  XC6AA  4 2 . *XC6A*XC6AyF  ) 
ULFT  **  4 FACT  V **  XflCG  ♦ 2 .»FACT V*XACb* 
ULFTRfi^4  F ACTRRfXACG  4 2 . *FACTR4XAC6R 


LCOVY*XF  4 lSDYV*ZF 
LC0VR*XF  4 lSDYR*ZF 
lCDRR*XF  4 LSORR*ZF 


LSD  V*ZC6A 
(LSOR  - DBR  )*ZC6A 
{ LSO  - OB  )* ZCGAA 

4 0AV4CAAA)  4 LCOYA»XF  4 l$D*A*ZF 
4 QrtR*CAAA)  4 LCORA*XF  4 lSORA*ZF 
4 lS0AA*ZC6A 

OAV^CWfl)  ♦ LCDV*XF  4 LSOtf *ZF 
OAR*CAA)  4 lCDB*XF  4 lSOR^ZF  4 0BR*VF 
(LSO  ~ 0B)*ZC6A 


FACT0R*XAC6YV 

FACT0R*XAC6RR 


UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT. 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 

UT 
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226, 

227. 

228. 
229. 

1 2 30. 

231 . 

232. 

233. 
2 y* . 

2 3t»  . 
2 3*. 
2 3/  . 
2 3*. 

23*. 

2s0. 
2s  I . 
2s  2 . 
2s  3. 


HFTVR  = ULFTVR  ♦ FACTVfi*X«CG  ♦ FACTV*XHCGR  * FACTR*X«C6V  UT 

* 4 FACTOR*  XRC6VR  UT 

LIFTVN  = FACTtf«*XflCG  ♦ FACTOR*XflCGVfl  * f ACT Y*XrtC6lt  4 FACT**X«C6V  UT 

LIFTRW  = FACTRfl*XHCG  ♦ FACTOR* XfiC6R«  4 F ACTR*XnGGrt  * FACTfl*X«C6R  UT 

LIFTHN  = FACTnm*XnCG  ♦ FACTOR*XPlCGRn  4 FACTrt*X«C6B*2.  UT 

LIFTVA  = FACTOR*X«CGVA  4 FACTY*XnC&A  4 ULFTVA  UT 

LIFTRA  = FACTOR*XnCGRA  4 FACTR*XflC&A  4 ULFTRA  UT 

L1FTRA  = FACTOR*X«CGRA  4 FACTN»XHC6A  UT 

UFTV  = FACT0R*XP1CGV  ♦ FACTV*X«C6  4 ULFT*  UT 

tIFTR  = FACTOR*XWCGR  4 FACTR*X«C6  4 ULFTR  UT 

LlFTfl  =•  FACTOR* XHCGrt  ♦ FACTMXNC6  UT 

loo  XRCGAA  - <ULFTAA*COSA  4 0RASAA*5I«a  - L$OA  - L$OA  - LCO)*XF  UT 

®*  4 ( UtFT AA*S  I NA  - ORAGAA*COSA  4 lCOA  4 lCOA  - LSD  )«ZF  4 OSD*CMA  UT 
LIFTAA  = ULFTAA  4 F ACT0R*XflC6AA  UT 

lOo  LIFTA  =■  ULFTA  4 FACT0R*X*C6A  UT 

v LIFT  s ULFT  4 FACTORINGS  UT 

RETURN  UT 

END  UT 
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FORTRAN 

svnaOL 


RATH 

SYABOL 


CODE 


DESCRIPTION 


ALPHA  a I An 9 1 • of  attack 


CD 

CDA 

CD 

r 

I Drag  caafflclaat 

f ftm  * a /AifflrlAftt  a 1 fliift 

CD. 

V V>  9H  aiil  I 1 % i IR  l 1 1 D V 

CDAA 

3C0>/d« 

1 Saa  syafcal 

CDAA 

dcD  /an 

I Saa  syabol 

CDA 

ac0/an 

I Saa  ayabal 

COM 

d*C0/d«2 

I Saa  syabol 

CL 

V 

i * Lift  caafflclaft*  * 

CLA 

CL. 

1 Lift* ceaff Iclant  slapa 

CLAA 

ac,  /da 

I Saa  syabal 

CLAN 

ac,  /an 

L« 

I Saa  ayabaJ 

CL* 

acL/an 

I Saa  syabal 

CL** 

a^/aH* 

I Saa  apabal 

C* 

C*A 

c. 

I *e aant  caafflclaat 

c«. 

I Ao aaat  caafflclaat  c 1 a | 

C*AA 

ac.  /ao 

*a 

I Saa  ayabal 

C*A* 

ac.  /an 

I Saa  tfabal 

C** 

ac#/an 

I Saa  tyabal 

C*** 

a2c#/art2 

I Saa  syabal 

COO 

C 0 1 4£ 

A Saa  tyabal 

(RAO)  /OVNA  /< 


/DVNA  /( 

(RAD'1  ) /OVNA  /( 
/DVNA  /( 
/DVNA  /< 
/OVNA  /< 
/OVNA  /( 
/DVNA  /( 

(RAO'1)  /OVNA  /( 

/DVNA  /( 
/OVNA  /( 

/OVNA  /( 
/OVNA  /( 
/OVNA  /( 
(RAD'1)  /OVNA  /( 

/DVNA  /( 
/DVNA  /( 

/OVNA  /( 
/OVNA  /( 
/OVNA  /< 


79) 

AEROCO 

I 

ALPHA 

ALGCON 

A 

ALPHA 

AL2 

I 

ALPHA 

ARCIN 

A 

ALPHA 

CONTfiL 

A 

ALPHA 

ENVPRQ 

I 

ALPHA 

AOAECO 

I 

ALPHA 

NPLANE 

I 

ALPHA 

OUTPUT 

I 

ALPHA 

TRAJIN 

0 

ALPHA 

UT 

I 

ALPHA 

WRAP  UP 

I 

ALPHA 

192  ) 

AEROCO 

0 

CD 

OUTPUT 

I 

CO 

UT 

I 

CO 

193) 

AEROCO 

A 

CDA 

UT 

I 

CDA 

195) 

AEROCO 

A 

COAA 

UT 

1 

CO  AA 

197) 

AEROCO 

A 

CDAA 

UT 

I 

CDAA 

199) 

AEROCO 

0 

CDA 

UT 

I 

CDA 

196) 

AEROCO 

0 

COAA 

UT 

I 

COAA 

166) 

AEROCO 

A 

CL 

OUTPUT 

I 

CL 

UT 

1 

CL 

187) 

AEROCO 

A 

CLA 

STATEF 

A 

CLA 

UT 

I 

CLA 

189) 

AEROCO 

A 

CLAA 

UT 

1 

CLAA 

191  ) 

AEROCO 

A 

CLAA 

STATEF 

A 

CLAA 

UT 

I 

CLAA 

188) 

AEROCO 

A 

CLA 

UT 

I 

CLA 

190  ) 

AEROCO 

A 

CLAA 

UT 

1 

CLAA 

122) 

AOAECO 

0 

CA 

UT 

1 

CA 

123) 

AOAECO 

I 

CAA 

STATEF 

A 

CAA 

UT 

1 

CAA 

125) 

AOAECO 

0 

CAAA 

UT 

I 

CAAA 

127) 

AOAECO 

I 

CAAA 

STATEF 

A 

CAAA 

UT 

I 

CAAA 

129  ) 

AOAECO 

0 

CAA 

UT 

I 

CAN 

126) 

AOAECO 

0 

CAAA 

UT 

1 

CAAA 

153) 

0L2 

I 

COO 

OUTPUT 

I 

COD 

TH3 

I 

COD 

UT 

A 

COO 

6 OCT  72  8.01-99 


FORTRAN 

SYMBOL 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


STpRAfrE  . SUBROUTINE  pSAGfc 
BLOCK lFC  $UBR  COOE VAR 


CODAE  COS(a-4£)  0 See  lyabol 


COSA  CO  S<R  M Set  eyaboj 


OB 


Bett  drtj 


OBR  3D  /3R  I See  eyebel 

b 


0RRR  d^/SR* 


See  syabel 


OELTAE  ^ I CngUi  deflect! 


/OYNA  /( 


/OYNA  /( 


(LBS)  /OYNA  /( 


/OYNA  /( 


/OYNA  /( 


(RADS)  /DYNA  /( 


151 > AL1 

CODAE 

AL9 

CODAE 

AL6 

CODAE 

AL7 

CODAE 

alb 

CODAE 

AL9 

CODAE 

APPLY 

CODAE 

CONTRL 

CODAE 

NLDRV 

CODAE 

TH3 

CODAE 

UT 

0 

CODAE 

10)  AL1 

COSA 

AL9 

COSA 

<U-8 

COSA 

AL7 

COSA 

AL8 

COSA 

AL9 

COSA 

APPLY 

COSA 

CONTRL 

COSA 

NLDRV 

COSA 

output 

COSA 

TH3 

COSA 

UT 

n 

COSA 

163)  AL1 

DB 

AL9 

OB 

AL6 

DB 

AL7 

OB 

alb 

OIL 

ALT 

OB 

apply 

DB 

CONTRL 

DB 

NLDRV 

DB 

. OUTPUT 

OB 

STATEF 

DB 

TH3 

DB 

UT 

DB 

86)  AL1 

DBR 

ALT 

OBR 

AL6 

DBR 

ALT 

DBR 

ALB 

DBR 

AL9 

DBR 

apply 

OBR 

STATEF 

DBR 

TH3 

DBR 

UT 

DBR 

87)  ALT 

DBRR 

AL6 

DBRR 

AL7 

DBRR 

ALB 

DBRR 

AL9 

DBRR 

apply 

DBRR 

STATEF 

DBRR 

TH3 

DBRR 

UT 

DBRR 

155  > AL6C0N 

n 

OELTAE 

ARCIN 

#t 

OELTAE 

CONTRL 

A 

OELTAE 

0L1 

I 

OELTAE 

OUTPUT 

l 

OELTAE 

trajin 

0 

OELTAE 

UT 

i 

OELTAE 
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FORTRAN 

SYMBOL 


MATH 

SYMBOL 


COOE 


DESCRIPTION 


DRAG  D * Atrodynaalc  drag 


DRAGA  dO/da  * S«*  »jr»bol 


ORAGAA  d^Q /^a2  * St*  »y»k*l 


dragr  aovan  * * s««  *jr«b*i 


ORAGRA 


a2D/dRd« 


(1  St*,  tyabtl 


DRA6RR  a2D/aR2  R S ••  sytbol 


DRAGV  dD/dV  * St*  **«*•! 


DRAG YA  32D/dVda  * 5t#  •Y"b*1 


(LBS)  /DVNA  /( 


/DVNA  /( 


/DVNA  /( 


/DYNA  /( 


/OVNA  /( 


/DVNA  /( 


/ DYNA  /( 


/OYNA  /( 


69  ) 

AL5 

DRAG 

AL7 

DRAG 

AL8 

DRAG 

AL9 

DRAG 

APPLY 

DRAG 

CONTRL 

DRAG 

ENVPRO 

DRAG 

NLOBV 

DRAG 

OUTPUT 

DRAG 

TM3 

0RA6 

UT 

A 

DRAG 

72) 

ALl 

DRAGA 

AL5 

DRAGA 

•*L7 

DRAGA 

AL8 

ORAGA 

AL9 

DRAGA 

apply 

ORAGA 

TH3 

ORAGA 

UT 

A 

0RA6A 

78) 

AL1 

ORAGAA 

AL5 

DRAGAA 

ALT 

0RA6AA 

AL6 

DRAGAA 

AL9 

ORAGAA 

apply 

DRAGAA 

TH3 

ORAGAA 

UT 

A 

ORAGAA 

in 

AL5 

» * 

dra£r 

ALT 

OR  A6R 

ALB 

DRAGR 

AL9 

ORAGR 

apply 

ORAGR 

TH3 

DRAGR 

UT 

A 

ORAGR 

71) 

AL1 

ORAGRA 

AL5 

ORAGRA 

AL7 

ORAGRA 

AL0 

ORAGRA 

AL9 

ORAGRA 

apply 

DRA6RA 

TH3 

ORAGRA 

UT 

A 

ORAGRA 

76) 

AL5 

ORAGRR 

ALT 

ORAGRA 

AL8 

ORAGRR 

AL9 

ORAGRR 

APPLY 

ORAGRR 

TH3 

ORAGRR 

UT 

A 

ORAGRR 

70  ) 

AL5 

ORAGY 

AL7 

DRA6V 

AL6 

ORAGY 

AL9 

ORAGY 

APPLY 

DRA6V 

TH3 

DRAGV 

UT 

A 

DRAGV 

7$) 

ALl 

•OR  AGV  A 

AL5 

ORAGVA 

AL7 

ORAGVA 

ALB 

ORAGVA 

AL9 

ORAGVA 

APPLY 

0RA6VA 

TM3 

ORAGVA 

UT 

A 

ORAGVA 

FORTRAN 

SYMBOL 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


irfnc- 


DRAGVR 

a®D/3VaR 

ft 

Sm  tyabol 

/DYNA  /< 

T4*)  AL5 
ALT 

I 

I 

0RA6VR 

DRAGVR 

AL8 

I 

DRAGVR 

AL9 

I 

DRAGVR 

APPLY 

I 

DRAGVR 

T M3 

I 

DRAGVR 

UT 

ft 

ORAGVR 

DR AGVV 

d2D/dV* 

ft 

Sn  fyabel 

/DYNA  /( 

73)  AL5 
ALT 

I 

I 

OR  AG V V 
ORAGVV 

AL6 

I 

DRAG VY 

AL9 

I 

ORAGVV 

APPLY 

1 

ORAGVV 

TH3 

I 

ORAGVV 

UT 

ft 

ORAGVV 

DREE 

tJ 

1 

Aerodynaatc 

r af aranca  1 angtfc 

t ARCQAT/( 

$7)  STATEF 

l 

OREF 

raf 

UT 

I 

OREF 

I LORO 

I 

Logical  fla 

g That  1*  trge  If  thara  la  any 

/DYNA  /( 

id) ) arcin 

ft 

I LOAD 

aarodynaai c 

lead  on  the  vahlcla. 

CONTRL 

I 

I LOAD 

nplane 

1 

ILCAQ 

UT 

I 

I LOAD 

JAER 

I 

Aarodynaalc 

aedal  eptloa  flag 

/ARCDAT/I 

9)  AEROCO 

I 

JAER 

arcin 

1 

JAER 

OUTPUT 

1 

JAER 

statef 

I 

JAER 

UT 

I 

JAER 

LIFT 

L 

0 

Aarady  1*1*15 

lift 

(LBS)  /DYNA  /( 

60)  AL4* 

I 

LIFT 

AL5 

’1 

LIFT 

* 

AL6 

1 

LIFT 

APPLY 

I 

LIFT 

CONTRL 

I 

LIFT 

enyprd 

1 

LIFT 

OUTPUT 

I 

LIFT 

TH3 

I, 

LIFT 

UT 

o' 

LIFT 

LIFTA 

dL/da 

0 

Saa  ayabel 

/DYNA  /( 

63)  AL1 

I 

LIFTA 

AL4* 

I 

L1FTA 

AL5 

I 

LIFTA 

AL6 

1 

LIFTA 

APPLY 

I 

LIFTA 

TH3 

I 

LIFTA 

UT 

0 

LIFTA 

LIFTAA 

3*1. /d«l 

0 

$««  iy«6«l 

/OYMA  /( 

199  ) ALI 
AL4* 

I 

LIFTAA 
LI  FT  AA 

AL5 

I 

LIFTAA 

AL6 

I 

LIFTAA 

apply 

I 

LIFTAA 

TH3 

1 

LIFTAA 

UT 

0 

LIFTAA 

LlFTft 

3L/3. 

0 

Saa  syabol 

/DYNA  /( 

61)  AL4* 

I 

LlFTft 

AL5 

1 

LlFTft 

AL6 

I 

LlFTft 

apply 

I 

LlFTft 

TH3 

1 

LlFTft 

UT 

0 

LlFTft 

LIFTftA 

d2L/ dado 

0 

Saa  tyabol 

/DYNA  /( 

65)  ALI 
ALA 

I 

r 

LlFTftA 

LIFTftA 

AL5 

i 

LlFTftA 

AL6 

i 

LIFTftA 

apply 

i 

UFTftA 

TH3 

i 

LIFTftA 

UT 

0 

LIFTftA 

LlFTftft 

a*L/a«8 

0 

Saa  ayftbal 

/DYNA  /< 

B4*)  AL4* 
AL5 

i 

i 

LIFT  ftft 
LlFTftft 

AL6 

i 

LIFT  ftft 

APPLY 

i 

LlFTftft 

TH3 

i 

LlFTftft 

-- 

UT 

0 

LlFTftft 

6 OCT  72  6.0I-«H 


fortran 

SYMBOL 


MATH 

SYMBOL 


COOE 


DESCRIPTION 


STORAGE 

Lflfi 


W 'W 


LIFTR  8L/3R  0 S««  tyabol 


LIFTH»  a2L/3Rd«  0 5** 


LIFTRtt  a2L/dRd»  0 


LIFTRR  3^L/dR*  ® $t«  «y«b#l 


Li  FT  V dt/dV  0 5**  syabol 


L,FTy*  a2L/avd«  0 5#* 


LIFTYN  a2L/dVd»  0 5,# 


LIFTYR  d*L/dVdH  0 S,#  *FBkcl 


LIFTYY  d2L/8V*  ® Stt  syab*l 


/DVNA  n 


/DVNA  /( 


/DVNA  /< 


/DVNA  /< 


/DVNA  /( 


/DVNA  /( 


/DVNA  /( 


/DVNA  /( 


/DVNA  /( 


62 > ALA 
AL5 
AL6 
APPLY 
TM3 
UT 

68)  ALl 
ALA 
AL5 
AL6 
APPLY 
TH3 
UT 

83)  ALA 
AL5 
AL6 
APPLY 
TH3 
UT 

67)  ALA 
* AL5 
AL6 
APPLY 
TH3 
UT 

61  ) ALA 
AL5 
AL6 
APPLY 
TH3 
UT 

66)  ALl 
ALA 
AL5 
AL6 
APPLY 
TM3 
UT 

82)  ALA 
AL5 
AL6 
APPLY 
TH3 
UT 

6$)  ALA 
AL5 
AL6 
APPLY 
TN3 
UT 

6A)  ALA 
AL5 
AL6 
APPLY 
TH3 
UT 


I LIFTR 
1 LIFTR 
I LIFTR 
I LIFTR 
I LIFTR 

0 LIFTR 

1 LIFTRA 
I LIFTRA 
I LIFTRA 
1 LIFTRA 
I LIFTRA 
I LIFTRA 

0 LIFTRA 

1 LIFTRN 
I LIFTRN 
I LIFTRN 
I LIFTRN 
I LIFTRN 

0 LIFTRN 

1 LJFTRR 
I LIFTRR 
I LIFTRR 
1 LIFTRR 
I LIFTRR 

0 LIFTRR 

1 L1FTV 

I LIFTV. 
t Lt  FT  Y 
1 LIFTY 
I LIFTY 

0 LIFTY 

1 LIFTYA 
I LIFTYA 
I LIFTYA 
I LIFTYA 
I LIFTYA 
I LIFTYA 

0 LIFTYA 

1 LIFTYN 
I LIFTYN 
I LIFTYN 
I LIFTYN 
I LIFTYN 

0 LIFTYN 

1 LIFTYR 
I LIFTYR 
1 LIFTYR 
I LIFTYR 
I LIFTYR 

0 LIFTYR 

1 LIFT YY 
1 LI  FT YY 
I LIFTYY 
1 LIFTYY 
I LIFTYY 
0 LIFTYY 


NACHfi 

an/a  r 

I Stt 

syabo 1 

MACHRR 

a8n/dR2 

I Sit 

syabi 1 

NACHY 

an/av 

I Sm 

tyaba J 

NACHVR 

a2n/avaR 

I St* 

tyaba  1 

/DVNA 

/( 

AA) 

STATEF 

UT 

N 

1 

nachr 

MACHO 

/DVNA 

/( 

118) 

STATEF 

UT 

N 

NACHRR 

NACHRR 

/DVNA 

n 

A3  ) 

STATEF 

UT 

N 

I 

NACHY 

NACHY 

/DVNA 

n 

117  ) 

STATEF 

UT 

0 

NACHVR 

NACHVR 

6 OCT  72  S.01-AA 


fortran 

svneoL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


BLI 


«HIHM  ‘HP 


0 

q 

1 

Dy aaal e p r « a 

iaura 

( LBS/FT2  > 

/ DVNA 

/( 

27) 

ENVPRQ 

] 

0 

OUTPUT 

1 

0 

PDBCOL 

I 

0 

STATEF 

R 

0 

UT 

1 

0 

OR 

3q/dR 

I 

Set  tyalil 

/DVNA 

/< 

29) 

PDBCOL 

STATEF 

1 

r 

OR 

OR 

UT 

1 

OR 

QftR 

32q/3R8 

1 

Set  ayabal 

/DVNA 

/( 

32) 

STATEF 

UT 

R 

1 

ORB 

ORR 

ov 

3q/3V 

I 

$••  tyabil 

/DVNA 

/( 

26) 

PDBCOL 

I 

ov 

STATEF 

R 

OV 

UT 

I 

OV 

OVR 

38q/3V3B 

I 

Stt  ayabal 

/OYNA 

/( 

31  ) 

STATEF 

UT 

R 

I 

OVR 

OVR 

OVV 

a2q/av8 

1 

Saa  lyabol 

/DYMA 

/< 

30) 

5TATEF 

UT 

R 

1 

OVV 

OVV 

$10 

$ 1 nig 

R 

Sat  ay  aba  1 

/DVNA 

/( 

154) 

OL2 

1 

SID 

OUTPUT 

I 

SID 

TH3 

I 

SID 

UT 

R 

SID 

S l DAE 

sin(a-lg) 

0 

Sat  ayabal 

/DVNA 

/< 

152  ) 

AL1 

1 

SI  DAE 

AL4 

1 

SIDAE 

AL6 

I 

SIDAE 

ALT 

1 

SIOAE 

" 

■ “ * 

* 

* 

AL8 

1 

SIDAE 

AL9 

l 

SIDAE 

APPLY 

1 

SIOAE 

CONTRL 

I 

SIDAE 

TH3 

1 

SIDAE 

UT 

0 

SIDAE 

SlNA 

$ 1 na 

r 

Saa  ayabal 

/DVNA 

/< 

9) 

AL1 

1 

SINA 

AL4 

1 

SINA 

AL6 

1 

SINA 

ALT 

1 

SINA 

AL8 

I 

SINA 

AL9 

1 

SINA 

APPLV 

I 

SINA 

CONTRL 

1 

SINA 

OUTPUT 

1 

SINA 

TH3 

1 

SINA 

UT 

R 

SINA 

SREF 

s 

I 

AaraAynaaic  i 

r af  tr 

(FT2  ) 

/ARCOAT/( 

1 ) 

ARC1N 

1 

SREF 

rtf 

BNDRV 

1 

ARCDA 

CHECK 

I 

ARCOA 

FETCH 

1 

ARCDA 

SALVE 

I 

ARCOA 

STATEF 

I 

SREF 

UT 

I 

SREF 

j 

NR A PUP 

I 

ARCOA 

ULFT 

L 

n 

UatrlaaaA  aai 

reOya 

•ale  lift 

( LBS  ) 

/OYNA 

/( 

164  ) 

AL3 

1 

ULFT 

a 

NPLANE 

I 

ULFT 

UT 

R 

ULFT 

ULFTA 

dL  /3a 

R 

Saa  ayabal 

/DVNA 

/( 

166) 

AL3 

1 

ulfta 

a 

UT 

R 

ULFT  A 

ULFTAA 

3*L  /da8 

m 

R 

/DVNA 

/( 

178) 

AL3 

UT 

1 

n 

ULFTAA 

ULFTAA 

ULFTR 

dL^/aR 

R 

Saa  ayabal 

/OYNA 

/< 

133) 

AL3 

1 

ULFTR 

UT 

R 

ULFTR 

ULFTRA 

d*L#/3R3a 

n 

Saa  ayabal 

/ OVNA 

/( 

138  ) 

AL3 

UT 

I 

R 

ulftra 

ULFTRA 

UIFTRR 

a*L  /an2 

II 

R 

Saa  ayabol 

/DVNA 

/( 

137  > 

AL3 

UT 

1 

R 

ULFTRA 

ULFTRA 

ULFTV 

BL  /av 

ri 

Saa  ayabal 

/DVNA 

/( 

132) 

AL3 

I 

ULFTV 

9 

UT 

R 

ULFTV 

6 OCT  72  G. 01-44 


FORTRAN 

SYflBOL 


MTH 

SYMBOL 


CODE 


DESCRIPTION 


mas  "ar 


/> 

( 


ULFTVA 

azL  /ava« 

H 

n 

Saa  ayabal 

/DYNA 

/( 

136) 

AL3 

UT 

1 

ft 

ULFTYA 

ULFTVA 

ULFTVR 

a8L#/awa» 

n 

Set  ayabal 

/DYNA 

/( 

135) 

AL3 

UT 

1 

ft 

ULFTVR 

ULFTYR 

ULFTVW 

a*LB/av2 

n 

Saa  ijfilel 

/DYNA 

/( 

134  ) 

AL3  I 

UT  ft 

ULFTYY 

ULFTYY 

XC6 

*<* 

i 

Cant  a r of  gravity  body  ■ at at  tea 

(FT) 

/DYNA 

/( 

IBM 

DL2  I 

5TATEF  I 
UT  1 

XC6 

XC6 

XCG 

XCGfl 

dxcc/a" 

i 

Saa  ijibol 

/DYNA 

/( 

106) 

DL2  i 

5TATEF  ft 
UT  I 

XCGfl 

XCGfl 

XCGfl 

XCGflfl 

a*XC6/a«8 

i 

Saa  ayabal 

/DYNA 

/( 

*109) 

DL2  I 
5TATEF  ft 
UT  I 

XC6AA 

XCGflfl 

XCGflfl 

XCGR 

xc® 

i 

Rafaranca  icg  local loa 

(FT) 

/ ARCDAT/t 

32) 

UT 

1 

XCGR 

XJ 

j 

i 

Control  bland  factor 

/DYNA 

/( 

159  ) 

ARCIN  0 
DL2  I 

OUTPUT  I 
STATEF  l 
UT  I 

XJ 

IJ 

XJ 

XJ 

XJ 

X JR 

aj/att 

! 

Saa  tyabal 

/DYNA 

/( 

113) 

0L2  1 

STATEF  0 
UT  ^ 

XJR 
X JR 
XJR 

XJRR 

a2j/aB2 

1 

Saa  ayabal 

/DYNA 

/( 

116) 

DL2  1 
STATEF  0 
UT  I 

XJRR 

XJRR 

XJRR 

XJV 

aj/av 

1 

Saa  syabol 

/DYNA 

/( 

112) 

DL2  I 
STATEF  0 
UT  I 

XJV 

XJV 

XJV 

XJYR 

a2j/avaB 

1 

Saa  ayabal 

/DYNA 

/( 

115  ) 

DL2  I 
STATEF  0 
UT  I 

XJ  VR 
XJ  VR 
XJ  VR 

XJYY 

a2)/av2 

I 

Saa  ayabal 

/DYNA 

/( 

114) 

0L2  I 
STATEF  0 
UT  1 

XJVV 

XJVV 

XJVV 

XACG 

ft 

ivlty 

(FT-LBS) 

/DYNA 

/( 

160) 

DL2  1 

OUTPUT  I 

UT  ft 

XACG 

XftCG 

XACG 

XACGA 

dMc6/a  a 

ft 

Saa  ayabal 

/■DYNA 

/( 

176) 

0L2  1 

UT  ft 

XftCG  A 
XAC6A 

XftCGAA 

a*tfu/a«2 

ft 

Saa  ayabal 

/DYNA 

/< 

169) 

0L2  I 

UT  ft 

XftCGAA 

XftCGAA 

XACGA 

dWcc/d« 

ft 

Saa  ayabal 

/DYNA 

/( 

203) 

DL2 

UT 

1 

ft 

XftCGft 

XftCGfl 

XftCGAA 

a2«cs/a»a« 

ft 

Saa  ayabal 

/DYNA 

/( 

212) 

0L2 

UT 

I 

<1 

XftCGAA 

XftCGAA 

XftCGAA 

a^cg/a*2 

ft 

Saa  ayabal 

/DYNA 

/( 

211  ) 

DL2 

UT 

I 

ft 

XHCGflfl 

XACGflfl 

XAC6R 

aJV^/aB 

ft 

Saa  ayabal 

/DYNA 

/( 

202) 

DL2 

UT 

I 

ft 

XflCGR 

XftCGR 

XflCGRA 

a2#c6/dBa» 

ft 

Saa  ayabal 

/DYNA 

/( 

210) 

DC2 

UT 

I 

ft 

XflCGR A 
XftCGAA 

XflCGRA 

a2JVn/a  Bd» 

ft 

Saa  ayabal 

/DYNA 

/( 

209  ) 

DL2 

UT 

I 

ft 

XflCGRA 
XftCGR ft 

XftCGRR 

a2xM/aa2 

ft 

Saa  ayabal 

/DYNA 

/( 

208  ) 

DL2 

UT 

I 

ft 

XftCGRR 

XftCGRR 

XrtCGY 

aMC6/dv 

ft 

Saa  .ayabal 

/DYNA 

/( 

201  ) 

0L2  1 

UT  ft 

XflCGV 
XACG  V 
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Aof  I 


FORTRAN 

AATM 

rnnc 

DESCRIPTION 

. STORAGE  — 

SOBROUTlNI 

E USAGE 

SYrtBOt 

SYftBOt 

lUUt 

BlOCX 

LOC 

SUBB 

C0DI 

E VAR 

XflCGVA 

d*Mce/avaa 

A 

Sn 

/0YAA  /( 

20T ) 

DU 

UT 

1 

A 

XAC6VA 

XACGVA 

XACGVA 

dlMC6/3\lim 

A 

Sm  tytbol 

/DYNA  /( 

20(r) 

DU 

OT 

1 

A 

XAC6VA 

XACGVA 

xacgvr 

a*Wc6/dV  9R 

A 

Sat  ftynbol 

/DYNA  /( 

205  ) 

DU 

UT 

l 

A 

XACGVR 

XACGVR 

xnc6W 

a*tfC6/a  v2 

A 

Sta  tynbol 

/DV NA  /( 

20H) 

DU 

UT 

I 

A 

XACGVV 

XACGVV 

XT 

XT 

1 

Aarodynaaic  trln  turftca  body  i 

t ARCDAT/t 

2b) 

UT 

1 

XT 

ZC6 

I „ 

I 

Cantor  of  gravity  body  * atatfoo 

< FT  ) 

/DYNA  /( 

158) 

DU 

I 

zee 

CG 

STATEF 

! 

ZCG 

UT 

I 

ZCG 

ZCGA 

dZ_/d« 

I 

/bVMA  n 

110) 

OU 

I 

ZCGA 

C6  BW 

STATEF 

A 

2CGA 

UT 

I 

ZC6A 

ZCGAA 

a^/a.8 

I 

Sat  tytbol 

/DYNA  /( 

111  ) 

DL2 

STATEF 

I 

A 

ZCGAA 

ZCGAA 

UT 

1 

ZCGAA 

ZCGR 

ZCGR 

1 

Rafaraoca  teg  location 

(FT) 

/ ARCDAT/( 

33) 

UT 

1 

ZCGR 

ZE 

1 

/ ARCDAT / ( 

35) 

OU 

I 

ZE 

E 

UT 

I 

ZE 

6 OCT  72  6.01-M 


SUBROUTINE 
WRAP UP 


Purpose 

WRAPUP  controls  the  integration  of  the  converged  QL  solution.  It  also 
writes  that  solution  or  logical  unit  11  for  the  possible  use  later  as  a 
starting  guess  for  steepest  descent  or  QL  itself.  Finally,  WRAPUP 
controls  the  QL  trajectory  to  sizing  interface. 


L Q<L  ‘ 


WRAP UP 


PROGRAM  WRAPUP 


THIS  ROUTINE  CONTROLS  THE  INTEGRATION  OF  THE  CON- 
VERGED OL  SOLUTION.  IT  ALSO  WRITES  THAT  SOLUTION 
ON  UNIT  11  FOR  THE  POSSIBLE  USE  LATER  AS  A STARTING 
SOLUTION  FOR  STEEP.  OESC.  OR  OL  ITSELF.  FINALLY, 
THIS  ROUTINE  CONTROLS  THE  OL  TRAJ . TO  SIZING  INTER- 
FACE. 


REAL  «UB,  flUO,  I SPB,  ISPO,  JOVEL,NNB,NO 

common  /Sizing/ 

PHASE  II  SIZING  PAR AMERERS 
*TI,  VV(3).  QP(lH),  EROR,  PZ 

*5  Vi  28  > SQ(3?.5>,  SE(  11).  TLAT  T 

PHASE  1 SIZING  PARAMETERS 


SW( 20  ), 


• WBO,  - WL00  DUEB  DWEO,  TOLWT,  WPB,  TWRAT 2 

• BX1,  BX2,  BK3,  BKH , ISIZt,  TRAFlG,  TidRATO, 

♦OKI.  0*2,  0*3,  0*H,  PRFLG,  IPAS5,  IPSflAX, 

• AEXIT  TVACO,  NO,  WFO,  IDVEl,  ISPO,  1SPB, 

• XPL , T VACB,  NNB,  WEO,  WEB,  WO,  WLO, 

• DVO,  DVB.  MUB,  MUO,  VST6,  WrO 

• JTYP  BECO  , BSTG  , ORBI,  ITNBW  , ITN0W  , I5ZD(23) 
LOGICAL  SWITCH,  IlOAD 

REAL  MACH  ISP.  ISPV,  ISPR,  1SPM,  ISPT,  ISPVV,  ISPVR,  ISPVM, 
♦ISPVT,  ISPRR,  fSPRM,  ISPRT,  ISPMM,  ISPMT,  ISPTT,  LIFT,  LlFTV, 
•liftr  lifta,  LIFTVV,  LIFTVR,  LlFfvA,  liftrr,  lIftra,  MUfi,  LlFTAA, 
♦IRATEO,  ISPF,  ISPFF 
REAL  MACH V , MACHR,  MACHVR  MACHHR 
REAL  LIFTM,  LIFTvA,  LlFTRM,  LIFTMM,  L1FTMA 
COMMON  /OYNA/ 


• XX 

• C05A 

• ROR 

• flV 

♦fvact 

• ISPV 
♦ISPfiM 
♦LiFTVV 
•DR AG V V 

•liftvm 

•w 

• MUR 
•XCGMM 
•MACHRR 
♦Cmam 
•ulftva 

•COOMM 

• 510 

• DB 

COMMON 

• fOTT 
•ILOAD 
•CLnn 
♦DYN199 
•XrtCGRR 
•DVN217 

• SFC  V 


,TIME  , SI N6AM, COSG AM, OnEGA  ,0flEGA2 
, DYNO)  1 , OmEGAT , T AMP  ,PA  ,R0 
, CSR  , TEnPRR, P ARR  , RORR  ,CSRR 
OR  , 0 V V , OVR  , QRR  ,FVAC 

,FVACW,FVACVR,F  V ACRR , F V ACT  T , T 
, I SPR  , I SPM  , I SPT  ,ISPVV  , ISPVR 

. ISPRT  , I spam  ,Ispmt  , Isptt  ,lift 

liftvr,uftva,liftrr,uftra,drag 

ORAGVR.ORAGVA  DRAGRR,ORAGRA,ORAGAA 
LlFTRM, LIFTMM, LIFT MA,DBR  , DBRR 
S INPHl , COSPH I , S INPSI , COSPS 1 , S I NRHO 
XKG  , XKP  , AK I N CDO  ,CDOM 

ZCGM  , ZCGflM  ,XJV  , X JR  ,XJVV 

SlN2R0,C0S2R0,C0S2G«,Cn  ,CMA 
,Cno  ,Cmom  ,CMomn  .Cmamw  ,ulftv 
ulftrr,ulftra,ipow  ,xarc  ,TSTART 

CLAMM  ,CLOfl  , CLOMM  ,0VNH9,CT 

deltae,coe  , xcg  ,zcg  ,xj 

ULFT  ,CULFT  ,ULFTA  ,TSTA6E, times 
/OYNA/ 

J1  ,J2  , J3  , XMCGA  , F V ACF 

F*M  ,Fxnn  , SWITCH, INOF  ,CL 
CLAM  ,CD  , CDA  ,COM  , CD AA 

DYN200, XMCS  V ,XMCGR  , XMCG«  ,XMCGYV 
XMC6RM,XMCGRA,XMCGMM, XnCGMA  RORRR 
I DAM  T Ai RB  ,TAIRBV,TAIRBH,TARBV V 

SFCH  SFCW  , SFCHH  ,SFCVH 


ULFTAA 

CLA 

CDMM 

XrtCSVR 

0VN21H 

TARBHH 


,G  ,SINA-  , 
TEMPR  PAR 
MACH  ,0 
FVACR  , F VACM  , 
MACHR  ,1SP 
ISPVT  , ISPRR  , 
LlFTR  , LIFTA  , 
ORAGfi  ORAGA  , 
PHI  , L I F TM  , 
AE  , TAX 
S1NR0R, COSROR, 
FK  ,XCGM 
XJRR  , MACHVR , 
CMAA  ,CMMM  , 

ulftvv,ulftvr, 
GRR  , LlFTAA, 
SIOAE  ,C00 
CALPHA,ALMAX  , 
IRATEO, FRATED 

ISPF  , ISPFF  , 
CLM  ,CLAA  , 
COAM  , D YN198, 
XMCG  VM  XMCGVA, 
DYN2 IS , DYN216, 
TARBVH  SFC  , 


COMMON/ ARCD AT/ 


• SREF 

,EJ 

,XISP 

,tmult 

,dtnc 

♦ I ATM 

, InOOE 

, J AER 

, JPRO 

, QMAX 

♦xlmax 

HDMAX 

, GMDOT 

ALFMAX 

PHMAX 

• MAEB 

, MAEC 

MAED 

, MAEE 

,MAEF 

•MT 

, Ml  SP 

,MXCG 

MZCG 

, MWOA 

•MOB 

, XCGR 

, ZCGR 

XE 

;ze 

• DREF 

MCND 

, RHOB 

, QMULT 

, REMAX 

DIMENSION 

ARCOA(hO) 

EQUIVALENCE! SREF, ARCDA) 

REAL  MAGBV,  MU,  M,  LV,  LGAM,  LPSI,  LR,  LRHO,  lmu,  lm,  ltau,  NOM 

♦ , LHT 
COMMON  /D/ 

♦ X,  H.  X I ( 9 ) , MAGBV.  ERR,  D9,  010,  CC  SO  > _ C5AVE(«iO>,  V,  GAM,  PSI, 
•ALT , HHO, MU,M,  TAU,  HT,  LV,  LGAM  LPSI,  Lft,  LRHO,  LMU,  LM,  LTAU, 

♦ LHT,  D 1 09,  DUO,  Gv(iO),  ZSAVEC 20 >,  0T(  20^,  NP0fNT(20),  OElT(  20  ) 
DIMENSION  NOM( 20 ) 

EQUIVALENCE  (NOM,  V) 
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too 

O 


COMMON/GLOBAL/ 

*GR  ,ER  ,OMGZ  . XLAflRF  YHURF  ,LUM  ,TO  , EPSLON . I NNEH  4 

• ITRMAX,  JJOPU)  ,1FATAL,NARC  ,NBRAN  ,NFARC  ,ID(9)  ,KTAB(2&)f 

•ITAB!  20 ),  SI G.MAXTAB  GM, PS  I Af  , I PFLG 1 , J PF LG2 , I P FlG3 , 1 PFLG9 , 

* INEGFL!  2w ),  ITPSO.  K5GL . INARK  KSLOBL!  7 ) 

COMMON  /BLOCK/  IlC(10,  20  I l£T(  10.  20),  ITCdO,  20),  JTAB(20), 

• iTCTdO,  20),  LTABUO},  NO&NOW,  N0C(20),  VALlCdO,  20), 

•VALTC! 10,  20),  I PAY 

COMMON  /V/  V(  620 ) 

COMMON  /20/  20(50) 
common  tit  Z( 50 > 

COMMON  /PC/ 

•PCI  ,N  ,PC3  ,IOP  ,PC5  ,PC6  , PC7  MAXBC  ,NAUX 
COMMON  /CNTRL? 

*NU  , ITER  I T APA  ,ITAPB  ,JMIN  ,JMAX  , LINES  ,KPT  ,MOM 

• KARO  ,IN0X!9)  NEWNOM  CNT0L6,AH0C  ,RHOP  ,NPTS  ,MINE$  , 

• KPAGE  , NNP  , NUP  ,IARC  , TRSTR  ,1MAX  ,KTIME  . KONVER , NOPRNT , 


*NU  , I TER  I T APA  ,ITAPB  ,JMIN  ,JMAX  , LINES  ,KPT 

• KARO  ,IN0X!9)  NEWNOM  CNT016/RH0C  ,RHOP  ,NPTS  , 

• KPAGE  ,NNP  NUP  ,IARC  , TRSTR  ,IMAX  KTIME  KONVER, 
•INBDRYNUPAGE, I VARY! 20),  NN,  NOVARY  PLAST,  ZLA$T,  KOOES 

LOGICAL  INBDRV,  NEUNQM,  KONVER,  NOP&NT,  NuPAGE 
OATA  WRAPUX/fcHfcJRAPUP/ 

1 FORMATdHO,  35HTHE  FOLLOWING  ITERATE  1$  CONVERGED./) 

EQUI VALENCE! TT,  X),  (OT,  H) 

DIMENSION  S( 820  > 

DIMENSION  ZERO! 20) 

DATA  ZER0/20*0./ 

OATA  DEG/57. 2957795130823/ 

CALL  ETIME 

WRITE  CONVERGENCE  NOTE 

- WRITE!  6, ‘ 1 ) * ' 

COMBINE  UP  THE  LAST  NOMINAL. 

L = 1 - N 
MOM  = 0 

00  70  I ARC  = 1,  NARC 

L = L ♦ N 

MOM  = NOC! I ARC ) 

NN  £ N*( MOM  • 1) 

CALL  READMSdl,  S,  NN,  2* I ARC  - 1) 

CALL  MATMLUY<L),  S!  N 4 U,  C,  N,  MOM,  1 > 

CALL  MATADD!  Y!  L ),  Y!  L ),  S,  N,  1) 

IF! 1 ARC  - 1)  50,  50.  60 


120. 

50 

OT! I ARC  ) = V(L  • 

7) 

4 TO 

JUL21 

121. 

GO  TO  70 

JUL21 

122. 

60 

OT(IARC)  = Y(l  4 

77 

4 OT! 1 ARC  - 1 ) 

JUL21 

70  CONTINUE 
REWINO  I NARK 
NS  = N/2  - 1 

WRITE!  INARK)  TO,  NS,  NARC,  (QT(U>,  IK  = 1,  NARC),  ( ZERO!  U ),  U 
• 1,  NARC),  ! ZERO!  IK  >,  IK  = 1,  NARC),  (ZERO(lK),  IK  = 1,  NARC) 

DO  71  I = 1,  50 

71  2(1)  = 0. 

NN  = N ♦ NAUX 

call  OINTRI  4 

L = -N 
KOOES  £ -1 
10AM  = 1 

START  THE  INTEGRATION. 

81  DO  13  I ARC  = 1,  NARC 

STORE  FIRST  POINT  OF  SUBARC  IN  Z-ARRAY. 

L = L 4 N 
00  9 I * l,  N 
J = L ♦ I 
9 2(1)  = V!  J ) 

STORE  INITIAL  POINT  OF  SUBARC. 
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150. 

III. 

1*2. 
U3. 
bn. 
1** . 
w*. 

1W. 
1*0. 
1*9. 
1*0. 
Ul. 
1*2. 
1*3. 
1*4  . 
1*»  . 
1**. 
-U 


TI  = I ARC  - 1 

JUL21 

JUL21 

COnPUTE  FINAL  POINT  OF  SUBARC. 

JUL21 

JUL21 

TF  = I ARC 

JUL21 

JUL21 

READ  IN  THE  DATA  FOR  THIS  SUBARC. 

J0L21 

JUL21 

JUL21 

CALL  REA0nS(9.  ARCDA  HZ,  I ARC) 

JUL21 

COHPUTE  STEPSI ZE . 

JUL21 

JUL21 

DT  = DTNC/ZUOP) 

JUL21 

NPTS  = 1000000 

JUL21 

NEWNOH  = .TRUE. 

JUL2  1 

TT  = TI 

JUL21 

TP  = TI 

JUL21 

KPT  = 0 

JUL21 

166. 

169. 

If?: 

172. 

1/3. 

1/4  . 

l/»  . 
1/*  . 
1//. 
1/0. 
4-t- 


12  KPT  = HPT  ♦ 1 

CALL  NLDR V( Z.  ZO  ) 

TS  = Z(  IOP  >*l  TT  - Til 
CALL  ENVPRB 
ALFDE6  = ALPHA*DE6 
PHI  DEG  = PH!*0E6 

0RITE<  INARA  ) lARC.TiHE  1$,  AlFOEG, PH  I DEG, 
•LY.  LGARLR,  Lfl. LPS* , LRHO,LrtU.LHT,LTAU 
IF(aBS(TP  -Td  .GE.  l.E-8)  GO  TO  120 
CALL  OUTPUT 
TP  = TP  ♦ DTP I*OT 

IF(A8S(TF  - TT)  .LT.  l.E-8)  60  TO  125 


JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

V, bAfl,  ALT,fl#P51, RH0,NU, HT,  JUL21 
JUL21 
JUL21 
JUL21 
JUL21 
JUL21 


120—1 


□ 


180. 
181 . 

102. 

10.3. 

18H. 

185. 


120  I Pt  TT*  DT  .LT.  TF  - l.E-8)  60  TO  121 
OT  = TF  - TT 
NPTS  s APT  ♦ 1 
TP  = TF 


JUL21 

JUL21 

JUL21 

JUL21 


121  CALL  RKUTT2 
GO  TO  12 


JUL21 

JUL21 


166. 

187. 

168. 

109. 
190. 
191  . 
192. 
19». 


125  I FI  I ARC . EQ . NARC  > 60  TO  13 

1FUTYP  .GT.  0)  CALL  QLAEND 


JUL21 

JUL21- 


13  CONTINUE 

ENOFILE  1 NARK 
REMINO  INARK 
CALL  TRJNDO 
RETURN 
ENO 


JUL21 

JUL21 

JUL21 

JUL21 

JUL21 

JUL21 


□ 


12-J 


6 OCT  72  G .01-99 


FORTRAN 

SYMBOL 


MATH  , 
SYMBOL 


CODE 


DESCRIPTION 


ALPHA 


ALT 

ARCDA 

C 


0T 

OTNC 

OTPI 

GAM 

HT 

l ARC 


STORAGE 
BL^K  LOIT 


» 


h 


S 


rtf 


c 


h 


At 

7 


Q 

I 


I Ang I a of  attack 


I Altitude 

I Aar o dynast  c reference  araa 

I A forty  sord  array  containing  tha  vector 
I. a.  tha  so  1 1 1 p 1 1 er  * for  the  hoaogeneous 
so  I at  toss. 

N Intogratlo*  stop  stzo  In  quaslttso. 

I I nt  a gr  at  Ion  Interval 

I Print  frequency  for  trajectory 

1 Relative  flight  path  angle. 

! Heating 
N Subarc  oushor. 


(RAD) 

/OYNA 

/( 

79  ) 

AEROCO 

I 

ALPHA 

t 

ALGCON 

n 

ALPHA 

- 

al2 

1 

ALPHA 

ARCIN 

n 

ALPHA 

CONTRL 

m 

ALPHA 

ENVPRQ 

I 

alpha 

MO  ME  CO 

I 

ALPHA 

NPLANE 

I 

ALPHA 

OUTPUT 

I 

ALPHA 

TRAJIN 

0 

ALPHA 

UT 

I 

ALPHA 

URAPUP 

I 

ALPHA 

(FT) 

/D 

/( 

99  ) 

OUTPUT 

I 

ALT 

STATEF 

I 

ALT 

WRAP  UP 

I 

alt 

(FT2) 

/ AR  CDAT / ( 

1 ) 

ARCIN 

1 

SREF 

BNDRY 

I 

ARCDA 

CHECK 

I 

ARCDA 

FETCH 

I 

ARCOA 

SALVE 

I 

ARCDA 

STATEF 

I 

SREF 

UT 

I 

SREF 

URAPUP 

I 

ARCDA 

’ s. 

/O 

/( 

11  ) 

BNDRY 

I 

C 

BRANPT 

I 

C 

GROPE 

I 

C 

INTRPT 

I 

C 

* 

neUCS” 

H 

C 

nldrv 

I 

C 

NOftNAL 

I 

c 

WRAP UP 

I 

c 

/D 

/< 

2) 

ALA 

I 

H 

INARC 

M 

H 

MADAMS 

I 

H 

RKUTT1 

1 

H 

RKUTT2 

1 

H 

SALVE 

N 

H 

WRAP  UP 

M 

DT 

(SEC) 

/ AR  CDAT/( 

5 ) 

WRAP  UP 

I 

DTNC 

/ ARCDAT/( 

6 ) 

WRAP  UP 

I 

OTPI 

(RAO) 

/D 

/( 

92) 

ARCIN 

I 

GAN 

ENVPRQ 

I 

GAN 

OUTPUT 

I 

GAN 

STATEF 

1 

GAN 

WRAP  UP 

1 

GAN 

( BTU) 

/D 

/( 

99  ) 

OUTPUT 

I 

HT 

URAPUP 

I 

HT 

/ CHTRL 

/( 

29  ) 

ARCIN 

1 

I ARC 

BCOND 

M 

I ARC 

BNDRY 

A 

1 ARC 

BRANPT 

I 

1 ARC 

CHECK 

M 

I ARC 

COSTAB 

I 

I ARC 

COSTAI 

I 

I ARC 

ENDPT 

I 

I ARC 

FORCES 

I 

I ARC 

INARC 

M 

I ARC 

INTRPT 

] 

1 ARC 

MAGIC 

M 

I ARC 

MARCH 

1 

I ARC 

qltosz 

I 

I ARC 

SALVE 

A 

I ARC 

URAPUP 

A 

1 ARC 
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DESCRIPTION 


STORAG 

BLOCK 


SUBROUTINE 
SU'B'R  CODE 


10  AH 

0 

Optional  ateospherlc  calculations  flag. 

/DYNA 

/< 

218) 

ARCIN 

0 

IDAH 

IDAfl  = -Is  Coepute  83Pt/8R*7 

ERROR 

NPLANE 

1 

0 

IDAH 

IDAH 

IDAH  = 0:  No  optional  calculations; 

IDAH  s 1:  Conpute  a3pg/8R3,  n a , 8jig/8R,  etc. 

5TATEF 

I 

IDAH 

URAPUP 

0 

IDAH 

I OP 

7 

Coaponent  numb 9 r that  corresponds  to  the  OL  state 

/PC 

n 

INARC 

I 

IDP 

variable  r IDP  = 8. 

URAPUP 

I 

IDP 

I NARK 

1 

Logical  unit  on  ehlch  Initial  and  converged  arcs 

/GLOBAL/! 

95) 

CHECK 

0 

INARK 

are  stored.  INARK  = II. 

FETCH 

l 

I NARK 

INARC 

I 

INARK 

HARCH 

I 

INARK 

WRAP UP 

I 

INARK 

KOOES 

0 

Not  used. 

/ CNTRL 

/< 

56) 

GROPE 

0 

KOOES 

NLDRV 

H 

KODES 

NR AP  UP 

0 

KODES 

H The  subarc  point  nuabar.  KPT  = 1 on  th«  first 
point  of  subarc,  and  KPT  = NPT5  on  the  last  point 
of  tba  subarc. 


I Rotative  flight  path  angla  costat* 

I Ho  at  I ng  cestata 

! Hass  cestata 

I Relative  longitude  cestata 

I Relative  aslauth  angle  cestata 

I Altitude  cestata 

I Latitude  costata 

1 Sub arc  dur  at  Ion  costata 
1 Relative  velocity  costata 


8)  BCOND  0 
BNDBV  0 
FORCES  I 
HAGIC  0 
RKUTT1  I 

salve  n 


/ D 

/< 

101  ) 

ALl 

I 

LGAH 

ARCIN 

I 

LGAH 

CONTRL 

I 

LGAH 

NLDRV 

1 

LGAH 

* 

OUTPUT 

1 

LGAH 

HR  AP  UP 

I 

LGAH 

/O 

/( 

108) 

NLDRV 

I 

LHT 

URAPUP 

I 

LHT 

/O 

/( 

106) 

NLDRV 

I 

LH 

OUTPUT 

1 

LH 

URAPUP 

1 

LH 

/D 

/< 

105) 

NLDRV 

I 

LHU 

OUTPUT 

I 

LHU 

URAPUP 

1 

LHU 

/O 

/< 

102) 

ALl 

1 

LPSI 

ARCIN 

I 

LPSI 

CONTRL 

1 

LPSI 

NLDRV 

I 

LPSI 

OUTPUT 

1 

LPSI 

URAPUP 

1 

LPSI 

/D 

/( 

103) 

NLDRV 

I 

LR 

OUTPUT 

I 

LR 

URAPUP 

I 

LR 

/D 

/< 

1 Os  ) 

NLORV 

I 

LRHO 

OUTPUT 

1 

LflHO 

URAPUP 

I 

LRHO 

/D 

/( 

107) 

OUTPUT 

l 

LTAU 

URAPUP 

I 

LTAU 

/O 

/( 

100) 

ALl 

I 

LV 

CONTRL 

I 

LV 

NLDRV 

I 

LV 

OUTPUT 

r 

LV 

URAPUP 

i 

LV 

6 OCT  72  6.01-VN 


FORTRAN 

SYMBOL 


ft 


non 


wo 


w 


NARC 


naux 

NEUWOft 


woe 


MATH 

SYPIBOL 


CODE 


DESCRIPTION 


BLOCK 

LOC  SUBR 

CODE  VAR 

( G'S) 

/O  /< 

97)  ALA 

I 

ft 

AL7 

I 

n 

ALB 

I 

ft 

AL9 

I 

n 

APPLY 

I 

ft 

BRANPT 

I 

ft 

COSTAB 

I 

ft 

COST  A) 

I 

ft 

INTRPT 

I 

n 

NLDRV 

I 

ft 

OUTPUT 

1 

n 

SALVE 

I 

n 

STATEF 

) 

n 

NR AP  UP 

I 

ft 

be  1 n g 

/CWTRL  /( 

9)  GROPE 

0 

ftOft 

IWARC 

n 

ftOft 

LIWORV 

I 

ftOft 

NOnWAL 

I 

ftOft 

SALVE 

« 

ftOft 

URAPUP 

r 

ftOft 

<U  AD) 

/D  /< 

96)  OUTPUT 

I 

RU 

POBCOL 

i 

nu 

URAPUP 

I 

RU 

S.  N 

/PC  /( 

2)  BNORY 

I 

N 

CHECK 

i 

W 

INARC 

I 

w 

LINORY 

i 

N 

NLDRV 

i 

N 

NOWNAL 

I 

N 

RKUTT1 

I 

H 

SALVE 

I 

N 

URAPUP 

I 

N 

/£lobal/( 

18)  BCOND 

1 

NARC 

BNORY 

I 

NARC 

CHECK 

l 

NARC 

ENDPT 

I 

NARC 

ENVPRO 

1 

NARC 

FETCH 

I 

NARC 

INARC 

1 

NARC 

ftAGIC 

I 

NARC 

OLTOSZ 

I 

NARC 

SALVE 

I 

NARC 

URAPUP 

I 

NARC 

jr  ate  d 

/PC  /( 

9 ) URAPUP 

I 

NAUX 

It  a 

/CWTRL  /( 

15)  INTERP 

0 

WENNOft 

i 

LINORV 

« 

NEUWOft 

RKUTT1 

0 

NEWHOft 

SALVE 

0 

NEUWOft 

URAPUP 

0 

NEUWOft 

/CWTRL  /< 

52  ) BNDRY 

n 

NN 

INARC 

ft 

NN 

HADAftS 

J 

NW 

AAGIC 

ft 

NN 

NO  PINAL 

I 

NW 

RKUTT1 

I 

NW 

RKUTT2 

I 

NN 

SALVE 

ft 

NN 

URAPUP 

n 

NN 

I Mass 


I ntegrated. 


I Re latl m long  I tude 


- 10. 


1 Nu 


In  the  problem. 


on  converged  trajectory.  WAUX  = 5. 

A logical  flag  that  indicates  to  tbt  Rungi 
Integration  ahether  or  not  the  systea  Jacobian 
needs  to  be  reevaluated. 


The  huaber  of  quantities  currently  being 
numerically  integrated. 


An  array  containing  a running  total  of  the  nuaber 
of  free  (unknoan)  state  and  costate  variables  at 
the  start  of  each  subarc. 


/ BLOCK  /( 


8h2  ) BNORY  I 
BRANPT  I 
COSTAB  0 
COST  A I 0 

costao  0 

INARC  1 
JWTRPT  I 
SALVE  I 
URAPUP  I 


WOC 

WOC 

NOC 

NOC 

NOC 

WOC 

NOC 

NOC 

NOC 


6 OCT  72  6 . 01  -•#*» 


FORTRAN 

SYftBOL 


DESCRIPTION 


block 

LOC  ” 

‘TubT 

"cfio 

E VaI 

/ CNTRL 

/( 

19) 

BCOND 

0 

NPT  5 

BNDRY 

0 

NPTS 

FORCES  I 

NPTS 

INARC 

A 

NPTS 

MAGIC 

0 

NPTS 

SALVE 

A 

NPTS 

WRAPUP 

0 

NPTS 

(RAO) 

/DYNA 

/( 

80) 

CONTRL 

A 

PHI 

OUTPUT 

I 

PHI 

WRAPUP 

I 

PHI 

(RAO) 

/O 

/( 

93) 

OUTPUT 

I 

PSI 

STATEF 

I 

P5I 

WRAPUP 

I 

PSI 

i the 

/D 

/( 

171  ) 

IN  ARC 

0 

QT 

ms 

WRAPUP 

A 

OT 

(RAD) 

/D 

/( 

95) 

AL9 

I 

RHO 

OUTPUT 

I 

RHO 

STATEF 

I 

RHO 

WRAPUP 

I 

RHO 

(SEC) 

/DYNA 

/( 

2) 

ENVPRO 

1 

TJAE 

OUTPUT 

I 

TIAE 

PDBCQL 

I 

TIRE 

STATEF 

A 

TIAE 

WRAPUP 

I 

tine 

(SEC)  /GLOBAL/( 


(FT/SEC)  /D  /< 


An  820  mord  array  containing  the  particular  and 
homogeneous  solutions  doing  Integrated.  The  first 
18  nords  comprise  the  particular  solution.  Each 
Block  of  16  mords  thereafter  comprises  an 
independent  homogeneous  solution. 


1)  ALH  1 

- -BNDRY  0 
ERROR  I 
FETCH  0 
FORCES  I 
INARC  ft 
INTERP  I 
MADRAS  a 
RKUTT1  A 
RAUTT2  A 
SALYE  A 
STATEF  1 
WRAPUP  A 

7)  FETCH  II 
INARC  A 
TRAJ1N  I 
WRAPUP  I 
91)  All  I 
AL9  I 
ALT  I 
ALB  I 
AL9  I 
BCONO  I 
BNDRY  0 
BRANPT  A 
CONTRL  I 
ENOPT  I 
ENVPRO  I 
FETCH  0 
INTERP  a 
INTRPT  A 
NLDRV  0 
NLDRV  I 
OUTPUT  1 
PDBCQL  1 
STATEF  I 
WRAPUP  I 

1 ) GROPE  0 
INARC  A 
AAOAAS  A 
OLTOSZ  I 
RKUTT1  A 
SALVE  A 
WRAPUP  I 
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FORTRAN  HATH 

SVABOL  SYABOL 


CODE 


DESCRIPTION 


STORASE  SUBROUTINE  US ABE 

bu!i1:k UiZ  Subr  c6de  var 


Z l A A 20  lord  array  used  to  store  the  total  linear  /Z  /(  1)  BNDRV  I Z 

solution  froa  the  preceding  QL  iteration.  BRANPT  I Z 

ENOPT  I l 
ENVPRQ  I Z 
INTERP  0 Z 
1NTRPT  I Z 
LI  NOR V I Z 
NOANAL  A Z 
OUTPUT  1 Z 
RltuTTl  0 Z 
AKUTT2  A Z 
SALVE  A Z 
WRAPUP  A Z 

ZD  1 A 20  aerd  array  containing  the  vector  f(X,Z,U)  In  /ZD  /(  1)  ENVPRQ  1 ZD 

Equation  17.1-7  in  Vo  1 . 1 of  this  document.  LINDRV  I ZD 

OUTPUT  I ZO 
RKUTT2  I ZD 
WRAPUP  I ZD 
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SUBR0UTINE 

SIZIN 


SIZIN 


Purpose 

SIZIN  is  the  routine  that  adjusts  trajectory  data  for  sizing  solutions. 
Description 

SIZIN  makes  necessary  changes  in  several  types  of  trajectory  data  after 
each  pass  through  either  in  the  phase  I sizing  or  in  the  SSSP  module. 

1.  Boundary  Condition  Data 

Vehicle  initial  weight,  cut-off,  and  drop  weights  as  well  as  optimized 
initial  states  are  reset  by  SIZIN.  This  is  done  by  scanning  for  and 
changing  data  contained  on  the  boundary  condition  random  access 
file.  This  is  file  9,  record  21. 

2.  Arc  Data 

Propulsion  system  and  aerodynamic  reference  areas  are  modified 
according  to  changes  generated  during  sizing,  and  the  modified  data 
is  placed  back  on  the  arc  data  random  file  9,  records  1 through  20. 
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REAL  HUB,  HUO  I $P  B , ISPO,  I DVEL, NNB, NO 

cdhhon  /sums/ 
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I READ  IN  BOUNDARY  CONDITIONS 

sum 

99. 

10 

CALL  READHS! 9, BNARR, 900.21 ) 
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60  TO  90 

sum 

68. 

22 

BNARR!  AU3)  = SQ!  17,  I VD  -2> 
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sum 
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2CC 

IF! IARC.NE.2)  60  TO  210 

sum 
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IF!  I VO.NE. I ) GO  TO  90 

sum 
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IF! ICO. NE.2)  GO  TO  90 

sum 
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196. 


EJ  = $0(22,5)  ♦QP(ll) 

GO  TO  580 

IY-B  EN61  NE  ORBITER 


AAA 

AAA 

SI  21 W 


580- 


197.  510  IF( IARC.LT.10RB1  ) GO  TO  600 

1 98 . FRATE=  0P(  2 ) 

199.  MSP  = 0P(  A) 

150.  T*ULT=1. 

151.  1F( 0P( 8 l.NE.O > SREF  =QPC8) 

152.  IF( QP( 12 J.NE.O.  ) EJ=OP<  12) 


SIZIN 
SI  2 J A) 
S I Z 1 N 
SIZIN 
SIZIN 
UH 


153.  580  CALL  URlTflSt  9, SREF, 5 1 , 1 ARC ) SIZIN 

159.  N=I ARC  SIZIN 

155.  WRI  T£(  6,  TO  ) N,  C ARCO  A<  I ),  I = 1 , 1 7 ),  ( ARCOAC  J ),  J = 32,  3 T)  ,ARC0AM1  I,  SIZIN 

156.  *ARCDA<92),  SIZIN 

157.  1<  ARCDA(K),  SIZIN 

156.  24=18,31  ), ARCOA( 38 ) SIZIN 

159.  70  F0R*AT(//l7ti  DATA  FOR  SUBARCI 3 / 5 X, 5«SREF=E 1 2 . 6, 9X , 9MN0Z . AREA=E 1 SIZIN 

160  12.6,9X,9H1$P=F7.3,9X9HTH.  MULT  =F5 .2, 12X,  8H0ELTA  T=F9.5/  SIZIN 

161.  210H  PRT  *ULT=F5. 1, 1 IX,9rtATM.0PTN=I2,l9X,9HCNT.*0DE=I3,13X,9HAER.0P  SIZIN 

162.  * TN=I 3 , 13X, 9MPR0  0PTN=I3/  51, 5HO«AX=F7 . 2, 1 3X, 5H6*AX=F6 . 3,  SIZIN 

163.  910X,  9MMAX  LI  FT=E  12 . 6,  SIZIN 

169.  5 5X.8HHEAT  SIZIN 

165.  6 RT=E12.6,7X,6H6N00T=E13.6/3X#7HALF«AX=F7.3,11X,7HPHIRAX=,F7.3  SIZIN 

166.  7,I1X,  7HXCGR€F=F8.3, 10X,  7HZCSREF=F  7 . 3,  1 3X,  $HXENG=F6.3/  SIZIN 

167.  * 5 X 5HZENG=F7.3,12X,6HXTAlL=F8.3,12X,5M0fiEF=F7.3,UX,6HREnAX=  SIZIN 

168.  * E12.9,11X  6HFR ATE=E12 . 9/  SIZIN 

169.  X15H  TABLE  NUMBERS/9X, 6HAER0  AI 9,  7H  AERO  BI9,7H  AERO  CI9,7H  AERO  0 SIZIN 

170.  A 1 9 , 7H  AERO  EI9,7H  AERO  FI9,7H  AERO  SI9,7H  THfiuSTl9,7H  ISP  LSI9,  SIZIN 

171.  B7H  XCGI 9, 7H  ZCGI 9/  9X,6HW1ND  AI9,7H  NINO  BIN  SIZIN 

172; C,7H  BASE  019, 7H  CNP19) SIZIN 


j*73. 

179. 


600  CONTINUE 
C V WRITE  OUT 


NEW  BOUNDAR V CONDITION  ARRAY 


SIZIN 

SIZIN 


175. 

176. 


800  CALL  WRITNS(9,BNARR,900,21) 
RETURN 


SIZIN 

SIZIN 


177.  1000  CONTINUE 

178.  IPAYO  =0 

179.  INTB  =0 

180.  NSB  =0 

181.  NS ARC=0 

162.  C SCAN  ARRAY  TO  DETERMINE  IF  IT  IS  A BRANCH  PROBLEM 

183.  C BRANCH  CONTAINS  PAYOFF 

189.  XI = 0 

185.  DO  1050  1 ARC=1 , NARC 

186.  IT=  I T AB<  IARC) 

187  IFUT.EO.O)  GO  TO  1050 

188.  DO  1095  J=1 , IT 

189.  ICO  = BNARRi XI ♦ 1 ) 

190.  C 

191.  I F€ IC0.LE.10)  GO  TO  1095 

192.  NJTARC  = IARC 

193.  INTB  = 2 

199.  NSB  = ICO  -10 

195.  NSARC=  IARC  -1 

196.  60  TO  1051  


AND  WHICH 


AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 


1050- 


1095- 


1 051-1 J 


1 1 9 7 . 


1095  XI = XI  *3 


AAA 


198.  1050  CONTINUE 

199.  GO  TO  1080 

200.  C CHECK  FOR  BRANCH  THAT  CONTAINS  PAYOFF 


AAA 

AAA 

AAA 


] 1080—1 


201.  1051  CONTINUE 

202.  KT=0 

203.  DO  1075  I ARC= 1 , NARC 

209.  XI  = KTAB< IARC) 

205.  JF(KI.EO.O)  GO  TO  1075 

206.  00  1070  J=I,KI 

207.  IF( IARC. NE. NARC)  GO  TO  1070 

208.  LCD  = IABS( I CODt  T AR6<  KTM  ))> 

209.  !F<  LCD. NE. 2 ) GO  TO  1070 

210.  LYO  = IABS( IVOO(TARGC AT*1))> 

211.  IPAYO  = LYO 

212.  GO  TO  1077 


AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 

AAA 


1075- 
1070- 
1070- 

1077— ii 


213. 


1070  XT=XT  *2 


AAA 
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1 G 75  CONTINUE 
i OTfe  CALL  STPI T(  53  1 

1077  CONTINUE 

1060  CONTINUE 


C V PHASE  II  INTERFACE 

C V- A SCAN  INITIAL  CONDITIONS 

*1=0 

DO  1300  IARC=1,NARC 
KKc  ITAB( l ARC  ) 

1F( KK.EQ.O)  GO  TO  1300 
DO  1100  J = 1.M 
1CD=  BNARRCKl*!) 

1VD=  BNARRC  *1*2 ) 

VZ  = BNARRI  U+3  ) 

C V-B  FIRST  ARC 

I Ft 1ARC.6T.1  1 GO  TO  1200 

IF( I VQ.NE.5 1 60  TO  1120 
BNARRC  K 1 *3  >=  VVC  1 ) 

GO  TO  1190 

_C V-C  NEW  INITIAL  STATES 

1120  IF{ ICD.NE.2.0R.1PASS.LE.2)  GO  TO  1190 
GO  TOC  1190,1121,1121,1121,1122,1122,11221,190 

1)21  BNARRC  *2  +3  > ~ 50(17,1170-1) 

SO  TO  1190 

1122  BNARRC *1+31  = 50(  I 7,  I VD-2) 

60  TO  1190 

1200  IF< I ARC . N£ . 2 ) 60  TO  1210 

I Ft IVO.NE. l.OR. IC0.NE.2)  60  TO  1190 
sot  13,31=2. 

IF< 1 PASS . LE . 2 > 60  TO  1190 
C 9-0  OPTIMIZED  PITCH-OVER 

BNARRC  ICI  + 3 )=  S0(  16,31 

60  TO  1190 

1210  IP(  I NT  8 . EO . 2 . AND . 1 ARC. 6T . NSB ) GO  TO  1260 

1211  I Ft IARC.NE.IBESP  *1)  GO  TO  1220 
IF( IVO.NE. 5)  GO  TO  1190 
IF(ICO.EQ.l)  60  TO  1212 

C V-E  DROP  NT. 

IFt ICD.LT.5.0R.ICD.GT.6)  GO  TO  1190 
BNARRCKI+3)  = VV<2> 

IFt 1S0SP+1 .EQ.IARC.AND.SOC 20,1 l.NE.O.  1 BNARR( K1 
GO  TO  1190 

_C V-F  ARC  INITIAL  NT .(  QRBI  TER  1 

1212  BNARR( *1  + 3 1 = SVC  7) 

GO  TO  1190 

j: V-S  SOLID  DROP  NT. 

1220  IF(SQ(20,1  ) . EO . 0 . ) GO  TO  1230 
IFt ISQSP+1.NE.1ARC)  GOTO  1230 
IFt IVO.NE. 5)  60  TO  1190 
IFt 1CD.E0. 1 ) GO  TO  1222 
C 1 V-H  SOLID  DROP  NT. 

IFt ICD.LT.S.OR.ICO.GT.A)  60  TO  1190 
BNARR(AIO)  = 50(  22,31 
GO  TO  1190 

_C V- 1 INITIAL  NT.  AFTER  SOLID  DROP  (NO  PRQV1 

1222  60  TO  1190 

_C V-J  OPTIMAL  BOOST  TIME  DURATION 

123C  I F ( IARC.NE.IBESP)  GO  T01290 
IFt IVO.NE. 1 ) 60  TO  1290 

JF< IC0.NE.2)  GO  TO  1190 
1 OPST  6=1 

IFt I PASS . LE . 2 1 GO  TO  1190 
BNARRC  *1 +3  ) = SOI  18,2) 

GO  TO  1190 

1290  CONTINUE 
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SIZE 
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Subroutine 
Subroutine 
Sub  routine 
Subroutine 
Subroutine 
Subroutine 
Subroutine 
Subroutine 


SIZE 

SIZ1 

SIZ2 

SIZ3 

SIZ4 

SIZ5 

SIZOUT 

TAMPAR 


SUBR0UTINE 

SIZE 


SUBROUTINE  SIZE  SPECIFICATIONS 


1.  DESCRIPTION 
Purpose : 

Calls  proper  subroutine  for  sizing  option  specif ied,  checks  sizing  convergence, 
and  sets  print  and  trajectory  flags. 

Comments : 

This  is  the  main  program  of  the  PADS- I sizing  routine.  The  first  pass  through 
this  routine  may  use  the  booster  staging  velocity  or  mass  ratio  as  a primary 
parameter,  subsequent  passes  use  the  staging  and  total  velocities  provided  by 
the  trajectory  routines  of  PADS. 

If  a large  step  in  gross  weight  is  indicated,  a special  message  is  printed  and 
a flag  set  for  a second  pass  through  the  steepest  descent  trajectory  program. 

This  process  is  only  executed  once.  If  another  gross  step  is  required,  the  case 
is  aborted. 

The  subroutine  may  also  be  terminated  by  exceeding  a maximum  number  of  iterations. 
This  maximum  is  an  input  quantity. 


Error  Notes: 

If  the  specific  impulse  of  each  stage  is  not  input,  a note  stating  this  is  printed 
and  preset  values  of  ^25  and  U60  sec  for  the  booster  and  orbiter  are  used. 

^Iteration  limit  reached* 

This  error  indicates  that  the  maximum  number  of  iterations  through  the  sizing  , 
routine  has  been  exceeded.  This  limit  may  be  increased  through  an  input  quantity. 

*Bad  starting  guess  on  staging  velocity  has  resulted  in  iteration  for  optimum 
control  parameters* 

This  error  is  caused  by  a ^0%  increase  in  the  initial  stage  weight  required.  It 
is  felt  that  this  is  an  excessive  amount  and  new  control  parameters  would  be  re- 
quired to  converge  the  trajectory  routines.  This  path  may  be  followed  once.  If 
another  gross  step  is  indicated,  the  job  is  terminated. 

If  a gross  weight  convergence  tolerance  is  not  input,  a preset  value  of  0.5  lb. 
is  used. 


3.0  Equations 


The  sizing  requires  an  initial  estimate  of  the  booster  mass  ratio  or  staging 
velocity.  If  the  staging  velocity  option  is  used,  the  following  equation  is 
used  to  determine  the  initial  booster  mass  ratio 


MUB  = EXP  (MUB/32.174/ISPB) 


This  equation  is  also  used  on  the  second  and  following  passes  through  the  sizing 
program  since  the  trajectory  program  will  be  returning  with  the  booster  staging 
velocity  (VSTG)  and  not  the  booster  mass  ratio. 


FORTRAN 

Symbol 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE 
“BLOC  A L(fET 


SUBROUTINE  US A6E 
suBRCOOE  Tar 


BECO 

1 

Booster  cut-off  ere 

/SI  21 N6/ ( 

3m  SIZE 

I 

BECO 

YEHDF 

I 

BECO 

BSTG 

I 

Booster  staging  arc 

/SIZING/! 

315)  SIZE 

I 

BSTG 

YEHDF 

I 

BSTG 

OAT 

1 

Booster  burnout  eel ght  (lb) 

/SI ZI N6/( 

272)  GEINP 

m 

S1Z 

PAYLOO 

0 

UBO 

SIZE 

i 

OAT 

SIZOUT 

i 

UBO 

S1Z1 

n 

UBO 

SI  Z2 

m 

UBO 

SIZA 

M 

UBO 

TAMPAR 

I 

UBO 

6R 

a 

I 

Gravitational  acceleration  at  surface  of  the  earth. 

/GLOBAL/C 

1)  ACCEL 

1 

SR 

(FT/SEC2) 

BL5 

1 

GR 

ECU  A3 

1 

GR 

FH3 

I 

GR 

GEINP 

I 

G 

GEINP 

I 

GR 

GEINP 

0 

IG 

OUT 

I 

GR 

' 

PADS1 

1 

GR 

PDBC 

I 

GR 

REU3 

I 

GR 

SOI  NP 

I 

GR 

SIZE 

1 

GR 

SIZ1 

1 

GR 

SI  Z2 

I 

GR 

SIZ3 

I 

GR 

SIZA 

I 

GR 

SONG 

I 

GR 

STAU 

I 

GR 

IPASS 

n 

Sizing  Iteration  counter 

/SIZING/! 

251)  GEINP 

0 

IPASS 

P AOS  1 

m 

IPASS 

PAY02 

i 

IPASS 

SIZE 

m 

IPASS 

SIZ1N 

i 

IPASS 

SSSP 

n 

IPASS 

IPSMAX 

m 

Aaiisua  nunber  of  Iterations 

/SIZING/! 

252)  SIZE 

« 

1 PS MAX 

SSSP 

l 

IPSMAX 

VEHOF 

I 

HIPSMX 

YEHDF 

0 

IPSMAX 

1SIZE 

M 

Sizing  option  flag  1.  Fixed  nio,  naxinlxe  spl  2. 

/SIZING/! 

283)  SIZE 

A 

IS!  ZE 

Fixed  xpl,  nlninize  elo  3.  Fixed  orbiter,  nininize 
nio  A.  Fixed  booster,  nininize  nlo  5.  Fixed 
(t/n)I.O.  Maxinizc  xpl  6.  Fixed  <t/p)I.O. 
Deternlne  f 

SIZOUT 

I 

ISIZE 

ISPB 

M 

Booster  vacuun  specific  tnpulse  sec 

/SIZING/! 

255)  SIZE 

SIZOUT 

S1Z1 

n 

ISPB 

ISPB 

ISPB 

5IZ2 

ISPB 

SIZ3 

ISPB 

SIZA 

ISPB 

T AMP  AR 

ISPB 

ISPO 

n 

Orbiter  vacuun  specific  lepulse  sec 

/SIZING/! 

296)  SIZE 

n 

ISPO 

SIZOUT 

ISPO 

SI  Z 1 

ISPO 

SIZ2 

ISPO 

SIZ3 

ISPO 

SIZA 

ISPO 

T AMP  AR 

ISPO 

ITNBU 

0 

Booster  eepty  eeght  curve  no. 

/SIZING/! 

317)  SIZE 

0 

ITNBU 

SIZ1 

ITNBU 

SIZ2 

ITNBU 

UTORP 

ITNBU 
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SYNBOL 


NATH 

SYNBOL 


CODE 


DESCRIPTION 


hM»‘Mat  W'W 


IT  NOW 

0 

Arbiter  anpty  nalght  carve  no. 

/SIZING/! 

316)  SIZE 

0 

I T NOW 

S I 2 1 

I 

IT  NOW 

* SI  IZ 

I 

I T NOW 

SUH 

I 

ITNOW 

WTDRP 

I 

I T NOW 

NUB 

n 

/SI  21 N6/( 

309)  SIZE 

N 

NUB 

SIZ1 

I 

NUB 

SIZ2 

I 

NUB 

SIZ3 

n 

NUB 

sm 

* 

NUB 

NUO 

n 

Orbltcr  sail  ratio 

/ S 1 Z I N6/( 

310)  SIZE 

n 

NUO 

SIZI 

n 

NUO 

S Z 22 

n 

NUO 

SI  29 

n 

NUO 

ORBI 

I 

Orblter  Ignition  arc 

/SIZING/! 

316)  REU3 

1 

ORBI 

SI  ZE 

I 

ORBI 

VEHOF 

I 

0R6I 

PRFLG 

n 

Siting  data  print  flag  1.  Print  header  Z.  Print 

/SIZING/! 

290 ) SIZE 

n 

PSFL6 

identifier  3.  Print  data 

SIZOUT 

« 

PRFL6 

RETFLG 

w 

Flag  set  internally  to  return  for  another  pats  thru 
the  steepest  descent  progran  due  to  a bad  guess  in 

/SIZE  /!* 

) SIZE 

w 

RETFLG 

the  siting 

SIZOAT 

I 

Wane  II  at  block  none 

/SIZE  /!  *5 1 ZE  ) SIZE 

I 

SIZOAT 

SIZE 

E 

Wain  progran  far  pads-i  sizing  overlay.  Oeteralnes 

/SIZE  /! *Sl ZE  ) SIZE 

E 

SIZE 

conv(rg«r«  and  calls  prepar  subroutine  per  Islet 
flag. 


SIZOUT 

5 

Subroutine  tp  fornet  end  print  siting  date  and 

/SIZOUT/! 

S50UT  ) 

SIZE 

s 

SIZOUT 

header  s 

SIZOUT 

E 

SIZOUT 

SIZI 

S 

Siting  lubroutine  for  fised  liftoff  neight  siting 

/SIZI  /((SIZI) 

SIZE 

5 

SIZI 

option  (isl t«  = l ) 

SIZI 

E 

SIZI 

SI  25 

S 

SIZI 

SIZ2 

S 

Siting  subroutine  for  fixed  peyloed  option 

/SIZ2  /( 

SSIZ2) 

SIZE 

S 

SIZ2 

(111 tas2  ) 

S I 22 

E 

SIZ2 

S1Z3 

S 

Siting  subroutine  for  fixed  orblter  siting  option 

/ S I 23  /( 

SSIZ3  ) 

SIZE 

S 

SI  Z3 

!isite=3)  assunes  fixed  payload. 

SIZ3 

E 

SI  Z3 

S1Z9 

S 

Siting  subroutine  for  fixed  booster  siting  option 

/SUM  /(SSI  IH) 

SIZE 

S 

s m 

( i$ite=*0  assunes  fixed  payload 

SIZ9 

E 

si  zn 

SI  zs 

S 

Siting  subroutine  for  fixed  (t/u)0  (l»lte=5) 

/SIZ5  /(SSIZ5) 

SIZE 

S 

SI  zs 

assunes  fixed  thrust 

SIZ5 

E 

SIZS 

so 

0 

A synthesis  data  array  137,5)  that  contains  the 

/SIZING/! 

T9) 

ENVPRN 

N 

SO 

flyback  data  and  son«  injection  quantities 

FLV6KP 

N 

so 

I SPRAT 

I 

so 

POBC 

1 

so 

PRITVA 

] 

so 

RANGE 

N 

so 

REU3 

0 

so 

SIZE 

0 

so 

SIZENR 

n 

so 

SIZIN 

N 

so 

STAU 

I 

so 

SUNOUT 

N 

so 

TANPAR 

0 

so 

TANPER 

N 

so 

THRUST 

N 

SQ 

TRT052 

fl 

so 

VEMDF 

N 

so 

WT  VOL 

N 

so 

TOLWT 

N 

Booster  liftoff  neight  siting  tolerance  !lb) 

/SIZING/! 

276  ) 

SIZE 

N 

TOLWT 

TRAFLG 

N 

Traffic  control  flag  0.  Sizing  loop  not  converged 

/SIZING/! 

2BH> 

FRENCH 

0 

TRAFLG 

1.  Siting  loop  converged  2.  Error  in  siting  loop 

I TER8 

0 

TRAFLG 

next  case 

P ADS  1 

I 

traflg 

SIZE 

N 

TRAFLG 

__  _ . 

SSSP 

0 

TRAFLG 

- — - 

— 

VEHDF 

0 

TRAFLG 
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Km*****-  *mm  w 


\ 


VST6 

ULO 


ULOO 

.UNO*. 


Booster 

Booster 


staging  velocity  (fps) 
liftoff  oe I ght  ( lb) 


M Previous  Iteration  value  of  booster  liftoff  oeight 
< lb) 

0 File  of  all  output  data 


/$■!  ZING/! 

311)  SIZE 

I 

VSTG 

TRTQSZ 

n 

YST6 

/SIZING/! 

306)  PAYLOO 

0 

ULO 

SIZE 

i 

ULO 

SIZOUT 

i 

ULO 

S1Z1 

i 

ULO 

SIZ2 

n 

ULO 

SIZN 

n 

ULO 

SIZ5 

0 

ULO 

TAMP OR 

i 

ULO 

/SIZING/! 

273)  SIZE 

n 

ULOO 

/ . UNO* . /! * 

) BLICO 

0 

.UNO*. 

BNORYC 

0 

.UNO*. 

CRASH 

0 

.UNO*. 

FRENCH 

0 

.UNO*. 

F XD  AT 

0 

. UNO*. 

GEINP 

0 

.UNO*. 

HUNT 

0 

.UNO*. 

INEDIT 

0 

.UNO*. 

ITERS 

0 

.UNO*. 

MOOELA 

0 

.UNO*. 

HOMJ 

0 

.UNO*. 

MPSI 

0 

.UNO*. 

OUT 

0 

.UNO*. 

PAY02 

0 

.UNO*. 

PRINT 

0 

. UNO*. 

PR  I NT V 

0 

.UNO*. 

PRINT* 

0 

.UNO*. 

PR  I TEA 

0 

. UNO* . 

PRITYA 

0 

.UNO*. 

PROPIN 

0 

. UNO*. 

PROTHR 

0 

.UNO*. 

FRyTsn 

0 

.UNO*. 

RANGE 

0 

.UNO*. 

S 

0 

.UNO*. 

SOI  NP 

0 

.UNO*. 

SIZE 

0 

.UNO*. 

SIZIN 

0 

. UNO*. 

SIZOUT 

0 

.UNO*. 

SOLVE 

0 

.UNO*. 

SPLICO 

0 

.UNO*. 

*PLIZ 

0 

.UNO*. 

5PLYNE 

0 

.UNO*. 

SSSP 

0 

.UNO*. 

STAU 

0 

. UN06 . 

STPIT 

0 

.UNO*. 

SUMOUT 

0 

.UNO*. 

TABIN 

0 

.UNO*. 

TEST 

0 

.UNO*. 

YEHOF 

0 

. UNO 6 . 

UTSCH 

0 

.UNO*. 

NT  VOL 

0 

.UNO*. 
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bu 
a ) 
on 1 


SUE 


1. 

2. 

3. 

9. 

5. 

6. 

7. 

8. 

9. 

10. 

11. 

12. 

13. 

19. 

15. 

16. 
17. 
10. 

19. 

20. 
21. 
22. 
23. 
29. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
39. 


PROGRAM  SIZE 
PHASE  I SUING  OVERLAY 
01  HENS  I ON  DAT< 1) 

cqhhon/global/ 

•SR  , ER  ,0H6Z 

•,JJ0P(1G>  If ATAL  ,NARC 

• ,*TAB(2C>,nAB<20)  ,SIG 

*,gh  ,psirf,ipfCsi, 

• . ITPSO  , ASOL  ,*6lOBL<8> 

REAL  HUB.  HUO,  ISPB,  ISPO,  IOVEL, NNB, NO 
COHHON  /SIZING/ 

PHASE  11  SIZING  PARAAERERS 
*U,  VV(3),  0P<  19),  EROR, 

• Sv<28),  S0(  37.5 1.  SE<  ID.  TLAT, 

PHASE  1 SUING  PARAAERERS 


, XLAHRF  ,YHURF  ,LUH 

NBR  AM  NF  ARC  ,10(9) 

,HAXT  AB 

IPFL62,  IPFLG3,IPFL6*»  INEQFL(  20) 


PZ(  5), 
TLNG, 


• NBO, 

• B*  1 , 
•0*1. 
•aexIt, 

• XPL, 

• DVO, 

#'sJ!&o 


NLOO, 

BK2, 

0*2, 

TVACO, 

TVACB, 

DVB, 

BECO 


ONES, 
B*3, 
0X3 , 
NO, 
NNB, 
HUB, 
BST6 


- , SV0C6n  ,lHUNf 

EQUIVALENCE  (OAT(n,WBO) 

nahelist/sizoat/ 

♦NBO,  NLOO.  0*EB, 


DWEO, 
B*  9, 
0*9, 
UFO, 
UEO. 

huo, 

ORBI  . 

, IOPST 6 


TOLNT, 

ISIZ6, 

PRFL6, 

IOVEL, 

NEB. 

VST  6, 
ITNBN  . 
,1SZ0(  19) 


bfPB, 

TRAFL6, 

IPASS, 

ISPO, 

ITNQN  , 


SN(  20), 


TNRAT2, 

THRATO, 

IPSHA*, 

ISPB, 

NLO, 


• B*  1 , 
♦0*1, 
•AEXIT, 

* xpl, 
*ovo. 


B*i, 
0*2. 

T VACO , 
TVACB, 
OVB, 


BR3, 

0*3, 

2S&, 

HUB, 


OREO, 

B*9, 

0*9, 

NFO, 

UEO, 

HUfi, 


TOLUT, 

ISlZE, 

PRFLG, 

IOVEL, 

UEB. 

VSfG, 


UPB, 

T R AFL6 
IPASS, 
ISPO, 


TURAT2, 

TUftATO, 
IPSHAX, 
ISPB, 
ULO, 


SUE 

SUE 

SUE 

SUE 

SUE 

6L0BAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

SIZING 

SUING 

SIZING 

SUING 

SUING 

SIZING 

SUING 

SIZING 

SUING 

SIZIN6 

SUING 

SIZING 

SIZING 

UH 

SUE 

SIZE 

UH 

SUE 
SUE 
SUE 
SUE 
SUE 
SUE 


35. 

C 

FIRST  PASS  TEST 

SIZE 

36. 

C 

SUE 

37. 

IF< IPASS. EQ.l)  GO  TO  200 

SUE 

38. 

HUB  = EXPtVSTG/  G8  /ISPB) 

SUE 

39. 

GO  TO  7 

SIZE  | 

90. 

C 

SUE 

91. 

C 

CHECK  HR  FOR  OELTA  V INPUT 

SIZE  ; 

92. 

c 

SUE 

93. 

200 

CONTINUE 

SIZE 

99. 

ISUE  s OAK  12  ) 

SUE 

95. 

IPSHAX=  PAT( 21 ) 

SUE 

96. 

ITNBU  = DAK  961 

SUE 

9T. 

ITNOM  = 0 AT(  9T  ) 

SUE 

98. 

URIT£{  6,51 ZDAT  ) 

UH 

99. 

SOC 1,1  ) a BECO 

SUE 

50. 

SQI  1 , 2 > a BSTG 

SIZE 

51. 

SQ< 1,31  a ORBI 

SUE 

52. 

IF* HUB.LE.O.  ) HUB=VSTG 

UH 

53. 

I Ft ISPB.NE.O. . AND. HUB. BE. 15. ) 

HUB=EXP(  hub/ 

GR 

/ISPB) 

SIZE 

59. 

1 F ( ISPB)  202,202,201 

SUE 

55. 

201 

CONTINUE 

SUE 

56. 

IF* 1SPO.NE.0. . AND. HUO. GE. 15. ) 

HUO=EXP< HUO/ 

GR 

/ISPO  ) 

SUE 

5?. 

I F< ISPO  ) 209,209,7 

SUE 

58. 

c 

SIZE 

59. 

c 

SET  DEFAULT  VALUE  OF  ISP 

SIZE 

60. 

c 

SUE 

61. 

202 

CONTINUE 

SUE 

62. 

URITEt  6.203) 

SUE 

63. 

203 

FORHAK  95H  5PECIFIC  IHPUlSE  NOT  INPUT  DEFAULT 

VALUE  USEO  ) 

SUE 

69. 

ISPB  = 925. 

SUE 

65. 

GO  70  200 

SUE 

66. 

209 

CONTINUE 

SUE 

6 7 . 

Wfi  ITC<  6,203  7 

SUE  - 

68. 

ISPO  = 960. 

SIZE 

69. 

GO  TO  201 

SUE 

70. 

c 

SUE 

71. 

c 

VEHICLE  SIZING  SUBROUTINES 

SUE 

72. 

c 

SUE 

73. 

7 

GO  TO  ( 1,2, 3, 9, 5)  ISIZE 

SUE 

200- 


202-1201- 


1209-1 


7-1 


|20C— 1 


201- 


t 3 
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TTTT1 


IN 

fV, 

nr\ 


71. 

75. 


76. 

77. 


78. 

79. 


80. 

81. 


82. 

83. 

81. 

85. 


86. 

87. 

86. 

89. 

90. 

91. 

92. 

93. 


99. 

95. 

96. 

97. 

98. 

99. 
100. 
101. 
102. 
103. 
109. 


105. 

106. 

107. 

108. 
109. 

no. 

111. 


112. 

113. 

119. 

115. 

116. 

117. 

118. 

119. 

120. 
121. 
122. 
123. 
129. 


125. 

126. 

127. 

128. 

129. 

130. 

131. 

132. 

133. 


HO. 
191  . 


1 CALL  Sill 
GO  TO  8 


2 CALL  SI 12 
GO  TO  8 


CALL  SU3 
60  TO  8 


CALL  Si 29 
GO  TO  8 


5 CALL  S125 

VEHICLE  PRINT  TEST  ROUTINE 


IF(PfiFLG.NE.O)  CALL  SHOUT 
IF  UFASS.EQ.l)  GO  TO  20 
1 F(  TRAFLG. BE . 1 . ) GO  TO  999 

VEHICLE  NT  CONVERGENCE  TEST 

IF  (TOLNT.EO.O.O)  TOLMT  £ 10.0 
1F1ABSCNLOO  - HLO)  - TOLNT ) 21,21,26 


26  IF  < AB5(  NLOO  -NLOl/NLO  .ST.  0.90) 
IF  t IPASS.LT. IPSmaX)  GO  TO  23 
ITERATION  LIMIT  REACHEO 


60  TO  22 


25  UR! TEC  6.103) 

103  FORMAT ( §2H  MAI 1 MUM  NO. 
TRAFLG  = 2. 

RETURN 


ITERATIONS  EICEEOEO) 


NOMINAL  EXIT  TO  0-L  ROUTINE 


23  TRAFLG  = 0. 
1PASS  = I PASS 
GO  TO  11 


♦ 1 


A GROSS  STEP  IN  STAGE  SIZE  HAS  SEEN  TAKEN 

RETURN  FOR  NEW  OPTIMUM  CONTROL  HISTORY-  ONE  TIME  ONLY 


SIZE 

SIZE 


SIZE 

SIZE 


SIZE 

SIZE 


SIZE 

SIZE 


SIZE 

SIZE 

SIZE 

SIZE 


SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 


SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 


SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 


22  CONTINUE 

UR  I TEC  6.102) 

102  FORMAT! 96H  BAD  STARTING  GUESS  ON  STAGIN6  VELOCITY  HAS  RESULTED  IN 
•ITERATION  FOR  OPTIMUM  CONTROL  PARAMETERS  ) 

1FCRETFL6.E0.1.0)  GO  TO  29 
RETFLG  £ 1.0 
TRAFLG  = 0. 

CALL  TAMPAN 
RETURN 

SECOND  PASS  THRU  STEEPEST  DESCENT  SOLUTION  UITH  NO  CONVERGENCE 
TERMINATED  FOR  BAD  STAGING  GUESS 


SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 


29  TRAFLG  = 2. 

RETFLG  s 0. 

CALL  TANPAR 
RETURN 

CONVERGED  TRAJECTORY  AND  SHUTTLE  SIZING 

SET  FLAGS  FOR  FINAL  PASS  THRU  0-L  ROUTINE 

SET  FLAGS  FOR  FINAL  VEHICLE  TRAJECTORY  AND  PRINT 


SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 


139.  21  TRAFLG  - 2. 

135.  UR 1 TEC  6, 9 ) I SIZE 

136.  9 FORMAT ( 23H  PHASE  I SIZING  OPTION  ,12,  10H  CONVERGED 

137.  PRFL6  = 1. 

130.  CALL  TAMPAR 

139.  GO  TO  6 


SIZE 

SIZE 

SIZE 

SIZE 

SIZE 

SIZE 


20  TRAFLG  = 0. 
1PASS  = IP ASS 


SIZE 

SIZE 


20- 


999-. 


23-t 


Hi 


29-, 


192. 


11  CONTINUE 


SIZE 
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SUBROUTINE 

SIZ1 


Subroutine  SIZ1  Specifications 


1.0  DKSCH1PT10N 
Purpose : 

To  size  a two  stage  space  shuttle  with  a fixed  gross  lift-off  weight. 

Comments : 

This  routine  will  size  a two  stage  launch  vehicle  with  a fixed  initial  weight 
to  perform  a given  mission.  The  payload  weight  is  allowed  to  vary.  The  two 
stages  are  allowed  to  vary  and  are  described  by  input  weights  in  a tabular 
format  as  a function  of  propellant  weight  or  the  stage  weights  may  be  determined 
by  inputing  coefficients  to  a generalized  weight  scaling  equation. 

Data  transmission  to  and  from  this  routine  is  handled  by  C0MM0N/SIZING/ ' 


z O X'm  v\  Q t-CvK-v 
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l 


I / 1 
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3.0  EQUATIONS 

The  fixed  Jift-off  weight  sizing  equations  are  based  on  impulsive  velocity- 
relationships  and  are  solved  to  maximize  the  payload  delivery  capability  for 
the  given  gross  initial  weight. 

The  first  quantity  calculated  is  the  booster  propellant  weight  using  the  initial 
estimate  of  the  booster  mass  ratio 


WPB  = WLO  (MUB-1 ) /MUB 
where  WLO  is  the  initial  gross  weight 

and  MUB  is  the  estimate  of  the  booster  stage  mass  ratio. 

The  booster  burnout  weight  is  determined  from 


WBO  = WLO  - WPB 


The  booster  stage  weight  is  determined  from  the  following  generalized  weight 
equation  if  the  coefficients  are  input.  If  the  coefficients  are  not  input,  the 
stage  weight  may  be  input  in  a tabular  format  as  a function  of  the  stage  propellant 
weight 


WEB  - BK1  + BK2 ( WPB ) + BK3(WPB)1/3  + BK4 (WPB)2//3 


where  BK1  through  BKU  are  input  quantities. 

The  sensitivity  of  the  booster  stage  weight  to  the  booster  propellant  weight  is 
determined  by  differentiation  of  the  equation  above  to  yield; 

DWEB  = BK2  + 1/3  BK3(WPB)-2^3  + 2/3  BKHCWPB)-1^3 


A similar  expression  is  obtained  from  the  tabular  weight  option  if  it  is  used. 
The  booster  thrust  to  weight  ratio  at  lift-off  is  calculated  from 


TWRATO  = N ( TVAC  - AEXIT  (2116.217) ) /WLO 


and  the  booster  inpulse  velocity  from 


DVB  =32.2  (ISPB)  ALOG  (MUB) 


The  initial  orbiter  weight  is  found  from 


W/0  = WBO  - WEB 


V] 

> 


The  orhiter  mass  ratio  required  to  provide  the  desired  mission  velocity  is 
determined  from 


MUO  = EXP  ( ( IDVEL  - DVB)/(32.2  ISPO). 


The  velocity  contribution  of  the  orbiter  stage  to  the  total  mission  velocity  is 


DVO  =32.2  ISPO  ALOG  (MUO). 


The  orbiter  propellant  weight  required  is  found  from 


WPO  = WO  (MUO  - 1 ) /MUO . 


The  orbiter  stage  weight  may  be  determined  by  the  generalized  weight  equation 
used  to  determine  the  booster  weight  or  may  be  input  in  a tabular  format.  If 
the  generalized  equation  is  used,  the  coefficients  must  be  input. 


WEO  = OKI  + 0K2 ( WPO ) + OKSCWPO)1^3  + OKU(WPO)2^3 


The  orbiter  stage  weight  sensitivity  is  determined  from 

DWEO  = 0K2  + 1/3  OK3(WPO)"2/3  + 2/3  0K4(WP0)_1/3 

The  payload  weight  that  corresponds  to  this  estimate  of  the  total  mission  velocity 
and  booster  staging  velocity  is  found  from 


XPL  - WO  - WPO  - WEO 


The  orbiter  initial  vacuum  thrust  to  weight  ratio  and  final  burnout  weight  determinat: 
conclude  the  SIZ1  routine 

TWRAT2  = NO  (TVACO)/WO 


WFO  = WO  -WPO 


FORTRAN 

SYMBOL 


«ATM 

SYftBOL 


CODE 


DESCRIPTION 


5T0RAGE  SUBROUTINE  USAGE 

TOTti l ffT"  *Suefc  Cm  var 


AEXIT 

BK1 

BX2 

BX3 

a*i 

DVB 

OVO 

DUEB 

OWED 

6R 


IDVEL 


®r 


I 


I 


l 


I 


I 


n 


0 


ft 


A 


I 


Booster  engine  eslt  ore*  <ft**2) 


V»  I u*  of  constant  1 ght  in  booster  stage  nelght 
aquation 


Value  of  linear  tern  coefficient  in  booster  stage 
■eight  equation 


Value  of  l/3-poner  tern  coefficient  in  booster 
stage  nelght  equation 


Value  of  2/3-poner  tern  coefficient  In  booster 
stage  nelght  equation 


Booster  Idel  velocity  (fps) 


Orblter  Ideal  velocity  (fps) 


Sensitivity  of  booster  stage  nelght  to  propellant 
nelght  ( Ib/lb) 


Sensitivity  of  arbiter  stage  nelght  to  propellant 
nelght  < Ib/lb) 


Gravitational  acceleration  at  surface  of  the  earth. 

(FT/SEC2) 


Total  Ideal  velocity  required  to  orbit  (fps) 


/SIZING/! 

293)  SIZ1 

I 

AEXIT 

$122 

I 

AEXIT 

SIZ9 

I 

AEXIT 

SI  25 

I 

AEXIT 

T AftPAR 

I 

AEXIT 

/SlZING/i 

279)  S1Z1 

I 

BK1 

Si  Z2 

I 

BK1 

UTORP 

I 

BXl 

/SIZING/! 

280)  S1Z1 

I 

BK2 

SIZ2 

I 

BK2 

UTORP 

I 

BX2 

/SIZING/! 

261  ) SIZ1 

I 

BIS  3 

S1Z2 

I 

BK3 

UTORP 

I 

BX3 

/SIZING/! 

282)  S1Z1 

I 

BK9 

S1Z2 

I 

BX9 

UTDRP 

I 

BK9 

/SIZING/! 

308)  SIZOUT 

I 

DVB 

SIZ1 

ft 

DVB 

SIZ2 

n 

DVB 

SIZ3 

0 

DVB 

SIZ9 

n 

DVB 

/SIZIN6/! 

307)  SIZOUT 

I 

DVO 

S1Z1 

0 

OVO 

S 1 22 

0 

DVO 

SIZ3 

« 

DVO 

S1Z9 

0 

OVO 

TRTOSZ 

0 

DVO 

/SIZING/! 

279)  PAVLOD 

I 

DUEB 

SIZOUT 

I 

DUES 

SIZ1 

n 

DUEB 

SIZ2 

ft 

DUEB 

STAU 

l 

DUEB 

UTORP 

« 

DUEB 

/SIZING/! 

275)  PAVLOD 

I 

OUEO 

SIZOUT 

I 

DUEO 

S1Z1 

ft 

DUEO 

$122 

ft 

DUEO 

SIZ9 

ft 

DUEO 

UTDRP 

ft 

DUEO 

/GLOBAL/! 

1 ) ACCEL 

GR 

BL5 

GR 

EQUA3 

GR 

FH3 

GR 

GEINP 

G 

GE I NP 

GR 

GEINP 

0 

IG 

OUT 

GR 

PA0S1 

GR 

POBC 

GR 

REU3 

GR 

SOI  NP 

GR 

SIZE 

GR 

SIZ1 

GR 

SIZ2 

GR 

SIZ3 

GR 

SIZ9 

GR 

SONG 

GR 

STAU 

GR 

/SIZING/! 

297)  SIZ1 

I0VEL 

S1Z2 

IDVEL 

S1Z3 

IDVEL 

SIZ9 

IDVEL 

TRTOSZ 

0 

IDVEL 
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3 VP 


FORTRAN 

5V«BOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


storage 
Tlock  car 


SUBROUTINE  USAGE 
Suart  tS’6E"'"9Ar 


I SPB 

I 

/SIZING/I 

299)  SIZE 

ft 

ISPB 

SU0UT 

I 

I SPB 

SIZ1 

I 

ISPB 

SI  iz 

I 

ISPB 

SIZ3 

I 

ISPB 

SIZ4 

I 

ISPB 

TAflPAR 

I 

ISPB 

ISPO 

I 

Orbitcr  vacuus  specific  lepulse  sec 

/SIZING/I 

298)  SIZE 

ft 

ISPO 

SIZOUT 

I 

ISPO 

SI  21 

I 

ISPO 

5 1 Z2 

I 

ISPO 

S 1 Z 3 

I 

ISPO 

SIZ4 

1 

ISPO 

TAflPAR 

I 

ISPO 

ITNBN 

I 

Booster  eapty  eeght  curve  no. 

/SIZING/ ( 

317)  SIZE 

0 

ITNBU 

SIZ1 

I 

ITNBN 

S1Z2 

I 

ITNBW 

WTDRP 

I 

ITNBN 

IT  NOW 

I 

Orblter  eepty  eelght  curve  no. 

/SIZING/I 

316)  SIZE 

0 

I T NON 

SI  Z1 

I 

I T NON 

SIZ2 

I 

ITNON 

SIZ4 

I 

ITNON 

NTDRP 

l 

ITNON 

HUB 

I 

/SIZING/I 

309)  SIZE 

ft 

ftUB 

SI  21 

I 

«UB 

SIZ2 

I 

»UB 

SIZ3 

ft 

ftUB 

SIZ4 

ft 

ftUB 

«uo 

« 

Orblter  aass  retie 

/SIZING/! 

310)  SIZE 

ft 

ftUO 

SI  Z 1 

ft 

«U0 

SIZ2 

ft 

ftUO 

SIZ4 

ft 

ftUO 

NNB 

i 

/SIZING/! 

302)  SIZOUT 

NNB 

SIZ1 

NNB 

SIZ2 

NNB 

SIZ4 

NNB 

SIZS 

NNB 

TAnPAR 

NNB 

NO 

l 

Nuaber  of  orblter  engines 

/SIZING/! 

295)  SIZOUT 

NO 

SIZ1 

NO 

S1Z2 

NO 

SIZ3 

NO 

SIZ4 

NO 

TAflPAR 

NO 

OKI 

i 

Sene  es  bk  1 escept  for  orblter 

/SIZING/! 

286)  S1Z1 

OKI 

SIZ2 

OKI 

SIZ4 

OKI 

UTOfiP 

OKI 

0K2 

I 

Sane  as  bk2  escept  for  orblter 

/SI  ZING/! 

28 r ) SIZ1 

0*2 

SIZ2 

0K2 

SIZM 

0*2 

WTDRP 

0K2 

0K3 

i 

Sane  as  bk3  escept  for  orblter 

/SIZING/! 

288)  SIZ1 

0*3 

SIZ2 

0*3 

SIZM 

0*3 

NTDRP 

0*3 

0*4 

I 

Sane  as  bk4  escept  for  orblter 

/SIZING/! 

289)  SIZl 

0*M 

SIZ2 

0*M 

SUM 

0*  M 

' WTORP 

0 * M 

SJ21 

E 

Sliing  subroutine  for  ffted  liftoff  eeight  sizing 

/SIZ1  /!$ 

SIZl  ) SUE 

s 

SIZl 

opt  I on  ! 1 1 1 xe-1 ) 

SIZl 

E 

SIZl 

SIZ5 

5 

SU1 
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FORTRAN  NAT  M 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


■L 

BLOC  A 


rr 


wse 

SUBR  CODE  VAR 


TVACB 


TVACO 


TWRATO 


TWRAT2 


UBO 


WEB 


WEO 


WEO 


WLO 


WO 


1 Booster  ficuua  thrust  per  engine  lb 


I Orbltor  vacuun  thrust  (lb) 


0 Liftoff  thr ust-to-#e I ght  rotlo 


0 Second  stOge  t hr  us t-t o-ne I ght  ratio 


M Booster  burnout  uelght  (lb) 


ft  Booster  stage  Might  ( lb) 


ft  Arbiter  stage  Might  ( lb) 


0 Or  b 1 1 • r burnout  Might  (lb) 


I Booster  liftoff  Might  (lb) 


ft  Initial  orbfter  aeight  (lb) 


/SI ZIMG/C 


/SIZING/! 


/SIZING/! 


/SIZING/I 


/SIZING/! 


/SIZING/! 


/SIZING/! 


/SIZING/I 


/SIZING/! 


/SIZING/I 


301  ) SIZOUT 

I 

TVACB 

S1Z1 

I 

TVACB 

SIZ2 

I 

TVACB 

SIZ4 

1 

TVACB 

5125 

I 

TVACB 

TAftPAfi 

I 

TVACB 

294)  SIZOUT 

I 

TVACO 

SIZ1 

I 

TVACO 

SIZ2 

I 

TVACO 

SIZ3 

I 

TVACO 

S1Z4 

1 

TVACO 

T AMP AR 

1 

TVACO 

285 ) SIZOUT 

J 

TWRATO 

SIZ1 

0 

TWRATO 

SIZ2 

0 

TWRATO 

SIZ4 

0 

TWRATO 

SIZ5 

l 

TWRATO 

278)  SIZOUT 

I 

TWRAT2 

SIZ1 

0 

TWAAT2 

SIZ2 

0 

TWRAT2 

SIZ3 

0 

TWRAT2 

SIZ4 

0 

TWRAT2 

272)  6EINP 

* 

SIZ 

PAYLOO 

0 

WBO 

SIZE 

I 

DAT 

SIZOUT 

I 

WBO 

SIZ1 

« 

WBO 

SI  Z2 

n 

WBO 

SIZ4 

n 

WBO 

T AMP AR 

I 

WBO 

304)  PAYLOO 

I 

WEB 

SIZOUT 

I 

WEB 

SIZ1 

* 

WEB 

S1Z2 

A 

WEB 

SIZ4 

I 

WEB 

T AMP  AR 

I 

WEB 

WTDRP 

n 

WEB 

303)  PAYLOO 

I 

WEO 

SIZOUT 

I 

WEO 

SIZl 

ft 

WEO 

SIZ2 

ft 

WEO 

SIZ3 

I 

WEO 

S1Z4 

ft 

WEO 

TAftPAR 

I 

WEO 

WTDRP 

ft 

WEO 

296)  PAYLOO 

ft 

WFO 

SIZOUT 

l 

WEO 

SIZl 

0 

WEO 

S1Z2 

0 

WFO 

S1Z3 

0 

^0 

SIZ4 

ft 

WEO 

T AMP  Afi 

J 

WEO 

TRTOSZ 

0 

WEO 

306)  PAYLOO 

0 

ULO 

SIZE 

I 

WLO 

SIZOUT 

I 

WLO 

SIZl 

I 

WLO 

SIZ2 

ft 

WLO 

SIZ4 

ft 

WLO 

SIZ5 

0 

WLO 

T AMP  AR 

I 

WLO 

305  ) PAYLOO 

0 

wo 

SIZOUT 

1 

wo 

SIZl 

ft 

wo 

SIZ2 

ft 

wo 

SIZ3 

ft 

wo 

SIZ4 

ft 

wo 

TAPIPAR 

1 

wo 
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FORTRAN 

Symbol 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK LOT  SUBR  COOE  WAR 


UP  ft  M Bocater  propellant  nelght  (lb)  /SIZING/!  277)  SIZOUT  I UPB 

SIZl  M UPB 
SIZ2  M UPB 

s j z-i  i upb 

TAMPAR  I UPB 
UTDRP  M WPS 

UPO  M Orbit ar  propellant  nelght  (lb)  /SIZING/C  3)2)  SIZOUT  I UPO 

SIZl  M UPO 
SI Z2  M UPO 

siza  i upo 
siz*  m upo 

TAMPAR  1 UPO 
UTDRP  M UPO 

XPL  0 Payload  nelght  (lb)  /SIZING/(  300)  SIZOUT  I XPL 

SIZl  0 XPL 
SIZ2  I XPL 
SIZ3  I XPL 
SIZ4  1 XPL 
TAMPAR  I XPL 


8 NOV  72  G. 01-46 


a 

n 


M/I 


l. 

SUBROUTINE  S1Z1 

SIZI 

2 . 

C 

SI  Zl 

3. 

C 

CONSTANT  LIFT-OFF  HEIGHT  SIZING 

SIZI 

1. 

c 

SIZI 

5. 

CO NNON/ GLOBAL/ 

global 

6. 

*6R  ,ER  ,0*6Z  , XLArtBF  ,VHURF  ,LUN 

GLOBAL 

7. 

*,JJ0P(1O>  IFATAL  .NARC  NBR AN  NF  ARC  ,10(1) 

GLOBAL 

8. 

• KTAB(20)ITAB( 20 > ,SI6  ,NAXTA& 

GLOBAL 

9. 

*,GN  .PSIRF, 1PFL61 , IPFLS2IPFLG3,IPFL69,I NEOFLI 20 ) 

GLOBAL 

10. 

* 1 TP$D  ,*s6l  . K6L0BLC 8 ) 

retap 

n. 

REAL  NUB.  NUO,  ISPB,  ISPO,  ID9EL,NN8,N0 

SIZING 

12. 

connon  /Sizing/ 

SIZING 

13. 

c 

PHASE  11  SIZING  PARANERERS 

SIZING 

11. 

*TZ,  99(3),  0P(11),  EROR,  PZ(5),  90,  SH(20>, 

SIZING 

15. 

*59(28),  50(37.5),  SE<  11  1.  TLAT,  TLNG, 

SIZING 

16. 

c 

PHASE  I SIZING  PARANERERS 

SIZING 

17. 

*HBO,  HLOO,  OUEB,  DHEO,  TOLHT,  HPB  THRAT2, 

SIZING 

16. 

*6*1 , 8*2,  BK3,  8*1,  ISIZE,  TRAFlG,  THRATO, 

SIZING 

19. 

*0*1.  0*2,  0*3,  0*1,  PfiFLS,  IPASS,  IPSNAX, 

SIZING 

20. 

•AEXIT,  T9AC0,  NO,  HFO,  I09EL,  1SP0,  ISPB, 

SIZING 

21. 

*XPL,  T9AC6,  NNB,  H£Q,  NEB,  HO,  HLO, 

SIZING 

22. 

*090,  096.  NUB,  NUO,  9STG,  HPQ 

SIZIN6 

23. 

• , JT VP  BECO  , BSTG  , ORBI.  1TNBH  , ITNOH  , 

SIZING 

21. 

* S90P&Q  , SVOCdN  ,lHUNf  , IOPSfG  ,ISZ0(l4) 

UH 

25. 

c 

SIZI 

26. 

c 

BOOSTER  PROPELLANT  HT 

SIZI 

2T . 

c 

SIZI 

29. 

HPB  = HLO  * ( NUB-1 . )/HU6 

SIZI 

29. 

c 

SIZI 

30. 

c 

BOOSTER  BURNOUT  HT 

SIZI 

31. 

c 

SIZI 

32. 

UBO  = HLO  * HPB 

SIZI 

33. 

c 

SIZI 

31. 

c 

BOOSTER  STAGE  HT  AND  SENSITIVITY 

SIZI 

35. 

c 

SIZI 

36. 

1F( BK1.GT.0.0)  GO  TO  1 

SIZI 

1-1 

37. 

CALL  SPLI Z(  ITNBH  HPB,  UEB,  OHEB) 

SIZI 

39. 

GO  TO  2 

SIZI 

39. 

1 HEB  = BK1  + BK2*  HPB*  BK3*  UPB**0.3333*  B*1*  HPB**0.6667 

SIZI 

10. 

OHEB=  B*2  * BX3*  0.3333*  HPB**( -0 . 6667 >♦  B*1»  0.6667*  HPB** 

SIZI 

11. 

* (-0.3333) 

SIZI 

12. 

2 CONTINUE 

SIZI 

13. 

TH8AT0  =NN8*<  T9ACB-  AEXIT  « 2116.217 J/NLO 

SIZI 

11. 

09B  = GR  * ISPB  * ALOG(NUB) 

SIZI 

15. 

c 

SIZI 

16. 

c 

INITIAL  ORBITER  HT 

SIZI 

17. 

c 

SIZI 

18. 

HO  = HBO  - HEB 

SIZI 

19. 

c 

SIZI 

50. 

c 

ORBITER  NASS  RATIO 

SIZI 

51. 

c 

SIZI 

52. 

NUO  = EXPMI09EL  -09B)/(Gfl  • ISPO)) 

SIZI 

53. 

090  = GR  * ISP0*AL06(  NUO) 

SIZI 

51. 

c 

SIZI 

55. 

c 

ORBITER  PROPELLANT  HT 

SIZI 

56. 

c 

SIZI 

57. 

HPO  = HO*  ( NUO-1 • 0 )/NUO 

SIZI 

56. 

c 

SIZI 

59. 

c 

ORBITER  STAGE  HT  AND  SENSITIVITY 

SIZI 

60. 

c 

SIZI 

61. 

IF(OKI.GT.O.O)  GO  TO  3 

SIZI 

3-1 

62. 

CALL  SPLIZI ITNOH,  HPO,  HEO , OUEO ) 

SIZI 

63. 

GO  TO  1 

SIZI 

61. 

3 HEO  = 0*1*  0*2*UP0*  0*3*  HPO**  0.3333*  0*9*  HPO**  0.6667 

SIZI 

65. 

OUEO-  0*2*  0.3333*  0*3*  HPO**( -0.6667 )♦  0.6667*  0*9*  HPO** 

SIZI 

66. 

• (-0.3333) 

SIZI 

67. 

9 CONTINUE 

SIZI 

66. 

c 

SIZI 

69. 

c 

PAVLOAO  HT 

SIZI 

70. 

c 

SIZI 

71. 

XPL  = HO  - HPO  - HEO 

SIZI 

72. 

c 

SIZI 

73. 

T HR  AT 2 - N0*(  TVACO )/H0 

SIZI 
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SUBR0UTINE 

SIZ2 


Subroutine  SIZ2  Specification 


1,0  DESCRIPTION 
Purpose : 

To  size  a two  stage  space  shuttle  with  a fixed  payload. 

Comment : 

This  routine  interates  on  both  stage  propellant  weights  for  the  input  payload 
weight. 

Stage  weights  may  be  of  a tabular  input  format  or  the  coefficients  of  a 
generalized  weight  equation  may  be  input. 


3 . 0 EQUATIONS 


The  solution  to  the  fixed  payload  sizing  problem  starts  with  the  determination 
of  the  velocity  distribution  between  the  booster  and  the  orbiter.  The  booster 
velocity  is  given  by 


DVB  =32.2  ISPB  ALOG  (MUB) 


The  required  orbiter  mass  ratio  to  satisfy  the  mission  velocity  is  given  by 


MUO  = EXP  ( ( IDNEL  - DVB)/32 .2/ISPO 
AND  THE  ORBITER  VELOCITY  IS  GIVEN  BY 

DVO  =32.2  ISPO  ALOG  (MUO) 

The  orbiter  propellant  weight  is  solved  for  iteratively  from  the  following 
equations 


WPO  = (MUO  - 1)  (XPL  + WE01 ) /MUO 

Where  WE01  is  an  initial  estimate  of  the  orbiter  stage  weight.  An  orbiter  stage 
weight  is  calculated  with  the  estimate  of  the  orbiter  propellant  weight  given 
above.  Either  the  tabular  input  data  of  the  coefficients  for  the  general  weight 
equation  given  below  must  be  input  to  determine  the  orbiter  stage  weight 

WE0  = OKI  + 0K2(WP0)  + OK3(WPO)1/3  + OKl+(WPO)2/3 
and  stage  weight  sensitivity. 


DWEO  = 0K2  + 1/3  OK3(WPO)~2^3  + 2/3  OKU(WPO)-1^3 
This  value  for  WEO  is  returned  to  the  equation  above  and  solved  until 


WEO  = WE01 

Once  the  orbiter  propellant  weight  and  stage  weight  has  been  determined,  the 
'irfitiaT“orbiter-gross— weight  may  _be_determined  from 


WO  = WEO  + WPO  + XPL 
and  the  orbiter  burnout  weight  from 


WFO  = WO  - WPO 


The  orbiter  thrust-to-veight  ratio  is  given  by 


TWRAT2  = NO  (TVACO)/WO 

The  booster  proellant  weight  is  solved  for  in  a similar  manner,  with  the  booster 
stage  weight  initialized  as  zero 

WEB1  = 0 

and  the  propellant  weight  determined  from 

WPB  = (MUB-l) (WO  + WEB1 ) /MUB 

Once  again  the  booster  stage  weight  corresponding  to  this  propellant  weight 
is  solved  for  in  a similar  manner,  with  the  booster  stage  weight  initialized  as 
zero 

WL'Bl  = 0 

and  the  propellant  weight  determined  from 

WPB  = (MUB-l) (WO  + WEB1 ) /MUB 

Once  again  the  booster  stage  weight  corresponding  to  this  propellant  weight  is 
determined  from  one  of  the  two  stage  weight  options  available . Either  the 
booster  weight  has  been  input  in  a tabular  format  as  a function  of  its  propellant 
weight  or  the  coefficients  of  the  generalized  weight  law  have  been  input 

WEB  = BK1  + BK2  ( WPB ) + BK3(WPB)1/3  + BKl+(WPB)2/3 

- -and  the  sensitivity  of— booster^  weight  to  propellant  weight 

DWEB  = BK2  + 1/3  BK3 ( WPB ) 3 + 2/3  BJCMWPB)-1/3 


the  iteration  is  continued  setting  WEB1  = WEB  until  convergence  has  been  obtained. 
Once  converged,  the  remainder  of  the  booster  parameters  are  determined  from 


WBO  = • W 


+ WEB 


WLO  = WBO  + WPB 

TWRATO  = N(TVAC  - AEXIT(21l6 . 217 ) )/WLO. 


FORTRAN 

SYMBOL 


MAT  H 
SYMBOL 


COOE 


DESCRIPTION 


STORAGE 
BLOCK  LOT 


SUBROUTINE  USAGE 
SUBR  COOE  VAR 


AEX1T 

I 

Boostar  angina  exit  arn  !f t**2) 

/SIZING/! 

293)  SIZ1 

I 

AEXIT 

SIZ2 

I 

AEXIT 

S1Z9 

l 

AEXIT 

SIZ5 

I 

AEXIT 

TAMPAfi 

I 

AEXIT 

BA1 

I 

Value  of  constant  ■tight  in  booster 

stage  eeight 

/SIZING/! 

279  ) SIZ1 

I 

BA  1 

aquat Ion 

SIZ2 

I 

BA1 

UTDRP 

I 

BA1 

BK2 

1 

Value  of  linear  ter*  coefficient  in 

booster  stage 

/SIZING/! 

280)  SIZ1 

I 

BA2 

•el ght  equation 

SIZ2 

I 

BA2 

UTDRP 

I 

BA2 

BA3 

I 

Value  of  l/3-po*er  tern  coefficient 

in  booster 

/SIZING/! 

281)  SIZ1 

I 

BA3 

stage  *aight  equation 

SIZ2 

1 

BA3 

UTDRP 

I 

BA3 

BAN 

I 

Value  of  2/3-po*er  ter*  coefficient 

i n booster 

/SIZING/! 

282  ) SIZ1 

I 

BAN 

stage  •eight  equation 

SIZ2 

I 

BAN 

UTDRP 

I 

BAN 

BUPB 

E 

Entry  point  for  booster  propellant  eeight  loop 

/BUPB  /( $SIZ2)  SIZ2 

E 

BUPB 

( si *2  ) 

SIZ3 

S 

bupb 

OVB 

n 

Booster  1 6 e 1 velocity  ! fpa  ) 

/SIZING/! 

308)  SIZOUT 

I 

DVB 

S1Z1 

A 

DVB 

SIZ2 

A 

DVB 

SIZ3 

0 

DVB 

SIZ9 

A 

DVB 

DVO 

O 

Orbiter  ideal  velocity  (fps) 

/SIZING/! 

307)  SIZOUT 

l 

DVO 

SIZ1 

D 

DVO 

SIZ2 

0 

DVO 

SIZ3 

A 

DVO 

SIZ9 

0 

OV& 

TRTOSZ 

0 

DVO 

DUES 

M 

Sensitivity  of  booster  stage  eeight 

to  propellant 

/SIZING/! 

279)  PAYLOD 

I 

DUEB 

*e 1 ght  ( 1 b/ 1 b ) 

SIZOUT 

I 

DUEB 

SIZ1 

A 

DUEB 

SIZ2 

A 

DUEB 

STAU 

1 

DUEB 

UTDRP 

A 

DUEB 

OUEO 

m 

Sensitivity  of  orbiter  stage  *eight 

to  pr ope  1 1 ant 

/SIZING/! 

275)  PAYLOO 

I 

DUEO 

*e I ght  ( 1 b/  lb) 

SIZOUT 

I 

DU£0 

SIZ1 

A 

0U€0 

S1Z2 

A 

DUEO 

SI  ZN 

A 

OUEO 

UTORF 

A 

0U£0 

GR 

Q 

i 

Gravitational  acceleration  at  surface  of  the  earth. 

/GLOBAL/! 

l ) ACCEL 

GR 

SP 

( FT/SEC2) 

8L5 

GR 

E0UA3 

GR 

FH3 

6R 

8EINP 

G 

GEINP 

GR 

GE1NP 

0 

IG 

OUT 

GR 

PADS  1 

GR 

POBC 

GR 

REU3 

GR 

S01NP 

GR 

SIZE 

GR 

SIZ1 

GR 

SIZ2 

GR 

SIZ3 

GR 

SIZ9 

GR 

SOMG 

GR 

STAU 

GR 

I 

0 

Do-loop  indes  for  orbiter  propellant 

ee i ght 

/S1Z2  /(  *SI  Z2 ) S1Z2 

0 

I 

deterei n at Ion 
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FORTRAN  NATH 

SYNBOL  SYBBOL 


coot 


DESCRIPTION 


STORAGE 
'BltftK LO  t~ 


SUBROUTINE  USAGE 
SUBR  COOE Jar 


I OVEL 

I 

T otel  Ideal  velocity  required  to 

or  bit  f fpt > 

/SI 

297 > SIZ1 

} 

I DVEl 

S1Z2 

1 

1DVEL 

S 23 

1 

IOVEL 

SIZA 

1 

I OVEL 

TRTOSZ 

P 

10VEL 

ISPB  i 

I 

Booater  vacuua  specific  iapulte 

sec 

/SIZING/! 

299  ) SIZE 

B 

ISPB 

SIZOUT 

I 

ISPB 

{ 

SIZ1 

I 

I5PB 

SIZ2 

I 

ISPB 

SIZ3 

I 

ISPB 

SIZA 

1 

ISPB 

TABPAR 

I 

ISPB 

ISPO 

1 

Orbiter  vacuus  specific  Impulse 

sec 

/Si ZIN6/1 

298)  SIZE 

B 

ISPO 

SIZOUT 

I 

ISPO 

SIZ1 

1 

ISPO 

SIZ2 

1 

ISPO 

SIZ3 

I 

ISPO 

SIZA 

I 

ISPO 

TABPAR 

1 

ISPO 

I TNBW 

I 

/SIZING/! 

317)  SIZE 

P 

ITNBW 

sizi 

l 

ITNBW 

SI  Z2 

1 

ITNBW 

MTDAP 

I 

ITNBW 

l T NON 

I 

Orblter  eapty  eeiqHt  curve  so. 

/SIZING/! 

318)  SIZE 

0 

ITNOW 

SI  21 

I 

I T NOW 

S1Z2 

1 

ITNOW 

SIZ9 

I 

ITNOW 

WTDBP 

I 

ITNOW 

BUB 

I 

/SIZIN6/! 

3C9  ) SIZE 

B 

BUB 

SIZI 

I 

BUB 

SIZ2 

1 

BUB 

SIZ3 

B 

BUB 

SIZA 

B 

BUB 

BUO 

B 

/SIZING/! 

310)  SIZE 

B 

BUO 

SIZI 

B 

BUO 

S1Z2 

B 

BUO 

S I ZB 

B 

BUO 

NNB 

1 

Nuaber  of  booster  engines 

/SIZING/! 

302  ) SIZOUT 

NNB 

SIZI 

NNB 

SIZ2 

NNB 

SIZA 

NNB 

SIZ5 

NNB 

TABPAR 

NNB 

NO 

I 

/SIZING/! 

295  ) SIZOUT 

NO 

SIZI 

NO 

5 I Z2 

NO 

SIZ3 

NO 

SIZA 

NO 

TABPAR 

NO 

OKI 

I 

Saac  as  bkl  except  for  orbiter 

/SIZING/! 

266)  SIZI 

OKI 

SIZ2 

OKI 

SIZA 

OKI 

WTDRP 

OKI 

0K2 

I 

Saa*  as  bk2  except  for  orblter 

/SIZING/! 

287  ) SIZI 

0K2 

S1Z2 

0K2 

SIZA 

0K2 

WTORP 

0K2 

0K3 

I 

Saac  as  bk3  except  for  orbiter 

/SIZING/! 

268)  SIZI 

0K3 

SI  Z2 

0K3 

SIZA 

0K3 

WTORP 

0X3 

OKA 

l 

/SIZING/! 

269)  SIZI 

OKA 

5122 

OKA 

SIZA 

OKA 

WTORP 

OKA 

S1Z2 

E 

Siiina  sutoroutlna  tor  fixed  payload  option 

/sizz  nZ 

S I Z2  T SIZE 

S 

S 1 22 

< i si ie=2 ) 

SIZ2 

E 

S1Z2 

8 NOV  72  6 . 01 -A6 


FORTRAN 

SYMBOL 


NATH 

SYMBOL 


CODE 


DESCRIPTION 


STjLS»6E 

BLOtT LOC  SUBfi  CODE  VAR 


TVACB  I Booater  vacuus  thrust  par  engine  lb  /SIZING/*  301)  S1Z0UT  I TVACB 

SIZ1  I TVACB 
SI  22  1 TVACB 

SIZ4  I TVACB 
SIZ5  I TVACB 
TAAPAR  1 TVACB 

T VACO  I Or  b 1 ter  vocuua  thrust  lib)  /SIZING/*  294)  SIZOUT  I TVACO 

SIZ1  I TVACO 
S1Z2  I TVACO 
SI  23  1 TVACO 

SIZ4  I TVACO 
TAAPAR  1 TVACO 


TURATO 

0 

Liftoff  thr ust-to-uel ght  ratio 

/SI Zl  NG/l 

285)  SIZOUT 

I 

TURATO 

SI21 

0 

TURATO 

S I 22 

0 

TURATO 

S I 24 

0 

TURATO 

SI  25 

I 

TURATO 

TURAT2 

0 

Second  *tOge  thr ust-to-«c I ght  ratio 

/SIZING/* 

278)  SIZOUT 

I 

TWRAT2 

S I 2 1 

0 

TURAT2 

SIZ2 

0 

T UR  AT  2 

SIZ3 

0 

TURAT2 

SI  24 

0 

TURAT2 

WBO 

A 

/SIZING/* 

272)  GEINP 

A 

SIZ 

PAYLOD 

0 

UBO 

SIZE 

1 

OAT 

5IZ0UT 

I 

UBO 

SI  21 

A 

UBO 

SIZ2 

A 

UBO 

SIZ4 

A 

UBO 

TAAPAR 

1 

UBO 

WEB 

A 

/SIZING/* 

304)  PAYLOD 

I 

UEB 

SIZQUT 

I 

UEB 

SI  21 

A 

UEB 

SI22 

A 

UEB 

S1Z4 

I 

UEB 

TAAPAR 

I 

UEB 

UTORP 

A 

UEB 

WEB1 

U 

•ei ght 

/SI  22  /*• 

) SI  12 

U 

UEB1 

UEO 

A 

Orbiter  stage  selght  lib) 

/SIZING/* 

303)  PAYLOD 

I 

UEO 

SIZOUT 

I 

UEO 

SI  22 

A 

UEO 

SI  22 

A 

UEO 

SIZ3 

I 

UEO 

S1Z4 

A 

UEO 

TAAPAR 

I 

UEO 

UTORP 

A 

UEO 

UE01 

U 

Iteration  variable  for  arbiter  stage 

«c I ght 

/SIZ2  /<» 

) SIZ2 

U 

UE01 

UFO 

0 

Orbiter  burnout  uelght  ( lb) 

/SIZING/* 

29b)  PAYLOD 

A 

UFO 

SIZOUT 

I 

UFO 

SIZ1 

0 

UFO 

SI  22 

0 

UFO 

SI  23 

0 

UFO 

SI  24 

A 

UFO 

TAAPAR 

I 

UFO 

TRT05Z 

0 

UFO 

ULO 

A 

Booster  liftoff  ueight  I lb) 

/SIZING/* 

30b)  PAYLOD 

0 

ULO 

SIZE 

I 

ULO 

SIZOUT 

I 

ULO 

S1Z1 

1 

ULO 

SI  22 

A 

ULO 

S I 24 

A 

ULO 

SI  25 

0 

ULO 

TAAPAR 

1 

ULO 

6 NOV  T2  G.Ol-Nb 


FORTRAN 

SYA80L 


MAT  H 
SYABOL 


COOE 


DESCRIPTION 


STORAGE 
BLOCfc  LOTC 


— subroutine  USAGE 

SUBR  CODE YAft 


wo 

n 

Initial  arbiter  aeJgbt  ( lb) 

/ S I Z 1 Nfi/( 

305  ) 

PAYLOO 

0 

wo 

SIZOUT 

I 

wo 

S1Z1 

a 

wo 

SIZ2 

n 

wo 

SIZ3 

a 

wo 

SI  ZN 

a 

wo 

TAAPAR 

I 

wo 

WPB 

a 

Booster  propellant  aelght  (lb) 

/SI2lN6/( 

277  ) 

SIZOUT 

I 

WPB 

SIZ1 

A 

WPB 

SIZ2 

A 

WPB 

SIZN 

I 

WPB 

TAAPAfi 

I 

WPB 

WTORP 

A 

WPB 

UPO 

a 

Orblter  propellant  aelgbt  (lb) 

/SIZIN6/( 

312) 

SIZOUT 

I 

WPO 

SIZ1 

A 

WPO 

SIZ2 

A 

WPO 

S I Z 3 

I 

WPO 

SIZN 

A 

WPO 

TAAPAR 

I 

WPO 

UTDRP 

A 

WPO 

X 

W 

Convergence  error  in  atat  iteration 

/SIZ2  /(* 

) 

SIZ2 

W 

X 

XPL 

1 

Pay  load  aei gbt  ( lb  ) 

/SI  Zl N6/( 

300  ) 

SIZOUT 

l 

XPL 

S I Z1 

0 

XPL 

SIZ2 

I 

XPL 

5IZ3 

I 

XPL 

S1ZN 

I 

XPL 

TAAPAR 

I 

XPL 

6 NOV  72  6.0J-N6 


S I Z 2 


1. 
2 . 
3. 
9 . 
5 . 
6. 
7 . 
8. 
9. 
10. 
11  . 
12. 
13. 
19. 

15. 

16. 

17. 

18. 

19. 

20. 
21  . 
22. 
23. 
29  . 
25. 


SUBROUTINE  SIZ2 
CONSTANT  PAYLOAD  SIZIN6 
COnnON/ GLOBAL/ 

*6R  ,ER  ,0«GZ  , XL AHRF 

*,JJOP(10)  .1FATAL  , NARC  NBR  AN 

* , XT  AB<  20), I T AB(  20)  ,$IG  , HAXT  AB 

* 6H  .P5IRF. IPFLG1  IPFLG2, IPFLG3, 

♦ ITPSO  ,X$6l  . XGLQBLi 8 ) 

REAL  HUB,  HUQ,  I SP  B , I SPO , IDVEL,NNB,NO 

cohhon  /sizing/ 

PHASE  II  SIZING  PARAHERERS 
*T Z,  VV(  3 ) CP(19>,  EROR, 

*SV<28),  S8(  37,5  ),  SEC  1 1 >,  TLAT, 

PHASE  1 SIZING  PARAHEftERS 


, Y HURF 
, NF  ARC 


f LUH 
. I DC  9) 


IPFLG9, INEOFLC 20  ) 


SIZ2 

SIZ2 

S I 22 

SIZ2 

GLOBAL 

GLOBAL 

6L0BAL 

GLOBAL 

GLOBAL 

RETAP 

SIZING 

SIZING 

SIZING 


*WBO, 
*BX1 , 
*0X1, 
♦AEXlT, 
•XPL, 
*DVO, 

* , J T YP . 

* svdp&o 


WLOO, 
BK2f 
0X2. 
TVACO, 
TVACB, 
DVB, 
BECO  . 

, SVOCON 


DUEB, 
BX3, 
0X3, 
NO, 
NNB, 
HUB, 
BSTG  . 
, I HUNT 


ONEO, 
BX9, 
0X9, 
UFO , 
WEO. 

HUfi, 
0R8I  . 

, IOPSt S 


PZ(  5 ), 
TLN6, 

VO, 

SHI  20), 

SIZING 

SIZING 

SIZING 

TOLWT, 

WP0, 

TWRAT2, 

SIZING 

ISIZE, 

TRAFLS, 

TWRATO, 

SIZING 

PRFLG, 

IPASS, 

IPSrtAX, 

SIZING 

IDVEL, 

ISPO, 

I SPB , 

SIZING 

WEB, 
V5TG, 
ITNBW  , 
ISZDt 19) 

“2*0 
I T NON  , 

HLQ, 

SI  ZING 
SIZING 
SIZING 
UH 

SIZ2 


26. 

C 

ORBITER  HASS  RATIO 

SIZ2 

27  . 

C 

SIZ2 

28. 

DVB  = GR  * I SPB*  ALOG(RUB) 

SIZ2 

29  . 

nUO  = EXPUIDVEL  -OVB)/<GR  * ISPO)) 

SIZ2 

30. 

DYO  = GR  * ISPO*  ALOG(HUO) 

SIZ2 

31  . 

C 

SIZ2 

32. 

c 

ORBITER  PROPELLANT  NT  LOOP 

SIZ2 

33. 

c 

SIZ2 

39. 

WEO 1=0.0 

SIZ2 

35. 

DO  3 1=1.15 

S1Z2 

36. 

WPO  = (RUO  -1 . )*(  XPL  ♦ WE01) 

S1Z2 

37  . 

1F( OKI .ST . 0.0 ) GO  TO  T 

SIZ2 

7 

38. 

5 

CONTINUE 

S I 22 

39. 

CALL  SPL1Z(  ITNBW,  WPB,  WEB,  DNEB) 

S1Z2 

90. 

GO  TO  8 

SIZ2 

8 — 

j 

91  . 

7 

WEO  = 0X1+  0X2*  WPO*  OX3*WPO**0. 3333  + 0X9*U»P0**  0.6667 

SIZ2 

92. 

DWEO=  0X2*  0X3*0.3333*  UPO**l -0 . 666 7)*  0X9*0.6667*  WPO** 

S1Z2 

93  . 

4 

(-0.3333  ) 

SIZ2 

99. 

8 

X = ABS( UE01-WE0 ) 

SIZ2 

95  . 

IF( X.LT.l  ) GO  TO  10 

SIZ2 

10  — 

96. 

9 

WEO 1 = WEO 

SIZ2 

97  . 

3 

CONTINUE 

S1Z2 

98. 

c 

SIZ2 

99. 

c 

ORBITER  INITIAL  WEIGHT 

SIZ2 

50. 

c 

SIZ2 

51  . 

10 

CONTINUE 

SI  22 

52. 

WO  = WPO  ♦ WEO  ♦ XPL 

SI  22 

53. 

WFO  = WO  - WPO 

SIZ2 

59, 

TWRAT2  = NQ*< TVACO )/WQ 

S1Z2 

55. 

c 

SI  22 

56. 

c 

BOOSTER  PROPELLANT  WT  LOOP 

5122 

57. 

c 

S1Z2 

56. 

ENTRY  BWPB 

5IZ2 

59. 

WEB1 = 0.0 

SIZ2 

60. 

00  13  1=1,10 

SI  22 

61  . 

WPS  = ( HUB-1 .0 >*(  WO  * WEB1  ) 

51Z2 

62. 

I F ( BX 1 . GT.0.0  ) 60  TO  17 

SIZ2 

IT 

63. 

15 

CONTINUE 

SI  22 

69  . 

CALL  SPL I Z( IT  NOW,  WPO,  WEO,  OWEO ) 

S I 22 

65. 

GO  TO  18 

SIZ2 

18-1 

66. 

1 1 

WEB  = 8X1+  BK2*  WPB+  BX3*WPB**  0.3337  + BX 3*WPB**0 . 6667 

S1Z2 

~ — r 

67  . 

DWEB=  BX2+  BX3*0 . 3333*  UPB**( -0 . 6667 ) +BX9*  0.6667*WPB*» 

SIZ2 

68. 

4 

(-0.3333) 

SI  12 

. | 

69  . 

16 

X = ABS( WEB1-WEB ) 

S I 22 

70. 

IF( X.LT. 1 ) 60  TO  20 

SI  22 

20-i 

71  . 

19 

WEB1=  WEB 

SIZ2 

72. 

13 

CONTINUE 

SI  22 

73. 

c 

5JZ2 

20  OCT  72  G. 01-96 


SI  Z2 
S 1 12 

S1Z2 

SIZ2 

SIZ2 

S1Z2 

SIZ2 

S1Z2 

SIZ2 

SIZ2 

SIZ2 
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SUBR0UTINE 

SIZ3 


Subroutine  SIZ3  Specifications 


1.0  DESCRIPTION 
Purpose : 

To  size  a space  shuttle  launch  vehicle  with  a fixed  orbiter  stage  and  payload 
weight . 

Comments : 

This  routine  sizes  a booster  stage  for  a given  orbiter  stage  size  and  payload 
weight . 

The  booster  propellant  weight  is  determined  using  the  iterative  loop  in  subroutine 
SIZ2  (entry  point  BWPB). 


3.0  EQUATIONS 


The  orhiter  is  specified  by  its  propellant  weight  and  stage  weight.  The  initial 
and  final  stage  weights  are  given  by 

WO  = WPO  + WEO  + XPL 
WFO  = WO  - WPO 

The  thrust-to-weight  ratio  is  given  by 

TWRAT2  = N0(TVAC0)/W0 
and  the  orbiter  velocity  is  given  by 

DVO  =32.2  ISPO  ALOG  ( WO /WEO  + XPL)) 

The  required  booster  mass  ratio  is  determined  by 

MUB  = EXP ( IDVEL  - DV0)/32.2/ISPB) 
this  corresponds  to  a booster  staging  velocity  of 

DVB  =32.2  (ISPB)  ALOG  (MUB). 

With  this  data  the  propellant  weight  loop  of  subroutine  SIZ2  is  called  (entry 
point  BWPB ) and  the  remaining  booster  parameters  determined. 


fortran 

SVABOL 


HATH 

SYABOL 


coot 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOC*  c5c  SUBfi  CODE VAR 
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FORTRAN  HATH 

SVflBOL  SYHBOL 


CODE 


DESCRIPTION 


SUBRCOOE VAR 


T VACO  I Orbittr  «ic«iu>  thratt  (lb)  /SIZING/*  29t  ) SIZOUT  I TVACO 

S1Z1  1 TVACO 
SIZ2  I TVACO 
SIZ3  I TVACO 
SIZA  I TVACO 
TANPAR  1 TVACO 

TURAT2  0 Second  *tOg*  t hr u*t-t e-at l ght  ratio  /SIZING/*  278)  SIZOUT  I TWRAT2 

SIZ1  0 TWRAT  2 
SIZ2  0 TURAT2 
S I Z 3 0 TWRAT* 

S1ZA  0 TWRAT2 

UEO  I Orbittr  ttagt  aright  (lb)  /SIZING/*  303)  PAVLOO  I WEO 

SIZOUT  I WEO 
SIZ1  n WEO 
SIZ2  n WEO 
S1Z3  I WE0 
S I Z A n WEO 
TANPAR  I WEO 
WTDRP  n WEO 

WFO  0 Orbittr  burnout  aright  (lb)  /SIZING/*  296)  PAVLOO  ft  WFO 

SIZOUT  I wfo 
SIZI  0 WFO 

siz2  o wfo 
si Z3  o yfo 
si zh  n wfo 

TANPAR  I WFO 
TRTOSZ  0 WFO 

NO  H Initial  orbittr  aright  (lb)  /SIZING/*  305)  PAVLOO  0 NO 

sizout  i yo 
sizi  n wo 

, SIZ2  * yo 

siZ3  n yo 
si za  n yo 

TAAPAR  1 yO 

UPO  1 Orbittr  propellant  aright  (lb)  /SIZING/*  312)  SIZOUT  ] WPO 

SIZI  n WPO 
SIZ2  N WPO 
S1Z3  I WPO 
siza  n WPO 
TAflPAR  1 WPO 
WTDRP  * ypo 

XPL  I Payload  aright  (lb)  /SIZING/*  300)  SIZOUT  I XPL 

SIZI  0 XPL 
5 1 Z2  I XPL 
SIZ3  1 XPL 
SIZA  I XPL 
TANPAR  I XPL 
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5. 
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18. 
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23. 
29. 

25. 

26. 
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28. 

29. 

30. 

31. 

32. 

33. 
39. 

35. 

36. 

37. 
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39. 
90. 
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SUBROUTINE  S1Z3 
FIXED  ORBITER  SIZING 
COHHON/GLOBAL/ 

♦ 6R  ,ER  ,0n6Z  , XLAHRF 

*,J30P<10>  , l FAT AL  ,NARC  N8R AN 

* , XTA8<  20  I , I T A8(  20  ) ,$16  , HAXT  AB 

*,GH  ,P$JRF, IPFLG1,  IPFLG2, 1PFLG3, i 

* . 1 TPSO  , XSOL  , XGLOBH  8 ) 

REAL  HUB,  HUO,  15PB,  1SP0,  J DVEL, NNB, NO 
COHflON  /Si Z I NG/ 

PHASE  II  SIZING  PARANERERS 
*TZ,  VVC  3 ), 

*5  V(  28  ) 50(  37,5  ) 


YHURF 

,NFARC 


, LUN 
, 10(  9 ) 


PFLG9, )W£0FL(  20> 


SIZE3 

SIZE3 

SIZE3 

SIZE3 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

SIZING 

SIZING 

SIZING 


*WBO, 

• BX1, 
*0X1 
•AEXIT , 

• XPL, 

• DVD, 

*,  JTYP, 

• S VDPSQ 


WLOO, 

BX2, 

0X2, 

TVAtO, 

TVACB, 

DVB, 

bec6  , 

, S VDCuN 


QP(19>,  EROR, 

5E<  11  >.  TLAT, 

; paraherers 

PZ<  5 ), 
TLNG, 

VO, 

SW(20),  SIZING 
SIZING 
SIZING 

OWE  8, 

DHEO, 

TOLHT, 

HPB, 

TWRAT2,  SIZING 

BX3 

BX9, 

(SUE, 

TRAFL6, 

THRATO,  SIZING 

0X3, 

0X9, 

P RF  LG, 

1PASS, 

1PSHAX,  SIZING 

NO, 

HFO, 

10VEL, 

1SP0, 

l SPB  SIZING 

NNB, 

UEO , 

WEB 

WO, 

WLO,  SIZING 

«{JB, 

hu6. 

VST  G, 

WPO 

SIZING 

BST6  , 
, I HUNT 

ORBI  . 

, I0PST6 

ITNBH 
,ISZO( 19) 

1TN0H  , 

SIZING 

UH 

INITIAL  ORBITER  HEIGHT 

HO  = WPO  ♦ WEO  ♦ XPL 
HFO  = HO-  WPO 
T HA AT 2 = NO*T  VACO/HO 

BOOSTER  NASS  RATIO 

DVO  = BR  * 1SP0*  ALOG(HO/(HEO  *XPL>> 
HUB  = EXPU10VEL  -DVO  )/(  6R  ♦ ISPB>> 
DVB  = GR  * 1 SPB  * ALOG(HUB) 

BOOSTER  PROPELLANT  HT  LOOP 

CALL  BHPB 

RETURN 

END 
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Subroutine  SIZ^  Specifications 


1.0  DESCRIPTION 
Purpose: 

To  size  a space  shuttle  using  a fixed  booster  stage  and  payload  weight. 

Comments : 

This  routine  starts  with  an  initial  estimate  of  the  booster  staging  velocity 
and  determines  the  orbiter  size  required.  The  payload  value  is  determined  and 
compared  to  the  required  value.  If  they  disagree,  the  booster  staging  velocity 
is  changed  and  the  process  repeated. 
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3.0  EQUATIONS 


The  booster  lift-off  weight  is  determined  from  the  initial  stage  mass  ratio 
estimate  and  the  propellant  weight 

WLO  = WPB(MUB)/ (MUB-1 ) . 

Next  the  burnout  weight  and  thrust-to-weight  ratio  are  determined  from 

WBO  = WLO/MUB 

TWRATO  = N (TVAC  - AEXIT  (2116.217) ) /WLO. 

The  corresponding  booster  staging  velocity  is  given  by 

DVB  = 32.2  (ISPB)  ALOG  (MUB). 

The  initial  orbiter  weight  is  given  by 

WO  = WBO  - WEB. 

The  required  mass  ratio  for  the  orbiter  is  given  by 

MUO  = EXP  (IDVEL  - DVB)/32 .2/ISP0 
which  corresponds  to  an  orbiter  velocity  of 

DVO  = 32.2  (ISPO)  ALOG  (MUO). 

The  orbiter  vacuum  thrust-to-weight  ratio  is  given  by 

TWRATZ  = NO  (TVACO )/W0 

and  the  orbiter  burnout  and  propellant  weights  are  given  by 


WFO  = W0/MU0 


- --  -WPO  _ w0  _ wpo.  _ 

At  this  point  the  orbiter  stage  weight  and  weight  sensitivity  is  determined  using 
the  propellant  weight  and  input  data.  If  the  tabular  stage  weight  option  has  been 


used  these  quantities  are  looked-up,  whereas,  if  the  coefficients  to  the 
generalized  stage  weight  equation  were  input. 


VffiO  - OKI  + 0K2 (WPO ) + OKSCWPO)1^3  + 0KU(WP0)2/3 


and 


OWEO  * 0K2  + 1/3  OK3(WPO)_2/3  + 2/3  OK^WPO)  1/3 
The  corresponding  payload  for  this  iteration  is  determined  from 


YPL  = WFO  - WEO 


if  this  payload  matches  the  input  payload  the  sizing  is  complete.  If 


X = XPL  - YPL  t 0 


then  the  booster  mass  ratio  is  changed  in  the  proper  direction  by 

MUB  = MUB  - X (MUB-1)2/WPB 

and  the  process  is  repeated  until  X is  made  sufficiently  small. 
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306)  PAVLOD 

0 

ULO 

SIZE 

1 

ULO 

SI ZOUT 

1 

ULO 

SIZI 

I 

ULO 

S 1 12 

R 

uu> 

5IZH 

It 

ULO 

SIZ5 

0 

ULO 

TARPAR 

1 

ULO 

/SIZING/C 

30$)  PAVLOD 

0 

UO 

SIZOUT 

1 

uo 

SIZI 

It 

uo 

S I Z2 

It 

uo 

S1Z3 

It 

uo 

SIZA 

It 

uo 

T ARP  AR 

J 

uo 

/SI  ZlNG/( 

277 ) SIZOUT 

I 

UPB 

SIZI 

It 

UPB 

SIZ2 

ft 

UPB 

SIZA 

I 

UPB 

TARPAR 

I 

UPB 

UTDRP 

ft 

UPB 

/SI  ZING/I 

312)  SIZOUT 

I 

UPO 

SIZI 

It 

UPO 

SIZ2 

ft 

UPO 

SI  ll 

l 

up  a 

5 I Z-t 

ft 

UPO 

TARPAR 

1 

UPO 

UTDRP 

It 

UPO 

/S-IZN  /(*SIZN)  5IZA 

u 

X 

/SIZING/I 

300)  SIZOUT 

I 

XPL 

Sill 

0 

XPL 

SIZ2 

1 

XPL 

SIZ3 

1 

XPL 

SIZH 

1 

XPL 

TARPAR 

I 

XPL 

/5IZA  /(*5JZA>  S I Z ^ 

u 

V 
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FORTRAN 

SYMBOL 


SYMBOL  C0°* 


DESCRIPTION 


ST0RA3E 

bloc a LOU 


SUBROUTINE  USAGE 
SUBR  CODE VAR 


YPL 


U Internal  value  of  payload  irxed  to  determine  stage  /SIZA  /C * > S1ZA  N YPL 

alia  atth  one  stage  fixed 


8 NOV  72  G.Ol-A* 


SU1 


1 . 
2 . 
3. 
9. 

5. 

6. 
7 „ 
8. 
9. 

10. 

11. 

12. 

13. 

19. 

19. 

16. 

17. 

18. 

19. 

20. 
21  . 
22. 
23. 
29. 


SUBROUT  I ME  SIZ9 
FIXED  BOOSTER  SIZING 


,0«6Z 
. NAflC 
1G 


C0NH0N/6L06AL/ 

• GR  , ER 

*,JJOP<  10>  ,IFATAL 
*,XTAB(  20 ) , lTAB( 20) 

*,GN  ,PSIRF, IPFL61 . 

* . I TP$Q  ,XS0l  .XSLOBL(B) 

Real  hub.  huo.  ispb,  i$po,  idvel,nnb,no 
CGhhon  /SIZING/ 

PHASE  H SIZING  PARAHEBERS 

*T  Z , 

• SV( 28  ), 

PHA! 

• NBO, 

*BAI, 

*0X1, 

• AEIIT, 

• XPL, 

• DVO, 

*,  JTYP, 

• SVOPSO 


, XLAHRF  ,Y«URF  ,LUN 

NBR  AN  , NF  ARC  ,10(9) 

HAXTAB 

1PFLG2,1PFLG3, IPFLG9#INE0FU 20) 


VV(3>,  0P<19),  EROR, 

S0( 37,5  ),  SE< 11  ),  T LAT 

E 1 SIZING  PARAHEfiERS 

PZ<  5 ), 
TLNG, 

VO, 

SW(  20  > 

WLOO, 

OUEB, 

DWEO, 

T01UT, 

WPB 

TWRAT2 

SX2, 

BX3( 

BX9, 

isize. 

traflg. 

TtfRATO 

0X2. 

0X3, 

0X9, 

PfiFLG, 

IPASS, 

IPSHAX 

TVACO, 

NO, 

WFO, 

1DYEL, 

ISPO, 

ISPB, 

TVACB, 
DVB. 
BECO  , 

, S VOCON 

NNB, 
HUB, 
BST6  , 
, 1 HUNT 

WED, 

huo, 

ORBI, 

, I0PST6 

NEB 
VST  6, 
ITNBU 

,iszo( 1* : 

wo, 
UPO 
I T NOW 

) 

WLO, 

SIZE9 

S1ZE9 

SI  ZE9 

SI2E9 

GLOBAL 

GLOBAL 

GLOBAL 

6L0BAL 

GLOBAL 

RETAP 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZIN6 

SIZING 

SIZING 

SIZING 

UH 


25. 

6 CONTINUE 

SIZE9 

26. 

C 

5IZE9 

27. 

C 

BOOSTER  LIFT-OFF  NT 

S1ZE9 

28. 

c 

SIZE9 

29. 

NLO  = WPB  * NUB/(  HUB-1.0) 

SIZE9 

30. 

c 

SI  ZEN 

31  . 

c 

BOOSTER  BURNOUT  NT 

5IZE9 

32. 

c 

SIZE9 

33. 

WBO  = NLO /NUB 

SIZE9 

39. 

TWRATO  =NNB*(TVACB-  AEXIT  * 21 1 6 . 21 7 )/MLO 

SIZE9 

35. 

c 

SIZE9 

36. 

c 

INITIAL  ORBITER  NT 

SIZE9 

37. 

c 

SIZE9 

38. 

NO  = NBO  - NEB 

SIZE9 

39. 

c 

SIZE9 

90. 

c 

ORBITER  NASS  RATIO 

SIZE9 

91 . 

c 

SI  ZEN 

92. 

DVB  = GR  * ISPB  • ALOG(NUB) 

51  Z£9 

93. 

HUO  = E XP( < 1 0 VEL  - DVB  )/( GR  * ISPO)) 

SI  ZEN 

99. 

DVO  = GR  *ISPO  • ALOG(NUO) 

SIZE9 

95. 

c 

SIZE9 

96. 

c 

ORBITER  NTS 

S1ZE9 

97. 

c 

SIZE9 

98 . 

TWRAT2  s NO*  T VACO  /NO 

SIZE9 

99  . 

WFO  s WO/NUO 

SIZE9 

50. 

WPO  x WQ-  WFO 

SIZE9 

51  . 

IF(OKl.GT.O.O)  GO  TO  I 

SIZE9 

1—1 

52. 

CALL  SP LI Z( I T NOW,  WPO,  NEO,  DWEO) 

SIZE9 

53. 

GO  TO  2 

SIZE9 

, | 

59. 

1 WEO  = 0X1*  0X2*WP0*  0X3* WP 0**0. 3333*  OX9*WP0**0 . 6667 

SI  ZEN 

55. 

OWED  = 0X2  ♦ 0X3*0. 3333*WP0**( -0.6667  )♦  0X9*0 . 6667*WP0  ** 

SIZE9 

56. 

* (-0.3333) 

SIZE9 

57. 

c 

5IZE9 

58. 

c 

FIXED  PAYLOAD  ITERATION 

SIZE9 

59. 

c 

SIZE9 

60. 

2 VPL  = WFO  -NEO 

SIZES 

61  . 

X = XPL-YPL 

SIZES 

62. 

V = ABS(X) 

SIZES 

63. 

IF<  Y.LT.l . ) SO  TO  9 

SIZES 

9—i 

69  . 

NUB  = NUB  -X*  ((HUB  - 1.  )**2 )/  WPB 

SIZES 

65. 

GO  TO  6 

SIZES 

, | 

66. 

9 continue 

SIZES 

67. 

RETURN 

SIZES 

68. 

END 

SIZES 
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SUBR0UTINE 

SIZ5 


Subroutine  SIZ5  Specification 


1 . 0 DESCRIPTION 
Purpose : 

To  size  a space  shuttle  with  a given  lift-off  thrust-to-weight  ratio  and  thrust 
level. 

Comments : 


The  heart  of  this  routine  is  the  subroutine  SIZ1. 


3.0  EQUATIONS 

This  routine  determines  the  vehicle  gross  weight  from 


WLO  = NB  (TVACB  - AEXIT  ( 2116 . 217 ) ) /TWRATO 


and  solves  the  fixed  gross  weight  problem  of  SIZ1. 


FtHURAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE  5U&RQ,UTINg,j£A£E 
BLOC*  Lift  S UBR  CODE  VAR 


AEXIT 

MNB 

SIZ1 

SU5 
T VACB 

TURATO 


ULO 


I Booster  engine  tilt  art*  <ft»*2) 


I 


ter  engl 


$ Sizing  subrout ine  for  fixed  liftoff  «e i ght  siting 
opt  ion  < !sl*e=l > 

E Sizing  subroutine  for  filed  <t/«)0  ii»ize=5) 
assuacs  filed  thrust 

I Booster  vacuui  thrust  per  engine  lb 


I Liftoff  thrust-to-ue i ght  ratio 


0 Booster  liftoff  ■eight  (lb) 


/SIZING/! 

293  ) 

SIZ1 

I 

AEXIT 

S1Z2 

1 

AEXIT 

SIZH 

I 

AEKIT 

SIZ5 

I 

AEKIT 

TAMPAR 

I 

AEX1T 

/SIZING/! 

302) 

SIZOOT 

1 

NNB 

SIZ1 

I 

NNB 

S1Z2 

1 

NNB 

SIZH 

I 

NNB 

5IZ5 

I 

NNB 

TAMPAR 

I 

NNB 

/SIZE  /!$51Z1> 

SIZE 

S 

SIZ1 

S1Z1 

E 

SIZ1 

SIZ5 

S 

SIZ1 

/SIZ5  /( $S1 Z5  ) 

SIZE 

S 

SI  Z5 

SIZ5 

E 

SI  Z5 

/SIZING/! 

301  > 

SIZOUT 

I 

T VACB 

SIZ1 

I 

T VACB 

S1Z2 

I 

T VACB 

SIZH 

l 

T VACB 

S1Z5 

I 

TVACB 

T AMP  AR 

I 

T VACB 

/SIZING/! 

285  ) 

SIZOUT 

I 

TURATO 

SIZ1 

0 

TURATO 

SIZ2 

0 

TURATO 

SIZH 

0 

TURATO 

SIZ5 

I 

TURATO 

/SIZING/! 

306  ) 

PAVLOD 

0 

ULO 

SIZE 

1 

ULO 

SIZOUT 

I 

ULO 

SIZ1 

I 

ULO 

SIZ2 

n 

ULO 

SIZH 

n 

ULO 

SIZ5 

0 

ULO 

T AMP AR 

I 

ULO 

6 *0V  72  G. 01-46 


S 1 15 


l , 

SUBROUTINE  S1Z5 

SI  Z5 

2. 

C 

SI  Z5 

3 . 

c 

FUEO 

(T/W>1.0.  SIZING  - 

THRUST  GIVEN 

SI  Z5 

4 . 

c 

S1Z5 

5. 

REAL  NUB,  N'JO,  ISPB,  ISPO, 

I OVEL, nnb. 

NO 

SI  ZING 

6 . 

CQUftON 

/SIZING/ 

SI  ZING 

7. 

c 

PHASE  11  SIZING  PARANERERS 

SIZING 

8. 

*TZ, 

VV(  3 ),  QP<14), 

EROR, 

PZ<  5), 

va. 

SW(  20, 

SIZING 

9. 

*5  VI  28  ). 

SQ(  37.5  ).  SE(  11). 

TLAT . 

TLN6, 

SI ZIN6 

10. 

c 

PHASE  I SIZING  P AR ANEhERS 

SI  ZING 

U . 

♦UBO, 

WLOO,  ONEB, 

DWEO, 

TOLWT, 

WPB, 

T b!R  AT  2 , 

SIZING 

12. 

• BK1, 

BK2,  BK3, 

BK4, 

ISIZE, 

TRAFLG, 

TafiATO, 

SIZING 

13. 

• OKI, 

0K2.  0K3, 

OK  4, 

PRFLG, 

1 PASS, 

ifsnak. 

SIZING 

19. 

* AEXlT, 

TVAtO,  NO, 

WFO, 

iovel. 

ISPO, 

ISPB, 

SI  ZING 

15. 

•XPL, 

T VACB,  NNB, 

WEO. 

WEB 

-0, 

WLO, 

SIZING 

U. 

• OVO, 

DVB,  NUB, 

NUO, 

VSl  6, 

WrO 

SIZING 

17. 

*, jtvp. 

8EC0  , B5TG  . 

ORBI , 

ITNBW  , 

itnow  , 

SUING 

18. 

• svopSo 

, SVOC0N  ,1HUNT 

.I0PST6 

,1SZ0( 19 ; 

» 

UH 

19. 

c 

S1Z5 

20. 

c 

BOOSTER 

LIFT-OFF  WEIGHT 

SIZ5 

21. 

c 

5 1 Z 5 

22. 

WLO  -NNB«(  T VACB-  AEUT«21I6 

.217)/  TWRATO 

SIZ5 

23. 

CALL  SIZ1 

SIZ5 

29. 

RETURN 

SIZ5 

25. 

END 

SJZ5 
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SUBR0UTINE 

SIZ0UT 


SUBROUTINE  SIZEOUT  SPECIFICATIONS 


1.  DESCRIPTION 
Purpose : 

To  format  and  print  out  the  PADS-I  sizing  data. 

Comments : 

This  routine  prints  identification  headers  and  data  for  all  of  the  PADS-I  sizing 
routines.  A standard  output  format  is  used.  All  data  is  transmitted  to  this 
routine  through  the  C0MM0N/SIZING/statement . 

After  the  first  pass  through  this  routine,  the  print  control  flag,  PRFLG,  is  set 
to  print  data  only.  The  print  format  is  shown  in  Table  I. 


•^>  oV)  y o J>  \*\  \^-<__ 

ZVXpo~l 

CoT  PoT 

ToSLm  tv  \ 

PAUS 

PHASE  I SIZING 

DATa 

* 

SIZING 

0PTI0K  3 FIXED 

QRBITFH 

P AKA  ME  TER 

BOOSTER 

0 P 8 1 T E R 

UFT-CFF  -EIGHT 

(LB) 

L5\7TSTZ> 

1051220 

PRGPcLLANT  XEI6WT 

(LB) 

3499867 

827420 

BUYOUT  h E I 9 H 7 

(LB) 

1671204 

223800 

STcF  .''EIGHT 

. U«> 

619984 

206600 

P A V L v A J WEIGHT 

(LB ) 

1051220 

17200 

specific  impulse 

(SEC) 

283 

436 

IMPULSIVE  VELOCITY  (FPS) 

10293 

‘21718 

VACUUM  THRgST 

(LB) 

8090000 

3 060000 

UW&/L/-E 

.0057 

0,0000 

( T / W ) t * O • 

1,2502 

1,0084 

r A H a 1 1 [ TER 

- 

BOOSTER 

ORB  I TER 

LIFT-UF  •■EIGHT 

(LB) 

tttrijsio 

1187158 

PRUPLLla'-T  ! LIGHT 

(LB> 

3500000 

942843 

BUK'.ulJ  T .-FICMT 

(Lb  ) 

1807158  _ 

244315 

STEP  k'tlUHT 

(LB) 

6 ? 0 0 0 0 

227116 

PAYLUAL  uflThT 

(Lb) 

1187158 

17200 

SPLCiF'If.  I.,-ipULSL 

(SEC) 

283 

436 

IMPULSIVE  VELOCITY 

(FPS  ) 

9817 

22194 

'VACUUM  Th-VuST 

( Lb ) 

8090000 

1060000 

j E 7 u ■ P 

, 0057 

,0288 

( T / ' ) L . v , 

1,2181 

,8929 

S o '~r 


3.0  Equations 


The  only  quantity  calculated  in  this  routine  is  the  total  vacuum  thrust  for  each 
stage . These  quantities  are  determined  from  the  following  equations  and  used 
for  print  purposes  only. 

Booster : 


ABC  = NB  (TVACB) 


Or biter: 


DEF  = NO  (TVACO) 


FORTRAN 

SYMBO-L 


NATH 

SYMBOL 


CODE 


DESCRIPTION 


ST  PRASE  SUBROUTINE  USAGE 
BLOCH  UTC  SUBfi  CODE  VAR 


ABC 

U 

Total  booster  vacuua  thrustused  for  printing  siting 

/SIZOUT/(«SIZO)  SIZOUT 

w 

ABC 

data 

OEF 

y 

Total  orbiter  vacuua  thrustused  for  printing  sizing 

/SIZ0UT/(*SIZ0 ) SIZOUT 

y 

OEF 

d at  a 

DVB 

i 

Booster  1 tfe 1 velocity  (fp*> 

/SIZING/! 

308)  SIZOUT 

I 

DVB 

SIZ1 

n 

DVB 

SIZE 

n 

DVB 

S I Z 3 

0 

OVB 

SIZN 

n 

DVB 

DVO 

i 

Orbiter  ideal  velocity  (fps) 

/SIZING/! 

307  ) SIZOUT 

I 

DVO 

SIZ1 

0 

DVO 

SIZ2 

0 

DVO 

S1Z3 

n 

DVO 

SIZN 

0 

OVO 

TflTOSZ 

0 

DVO 

OWES 

i 

Sensitivity  of  booster  stage  aeigbt  to  propellant 

/SIZING/! 

27N)  PAYLOO 

i 

oyEB 

ae i gbt  ( 1 b/ 1 b ) 

SIZOUT 

i 

OyEB 

SIZ1 

n 

oyEB 

SIZZ 

« 

DyEB 

STAU 

I 

Dy£B 

UTDRP 

N 

DUEB 

DUEO 

i 

Sensitivity  of  orbiter  stage  aeight  to  propellant 

/SIZING/! 

275)  PAYLOO 

i 

DyEO 

ae i gbt  ( Ib/ib) 

SIZOUT 

I 

oy£0 

SIZ1 

n 

DyEO 

SIZ2 

M 

DyEO 

SUN 

M 

oyEO 

NTORP 

N 

DyEO 

ISIZE 

l 

Sizing  option  flag  1.  Fixed  aio,  aixiai je  apl  2. 

/SIZING/! 

263)  SIZE 

n 

ISIZE 

Fiied  apt,  ainiaizc  aio  3.  Fixed  orbiter,  ainialze 
alo  A.  Fiaed  booster,  ainiaizc  aio  5.  Fixed 
(t/a)I.O.  Masiaize  xpl  6.  Fixed  (t/a)1.0. 
Deteraine  f 

SIZOUT 

I 

ISIZE 

I SPB 

i 

/SIZING/! 

299)  SIZE 

N 

I SPB 

SI ZOUT 

I SPB 

SIZ1 

I SPB 

S I 22 

1 SPB 

SIZ3 

1 SPB 

SIZN 

I SPB 

T AMP AR 

1 SPB 

1SPO 

i 

Orbiter  vacuua  specific  iapulsa  sac 

/SIZING/! 

298)  SIZE 

n 

ISPO 

SIZOUT 

I5P0 

SIZ1 

ISPO 

SIZ2 

ISPO 

S1Z3 

ISPO 

SIZN 

ISPO 

T AHPAR 

ISPO 

NNB 

i 

Nuabar  of  boostar  engines 

/SIZING/! 

302)  SIZOUT 

NNB 

SIZ1 

NNB 

SIZZ 

NNB 

SUN 

NNB 

SIZ5 

NNB 

tampar 

NNB 

NO 

i 

Nuaber  of  orbiter  engiaes 

/SIZING/! 

295  ) SIZOUT 

NO 

SUI 

NO 

SIZ2 

NO 

SU3 

NO 

SUN 

NO 

tampar 

NO 

PRFLG 

n 

Sizing  data  print  flag  1.  Print  header  2.  Print 

/SIZING/! 

290  ) SUE 

n 

PRFLG 

identifier  3.  Print  data 

SI ZOUT 

n 

PRFLG 

5IZOUT 

E 

Subroutine  to  fortit  and  print  sizing  data  and 

/SIZOUT/!  0 

SOUT  ) SUE 

S 

SIZOUT 

headers 

SIZOUT 

E 

SIZOUT 
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FORTRAN 

SYMBOL 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE 

BLfliCK  Lftc 


SUBROUTINE  USAGE 
SUBR  COOE  VAR 


TVACB 


T VACO 


TURATO 


T UR  AT 2 


UBO 


UEB 


UEO 


UFO 


ULO 


UO 


Booster 

vacuus 

thrust  per  engi ne  lb 

/SIZING/! 

301 > SI ZOUT 

I 

TVACB 

SIZ1 

1 

TVACB 

SIZ2 

I 

TVACB 

SIZ9 

I 

TVACB 

SIZ5 

I 

TVACB 

TAMPAfi 

1 

TVACB 

Or  b 1 ter 

thrust  ( lb) 

/SIZING/! 

29*0  S I ZOUT 

I 

T VACO 

SIZ1 

I 

T VACO 

SIZ2 

I 

T VACO 

SI  Z3 

I 

TVACO 

- 

sin 

I 

T VACO 

T AMPAR 

I 

TVACO 

Liftoff 

thrust- 

to-aelght  ratio 

/SIZING/! 

265)  SIZOUT 

I 

TURATO 

SI  Z1 

0 

TURATO 

SIZ2 

0 

TURATO 

SIZ9 

0 

TURATO 

SIZ5 

I 

TURATO 

Second 

stOqe  thr ust-to-oe 1 ght  ratio 

/SIZING/! 

276)  SIZOUT 

I 

T UR  AT  2 

S1Z1 

0 

TURAT2 

SIZ2 

0 

TURAT2 

S I Z 3 

0 

T UR  AT  2 

SIZ9 

0 

TURAT2 

Booster 

burnout 

•eight  ( lb) 

/SIZING/! 

272)  GEINP 

M 

SIZ 

PAYLOO 

0 

UBO 

SIZE 

I 

OAT 

SIZOUT 

I 

UBO 

S1Z1 

M 

UBO 

SIZ2 

M 

UBO 

SIZ9 

M 

UBO 

T AMP  AR 

I 

UBO 

Booster 

stage  a 

eight  < lb) 

/SIZING/! 

309 ) PAYLOO 

I 

UEB 

SIZOUT 

I 

UEB 

SIZ1 

n 

UEB 

SIZ2 

M 

UEB 

S1ZH 

I 

UEB 

T AMPAR 

I 

UEB 

UTDRP 

« 

UEB 

Or  b 1 ter 

stage  set ght  (lb) 

/SIZING/! 

303)  PAYLOO 

I 

UEO 

SIZOUT 

I 

UEO 

S1Z1 

n 

UEO 

SIZ2 

M 

UEO 

S1Z3 

I 

UEO 

S1Z9 

« 

UEO 

T AMPAR 

1 

UEO 

UTDRP 

« 

UEO 

Or  bi t er 

bur  no  ut 

•eight  ( lb) 

/SIZING/! 

296)  PAYLOO 

n 

UFO 

SIZOUT 

I 

UFO 

SIZ1 

0 

UFO 

SI  12 

0 

UFO 

SIZ3 

0 

UFO 

sm 

« 

UFO 

T AMPAR 

1 

UFO 

TRTOSZ 

0 

UFO 

Booster 

liftoff 

•e  i ght  (lb) 

/SIZING/! 

306)  PAYLOO 

0 

ULO 

SIZE 

I 

ULO 

SIZOUT 

1 

ULO 

SIZ1 

I 

ULO 

SIZ2 

N 

ULO 

SI  Z9 

n 

ULO 

SIZ5 

0 

ULO 

T AMPAR 

I 

ULO 

Initial 

or bl ter 

ae  1 ght  (lb) 

/SIZING/! 

305  ) PAYLOD 

0 

uo 

SIZOUT 

i 

UO 

SIZ1 

M 

UO 

S 1 12 

n 

uo 

SIZ3 

K 

uo 

- 

-- 

SIZ9 

n 

UO 

T AMPAR 

I ' 

uo 
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FORTRAN  RATH 

SYMBOL  SYMBOL 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


SUBROUTINE  USAGE 
Sub*  CWt  var 


I Booster  propellant  »e l ght  (lb) 


I Orblter  propellant  aalght  (lb) 


I Pay  load  *e 1 ght  ( lb  ) 


0 File  of  all  output  data 


/ .UN06./( $ 


SI ZOUT 

I 

UPB 

SIZ1 

n 

UPB 

S 1 Z 2 

M 

UPB 

S \IH 

1 

UP  6 

T AflPAR 

I 

UPB 

WTDRP 

M 

UPB 

S I ZOUT 

I 

UPO 

S1ZI 

M 

UPO 

S1Z2 

M 

UPO 

SIZ3 

I 

UPO 

S1ZH 

M 

UPO 

taapar 

I 

UPO 

UTDRP 

A 

UPO 

SI ZOUT 

I 

XPL 

S1Z1 

0 

XPL 

S 1 12 

I 

XPL 

S1Z3 

I 

XPL 

sm 

1 

XPL 

TAAPAR 

I 

XPL 

BLICO 

0 

. UNO* 

bndryc 

0 

. UNO* 

CRASH 

0 

. UNO* 

FRENCH 

0 

.UNO* 

FXOAT 

0 

.UNO* 

GE1NP 

0 

.UNO* 

HUNT 

0 • 

.UNO* 

INEDIT 

0 

. UN06 

ITERS 

0 

.UNO* 

MODELA 

0 

. UNO* 

AOAJ 

0 

.UNO* 

MPSI 

0 

.UNO* 

OUT 

0 

. UNO* 

PAV02 

0 

. UNO* 

PRINT 

0 

.UNO* 

PRINTV 

0 

.UNO* 

PRINTU 

0 

. UNO* 

PRITEQ 

0 

. UNO*. 

PR1TYA 

0 

. UNO*. 

PROPIN 

0 

.UNO*. 

PROTHR 

0 

. UNO*. 

P RUT  SM 

0 

.UNO*. 

RANGE 

0 

.UNO*. 

S 

0 

.UNO*. 

5DINP 

0 

. UN06 . 

SIZE 

0 

.UNO*. 

SIZIN 

0 

. UNO*. 

SIZOUT 

0 

.UNO*. 

SOLVE 

0 

. UN06 . 

SPLJCO 

0 

. UNO* . 

SPL1Z 

0 

. UNO*. 

SPlYNE 

0 

. UNO*. 

SSSP 

0 

.UNO*. 

ST  AU 

0 

. UNO*. 

STPIT 

0 

.UNO*. 

SUMOUT 

0 

. UNO* . 

TAB1N 

0 

. UNO*. 

TEST 

0 

.UNO*. 

YEHOF 

0 

.UNO*. 

UTSCH 

0 

. UNO*. 

UTYOL 

0 

. UNO*. 
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SUOUT 


SUBROUTINE  SIZOUT 

PRINT  ROUTINE  FOR  PHASE  I SUING  DATA 

REAL  NUB.  mJO.  ISPB,  ISPO,  IDVEL,NNB,NO 
CONNON  /SIZING/ 

PHASE  II  SUING  PARANERERS 


*TZ,  V V!  3 ), 

*SV1 28  >,  SO! 3 f ,5  ) 
PHASE  I SIZING 

QP!  19  ), 

SE1  11). 
PARANERERS 

EROR, 

TLAT, 

PZ!  5 ), 

tlng. 

VO, 

SW(  20  ) 

* WBO  , 

WLOO, 

OWES, 

DUEO, 

TOLWT, 

UPB, 

TWRAT2 

* BX  1 , 

BK2, 

BX3, 

BK9, 

IS1ZE, 

traFlg, 

TWRATO 

*0X1 1 

0X2. 

0X3, 

0X9, 

prflg. 

IPASS, 

IPSNAX 

* AEXIT, 

T VACO, 

NO, 

UFO, 

iovel. 

ISPO, 

ISPB, 

• XPL, 

TVACB, 

NNB, 

WEO. 

«u6. 

WEB, 

WO, 

WLO  , 

*DVO, 

OVB. 

NUB, 

VST  G, 

WPO 

*,  JTYP, 

BEC&  , 

BSTG  , 

ORBI, 

ITNBW  , 

1 T NOW  , 

• 5VDPS3 

, 5V0C&N 

, I HUNT 

I OPS  i G 

,ISZO< 1& 

) 

HEADER  PRINT 

IF( PRFL6.E9.2  I 60  TO  7 
IFIPRFLG.NE.1 > 60  TO  20 
WRITE<6,100) 

PRFL6  = 3. 


20  WRITE! 6 . 109  I 

ABC  =NNB  * TVACB 
OEF  = NO  * T VACO 

DATA  PRINT 

WRITE! 6, 110)  WLO,WO,UPB,WPO,WBO,WFO.UEB,UEO,WO,XPL, 

* isp&,i£po#6vb,6vo,abc,def,6web,oueo, 

* TWRATO,  TWRAT2 
IF! PRFLG.EQ.2 ) PRFLb  =3- 
WRITEI6.1II > 

100  F0RNAT1  22X,29HPA0S  PHASE  I SIZING  DATA  ) 

101  F0RNATI2GX37HSIZIN6  OPTION  1 FUEO  LIFT-OFF  WEIGHT  > 

102  FOR NAT! 2CX37HSIZIN6  OPTION  2 FIXEO  PAYLOAD  WEIGHT  ) 

103  FORNAK  20X,31HSIZIN&  OPTION  3 FUEO  ORBITER  ) 

109  FOR  NAT!  2CX31HSUING  OPTION  9 FIXED  800STER  ) 

105  FORNATC  20X  31HS1ZING  OPTION  5 FUEO  !T/W)L.O.) 

109  FORNAT! 16X,9HPARANETER  , 19X, 7HB00STER, 1 IX , 7H0RBITER ) 

110  FORNAT!  1GX,29Hl1FT-0FF  WEIGHT  ( LB >, 2( 8X , F 1 0 . 0 >, / , 

* 10X,2MHPR0PELLANT  WEIGHT  < LB), 2( 0X, FI 0.0),/, 

* 1CX,29HBURN0UT  WEIGHT  ( LB  ), 2( 8 X , F 1 0 . 0 ), / , 

* 1CX,29HSTEP  WEIGHT  ( LB  ), 2! 8X, F 1 0 . 0 ), /, 

* 1CX,29HPAYL0AD  WEIGHT  ( LB), 21 8X,F10.Q>,//, 

* 1CX,2MHSPECIFIC  IMPULSE  ! SEC), 2! 8X,F10.0  ),/, 

* lGX,2HHlflPULSIV£  VELOCITY  ( FP S ) , 2( 8X , F 1 0 . 0 ), / , 

* !Gx,29rtVACUU*  THRUST  ( LB  ),  2(  8X,F10.0  ),/ 

* 1 GX, 29HDWE/0WP  ,2l9X,F8.9)  ,/, 

* 1 GX , 2 9H!  T/W  )L . 0.  ,2<9X,F8.9)  ) 

1 1 1 F0RNAT1  1 Hi ) 

RETURN 

ENO 


SIZING 

SUING 

SUING 

SUING 

UH 

SUOUT 

SIZOUT 

SIZOUT 

SIZCUT 

SIZOUT 

SUOUT 

SUOUT 


26, 

7 60  TO  ! 1,2, 3, 9, 5)  ISIZE 

SIZOUT 

27. 

1 WRITE! 6.101) 

SIZOUT 

26 

GO  TO  20 

SIZOUT 

29. 

2 WRITE! 6,102) 

SIZOUT 

30. 

GO  TO  20 

SUOUT 

31  . 

3 WRITE! 6.103) 

SUOUT 

32. 

GO  TO  20 

SUOUT 

33. 

9 WRITE!  6,109) 

SUOUT 

39. 

GO  TO  20 

SUOUT 

35. 

5 WR1 TE( 6, 1 05  > 

SUOUT 
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Subroutine  TAMPAR 


1.0  DESCRIPTION 
Purpose : 

Puts  PADS- I data  into  format  compatible  with  trajectory  program  interface. 
Comments : 


This  routine  corresponds  to  TAMPER  in  the  PADS-II  program  (SSSP). 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  OSAGE 

BLOC*  IOC  SU8R  COOE  VAJT* 


AEXIT 


ISPB 


1SPO 


NNB 


NO 


SO 


SV 


TVACB 


Booster  engine  eilt  arc*  (ft**2) 

/S!ZIN6/< 

293)  SIZ1 

I 

AES1T 

5IZ2 

I 

AEXIT 

SI  z*» 

I 

AEUT 

5125 

I 

AEAIT 

T AMPAR 

I 

AE1JT 

Booster  «icuus  specific  laputse  »«c 

/SIZING/i 

299)  SIZE 

* 

ISPB 

SI ZOUT 

I 

ISPB 

Sf  Zl 

I 

ISPB 

SIZ2 

I 

ISPB 

SI  Z3 

1 

ISPB 

S I ZN 

I 

ISPB 

T AMP  AR 

I 

ISPB 

/SI  ZI NG/( 

296)  SIZE 

n 

ISPO 

Si ZOUT 

I 

ISPO 

SIZ1 

I 

ISPO 

SIZ2 

I 

ISPO 

SI  Z3 

I 

ISPO 

SIZ9 

I 

ISPO 

T AMP AR 

I 

ISPO 

Nuabcr  of  booster  engines 

/5IZIN6/< 

302)  SIZOUT 

I 

NNB 

SIZi 

I 

NNB 

SIZ2 

I 

NNB 

SIZ9 

I 

NNB 

51  Z5 

I 

NNB 

TAMPAR 

I 

NNB 

Nuaber  of  orblter  engines 

/SIZING/I 

295)  SIZOUT 

I 

NO 

SIZi 

I 

NO 

S I 22 

I 

NO 

S I Z3 

I 

NO 

S 1 Z-t 

1 

NO 

T AMPAR 

I 

NO 

A synthesis  date  array  (37,5)  that  contains  the 

/SIZING/( 

79)  ENVPRM 

n 

SB 

flyback  data  and  seat  injection  quantities 

FLYBKP 

« 

SB 

1 SPRAT 

I 

SB 

POBC 

I 

SB 

PBITVA 

I 

SB 

RANGE 

M 

SB 

REU3 

0 

SB 

SIZE 

0 

SB 

SiZEMR 

* 

SB 

SIZIN 

n 

SB 

ST  AU 

I 

SB 

SUMOUT 

* 

SB 

T AMP  AR 

0 

SQ 

TAMPER 

n 

SB 

THRUST 

n 

SO 

TRT05Z 

« 

SQ 

VEHDF 

n 

SQ 

NT  VOL 

n 

SQ 

A synthesis  array  (26)  containing  staging 

/SI  ZING/ ( 

Hb ) ENVPRH 

H 

SV 

parameters  and  a($c  flags 

FLYBKP 

I 

SV 

ITER8 

I 

SV 

RANGE 

I 

SV 

SI ZEMR 

n 

SV 

SIZIN 

I 

SV 

SSSP 

I 

SV 

sumout 

I 

SV 

T AMPAR 

0 

sv 

TAMPER 

« 

SV 

TfiTOSZ 

n 

sv 

VEHOF 

M 

sv 

NT  VOL 

I 

sv 

Booster  vacuua  thrust  per  engine  lb 

/SIZING/! 

301  ) SI ZOUT 

TVACB 

SIZI 

TVACB 

SI  Z2 

TVACB 

S 1 ZN 

TVACB 

SIZ5 

TVACB 

— - - - ~ - 

_ __ 

T AMP  AR_ 

TVACB 
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fortran 

SYMBOL 


HATH 

SYMBOL 


COOE 


DESCRIPTION 


tajy^w-  ^swshw 


TVACO 


Orbiter  vicuu*  thrust  (lb) 


ubo 


Booster  burnout  .eight  (lb) 


WEB 


Booster  stage  .eight  ( lb) 


UEO 


Orbiter  stege  .eight  ( lb) 


yFO 


Orbiter  burnout  .eight  ( lb) 


yLO 


Booster  liftoff  .eight  (lb) 


yo 


Initial  orbiter  .cl ght  ( | b ) 


yPB 


Booster  propellant  .eight  (lb) 


ypo 


Orbiter  propel  I ant  oc I ght  (lb) 


/SIZING/I 


/ S 1 Z 1 NG/( 


/SIZING/C 


/SIZING/I 


/SI Zl NG/( 


/$] Z 1 N6/( 


/SI ZI NG/( 


/SI ZlNG/( 


/SIZING/I 


29a>  S1Z0UT 

I 

T VACO 

S1Z1 

I 

TVACO 

SIZ2 

I 

T VACO 

SIZ3 

I 

TVACO 

SIZA 

I 

TVACO 

TAflPAR 

I 

TVACO 

272)  GEINP 

ft 

SIZ 

PAYLOD 

0 

UBO 

SIZE 

I 

OAT 

SIZOUT 

I 

UBO 

sm 

ft 

UBO 

SIZ2 

ft 

WBO 

SI  ZM 

ft 

UBO 

TAftPAR 

I 

UBO 

30M  > PAYLOD 

I 

UEB 

SIZOUT 

I 

UEB 

SIZ1 

ft 

UEB 

SIZ2 

ft 

UEB 

SIZA 

I 

UEB 

TAftPAR 

I 

UEB 

UTDfiP 

ft 

UEB 

303)  PAYLOD 

I 

UEO 

SIZOUT 

1 

UEO 

SI  ZI 

ft 

UEO 

5IZ2 

ft 

UEO 

SI  Z3 

I 

UEO 

SIZA 

ft 

UEO 

TAftPAR 

I 

UEO 

UTDRP 

ft 

UEO 

296)  PAYLOD 

ft 

UFO 

SIZOUT 

t 

UFO 

SIZ1 

0 

UFO 

SIZ2 

0 

UFO 

SIZ3 

0 

UFO 

SIZA 

ft 

UFO 

TAftPAR 

I 

UFO 

TRTOSZ 

0 

UFO 

306)  PAYLOD 

0 

ULO 

SIZE 

I 

ULO 

SIZOUT 

I 

ULO 

SIZ1 

I 

ULO 

S I Z2 

ft 

ULO 

SIZA 

ft 

ULO 

S1Z5 

0 

ULO 

TAflPAR 

I 

ULO 

305  > PAYLOD 

0 

UO 

SIZOUT 

1 

UO 

SIZ1 

ft 

UO 

S 1 Z 2 

ft 

UO 

SIZ3 

ft 

UO 

S1ZA 

ft 

UO 

TAflPAR 

l 

UO 

277)  SIZOUT 

I 

UPB 

SI  Zl 

ft 

UPB 

SIZ2 

ft 

UPB 

SIZA 

1 

UPB 

TAflPAR 

1 

UPB 

UTDRP 

ft 

UPB 

312)  SIZOUT 

I 

UPO 

SIZ1 

ft 

upo 

SIZ2 

ft 

UPO 

SIZ3 

I 

UPO 

SIZA 

ft 

UPO 

TAflPAR 

[ 

upo 

UTORP 

ft 

UPO 
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FORTRAN 

SYMBOL 


PIATH 

SYMBOL 


CODE 


DESCRIPTION 


storage 

BLOtK  tOC 


_USMi 


SOBR  CODE  VAR 


XPL 


P »y  I o ad  mt  I ght  (lb) 


/S12ING/( 


300)  SIZOUT  I XPL 
S1ZJ  0 XPL 
SIZ2  l XPL 
SIZ3  I XPL 
SIZ4  I XPL 
TAflPAR  I XPL 
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T AMPAR 


1. 
2. 
3. 
9 . 

5. 

6. 


16. 


subroutine  tampar 

SUBROUTINE  to  INTERFACE  with  TRAJECTORY  program 
REAL  NuB,  MJG,  ISPB,  ISPO,  IDVEL,NNB,NO 
COMMON  /SIZING/ 

PHASE  II  SIZING  PARAMERERS 


7 . 

6. 

9.  C 

*TZ,  VVC3>, 

*S  VC  28  > , 53(37,5), 

PHASE  I SIZING 

QP(  19),  EROR, 

SE(ll),  TLAT, 

PARAMETERS 

PZ(  5 ), 
TINS, 

YO, 

SH(  20) 

10. 

♦ WBQ, 

WLOO, 

DUEB, 

OWED, 

TOLHT, 

UPB, 

T HR  AT  2 

11  . 

• BUI, 

BK2, 

8X3, 

ftXH, 

IS1ZE, 

TRAFLG, 

THnATC 

12. 

•OKI, 

♦AEXIT, 

0X2 

0X3, 

0X9, 

prflg. 

IPASS, 

IPSWAX 

13. 

TVACO, 

NO, 

«F0, 

IOVEL, 

I5P0, 

ISPB, 

19. 

♦ XPL, 

TYACB, 

NNB , 

UEQ. 

WEB, 

HO, 

HLO, 

15. 

*0¥0, 

DVB, 

NUB, 

muu. 

VST6, 

Hr  0 

16. 

*, JTVP. 

BECO  , 

BSTG  , 

ORBI, 

ITNBH  , 

ITNOW  , 

17  . 

« SV0PS3 

, SYDCON 

, 1 HUNT 

IGPSTG 

, ISZOt 19 

) 

I AMP  AR 
TAMPAR 
I AM?  AR 
SI  ZING 
SIZING 
SIZING 
SIZING 
SIZING 
SIZING 


SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

UH 

TAMPAR 


19. 

VV<  1 > = *L0 

TAMPAR 

20. 

VV(2  )=HEB 

UH 

21. 

V VC  3 >=NPB 

UH 

22. 

3P( 1 > = TVACB*NNB 

TAMP NR 

23. 

3P( 2 ) = TVACO  *N0 

TAMP AR 

29. 

QP( 3 ) = ISPB 

T AM? Afi 

25. 

3P(N)  = ISPO 

T AMP AR 

26. 

QP( 9 ) = WBG 

TAMPAR 

27  . 

QPC10)  = XPL 

TAMPAR 

28. 

3P( 11 > = AEXIT 

TAMPAR 

29. 

SV(N)  - NFO 

TAMPAR 

30. 

5 V<  5 ) = NPO 

TAMPAR 

31  - 

SVC  7)  = HO 

TAMPAR 

32. 

SOC  9 1 )=HEO 

OS 

33. 

RETURN 

TAMPAR 

39. 

END 

TAMPAR 
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Space  Shuttle  Synthesis  Module  (SSSP) 


CONTENTS 


Sub  routine 

Block 

Block 

Bloc  k 

Block 

Block 

Bloc  k 

Block 

Bloc  k 

Block 

Block 

Block 

Block 

Block 

Subroutine 

Sub  routine 

Sub  routine 

Sub  routine 

Subroutine 

Sub  routine 

Subroutine 

Sub  routine 

Subroutine 

Sub  routine 

Sub  routine 

Subroutine 

Sub  routine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Sub  routine 

Sub  routine 


SSSP 

CINPUT 

DATA2X 

EMS 

JUMPY 

ORBINX 

ORBINY 

PO 

PRESET 

SUMVW 

TAMP 

TRUST 

VQSLCAL 

WTCALC 

DA  TAIN 

FLYBKP 

FRENCH 

HUNT 

ITER8 

Opwell 

PRINT  V 

PRINT  W 

PRITEQ 

PRITVA 

PROTHR 

PRWTSM 

RANGE 

SETO 

SIZEMR 

solve”' 

STORE 

SUM0UT 

TAMPER 


Sub  routine 

TBL2D 

Subroutine 

THRUP 

Sub  routine 

THRUST 

Sub  routine 

VEHDF 

Sub  routine 

WTSCH 

Subroutine 

WTVQSL 

SUBR0UTINE 

SSSP 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


S TPRASE 

block  nrr 


SUBR  CODE  VAR 


A 

D 

Booster  *ub-»oaIc  I/d 

/DAT  A2  X/! 

1 ) SSSP 

D 

A 

VEHDF 

M 

A 

VEHDF 

I 

ALD 

I HUNT 

I 

Nuabtr  of  iterations  for  paraaatar  hunt 

/SIZING/! 

321)  GEI NP 

0 

I hunt 

OP WE  LL 

I 

ELIM 

SSSP 

I 

] HUNT 

IPASS 

M 

/SIZING/! 

291 ) GEI NP 

0 

IPASS 

P AOS  1 

M 

IPASS 

PAY02 

I 

IPASS 

SI2E 

M 

IPASS 

SHIN 

I 

IPASS 

SSSP 

M 

IPASS 

I PS  MAX 

I 

/SIZING/! 

292)  SIZE 

M 

IPSMAX 

SSSP 

I 

IPSMAX 

VEHDF 

I 

HIPSMI 

VEHDF 

0 

IPSWAX 

SSSP 

E 

Main  proarn  of  phase  H pact  siting  prograa 
over]  ay ( 5,0) 

/SSSP  /($ 

> SSSP 

E 

SSSP 

SUMOUT 

S 

Subroutine  to  print  suaaary  data  and  calculate 

/SUMOUT/!  * 

) SSSP 

S 

SUMOUT 

thrust  for  output  purposes  only 

SUMOUT 

E 

SUMOUT 

sv 

I 

A synthesis  array  (28)  containing  staging 

/SIZING/! 

96)  ENVPfiM 

M 

SV 

paraaeters  and  al sc  flags 

FLYBKP 

I 

SV 

ITERS 

I 

SV 

RANGE 

I 

SV 

SIZEMR 

M 

$¥ 

SIZIN 

I 

$¥ 

SSSP 

I 

SV 

SUMOUT 

I 

SV 

TAMPAR 

0 

SV 

tamper 

M 

$ V 

TRTOSZ 

M 

SV 

VEHDF 

M 

SV 

WT  VOL 

I 

SV 

TB2T 

I 

Stored  booster  value  of  I spf i ) 

/ORBINV/1 

91 > SIZEMR 

I 

TB27 

SSSP 

I 

TB27 

STORE 

M 

TB27 

SUMOUT 

I 

TB27 

TAMPER 

1 

TB27 

VEHDF 

M 

TB27 

WT  VOL 

I 

TB27 

TB39 

N 

Stored  booster  value  of  ar(  I ) 

/ORBINY/! 

53)  FLYBKP 

I 

TB3N 

ITERB 

0 

TB39 

SSSP 

M 

TB39 

STORE 

M 

TB39 

SUMOUT 

1 

TB39 

TAMPER 

1 

T039 

VEHOF 

I 

TB39 

WT  VO  L 

M 

TB39 

T 02  T 

I 

Stored  orbiter  value  of  lsp(i> 

/0AB1NX/! 

Ml  ) SIZEMR 

I 

T027 

SSSP 

1 

T027 

STORE 

M 

T027 

SUMOUT 

1 

T 02  7 

VEHOF 

M 

T 02  7 

UT  VOL 

I 

T02T 

T 0 3 H 

0 

Stored  orbiter  value  of  art!) 

/OR  B I N X / ( 

53)  I TER  8 

M 

T039 

SSSP 

0 

T039 

STORE 

M 

T039 

TAMPER 

I 

T039 

VEHOF 

0 

T 0 39 

WT  VOL 

M 

T039 

T RAFLG 

0 

Traffic  control  flag  0.  Sizing  loop  not  converged 

/SIZING/! 

289)  FRENCH 

0 

TRAFLG 

1.  Sizing  loop  converged  2.  Error  in  sizing  loop 

ITER6 

0 

TRAFLG 

ne it  c ase 

P ADS  1 

I 

TRAFLG 

SIZE 

M 

TRAP  L6 

SSSP 

0 

TRAFL6 

— 

- 

VEHDF 

0 

TRAFLG 
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NGROSO 

1 

Orbl tor 

yrott  ••Ifbt 

yPAYLO 

I 

P »f 1 o *4 

00 1 flit 

.UNOfc. 

0 

Flit  of 

•11  output  data 

/ TAMP  /( 
/SUMVN  n 
/ . UNOfc  * / ( U 


1 ) SSSP 
SUnOUT 
NT  VOL 

16)  SSSP 
SUNOUT 
TAMPER 

) BLl  CO 
BNORYC 
CRASH 
FRENCH 
FXOAT 
GEJNP 
HUNT 
INEOIT 
ITER8 
MODELA 
MOBJ 
MPSI 
OUT 
P AY02 
PRINT 
PRINTY 
PR  I NT  y 
PRITEO 
PR1TVA 
PROPIN 
PROTHR 
PRyTSM 
RANGE 

s 

SDINP 

SIZE 

SIZ1N 

SI ZOUT 

SOLVE 

SPLICO 

SPLIZ 

5PLYNE 

SSSP 

STAU 

STP1T 

SUMOUT 

TABI  N 

TEST 

VEHOF 

WTSCH 

NT  VOL 


1 yGRQSO 

i ysRoso 

M y6R0S0 

I yPAYLO 
I yPAYLO 
M yPAVLO 

0 .UNOfc. 
0 . UNOfc . 

0 . UNOfc . 

0 . UN06 . 

0 * UN06 . 

0 . UNOfc. 

0 . UNOfc . 

0 .UNOfc. 
0 . UNOfc. 

0 . UNOfc . 

0 . UNOfc . 

0 . UNOfc . 

0 . UNOfc. 

0 . UNOfc . 

0 .UNOfc. 
0 . UNOfc . 

0 . UNOfc . 

0 . UN06 . 

0 . UNOfc . 

0 . UNOfc . 

0 .UNOfc. 

0 . UNOfc • 

0 . UNOfc . 

0 . UNOfc . 

0 .UNOfc. 

0 .UNOfc. 

0 .UNOfc. 

0 .UNOfc. 

0 . UNOfc . 

0 .UNOfc. 

0 .UNOfc. 

0 .UNOfc. 

0 .UNOfc. 

0 .UNOfc. 

0 .UNOfc. 

0 .UNOfc. 

0 .UNOfc. 

0 .UNOfc. 

0 .UNOfc. 

0 .UNOfc. 

0 . UN06 . 
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i 


SSSP 


PROGRAM  SSSP 


OR  1 VER  SUBROUTINE  FOR  PHASE  2 DAOS  SIZING  PROGRAM 
CALCULATES  FLYBACK  FUEL  REQUIRED 

DIMENSION  SSPOATT  1 1 
EQUIVALENCE  < SSPOATI l ),TB1 ) 

REAL  NUB.  MUO,  ISPB,  l&PO,  10VEL,NNB,N0 

common  /Sizing/ 

PHASE  II  SIZING  PARAMERERS 


11. 

12. 

13. 

C 

*TZ,  VV( 3 ) . 

*S V( 28  ),  S0( 37,5  ). 

PHASE  I SIZING 

QP(19>,  EROR, 

SE(ll).  TLAT, 

PARAMETERS 

PZ(  5 1, 
TLNG, 

VQ, 

SW(  20) 

IN. 

♦ WBO, 

WLOO, 

DWEB, 

DWEO, 

TOLWT, 

WPB, 

TWRAT2 

15. 

♦BK1, 

BK2, 

BK3, 

BK4*, 

ISIZE, 

TRAflG, 

TURATO 

16. 

♦ OKI , 

QK2 . 

0K3, 

OKS, 

prflg. 

IPASS, 

I PS  MAX 

17. 

♦AEXIT, 

TVAtO, 

NO, 

WFO, 

IDVEL, 

1SP0, 

ISPB, 

>•-©*£  CD 

♦ XPL, 

♦ OVO, 

t'sIJpSa 

TVACB, 
DVB. 
BECO  , 

, SVDCON 

NNB , 
MUB, 
BSTG  , 
I HUNT 

WEO, 

MUO, 

ORB!, 

, IOPSTG 

WEB 
VSTG, 
ITNBW  , 
1 5Z0t  19 

^ITNOW  , 

WLO, 

1  TB98(  1G).TB99(  1 0 ) , T B50(  1 0 ) TB57C  6 ) BUS AV£( 10  ) CKQUT 

COMMON/OR d I NY/  ORBINY 

1 TBl,T32,TB3,T89,T&5,TB6.T&7TBfl,TB9,TBlG.TBll,TB12,TB13,TB19,  ORBINY 

2 TB15,TB16,TB17,tB18,TBl9,TB20,TB2l,lB22,lB23f IB29, 1B25 , 1B26, TB27,  ORBINY 

3 IB28,IB29,IB30, 1 B3 1,1 B32,TB33, TB39, TB35, T&36, I B37, TB38, TB39, TB90,  ORBINY 

9 TB9l,TB92,T893TB99,T895.TB96,TB97TB98,TB99,TB50,TB51,TB52,TB53,  ORBINY 
5 TB59,TB55,TB56TB57,SKB  $CB,BWSAVE  UH 

6,TB59TB60,TB61TB62.TB63,TB69,TB65,TB66,TB67TB68,TB69TB70,  UH 

7TB71,Ta72,TB73,fB79,TB75,TB76,fB77,Ta78,TB79,TBe0,TB81,TB82,  UH 

8TB83.TB89  UH 

comm5n/tamp/w&roso,ottot,wfuoxo,tbto,bttot  sssp 

REAL  LBODYO, LBODYB  SUMY* 

COMMON/ SUMVW/ WOP  WABFUBWFUOXB  UDR Y&, W&ROSB, WOTHB  SUMVW 

1 vfutkb,vqxtkb,votmb,vbodyb, VABFUB,  SUMYW 

2 LBODYB, SB0DYB,SPLANB,W0VRS8f  SUMVW 

1 WP AYLO , WDRYO, W&THO,  WABFUO,  SUMVW 

2 VFUTKD,VOXTKO,VCARO.  VOTHQ  VBOQYO,  SUMVW 

3 LBOOYO.SBOOYO.SPLANu.WOVRSO  SUMVW 

*t  , WQRBTO. WORBTB, WRTRNu , WRTRNB  UENTRO,  WENTRB,  WLANOB,  WLANDO  SUMVW 

5 . WCONTO, WCONTB  SUMVW 

ClNPUT 

cinput 

CINPUT 
CINPUT 


r£al  KIN 

REAL  ISP.K,  LF,  MR,  NCREW,  LBOOY,  NPASS 

REAL  NEN&5 

COMMON/CINPUT/ 


97 . 

1ANEN&S 

ANT  ANK 

, ASRATO 

, AS WEEP 

,C(  300) 

, CBBOOY 

, CFUELC  6 ), 

CINPUT 

98. 

2CHB0DY 

, CL&ODY 

, CSBODV 

,CSFA1R 

, CSFUTK 

, CSHORZ 

, CSOXTK 

CINPUT 

99. 

3CSPLAN 

, CS VERT 

, CSWI N6 

,CTHRST 

, CTHST2 

, OEF( 5 ) 

, F XWO VS 

cinput 

50. 

9ISPC  6) 

, I TPS 

,K( 30) 

, KI N 

,LF 

,MR(  6) 

, NCREW 

CINPUT 

51. 

5NEN6S 

, NLl STO 

, NPASS 

,nwl 

, PCHAM 

,0 

, RHOFU 

CINPUT 

52. 

6RH0FU2 

RHOX 

RH0X2 

, SBODV 

,TOL 

,T0 VERC 

, TPR ATO 

CINPUT 

53. 

7TYTAIL 

. VBOOY 

.WGROSS 

cinput 

5*1 . 

COMMON/ VOLCAL/BBODY,CR0OT 

, cspan 

, CT  IP 

,gal 

, G5PAN 

VOLCAL 

55. 

2HB00Y 

, LBOOY 

,RtOO 

, SFAIfi 

, SFUTK 

, SHORZ 

SO  XTK 

VOLCAL 

56. 

35PLAM 

STPSt  1 ) 

, S VERT 

, SWING 

,SXP0S 

, TDEL 

, TROOT 

VOLCAL 

57. 

9TT0T 

T T0T2 

,ttotal 

, VBOOY A 

, VB2DY 1 

, VBOOY2 

, VCARGO 

VOLCAL 

58. 

5VCREW 

VFUTK 

, VFUTK2 

, VINSTK 

, VLGBAY 

, VOTHER 

, VOXTK 

VOLCAL 

59. 

6V0XTK2 

, VPROP 

, VSTRUC 

VOLCAL 

60. 

COMMON/ 

WtCALC/ 

ABFSVS 

UABFTK 

, WABFU 

WABPR 

WACRES 

WTCALC 

61. 

1WACS 

WAC5FQ 

,WACSTK 

,UAERO 

, WAUXT 

, WBAS I C 

, WBODY 

WTCALC 

62. 

2WBPUMP 

WCARGQ 

WCOMM 

, WCCNT 

, WCO VER 

, WOE  CAY 

, W01 ST  1 

WTCALC 

63. 

3WDIST2 

, WDOCK 

, WDPLOY 

, HORANS 

, WORY 

, WELCAO 

WEMPTY 

WTCALC 

69. 

9WENSMT 

WENGS 

, WENGS2 

,WFAIR 

, WFCQNT 

, UFDCAY 

, WFROST 

WTCALC 

65. 

5WFU2C  3 ) 

, WF  UEL( 6 ) 

,UFUL 

, WFULCS 

, UFUNCT 

, WFUOX 

, WFURES 

WTCALC 

66. 

6WFUSYS 

, WFUTK 

, UFUTK2 

,WFUT0T 

, UFUTRP 

, WGASPfi 

, WGNA V 

WTCALC 

67. 

7WH0RZ 

, WHYCAO 

, WI NFUT 

, Wl  NQ  XT 

,winstk 

, WI nst 

, WI NSUL 

WTCALC 

68. 

8WJETC  6) 

, WLANCH 

,WL6 

,WLOSS 

, WLfiO 

, WNACEL 

, WOOCAY 

WTCALC 

69. 

9WQIL 

,WOILRS 

, WORSUL 

, WO VERS 

,UOX(  6 ) 

,W0X2(  3) 

, woxio 

WTCALC 

70. 

1W0XL0S 

, WQXRES 

, UIO  XSYS 

, WO  XT  K 

,W0XTK2 

, WQXTOT 

,WOXTRP 

WTCALC 

71. 

2WP 

,WPASS 

, WPAYL 

, WPEfiS 

, Ur OWCO 

UPOWER 

WPQWFO 

WTCALC 

72. 

3WP0WRS 

, WPQWTK 

, WPPRO  V 

, WPfiE  I 6 

, UrRQP 

, UPRSYS 

, WREF  UL 

WTCALC 

73. 

9WRES10 

, WRESR V 

, WSE  AL 

, WSECST 

, USORCE 

, WSRTRP 

,WSTAB 

WTCALC 

79. 

5WSURF 

, WT  ABC 

, UT  HRST 

, WTO 

, WTPS 

, WYERT 

,WWAIT( 1 

o>. 

WTCALC 

75. 

6WWET 

,WWIN6 

, UZROFU 

,UABTRP 

, WABRES 

,wmnotp 

, WMNFTP 

9 

CKOUT 
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u. 

77. 

78. 

79. 

80. 
81  . 
82. 
83. 
89 . 
85. 
66. 
87. 


89. 

90. 

91. 

92. 

93. 


95. 

96. 

97. 

98. 


99. 

100. 

101. 

102. 

103. 

109. 

105. 

106. 

107. 

108. 

109. 

110. 
111. 
112. 
113. 
119. 

115. 

116. 

117. 

118. 

119. 

120. 
121. 
122. 
123. 
129. 

125. 

126. 

127. 

128. 

129. 

130. 

131. 


132. 

133. 
139 

135. 

136. 

137. 


138. 

139. 

190. 

191 . 

192. 

193. 
199. 

195. 

196. 

197. 
190. 
199. 


C 

C 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


7 y UNO AS 
8UABFUC 


,y*NFRS 
, uaCORS 


UACOTP  UACFTP  #UPUOTP  ,ypyFTP  UGAS 
vw  MACFRS  ,ypyoRS  ,ypyFRS 

REAL  MXFOB 

REAL  I VACO,  I VACB,  ISLO,  1SLB,  I0VEL0 

C0HH0N/0ATA2X/ 

*ALO,  FBPAR,  1 D VELO . I5LB.  ISLO,  ItfACB.  IVACO,  PER1SP,  QHXX, 

1 O*XS,SFC,$LVOUT,C0PIES,SYNlT,tFCTftB,TFCTBO,TOLHU,TOLTN, 

2 TRATlO,TyLO,TyLOIfyTOUT.FIRE,BOOTW,VCRUSE 

3 NXFQB,PfiNTX, FSEC, CLVG, DBN6 

9 ,S0L1D,AS,BS,S1SP,SINERT,SAE,TSB0,FLYBCK 

5 , UPOREu, NORES, GNRfcfl 

6 ,FBFUEL.CA.CB,yFLYX,RT,Rl,R3,SFCl,$FC2,SFC3,ALDlf ALD2, ALD3 , VF LY 1 , 

7 VFLY2,VFLY$ 

* TyOX<2),PNDX(  10)  BLOWt  10),BUPPt  10  ), STEP<  1 1 >,  P AYX 
Equivalence  t rvar  tuoxi 2 ) ) 

DinENSlON  SKOt 30  ) , 5 C0(  300  ),T09t 6 ),T020t  10  ).T027(  6 ),T039t  6 ), 

1 T0H8(  10 ),T0h9( 10  ) , T050t 10 >, T05T! 6 >, OWS AVEt  10) 

C0«*0N/0R&INX/ 

1 TO  1. T02, T03, T09. T05, T06. TO 7 T08.T09. TO  1 0, TO  1 1 . TO  12 , TO  1 3 , TO  19, 

2 TO15,TOi6,Tu17,i018,TO19TOzO,t621, 1022, 1023, 1029, 1025, 1026, T02T, 

3 I028,I029,I030,I031,I032,T033,T039,T035,T036, I 0 37, T036,T039, T090, 
9 T09l,T092,T093,T099,T095,T096,T097,T09B,T099,T050,T051,T052,T053, 
5 T059,  TO55,TO56,T057,TO66,5KO,SC0,OU$AVt 

6,T059,T060,f061,T062,T063,T069,T065,T06TfT068,T069,T070,T071, 

7 TO?2,TO73,TO79,TO75,TO76,TO77fTO70,TO79,TO8O,TO81,TO82,TO83, 

8T089 

connoM  /TRUST/ 

*F VACO  , FSLO  F VACLO  ,FVACS  , 

*F VACB  ,FSLB  ,FSLLO  . FSL5 
COWWOM/ JUHPV/  JUMP.  W8IS,  UftOO 
COHHON/PRESET/  PRESET! 57) 

OMENSION  AC  57) 

EQUIVALENCE  ( ALO, A< 1 >> 

DATA!  Atl),  1=  1,57  ) /57*-0./ 

DATA  ( PRESET! I ),f=l,57> 

i 390., 

0.2 

0.001, 

300., 


*/  6.,  250., 

*0.81,  550., 

*0.,  2., 

* 1 . ,0. , 0. , 10*0. , 1 


390., 

i !6, 
0., 


50000., 

900., 

0.0005, 

0. 

* • » * • » v • » * .,»..9*b.,6*l./ 

CO«rtON/POWEL/  JJJJi  30  ) , CON,  JIJJ,  E9t,f>*P<lZ  3) 

COnflON/OPyEL/  JJJJJ( 30  ),00N,  JI,  DN,  PNPtl23> 

INTEGER  DON, DN 

INTEGER  CON, EN 

F(X,Y)  = EXPt  Y/(32.179*X)I 

G( X , V ) = 32.179*  X * AL06C Y ) 

FIRST  PASS  TEST 

1 Ft  I PASS . EQ . 1 ) GO  TO  1 

ITERATION  PASS 

I Ft 1PA5S.GT.IPSRAX)  GO  TO  13 
CALL  REAOWSt 3, SSPDAT, 1699,1 ) 

I Ft  SWf  3 KGT.SWt  9 ) ) GO  TO  10 


950. , 
l]$71. 


CKOUT 

CKO  UT 

DATA2X 

PATA2X 

0ATA2X 

0ATA2X 

0ATA2X 

DAT  A2X 

DAT  A2X 

DAT  A2X 

0ATA2X 

0ATA2X 

0ATA2X 

POM 

poy 

0RB1NX 

CKOUT 

0RB1NX 

ORBINX 

ORBINX 

ORBINX 

ORBINX 

CKO  UT 

UH 

UH 

UH 

SSSP 

SSSP 

SSSP 

CKOUT 

CKOUT 

CKOUT 

CKOUT 

CKOUT 

CKOUT 

CKOUT 

CKOUT 

CKOUT 

CKOUT 

UM 

0PTST6 

OPTSTG 

OPTSTG 

UH 

PON 

PON 

SSSP 

SSSP 

SSSP 

PON 

SSSP 

SSSP 

SSSP 

UH 

PON 

UH 


2 CALL  OVERLAY! 9MSSSP, 7,9, 6HRECALL) 

18  I Ft  lOPSTG.GT.O  ) 60  TO  15 

CALL  OVEBLAYt 9HSSSP, 7, 2, 6HRECALL ) 

CHECK  CONVERGENCE  OF  SYNTHESIS  LOOP 


CKOUT 

PON 

F1NI 

SSSP 

SSSP 

SSSP 


17  CONTINUE 

I Ft  SNt  2 ) . LE . 0 . 5 ) 60  TO  3 

CONVERGED  VEHICLE  CALL  FOR  0RB1TER  WEJGHT5 

9 CALL  OVERLAY! 9MSSSP, 7,2, 6 HR E CALL) 

CALL  SUHOUT 

RESET  FLAGS  FOR  NEXT  CASE 

IPASS  = 1 
SHt  2 ) = 0.5 


poy 

SSSP 

SSSP 

SSSP 

SSSP 

CKOUT 

CKOUT 

SSSP 

SSSP 

SSSP 

SSSP 

SSSP 


3-1 


13  — 
10  — 

15-1 
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150. 

IF! I HUNT . LE . 0 ) 80  TO  999 

UH 

151. 

CALL  OVERLAY! 9HHUNT, 7,3,0 > 

UH 

152. 

1 F< C0N.NE.~1 > 80  TO  999 

UH 

153. 

TRAFl6=0 

UH 

159. 

i PASS-2 

UH 

155. 

SW!  31=0. 

UH 

156. 

80  TO  2 

UH 

2 — 

157. 

C 

5SSP 

158. 

C 

FIRST  PASS  L06IC  - INITIATE  FLAGS 

SSSP 

159. 

C 

5SSP 

160. 

1 

SW(3)  s 0. 

SSSP 

161. 

TRAFL6=0. 

UH 

162. 

C 

SSSP 

163. 

EN=0 

UH 

169. 

c 

CALL  FOR  INPUT  DATA 

SSSP 

165. 

c 

SSSP 

166. 

CALL  OVERLAY! 9HSSSP , 7 , 1 , 6MRECALL ) 

CKO  UT 

167. 

CALL  OVERLAY! 9HSSSP , 7 , 2 , 6HRECALL ) 

OPTSTG 

168. 

c 

SSSP 

169. 

c 

SET  FLAGS  FOR  CONTINUED  ITERATION 

SSSP 

170. 

c 

SSSP 

171. 

3 

SH(  3)  = SW!  3>  ♦ 1. 

SSSP 

172. 

c 

SSSP 

173. 

c 

CALL  FOR  VEHICLE  HEIGHTS 

SSSP 

1 T9 . 

c 

SSSP 

175. 

16 

CONTINUE 

POW 

176. 

IFCSWC13).  GT.0..AN0.  SH(2).GE.l.)  GO  TO 

8 

CKO  UT 

8 — 

"1 

177. 

IF! SU(  13  1.GE.3. ) GO  TO  6 

CKO  UT 

8 — 

i 

178. 

GO  TO  9 

CKOUT 

9n 

1 

179. 

a 

CALL  SUI90UT 

CKOUT 

ZT 

180. 

9 

CONTINUE 

CKOUT 

181. 

c 

SSSP 

182. 

c 

CHECK  FOR  ERROR  IN  WTVOL  ROUTINE 

SSSP 

183. 

c 

SSSP 

189. 

IF!  ER0R.GT.0.5 1 GO  TO  5 

SSSP 

5 

185. 

c 

SSSP 

166. 

c 

SET  FLA6S  FOR  NOMINAL  RETURN  TO  PADS 

SSSP 

187. 

c 

SSSP 

188. 

6 

IPASS  = IPASS  ♦ 1 

SSSP 

189. 

CALL  WRITHS! 3, SSPDAT, 1699,1) 

POW 

190. 

GO  TO  999 

SSSP 

191. 

c 

POW 

192. 

c 

OPT  I HUH  STAGING  VELOCITY  OETERHI NATION 

OPTSTG 

193. 

c 

pow 

1 99. 

15 

CONTINUE 

POW 

195. 

c 

OPTSTG 

196. 

c 

FIRST  PASS  THRU  POWELL 

OPTSTG 

197. 

CALL  OVERLAY! 9MSSSP, 7,2, 6HRECALL ) 

GPTST6 

198. 

ON  s 0 

0PTST6 

199. 

STEP  = 100. 

OPTSTG 

200. 

N = 1 

OPTSTG 

201 . 

PAY  = -WPAYLO 

OPTSTG 

202. 

PV  = G<  TB27!  3 ),TB39(  3 7 1 

OPTSTG 

203. 

CALL  OPWELL! P V, N, ST EP , EPP , P AY  1 

OPTSTG 

209. 

c 

OPTSTG 

205- 

c 

CONTINUED  ITERATIONS 

OPTSTG 

206. 

21 

CONTINUE 

OPTSTG 

207. 

OELVB  - P Y 

OPTSTG 

208. 

OELVO  = SV!2)  -0ELV8 

OPTSTG 

209. 

T B3  9 ( 3 ) = F( TB27! 3 ), OELVB) 

OPTSTG 

210. 

T039(  3 ) = F<  T027(  3 ), OELVO  ) 

OPTSTG 

211  . 

CALL  OVERLAY! 9HSSSP,7,2,6HRECALL> 

OPTSTG 

212. 

CALL  SUHOUT 

OPTSTG 

213. 

WRITE! 6,99)  PAY.  PV,  W6R0S0 

OPTSTG 

219. 

99 

FORMAT!  9H  PAYLOAD^  ,E17.0,  19H  STAGING 

VELOCITY  = , E l 7 . 8 , 

OPTSTG 

215. 

« 

16H  ARBITER  GROSS  = ,E17.8> 

OPTSTG 

216. 

PV  = G!  TB27!  3),TB39(  3>> 

OPTSTG 

217. 

PAY  = -WPAYLO 

OPTSTG 

218. 

CALL  OPWELLf PV, W_ STEP, EPP, PAY > 

OPTSTG 

219. 

IF! OON.EO.~1. ) 60  TO  21 

OPTSTG 

21- 

220. 

GO  TO  17 

GPTST6 

221. 

c 

SSSP 

999- 

999- 
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BL0CK 
C I NPUT 


A 

ANT  ANK 
ASRATO 
ASWEEP 
C 

CBBOOY 

CFUEL 

CHBOOY 

CLBODY 

CSBOOY 


CSFUTK 

CSHOAZ 

CSOXTK 

CSPUAN 

CS  VERT 

CSWING 

CTHRST 

CTHST2 

FXUOVS 


Nuabrr  of  air  breathing  engines  used  by  setO  t o set 
co««on  to  zero 

Nunber  of  air  breathing  fuel  tanks 

Wing  aspect  ratio 

Wing  leading  edge  saeep  angle 

Input  array  c(  300  > of  vehicle  sizing  data 

Body  «l dt h co  ef f . 

Mi s t ur  e ratio 

Body  height  or  coaff 

Body  length  or  coeff 

Total  body  aetted  area  or  coeff 

Fairing  p I mf  ora  area  or  coeff 

Fuel  tank  surface  area  or  coeff 

Horizontal  stabaiizer  planform  area 

Oxidizer  tank  surface  area  coaff 

Body  planters  area  or  coeff 

Vertical  fin  planter*  area  or  coeff 

Wing  planfora  area 

Vac.  T hr u s t - t o ~ae i ght  ratio 

Secondary  propulsion  t/p 
Fixed  pi ng  loading 


/ C i Nr  UT /(  I i 

/CINPUT/t  2) 
/CINPUT/C  3 > 
/ C I NP UT / ( H > 
/ C I NP  UT  / ( 5) 

/ C I NP  UT  / ( 305  ) 

/ C I NP  UT  / ( 306  ) 

/Cl NPUT/(  312) 

/ C ! NP  UT  /(  313) 

/CINPUT/I  319) 

/ Cl  NP  UT  /(  315) 

/ C I Nr  UT  / ( 316) 

/CINPUT/I  317) 

/CINPUT/l  318) 

/Cl NPUT /<  319) 

/C1NPU T/(  320) 

/ C I NP  UT / ( 321) 

/CINPUT/(  322) 

/CINPUT/l  323  ) 
/CINPUT/l  329) 


FRENCH 

I 

A 

FRENCH 

rt 

ANENGS 

SETO 

0 

A 

STORE 

rt 

ANENGS 

WTSCH 

I 

ANENGS 

STORE 

m 

ANTANK 

WTSCH 

I 

ANT  ANA 

STORE 

it 

ASRATO 

WTSCH 

I 

ASRATO 

STORE 

it 

ASWEEP 

WTSCH 

I 

ASWEEP 

PRINTW 

I 

C 

PRiTEO 

I 

C 

PR1TVA 

1 

c 

STORE 

ft 

c 

WTSCH 

I 

c 

WT  VOL 

0 

c 

PRI T VA 

I 

CBBOOY 

STORE 

rt 

CBBODY 

WTSCH 

1 

CBBDOY 

PRWTSH 

it 

CFUEL 

STORE 

ft 

CFUEL 

WTSCH 

it 

CFUEL 

PRITVA 

I 

CHBOOY 

STORE 

it 

CHBODV 

WTSCH 

I 

CHBOOY 

PRITVA 

I 

CLBODY 

STORE 

ft 

CLBODY 

WTSCH 

I 

CLBODY 

PRITVA 

I 

CSBOOY 

STORE 

it 

CS  BODY 

WTSCH 

I 

CSBOOY 

PRITVA 

I 

CSFAIR 

STORE 

ft 

CSFAIfi 

WTSCH 

I 

CSFAIR 

PRITVA 

I 

CSFUTK 

STORE 

ft 

CSFUT* 

WTSCH 

1 

CSFUTK 

PRITVA 

I 

CSHORZ 

STORE 

ft 

CSHORZ 

WTSCH 

I 

CSHORZ 

PRITVA 

I 

C$0  XT  A 

STORE 

ft 

csoxt* 

WTSCH 

I 

CSOXTC 

PRITVA 

I 

CSPLAN 

STORE 

it 

csplan 

WTSCH 

I 

CSPlAN 

PRI T VA 

i 

CS  VERT 

STORE 

it 

CS  VERT 

WTSCH 

I 

CS  VERT 

STORE 

ft 

CSWING 

PRITVA 

I 

CTHRST 

STORE 

ft 

CTHRST 

WTSCH 

I 

CTHRST 

WTV0L 

ft 

CTHRST 

PRITVA 

I 

CTHST2 

STORE 

it 

CTHST2 

WTSCH 

I 

CTHST2 

STORE 

ft 

F X WO  VS 

WTSCH 

I 

FXWOVS 

30  OCT  72  G . 0 1 -Mb 


MJK1RAN  hath 

SYMBOL  SVnBOL 


ISP 


ITPS 


K 


LF 


wr 


NCREW 

NENGS 

NLISTO 

NPASS 

NWL 

PCHAW 

Q 

RHOFU 
RHOFU2 
R HO  X 
RH0X2 
S BOO  V 
TOL 

TOVERC 


T PR  AT  0 

T Y T A I L 
V8O0V 


DESCRIPTION 


Specific  I apu I te 


Therao  protection  flag 


Description  not  input 


Ultimate  load  factor  1.  Thrust  buildup  2.  Not  used 
3.  (Iain  impulse  east  ratio  M.  (lain  impulse  reserve 
5.  Secondary  lopulse  miss  ratio  6.  Not  used 

Was  s ratio 


Nuaber  of  crei  aeabert 

Total  nuaber  engines  per  stage 

Naaelist  output  flag 
Nuaber  of  passengers 
Wing  loading  flag 

Wain  rocket  engine  chaaber  pressure 

ftaxiaua  dynaalc  pressure 
Fuel  density 


Secondary  fuel  desnity 
Oxidizer  density 
Secondary  oiidixcr  density 
Total  body  aetted  area 


Gross  veight  iteration  tolerance 
Ding  thickness  over  choord  ratio 


Ui ng  taper  ratio 

Description  not  input 
Total  body  vofuae 


S 1 OR  AGE 


BLOCH 

LOC 

S'J  B'R 

COOE  VAR 

/CINPUT/t 

330  ) 

PRWTSW 

I 

ISP 

STORE 

W 

ISP 

WTSCH 

I 

ISP 

WT  VOL 

0 

ISP 

/ C I NP UT /( 

336  ) 

FRENCH 

0 

ITPS 

STORE 

w 

ITPS 

WTSCH 

w 

ITPS 

/C I NP  UT /( 

337  ) 

PRITEQ 

I 

K 

STORE 

w 

K 

WTSCH 

w 

K 

/ C I NP  UT  / ( 

366  ) 

STORE 

w 

LF 

WTSCH 

I 

LF 

/CINPUT/t 

369  ) 

PRWTSW 

I 

WR 

SOLVE 

I 

WR 

STORE 

w 

WR 

WTSCH 

w 

WR 

/ C 1 NP  UT / ( 

375  ) 

PR1TVA 

I 

NCREW 

STORE 

w 

NCREW 

WTSCH 

I 

NCREW 

/ C I NP  UT  /< 

376  ) 

PRITVA 

I 

NENGS 

STORE 

w 

NENGS 

WTSCH 

I 

NENGS 

/CINPUT/( 

377  ) 

STORE 

w 

NLISTO 

WTSCH 

I 

NLISTO 

/ C I NP  UT /( 

378  ) 

STORE 

w 

NP  ASS 

WTSCH 

I 

NP  ASS 

/Cl NPUT/( 

379  ) 

FRENCH 

0 

NWL 

STORE 

w 

NWL 

WTSCH 

w 

NWL 

/ C I NP  UT /( 

380  ) 

STORE 

w 

PCHAW 

WTSCH 

I 

PCHAW 

/Cl NPUT/( 

381  ) 

WTSCH 

w 

Q 

/ C I NPUT/t 

382  ) 

PRITVA 

I 

RHOFU 

STORE 

w 

RHOFU 

WTSCH 

1 

RHOFU 

/ C I NP  UT / ( 

383  ) 

PRITVA 

1 

RH0FU2 

STORE 

w 

RH0FU2 

WTSCH 

I 

RH0FU2 

/ C I NP  UT / ( 

38H  ) 

PRITVA 

I 

RHO  X 

STORE 

w 

R HQ  X 

WTSCH 

1 

R HQ  X 

/ C I NP  UT / ( 

365  ) 

PRITVA 

I 

RH0X2 

STORE 

w 

RH0X2 

WTSCH 

I 

RH0X2 

/ C I NP  UT /( 

386  ) 

PROT  HR 

I 

SBODV 

T AWPER 

1 

S BODY 

WTSCH 

w 

SBODV 

/ C I NP  UT  /< 

387  ) 

SOLVE 

w 

TOL 

/CINPUT/I 

388  ) 

PRO  T HR 

I 

TOVERC 

STORE 

w 

TOVERC 

WTSCH 

I 

TOVERC 

/ C I NP  UT /( 

369  ) 

STORE 

w 

TPRATO 

WTSCH 

I 

TPRATO 

/ C I NP  UT / ( 

390  ) 

STORE 

w 

TYTA1 L 

/CINPUT/< 

391  > 

PRINTV 

w 

V800V 

SOLVE 

« 

V BODY 

STORE 

w 

VSOOV 

T AWPER 

J 

VBODY 

WTSCH 

n 

VBOOY 

WT  VOL 

I 

VBODY 

30  OCT  72  G.01-H6 


^ Oh  I h AN 
SVHHUL 


WGROSS 


HA  \ M 
G vnftOi 


DESCRIPTION 


STORAGE  SUARQuMNF  USAGE 

«LOL*  LOC  SlMh  CODE  VAR 


Grot*  lift-off  at  I jht 


/CINPUT/I  392 


PRINTU 

I 

WGROSS 

PRUTS* 

I 

WGROSS 

SOLVE 

WGROSS 

STORE 

* 

WGROSS 

TAMPER 

i 

WGROSS 

UiTS  CM 

n 

WGROSS 

UITVOL 

i 

wgross 

BL0CK 

DATA2X 


/4//7 


k 0H1 KAN 
SYnrtQL 


hath 

SYMBOL 


DESCRIPTION 


S I QfiA^E 


*LO>  * 


LOC 


S UBH Q UT  I rgp  uSftG 
SU68  COOt  VAR 


ALD 

Booster  mb*tonlc  I/d 

/OAT  A2  X/< 

1)  SSSP 
VEHDF 
VEHOF 

1 A 
9 A 
ALO 

FBPAR 

Estivate  of  slope  for  booster  cruise  adjustvent  If 
aereq  70  or  vpcreq  70 

/ DAT  A2  X / ( 

2)  VEHDF 

F BP  AR 

1DVEL 

Total  Ideal  velocity  estimate  to  parking  orbit 
insertion 

/DAT  A2X/( 

3)  VEHDF 

1DVEL 

1 SIB 

Booster  sea  level  specific  lapulse 

/ D AT  A2  X/( 

9 ) 

I VACB 

Description  not  input 

/DATA2X/< 

6)  VEHOF 

I VACB 

I VACO 

Description  not  input 

/DAT  A2  X/( 

7)  VEHOF 

I VACO 

ISLO 

Orbiter  sea  level  specific  inpulse 

/DAT  A2X/( 

8)  VEHDF 

PERIS 

omxx 

Description  not  Input 

/0ATA2XM 

9)  VEHDF 

flflXX 

onxs 

Description  not  Input 

/DAT  A2  X/( 

10)  VEHDF 

onxs 

SFC 

Description  not  Input 

/OAT  A2X/( 

11  ) VEHOF 

SFC 

SLVOUT 

Description  not  Input 

/0ATA2X/C 

12)  VEHDF 

SLVOU 

COPIES 

Description  not  input 

/OATA 2X/< 

13)  VEHDF 

COPIE 

SYNIT 

Description  not  Input 

/0ATA2X/I 

19)  VEHDF 

SYWJT 

I VACB 

Booster  boc.  top 

/OAT  A2X/( 

15)  VEHDF 

TFCTR 

TFCTRO 

Description  not  input 

/ DAT  A2X/( 

16)  VEHDF 

TFCTR 

TOLflU 

Description  not  input 

/DAT  A2X/ ( 

17)  VEHDF 

TOLMU 

TOLTU 

Description  not  input 

/DAT  A2X/( 

18)  VEHDF 

TOLTU 

I VACO 

Orbiter  vac.  lap 

/DATA2X/C 

19)  VEHOF 

TR  ATI 

T WLO 

Description  not  input 

/CATA2X/T 

20)  VEHOF 

TtfLO 

tuloi 

Description  not  input 

/DATA2X/< 

21  ) VEHOF 

TULOI 

WTOUT 

Description  not  input 

/DAT  A2X/( 

22)  VEHOF 

WTOUT 

FIRE 

Description  not  Input 

/0ATA2X/< 

23 ) VEHDF 

FIRE 

BOOTU 

Description  not  1 nput 

/0ATA2X/( 

29)  VEHDF 

BOOTU 

VCRUSE 

Description  not  (nput 

/0ATA2X/< 

25  ) VEHOF 

VCRUS 

PERISP 

Booster  effective  i sp  estivating  parameter 

/DATA2X/( 

26)  VEHDF 

<9  X F 0 B 

QttAX 

Estivate  of  in  q during  ascent  used  for  siting 
vehicle 

/DAT  A2  X/( 

27) 

onxs 

Slope  used  for  aa«-q  adjustnent  then  X/m  l.o.  Varies 
during  synthesis  iterations 

/ 0 AT  A2X/ ( 

28) 

SFC 

Specific  fuel  consuaption  of  booster  air  breathers 

/DAT  A2X/( 

29)  VEHDF 

I Cl  vs 

SLVOUT 

Output  flag  for  siting  data 

/DAT  A2X/( 

30)  VEHDF 

[ 0RN6 

COPIES 

Nuaber  of  copies  of  sunaary  sheet  to  be  output 

/0ATA2X/( 

31  ) VEHOF 

1 SOLID 

SYNIT 

Nuvber  of  alloaable  synthesis  Herat  'ions  (aai  = 6) 

/DAT  A2X/( 

32)  VEHOF 

l AS 

TFCTRB 

Booster  thrust  aultipller  for  ascent 

/DAT  A2X/( 

33)  VEHOF 

1 BS 

SI  SP 

Description  not  input 

/0ATA2X/( 

39)  VEHOF 

[ 5 ISP 

S I WERT 

Description  not  input 

/0ATA2X/( 

35  ) VEHOF 

[ S1NER 

SAE 

Description  not  Input 

/DAT  A2X/( 

36)  VEHDF 

[ SAE 

TFCTRO 

Orbiter  thrust  vultlpMer  for  ascent 

/DATA2*/< 

37  ) VEHDF 

TSBO 

FLY8CK 

Description  not  Input 

/DAT  A2X/( 

38)  VEHDF 

1 FLYBC 

UIPOREO 

Description  not  Input 

/OAT  A2X/( 

39)  VEHDF 

1 UP  ORE 

UOREQ 

Description  not  input 

/DAT  A2  X/( 

90  ) VEHDF 

UORES 

6WREO 

Description  not  input 

/0ATA2X/( 

91  ) VEHOF 

GWRE( 

F8FUEL 

Description  not  Input 

/0ATA2X/( 

92  ) VEHDF 

! FBFUI 

CA 

Description  not  Input 

/DAT  A2X/( 

93)  VEHDF 

CA 

TOLrtU 

Orbiter  aa  s s ratio  tolerance  "input - - - - 

/0ATA2X/L 

99).  VEHDF 

CB 

TOLTU 

Tolerance  on  talo  Iteration 

/0ATA2X/1 

- 95  ) VEHDF 

[ UFLYI 

T R AT  I 0 

Ratio  of  booster  to  orbiter  engine  thrust  (vac) 

/OAT  A2X/( 

96)  VEHOF 

RT 

30  OCT  n G. 01-96  * 

f OR  1 RAN 

DATM 

DESCRIPTION 

STORAGE 

SUBROUTINE  USAGE 

l»Vil  KOL 

SvnHOL 

BLUE* 

ICC 

s J6h 

CODE  VAR 

twlo 

Desired  value  of  l.o.  T / m 

/DAT  A2  X/( 

Hi) 

VEHDF 

I 

R 1 

tuloi 

fia  1 1 mu*  nu«ber  of  iterations  to  obtain  t • 1 o 

/0ATA2X/( 

HQ) 

VEHDF 

I 

R3 

UTOUT 

Output  print  f 1 • 9 

/DATA2X/I 

99  ) 

VEHDF 

1 

SFC1 

FIRE 

Ascent  burn  sequence  flag  simultaneous  stage  burn 

2=  sequential  stage  burn 

/DATA  2X/< 

50) 

VEHDF 

I 

SFC2 

SFC3 

Description  not  Input 

/ 0 AT  A2  X /( 

51) 

VEHDF 

I 

SFC3 

V CR  USE 

Booster  flyback  cruise  velocity 

/DAT  A2  X/< 

52  ) 

VEHDF 

I 

AL01 

NXFOB 

Flag  for  crossfeed  of  propellants  fra*  booster  tanks 
to  orb  iter  engines  at  lift-off  If  fire  = 1 

/OAT  A2X/( 

53) 

VEHDF 

I 

ALD2 

PRNTX 

Dat  a / print  flag 

/0ATA2X/< 

5 H) 

VEHOF 

I 

AL03 

vflyi 

Description  not  Input 

/DAT  A2  X/( 

55  ) 

VEHDF 

I 

VFLYI 

VFLY2 

Description  not  Input 

/DAT  A2X/( 

5b) 

VEHDF 

I 

VFLY2 

VFLY3 

Description  not  I nput 

/ DAT  A2X/( 

5 T ) 

VEHOF 

I 

VFLY3 

SOLI  0 

Number  of  solid  motors  also  flag  for  solid  motor 
option 

/OAT  A2X/( 

58) 

AS 

Solid  motor  thrust  curve  intercept 

/0ATA2X/< 

59) 

HUNT 

I 

RVAR 

BS 

Solid  motor  thrust  slope 

/DAT  A2X/( 

60) 

HUNT 

I 

PNDX 

SISP 

Solid  motor  vacuum  isp 

/DAT  A2X/C 

61  ) 

SlNERT 

Solid  motor  Inert  met  ght 

/DAT  A2X/C 

62) 

SAE 

Solid  motor  exit  arn 

/OAT  A2X/( 

63) 

TSBO 

Solid  rocket  burn  time 

/DAT  A2X/C 

69) 

FBFUEL 

Flyback  cruise  calculation  flag  1=  parametric  range 

/DAT  A2X/( 

65) 

data  2=  staging-  q function  3=  constant  range  9= 
ballistic  impact  range  5 = entry  trajectory  simulation 

CA 

Per  cent  booster  meight  for  cruise  back  leg  no.  1 

/DAT  A2X/C 

66) 

CB 

Per  cent  booster  meight  for  cruise  back  leg  no.  2 

/DATA2X/< 

67) 

WFLYX 

Add  at i v e booster  meight  for  flyback 

/DAT  A2X/( 

68) 

RT 

Transition  range  increment  for  flyback  calculations 

/DAT  A2X/( 

69) 

R 1 

Idle  descent  range  increment  for  flyback  calculations 

/OAT  A2X/< 

70  ) 

HUNT 

1 

BLOW 

R 3 

Final  descent  flyback  range  i ncr emnt 

/DATA2X/C 

71  ) 

SFC1 

Specific  fuel  consumption 

/DAT  A2X/( 

72) 

SFC2 

Specific  fuel  consumption 

/ 0 AT  A2X/( 

73) 

SFC3 

Specific  fuel  consumption 

/0ATA2X/( 

79) 

AL03 

Booster  sub- sonic  I/d 

/DAT  A2X/( 

77) 

BUPP 

Description  not  input 

/ DAT  A2X/( 

60  ) 

HUNT 

I 

BUPP 

STEP 

Description  not  input 

/0ATA2X/C 

90) 

HUNT 

n 

STEP 

SSSP 

rq 

STEP 

PAYX 

Description  not  input 

/ DAT  A2  X/( 

101  ) 

HUNT 

I 

PAYX 

VFLY1 

Booster  flyback  cruise  velocity  psel 

/0ATA2X/( 

78) 

VFLY2 

Booster  flyback  cruise  velocity  psc2 

/DAT  A2X/C 

79) 

YFLY3 

Booster  flyback  cruise  velocity  psa3 

/ D AT  A2  X/( 

80) 

30  OCT  n G.01-H6 


BL0CK 

EMS 


/ u 


1 \)H  1 H AN 

n A T H 

DESCRIPTION 

Si  ORA 

S iMfiPUT 1 NF 

USAGE 

i,  VmHUL 

S vmHOi 

B L L»  L h 

lOC 

rout 

VAR 

WORBJ T 

U# 1 ght  In  orbit 

/Ens 

/( 

\ > 

PRWTSfl  0 
TAttPER  I 

WORBIT 

WORBIT 

WET  URN 

W* l ght  at  riturn 

point 

/EM$ 

/( 

2 ) 

PRutTSfl  0 
TAMPER  I 

UETURN 

RETURN 

UIENTRY 

Entry  ■« 1 ght 

/EflS 

/( 

3 ) 

PRUITSm  0 
TAMPER  I 

UENTRY 

UENTRY 

Ul  AND 

Landing  mt i ght 

/EHS 

/( 

S ) 

PRUTS*  0 
TAflPER  I 

ULANO 

bILAND 

30  OCT  12  G.01-H6 


BL0CK 

JUMPY 


IUR1H0N  MAIM 

Symbol  SYMBOL 


DESCRIPTION 


storage  SUBROUTINE  USAGE 

BLOCK  LOC  SUBH  CODE  VAR 


JUMP 

Data  flag  0:  orblttr  Is  booster 

/jumpy  /( 

1 ) FRENCH 

0 

JUMP 

PR  I NT  y 

1 

JUMP 

PR  1 T V A 

| 

JUMP 

PRWTSM 

M 

JUMP 

WTSCH 

I 

JUMP 

UITVOL 

M 

JUMP 

UBOO 

Booster  gross  •• \ ght 

/JUMPY  /< 

3)  PR  I NT  Id 

1 

UBOO 

TAMPER 

| 

UBOO 

U)T  VOL 

0 

UIBOO 

30  OCT  72  G . 0I-N6 


BL0CK 

0RBINX 


PORTRAY  HATH 

5 vhbol  svnaoi 


DESCRIPTION 


S TQRA.TP  5 1MRQQT  J N£  yS A( 

BLOC*  LOC  SU6R  CODE  VftF 


T02 

Stored 

or  b) ter 

v » 1 u# 

of 

e bbody 

/ORBI NX/I 

2) 

STORE 

n 

T02 

TOM 

Stored 

or  b 1 1 er 

v • 1 ue 

of 

cf  ue  It  1 I 

/ORBI NX/I 

M 1 

STORE 

ft 

TOM 

T 05 

Stored 

or  b 1 ter 

value 

of 

chbody 

/ORBINX/I 

10) 

STORE 

« 

T05 

T06 

Stored 

or  b 1 ter 

value 

of 

c 1 body 

/OR  B 1 NX /I 

1 1 ) 

STORE 

ft 

T06 

TO  7 

Stor  ed 

or  b 1 1 er 

value 

of 

c > body 

/ ORBI NX / ( 

12) 

STORE 

n 

TOT 

TOIO 

Stored 

or  b 1 1 er 

value 

of 

cat  air 

/ORBI NX/I 

15) 

STORE 

« 

T010 

TOU 

Stored 

or  b I ter 

value 

of 

csf ut k 

AO  R B I N X / ( 

U ) 

STORE 

ft 

T011 

T 0 1 2 

Stored 

or  b i t er 

value 

of 

cao  itk 

/ORBI NX/I 

17  ) 

STORE 

n 

TOU 

TO  1 3 

Stored 

o r b 1 1 er 

value 

of 

c a her * 

/ORB  I NX / ( 

10  ) 

STORE 

n 

TO  1 3 

TO  1 5 

Stor e d 

or  b 1 ter 

v*  1 ue 

of 

cap  1 an 

/ORBI NX/I 

20  ) 

STORE 

« 

TOU 

TOU 

Stored 

or  hi  ter 

value 

of 

caver t 

/OR B I NX/C 

21  ) 

STORE 

TOU 

TO  1 7 

Stored 

or  bi ter 

value 

of 

ca»l ng 

/ORBINX/C 

22  ) 

STORE 

« 

TO  1 7 

TOU 

Stored 

or  b l ter 

value 

of 

c thr  at 

/OR  BI NX/C 

23  ) 

STORE 

n 

TOU 

WT  VOL 

« 

TOU 

TOU 

Stored 

or  bi t er 

value 

of 

cthst i 

/ORBINX/C 

2M  ) 

STORE 

« 

T019 

T027 

Stor  ed 

or bi ter 

*i  l ue 

of 

i apt  i > 

/ORBINX/C 

Ml  ) 

SIZEftfi 

I 

T027 

SSSP 

I 

T0E7 

STORE 

« 

T027 

SUrtOUT 

I 

T02  7 

VEMDF 

ft 

T027 

WT  VOL 

I 

T027 

T03M 

Stored 

or  b 1 1 er 

value 

of 

mrt  1 > 

/ORBI NX/< 

53  ) 

ITER8 

ft 

TO  3M 

S55P 

0 

T03M 

STORE 

ft 

T03M 

TAMPER 

I 

T03M 

VEHDE 

0 

T03M 

WT  VOL 

ft 

T03M 

T 035 

Stored 

or  b 1 1 er 

value 

of 

ncria 

/ORBINX/C 

59) 

STORE 

n 

T035 

T036 

S tor ed 

or  bi t er 

va  1 ue 

of 

nengt 

/ORBI NX/C 

60) 

STORE 

n 

T036 

SUrtOUT 

i 

T036 

TAMPER 

i 

T036 

THRUST 

i 

TO  36 

WT  VOL 

i 

TO  3 6 

T038 

Stored 

or  bi t er 

value 

0 f 

np  as  a 

/ORBINX/C 

62  ) 

STORE 

ft 

T038 

TQM) 

Stored 

or  b i t er 

value 

of 

r hof  u 

/ORBINX/C 

65  ) 

STORE 

n 

T0M1 

T0M2 

Stored 

or  bi ter 

value 

of 

r hof u2 

/OR  BI NX /( 

66) 

STORE 

* 

TO  M2 

T0H3 

Stored 

or  b i t er 

value 

of 

r ho  e 

/ORBINX/C 

67) 

STORE 

pi 

T0M3 

TOMB 

Description  not 

i nput 

/ ORBI NX/ ( 

68  ) 

STORE 

« 

TOMM 

TOMS 

Stored 

o r b i t er 

value 

of 

sal  ng 

/ORBINX/C 

69  ) 

STORE 

pi 

T0M5 

SUI90UT 

l 

T0M5 

TAMPER 

I 

TOMS 

T0M7 

Stored 

or  b 1 1 er 

value 

of 

to ver  c 

/OR  BI NX/ ( 

71) 

STORE 

n 

T0M1 

T051 

Stored 

orbi ter 

value 

of 

vbody 

/ORBI NX/I 

) 02  ) 

STORE 

« 

T051 

WT  VOL 

0 

TO  5 1 

T052 

Stored 

or bi ter 

value 

of 

vfutk 

/ORBI NX/I 

103) 

STORE 

0 

tos: 

T053 

Stored 

o r b i t e r 

value 

of 

vfutta 

/ORBI NX/I 

10M) 

STORE 

ft 

T05; 

T05M 

Stored 

or  b 1 1 er 

value 

of 

vo  itk 

/OR  81  NX /I 

105  ) 

STORE 

0 

T 0 5 4 

T 0 5 5 

Stored 

or  b 1 t er 

value 

of 

vo  a t k2 

/ORB ! NX/I 

106  ) 

STORE 

PI 

TOS! 

T 056 

Stored 

arbiter 

va  I ue 

of 

»qro$$ 

/OR  BI NX /I 

107) 

STORE 

PI 

T05i 

WT  VO  L 

PI 

T 05 

SKO 

Uor k i n 3 

name  for  Input  k 

-array 

orbi ter 

vo 1 u»e  scaling 

/ORBI NX/I 

1 I M ) 

STORE 

ft 

T 0 6 

c o ef  f 

S*0 

Description  not 

1 nput 

/ORBI NX/I 

1)5) 

STORE 

PI 

SKO 

SCO 

Wo  r k 1 n < 

neae  for  input  c 

-array 

o r b 1 1 e r 

scaling 

/ORBINX/C 

1 MM  I 

coefficients 


30  OCT  72  G.0I-M6 


FORTRAN 

SVM90L 


MATH 

symbol 


DESCRIPTION 


U6R  COO£  VAR 


BlO^*  LOC 


SCO 

Otter 1 ptlon 

not 

1 np  ut 

/ORBINX/I 

1 95  ) 

STORE 

A 

SCO 

TAMPER 

I 

SCO 

THRUST 

A 

SCO 

UT  VO  L 

A 

SCO 

OUSAVE 

Description 

not 

1 np  ut 

/ORBINX/t 

995  > 

STORE 

A 

OUSAVE 

TAMPER 

1 

OUSAVE 

T 059 

Description 

not 

1 np  ut 

/ORBINX/I 

955  ) 

STORE 

A 

T059 

T060 

Description 

not 

1 nput 

/ORBINX/I 

956  ) 

STORE 

A 

T060 

T 0 6 1 

Description 

not 

i nput 

/ORBI NX/I 

957  > 

STORE 

A 

T061 

T062 

Description 

not 

1 nput 

/ORBINX/I 

958  ) 

STORE 

A 

T062 

T063 

Description 

not 

1 np  ut 

/ORBINX/t 

959  > 

STORE 

A 

T063 

T069 

Description 

not 

i nput 

/ORBINX/I 

960  ) 

STORE 

A 

T069 

T 065 

Description 

not 

I nput 

/ORBINX/t 

961  ) 

STORE 

A 

T065 

T 067 

Description 

not 

i nput 

/ORBIN X/( 

962  ) 

STORE 

A 

T067 

T068 

Description 

not 

1 nput 

/ORBI NX/I 

963  ) 

STORE 

A 

T068 

T069 

Description 

not 

i nput 

/ORBINX/t 

969  > 

STORE 

A 

T069 

T 0 70 

Description 

not 

) nput 

/ORBI NX/I 

965  ) 

STORE 

A 

T070 

T071 

Oe  s cr 1 p 1 1 o n 

not 

( nput 

/ORBINX/I 

966  ) 

STORE 

A 

TO  71 

TO  72 

Description 

not 

1 nput 

/ORBINX/I 

967  ) 

STORE 

A 

TO  72 

TO  73 

Description 

not 

input  ' 

/ORBINX/t 

968  ) 

STORE 

A 

T073 

TO  7H 

Description 

not 

1 nput 

/ORBI NX/I 

969  ) 

STORE 

A 

T079 

TOTS 

Description 

not 

i nput 

/ORBI NX/I 

970  ) 

STORE 

A 

TO  75 

T 0 76 

Descr Ipt ton 

not 

i nput 

/ORBINX/t 

971  ) 

STORE 

A 

TO  76 

TO  7 7 

Descr i pt i on 

not 

I nput 

/ORBI NX/( 

972  ) 

STORE 

A 

TO  77 

TO  78 

Description 

not 

1 nput 

/ORBINX/I 

973  ) 

STORE 

A 

T078 

TO  79 

Deter  iptfon 

not 

i nput 

/0R8INX/( 

979  ) 

STORE 

A 

TO  79 

T080 

Description 

not 

1 nput 

/ORBINX/I 

975  ) 

STORE 

A 

T080 

TOSI 

Description 

not 

1 nput 

/ORBINX/t 

976  ) 

STORE 

A 

T081 

T 0 82 

Description 

not 

i np  ut 

/ORBINX/I 

97  7 ) 

STORE 

n 

T082 

T083 

Description 

no  t 

1 np  ut 

/ORBINX/I 

978  ) 

STORE 

A 

T083 

T 0 89 

Descr  iption 

not 

i nput 

/ORBINX/I 

979  ) 

STORE 

A 

T089 

30  OCT  72  G. 01-96 


BL0CK 

0RBINY 


M)fltRAN  maih  n C C P D T D T T n M LjgjjAfif  USA 

SYMBOL  SYMBOL  ucounir  1 1 VJ  BLOCK  LOC  SUBR  cooe  VA 


A 

Description  not  Input 

/ORBINY/t 

1 ) 

HUNT 

SS5P 

n 

I 

A 

S5P0 

TB2 

Stored 

booster 

v s 1 ue 

of 

ebbody 

/ORBINY/t 

2 ) 

STORE 

R . 

T82 

TB59 

Stored 

booster 

vs  1 ut 

of 

If 

/ORBINY/t 

9 ) 

STORE 

« 

T 89 

T B9 

Stored 

booster 

v • 1 Ut 

of 

cf ue)< 1 ) 

/OABlNY/l 

N ) 

T 65 

Stored 

booster 

V 0 l Ut 

of 

chbody 

/0RBINY/( 

10  1 

STORE 

R 

TBS 

TB6 

Stored 

booster 

v • 1 g« 

of 

1 1 bo dy 

/0RBINY/( 

U) 

STORE 

n 

TB6 

TB7 

Description  not 

t input 

/ORBINY/t 

12) 

STORE 

n 

TB7 

TBIO 

Stored 

booster 

v»  1 ue 

of 

csf air 

/0RBI NY/( 

15  ) 

STORE 

n 

TBIO 

TBU 

Stored 

booster 

value 

of 

• csf utk 

/ORBINY/t 

16  ) 

STORE 

M 

TBU 

TBU 

Stored 

booster 

value 

of 

csoatk 

/ORBINY/t 

17) 

STORE 

n 

TBU 

TB13 

St  or  e d 

booster 

vs  i ue 

of 

eshorx 

/0RBINY/< 

16  ) 

STORE 

n 

TB13 

TB15 

Stored 

booster 

value 

of 

esp 1 an 

/0RBINY/< 

20  ) 

STORE 

R 

TB15 

TBU 

Stored 

booster 

value 

of 

cs vert 

/0RBINY/( 

21  > 

STORE 

n 

TBU 

TBIT 

Stored 

booster 

value 

of 

c %m 1 ng 

/0RBJ  NY/ ( 

22  ) 

STORE 

r 

TB 1 7 

TBU 

Stored 

booster 

value 

of 

cthr  at 

/(TRBINY /< 

23) 

STORE 
WT  VOL 

r 

0 

TB1 8 
TBU 

TBU 

Stored 

booster 

value 

of 

cthst2 

/ORBI NY/( 

29  ) 

STORE 

R 

TBU 

TB2T 

Stored 

booster 

value 

of 

isp< 1 ) 

/0BBI NY/t 

Hi  ) 

SIZEflR 

SSSP 

STORE 

sumout 

TAMPER 

VEHOF 

UTVOL 

I 

I 

M 

I 

I 

r 

I 

TB27 
TB2  7 
TB27 
TB27 
TB27 
TB27 
TB27 

TB39 

Stored 

booster 

value 

of 

•r<  1 ) 

/ORBI NV/< 

53  ) 

FLYBICP 

ITER8 

SSSP 

STORE 

SUMOUT 

TAMPER 

YEHOF 

UT  VOL 

I 

0 

M 

M 

I 

I 

I 

w 

TB39 

TB39 

TB39 

TB39 

TB39 

TB39 

TB39 

TB3H 

TB35 

Stored 

booster 

value 

of 

nerte 

/QR  B I NY / ( 

59  ) 

STORE 

R 

TB35 

T 036 

Stored 

booster 

value 

of 

nenga 

/ORBINY/l 

60  ) 

STORE 
SUMOUT 
TAMPER 
THRUST 
UT  VOL 

R 

I 

I 

I 

l 

TB36 
TB36 
TB36 
TB36 
T 83  6 

TB30 

Stored 

booster 

value 

of 

npass 

/ORBI NV/( 

62  ) 

STORE 

M 

TB38 

TBHl 

Stored 

booster 

value 

of 

r hof  u 

/OR  B I NY / ( 

65  ) 

STORE 

M 

TB91 

TB92 

Stored 

booster 

value 

of 

r hof  u2 

/ORBINY/t 

66  ) 

STORE 

M 

TB92 

TB93 

5 tor ed 

booster 

value 

of 

r ho  a 

/ORBINY/t 

67  ) 

STORE 

R 

7B93 

TB9H 

Stored 

booster 

value 

of 

r ho *2 

/ORBINY/t 

68  ) 

STORE 

M 

TB99 

T095 

Stored 

booster 

value 

of 

sal  ng 

/0RBINY/( 

69  > 

STORE 

SUMOUT 

tamper 

M 

I 

I 

TB95 
TB95 
T B H 5 

TB97 

Stored 

booster 

value 

of 

to  tore 

/OR B I NY / ( 

71  ) 

STORE 

R 

TB97 

TB51 

Stored 

booster 

value 

of 

vbo  dy 

/ORBI NV/( 

102  ) 

STORE 
UT  YOU 

n 

0 

T B5  1 
TB51 

T 65  I 

Stored 

booster 

value 

of 

vf  utk 

/ORBINY/t 

103  ) 

STORE 

0 

TB52 

TB53 

Stored 

booster 

value 

of 

vf utk2 

/ORBI NY/( 

109  ) 

STORE 

R 

T B5  3 

TB59 

Stored 

booster 

value 

of 

vo  it  k 

/ORBI NY/( 

105  ) 

STORE 

0 

TB59 

TB5  5 

Stored 

booster 

value 

of 

voitk2 

/ORBINY/t 

106) 

STORE 

rt 

TB55 

TB56 

Stored 

booster 

value 

of 

■gross 

/ORBINY/t 

107  > 

STORE 
UT  VOL 

n 

m 

TB56 

TB56 

30  OCT  n 6.01-96 


T 

I 


FUR  1 fi  AN 

HATH 

DE5 

CR  I P T I 0I\I 

S TCP  A 

SUBROUTINE  USftliE 

SYMBOL 

BLOCK 

L 0 L 

CUOE  VAR 

skb 

Working  ni*i 
C 0 *1  f 

for 

Input 

k-errey  booster  volume  telling 

/ORBI NV/( 

119) 

STORE 

A 

SKB 

SCB 

Working  ni«e  for 
eocf f I cl «nts 

i nput 

C-irrijf  booster  seeling 

/ORB  I NY /{ 

199) 

FlYBKP 

STORE 

SUrtOUT 

TAMPER 

THRUST 

VEMOF 

WTVOl 

a 

A 

1 

I 

A 

I 

A 

SCB 

SCB 

SCB 

SCB 

SCB 

SCB 

SCB 

BUS  A VC 

Description 

not 

i nput 

/ORBINY/I 

999  ) 

STORE 

A 

BWSAVE 

TB59 

Description 

not 

i nput 

/0RBINY/( 

959  ) 

STORE 

A 

TB59 

TB60 

Description 

not 

i nput 

/ORBINY/t 

955  ) 

STORE 

A 

TB60 

TB61 

Oe  scr i pt ion 

not 

1 nput 

/ORBI NY/( 

956  ) 

STORE 

A 

TB61 

TB62 

Description 

no  t 

i nput 

/ORB  I.NY/( 

957  ) 

STORE 

A 

TB62 

TB63 

Description 

not 

i nput 

/ORB  1 NY / ( 

958  ) 

STORE 

A 

TB63 

TB69 

Description 

not 

i nput 

/ORBI NY/( 

959  ) 

STORE 

A 

TB69 

TB65 

Description 

not 

i nput 

/ORBI NY/( 

960  ) 

STORE 

A 

TB65 

TB66 

Description 

not 

1 nput 

/ORBI NY/( 

961  ) 

STORE 

A 

TB66 

TB67 

Description 

not 

i nput 

/ORBI NY/( 

962  ) 

STORE 

A 

TB67 

TB68 

Description 

not 

i nput 

/0RBINY/< 

963  ) 

STORE 

A 

T868 

TB69 

Description 

not 

i nput 

/ORBI NY/( 

969  ) 

STORE 

A 

TB69 

TB70 

Description 

not 

i nput 

/ORB 1 NY/ ( 

965) 

STORE 

A 

TB70 

T B7 1 

Description 

not 

i nput 

/ORBINY /( 

966  ) 

STORE 

A 

TB71 

TB72 

Description 

not 

t nput 

/OR  B I NY/( 

967  ) 

STORE 

A 

TB72 

TB73 

Description 

not 

1 nput 

/ORBI NY/< 

968  ' 

STORE 

A 

TB73 

T B 7 9 

De  s cr 1 p 1 1 on 

not 

1 nput 

/ORBI NY/{ 

969  ) 

STORE 

A 

TB79 

TB75 

Description 

not 

i nput 

/OR B I NY /( 

970 ) 

STORE 

A 

TB75 

T B 76 

Description 

not 

i np  ut 

/ORBI NY/( 

971  ) 

STORE 

A 

TB76 

T B 7 7 

Description 

not 

i nput 

/ORB  I NY /( 

972  ) 

STORE 

A 

TB77 

I B 78 

Description 

not 

i np  ut 

/ORBI NY/( 

973  ) 

STORE 

A 

T878 

T B 7 9 

Description 

not 

i nput 

/ORBI NY/( 

979  ) 

STORE 

A 

TB79 

TB80 

Description 

not 

i nput 

/OR B I NY /( 

975  ) 

STORE 

A 

TB80 

TB61 

Description 

not 

i nput 

/ORBI NY/< 

976  ) 

STORE 

A 

TB81 

TB82 

Description 

not 

I nput 

/ORB  I NY /( 

97  7 ) 

STORE 

A 

TB82 

TB83 

Description 

not 

i nput 

/ORBI NY/( 

978  ) 

STORE 

A 

TB83 

TB89 

Oe  s cr i pt  i on 

not 

I nput 

/ORBI NY/( 

979  ) 

STORE 

A 

TBB9 

30  OCT  72  G. 01-96 


BL0CK 

P0 


FOMRAN  MATH 

SvnaOL  svnaoL 


DESCRIPTION 


5 FQRA  StHfiOUfJiVC  USAGE 

ftLJCA  LOC  SU6R  CODE  VAR 


HPRNT 


Description  not  Input 


19 0 /(  I ) FRENCH  It  HPRNT 

VEHOF  I HPRNT 


30  OCT  12  G.01-N6 


t i)h  1 ham  HAIH  nCfPDTDTTniM  s 1 0 s a ; c I-  -J^ftOUT  I oig  US  ft  56 

bVHBOL  SYMBOL  UCOUnir  I lUIV  BlUC*  LOC  SU6R  CODE  Yft R 


PRESET 


Description 

FOK  DI\Tn2X 


/PRESETS  1 ) SSSP  D PRESET 
VEHOF  I PRESET 


30  OCT  12  G.01-S6 


BL0CK 

SUMVW 


f OR  T HAN 

SYnaot 


HATH 

SYdeoi 


DESCRIPTION 


ALOLA 


S T Q R ft  1 1 g SUBROUTINE  USAGE 

HTC  SUdH  CODE  VAR 


WOP 

Orbit  Maneuvering  propellant  aeight 

/SUdVW 

/( 

1 1 

SUdOUT 

1 

WOP 

T AdPER 

0 

WOP 

WABFUB 

Booster  flyback  fuel  required 

/SUdVW 

/( 

2 ) 

SUdOUT 

1 

WABFUB 

T AdPER 

d 

wabfub 

WFUOXB 

Propellant  at . Less  fpr  -booster 

/SUdVW 

/( 

3 ) 

SUdOUT 

I 

WFUOXB 

T AdPER 

d 

WFUOXB 

WDRYB 

Stage  dry  aeight  - booster 

/SUdVW 

/( 

9 ) 

SUdOUT 

I 

WDRYB 

T AdPER 

0 

WORYB 

WGROSB 

Booster  gross  aelght 

/SUdVW 

/( 

5 ) 

SUdOUT 

I 

WGROSB 

TAdPER 

d 

WGROSB 

WOTHB 

disc.  Weight  - booster 

/SUdVW 

/( 

6 ) 

SUdOUT 

I 

WOTHB 

TAdPER 

0 

WOTHB 

VFUTKB 

Total  voluae  of  fuel  tank  - booster 

/SUdVW 

/( 

7 ) 

SUdOUT 

1 

VFUTKB 

TAdPER 

0 

VFUTKB 

VO  XT  KB 

Booster  oxidizer  tank  vo 1 uae 

/SUdVW 

/( 

6 ) 

SUdOUT 

I 

VO  XT  KB 

TAdPER 

0 

VO  XT  K B 

VOTHB 

disc.  Booster  vo 1 uae 

/SUdVW 

/( 

9 ) 

SUdOUT 

I 

VOTHB 

TAdPER 

0 

VOTHB 

VB00YB 

Booster  body  voluae 

/SUdVW 

/( 

10  ) 

SUdOUT 

I 

V600YB 

TAdPER 

0 

VBODYB 

V ABF  UB 

Voluae  of  booster  propellant  tanks 

/sudvw 

/( 

11 ) 

TAdPER 

0 

V ABF  UB 

LBOOVB 

Description  not  Input 

/SUdVW 

/( 

12) 

SUdOUT 

1 

LBODVB 

TAdPER 

0 

LBOOVB 

S BOO YB 

Totai  body  aetted  area-  booster 

/SUdVW 

/( 

13  ) 

SUdOUT 

I 

SBODYB 

TAdPER 

0 

SBODVB 

SPLANB 

Booster  body  planfora  area 

/SUdvw 

/( 

1 H > 

SUdOUT 

1 

SPLANB 

T AdPCR 

0 

SPLANB 

UOVRSB 

Booster  aing  loading 

/SUdVW 

/( 

15  ) 

SUdOUT 

I 

WOVRSB 

TAdPER 

0 

UOVRSB 

UPAYLO 

Payload  ae I ght 

/Sunvw 

/< 

16) 

SSSP 

I 

WP AY  10 

SUdOUT 

I 

UPAYLO 

TAdPER 

to 

UPAYLO 

WORYO 

Stage  dry  aeight  -orbiter 

/SUdVW 

/( 

1 7 ) 

SUdOUT 

I 

WORYO 

TAdPER 

0 

WORYO 

WOT  HO 

disc.  Weight  - orbiter 

/SUdVW 

/( 

18  ) 

SUdOUT 

I 

WOT  HO 

TAdPER 

0 

WQTHO 

WABFUO 

Orbiter  flyback  fuel  required 

/sudvw 

/( 

19  ) 

SUdOUT 

I 

WABFUO 

* 

TAdPER 

d 

WABFUO 

VFUTKO 

Total  voluae  of  fuel  tank  - orbiter 

/SUdVW 

/( 

20  ) 

SUdOUT 

1 

VFUTKO 

TAdPER 

0 

VFUTKO 

VOXTKO 

Orbiter  oxidizer  tank  voluae 

/SUdVW 

/( 

21  ) 

SUdOUT 

I 

VOXTKO 

\ 

TAdPER 

0 

VOXTKO 

V CAR  GO 

Vo  1 uae  of  c ar  go 

/SUdVW 

/( 

22  ) 

SUdOUT 

I 

VCARO 

TAdPER 

0 

VCARO 

VOTHO 

disc.  Or  b i t er  vo 1 uae 

/SUdVW 

/( 

23  ) 

SUdOUT 

I 

VOTHO 

TAdPER 

0 

VOTHO 

VBOOYO 

Orbiter  body  voluae 

/sudvw 

/( 

29  ) 

SUdOUT 

I 

VBODVO 

TAdPER 

0 

VBOOYO 

LBOOYO 

Description  not  input 

/SUdVW 

/( 

25  ) 

SUdOUT 

I 

LBODYO 

TAdPER 

0 

LBOOYO 

SBODYO 

Total  body  aetted  area-  orbiter 

/SUdVW 

/( 

26  ) 

SUdOUT 

I 

SBODYO 

TAdPER 

0 

SBODYO 

SPLANO 

Orbiter  body  planfora  area 

/sudvw 

/( 

27  ) 

SUdOUT 

I 

SPLANO 

T AdPER 

0 

SPLANO 

UOVRSO 

Orbiter  aing  loading 

/SUdVW 

/( 

28  ) 

SUdOUT 

1 

UOVRSO 



TAdPER 

0 

WO  VRSO 

ulQRBTO 

In-orbit  aeight  - orbiter 

/SUdVW 

/( 

29  ) 

SUdOUT 

I 

UORBTO 

TAdPER 

0 

WORBTO 

UORBTB 

In-orbit  aeight  - booster 

/Sudvw 

/( 

30) 

TAdPER 

0 

WORBTB 

30  OCT  72  G. 01-96 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


DESCRIPTION 


sioBor.t;  subroutine  usage 
block loc  subr  cooe  na a 


yRTRNO 

Entry  wight-  orblter 

/SUrtvu 

n 

31  ) 

SUMOUT 

I 

yRTRNO 

tamper 

0 

yRTRNO 

URTRNB 

Entry  oe 1 ght-  boo  star 

/SUMvy 

n 

32) 

sunouT 

1 

yflTRNB 

TAMPER 

0 

URTRNB 

U1ENTRO 

Orblter  entry  petght 

/Sunvw 

/( 

33) 

SUMOUT 

I 

yENTRO 

tamper 

0 

UENTRO 

UENTRB 

Booster  entry  pet  ght 

/sunvti 

/( 

3 H ) 

SUMOUT 

I 

UENTRB 

tamper 

0 

UENTRB 

UILANDB 

Lending  pel ght  - boottcr 

/Sunvu 

/( 

35) 

SUMOUT 

I 

ULANDB 

TAMPER 

0 

ULANDB 

WLANDO 

Lending  pelght  - orblter 

/SUMvy 

/( 

36) 

SUMOUT 

I 

ULANOO 

TAMPER 

0 

WLANDO 

UCONTO 

Contingency  end  gropth  pe 1 ght-or b 1 tr 

/sunvy 

/< 

37  ) 

SUMOUT 

I 

UCONTO 

tamper 

0 

uconto 

UCONTB 

Contingency  end  gropth  pe 1 ght - boo  % t r 

/sunvy 

/< 

38) 

SUMOUT 

I 

WCONTB 

tamper 

0 

WCONT  b 

30  OCT  n G.Ol-AA 


BL0CK 

TAMP 


tin  IK  AN 

SVmroi 

MAIM 

YflHOL 

DESCRIPTION 

j 

t Oh  AGP 

suaroui i ^ 

USAGE 

HI.  0 V 

:k 

IOC 

SU8A 

coot 

VAR 

UGROSO 

Or  b 1 t er  gr  o 1 1 ■« i ght 

/TAMP 

/< 

i > 

S55P 

l 

UGROSO 

SUMOUT 

I 

WGROSQ 

UI T VOL 

rt 

WGROSO 

OTTOT 

Total  orbltar  thruat 

/TAMP 

n 

2 > 

SUMOUT 

1 

OTTOT 

TAMPER 

1 

OTTOT 

UT  VOL 

n 

OTTOT 

UFUOXO 

Propellant  at.  Lett  fpr  -orblttr 

/TAMP 

n 

3) 

SUMOUT 

I 

UFUOXO 

T AflPER 

I 

UFUOXO 

UT  VOL 

M 

UFUOXO 

T8T0 

Description  not  input 

/TAMP 

/( 

H ) 

UT  VOL 

M 

TBTO 

BTTOT 

Total  booster  weight  flo» 

/TAMP 

/( 

5 ) 

SUflOUT 

I 

BTTOT 

TAMPER 

I 

BTTOT 

WTVOL 

0 

BTTOT 

30  OCT  72  G . 0 1 -H6 


BL0CK 

TRUST 


H3R1MN  MATH 

SYMBOL  SYMBOL 


DESCRIPTION 


FVftCO 


Orblttr  vacuu*  thruftt  Mb) 


/THRST  /(  1 ) 


30  OCT  72  G.01-M6 


OAh  ' 


t DM h an  hath  nc  CPD  T DT  T flM  Hi — & ft GJ 

ovnnot.  j YftRoi  UcoUnl  r I 1UIM  blula  loc  sun*  cooe  vah 


F VACO 

Of t cr 1 p t 1 on  not  Input 

/TRUST 

/( 

1 ) 

THRUST 

it 

F VACO 

UTSCH 

I 

FVACO 

F5L0 

Orbittr  tea  level  thrust  (lb) 

/TRUST 

/( 

2 ) 

THRUST 

it 

FStO 

FVACIO 

Total  vacuua  lift-off  thrust  (lb) 

/TRUST 

/( 

3) 

thrust 

it 

FVACIO 

F V ACS 

Solid  aotor  total  vicuna  thrust  (lb) 

/TRUST 

/( 

H ) 

THRUST 

it 

F VACS 

FVACB 

Boostar  vacuus  thrust  (lb) 

/TRUST 

/( 

5 > 

THRUST 

n 

FVACB 

UT5CH 

n 

FVACB 

FSIB 

Booster  sea  level  thrust  (lb) 

/TRUST 

/( 

6 ) 

THRUST 

it 

FS  LB 

FSLLO 

Sea  level  lift-off  thrust  (lb) 

/TRUST 

/( 

7) 

THRUST 

it 

FSLLO 

F5LS 

Solid  aotor  sea  level  thrust  (lb) 

/TRUST 

/< 

6 ) 

THRUST 

it 

FSLS 

30  OCT  72  G. 01-t6 


BL0CK 

V0LCAL 


F OR  1 R AN 
SVMBOl 


MATH 

Svmbol 


DESCRIPTION 


S T PJi.M£— 

BLOCH  LO 


subroutine:  usage 
“SUBR  CODE  VAR 


BBOOV 

Body  atdth  used  by  setO  to  sot  coaoon  to  stro 

/VOICAL/I 

1 > 

PfiOTHR 

I 

BBODY 

SETO 

0 

0 

UTSCH 

M 

B800Y 

CROOT 

log  root  chord 

/VOLCAL/I 

2) 

PROTHR 

I 

CROOT 

UITSCH 

M 

CROOT 

CSPAN 

Structural  span  along  0.5  chord 

/VOLCAL/I 

3) 

PROTHR 

I 

CSPAN 

UTSCH 

M 

CSPAN 

CTIP 

Ui  rig  tip  chord 

/VOLCAL/I 

H ) 

UTSCH 

0 

CTIP 

GAL 

Tota 1 ga 1 Ions  of  fuel 

/V0LCAL/( 

5) 

UTSCH 

M 

GAL 

GSPAN 

Geoaetr ) c at ng  span 

/ VOLCAL/C 

6) 

UTSCH 

M 

GSPAN 

HBOOY 

Body  he i ght 

/ VOLC AL/< 

7 ) 

PROTHR 

I 

HBOOY 

UTSCH 

0 

HBOOY 

LBOOY 

Body  length 

/ V0LCAL/( 

6) 

PROTHR* 

I 

LBOOY 

tamper 

I 

LBOOY 

UTSCH 

M 

LBOOY 

RTOO 

Deg  to  rad  conversion 

/ V0LCAL/( 

9 ) 

UTSCH 

M 

RTOO 

SFAIR 

Total  fairing  or  shroud  surface  area 

/ V0LCAL/( 

10) 

UTSCH 

M 

SFAIR 

SFUTK 

Total  fuel  tank  Betted  area 

/ VO  LC AL/( 

11  ) 

PROTHR 

I 

SF  UTK 

UTSCH 

M 

5FUTK 

SHORZ 

Horizontal  stabilizer  planfora  area 

/V0LCAL/( 

12) 

PROTHR 

I 

SHORZ 

UTSCH 

M 

SHORZ 

SOXTK 

Total  ovtdizer  tank  aetted  area 

/V0LCAL/( 

13  ) 

PROTHR 

I 

SO  XT* 

UTSCH 

M 

SO  XTK 

SPLAN 

Body  p 1 anf ora  area 

/ V0LCAL/( 

IN) 

PROTHR 

I 

SPLAN 

TAMPER 

1 

SPLAN 

UTSCH 

0 

SPLAN 

WT  VOL 

I 

SPLAN 

STPS 

Total  theraal  protection  systea  surface  area 

/ VOLCAL/l 

IB) 

UTSCH 

M 

STPS 

SVERT 

Vertical  fin  planfora  area 

/VOLCAL/I 

16) 

PROTHR 

I 

SVERT 

UTSCH 

M 

SVERT 

SWING 

6ross  alng  area 

/VOLCAL/I 

17) 

PROTHR 

I 

SUING 

STORE 

M 

SUING 

UTSCH 

M 

SUING 

SXPOS 

Eiposed  alng  area 

/VOLCAL/I 

IS  ) 

PfiOTHR 

I 

SXPOS 

UTSCH 

0 

SXPOS 

TOEL 

Giabal  systea  delivered  torque 

/volcal/i 

19  ) 

UTSCH 

A 

TOEL 

TROOT 

Theoritlcal  root  thickness 

/volcal/i 

20) 

UTSCH 

M 

TROOT 

TTOT 

Total  stage  vac.  Thrust 

/volcal/i 

21  ) 

PRITVA 

I 

TTOT 

STORE 

I 

TTOT 

UTSCH 

A 

TTOT 

UT  VOL 

I 

TTOT 

TT0T2 

Total  stage  vac.  Secondary  thrust 

/volcal/i 

22) 

PRITVA 

| 

TT0T2 

UTSCH 

M 

TT0T2 

TTOT  AL 

Total  stage  vac.  Thrust  / 1 , 000,000 

/VOLCAL/I 

23) 

UTSCH 

0 

ttotal 

YBOOYA 

Total  body  voluae  less  structure 

/ VOLC AL/ I 

2H  ) 

UTSCH 

M 

VBODYA 

VBOOYi 

Vbody  to  “ 1/3  poser 

/VOLCAL/I 

25  ) 

UTSCH 

M 

VBODY! 

UT  VOL 

M 

VBOOYI 

VB0DY2 

Vbody  to  - 2/3  poaer 

/ VOLCAL/t 

26) 

UTSCH 

M 

VB0DY2 

UT  VOL 

M 

VB0DY2 

VC AR  GO 

Vo  1 uae  of  c ar  go  bay 

/VOLCAL/I 

27) 

PR  I NT  V 

I 

VC AR  GO 

TAMPER 

I 

VC AR  GO 

UTSCH 

M 

VC  AR  GO 

VCREW 

Voluae  of  crea  coapartaent 

/VOLCAL/I 

28  ) 

PR  I NT  V 

I 

VCREW 

UTSCH 

n 

VCREU 

VFUTK 

Total  voluae  of  fuel  tank 

/VOLCAL/I 

29) 

PR  I NT  V 

I 

VFUTK 

STORE 

A 

VFUTK 

TAMPER 

I 

VFUTK 

UTSCH 

M 

VF  UT  X 

30  OCT  72  G.01-N6 


/£/<■/ 


VFUTK2 

Total  vo  1 

ute  of 

st  co  nder y 

fuel  tank 

/V0lCAL/< 

30  ) 

PR  I NT  V 

I 

VFUTK2 

STORE 

M 

VFUTK2 

T AMPER 

1 

VFUTK2 

UTSCH 

M 

VFUTK2 

VINSTK 

Total  tank  Insulation  vo 1 

ute 

/V0LCAL/< 

31  > 

PR1NTV 

I 

vinstx 

UTSCH 

rt 

VINSTK 

VLGBAY 

Volute  of 

recovery  systet 

bay 

/ VOLCAL/l 

32) 

PR  1 NT  V 

1 

VIGBAY 

UTSCH 

n 

VLGBAY 

VOTHER 

disc.  And  unused  volute 

/ VO  LC AL/< 

32) 

VOTHER 

Description  not 

i npgt 

/V0UCAL/( 

33  ) 

PRINTV 

i 

VOTHER 

UTSCH 

M 

VOTHER 

VOXTK 

Total  volute  of 

oxidizer 

t enk 

/ VOLCAL/ ( 

3M  > 

PRINTV 

I 

VOXTK 

STORE 

M 

VOXTK 

TAMPER 

1 

VOXTK 

UTSCH 

n 

VOXTK 

V0XTK2 

Total  vo  1 

ute  of 

secondary 

o x 1 d i zer  tank 

/ VOLCAL/l 

35  ) 

PRINTV 

I 

V0XTK2 

STORE 

M 

V0XTK2 

TAMPER 

I 

V0XTK2 

UTSCH 

rt 

V0XTK2 

VPROP 

Volute  of 

propulsion  boy 

/V0LCAL/( 

3b) 

PRINT  V 

I 

VPROP 

UTSCH 

n 

VPROP 

VSTRUC 

Volute  of 

basic 

str  ucture 

/V0LCAL/( 

31  ) 

PRINTV 

I 

VSTRUC 

* 

UTSCH 

n 

VSTRUC 

30  OCT  72  G.01-H6 


BL0CK 

WTCALC 


/ 4/C/C 


\ 0R1RAN 
jVflrtOL 


DESCRIPTION 


STORAGE 
BLOC*  LOC 


UBRQJT 1 N £ US  AG 
j J6R  CJUE  VAR 


c 

A 1 r br  e a t h 1 ng  fuel  systea  ■eight  used  by  » e 1 0 to 

set 

/ WT  C ALC/( 

1 ) 

SETO 

0 

C 

corioo  to  uro 

WTSCH 

rt 

ABF  SYS 

WABFTK 

Weight  of  air  breathing  propulsion  systea  tanks 

/ WT  C ALC/( 

2) 

PR  1 NT  W 

I 

WABFTK 

WTSCH 

n 

WABFTK 

WABFU 

Weight  of  jp  futl 

/WTCACC/( 

3) 

PR  I NT  W 

I 

WABFU 

PRUTS* 

« 

WABFU 

TArtPER 

I 

WABFU 

WTSCH 

« 

WABFU 

UA6PR 

Weight  of  air  breathing  engines 

/WT  CALC/< 

H ) 

PRINT* 

1 

wabpr 

WT5CH 

* 

WABPR 

U ACRES 

Weight  of  attitude  control  fuel  reserve 

/ WT  C ALC/( 

5) 

PR  I NT  W 

I 

WACRES 

STORE 

n 

WACRES 

WTSCH 

* 

WACRES 

WACS 

Weight  of  attitude  control  systea. 

/ WT  CALC/( 

6) 

PRINT* 

I 

WACS 

WTSCH 

« 

WACS 

UIACSFO 

Weight  of  attitude  control  fuel  plus  oxidizer 

/WTCALC/< 

7) 

PRINT* 

I 

WACSFO 

STORE 

« 

WACSFO 

WTSCH 

n 

WACSFO 

uacstk 

Weight  of  attitude  control  t ankage 

/WTCALC/( 

8) 

PRINT* 

i 

UACSTK 

WTSCH 

n 

UACSTK 

uaero 

Weight  of  aerodynaafe  controls 

/WTCALC/< 

9) 

PRINT* 

I 

UAERO 

WTSCH 

n 

WAERO 

UAUXT 

Weight  of  separation  systea 

/ WT  CALC/C 

10) 

PR INTW 

i 

UAUXT 

STORE 

I 

UAUXT 

WTSCH 

* 

UAUXT 

WBASIC 

Total  aelght  of  basic  body 

/ WTC ALC/( 

11  ) 

PRINT* 

i 

WBASIC 

prothr 

i 

WBASIC 

• 

WTSCH 

n 

WBASIC 

WBODY 

Total  aelght  of  body  group 

/ WTC ALC/( 

12) 

PRINT* 

i 

WBODY 

WTSCH 

ii 

WBODY 

UBPUflP 

Weight  of  boost  and  transfer  puaps 

/ WT  CALC/( 

13) 

WTSCH 

n 

WBPUAP 

WCARGO 

Pavload  aelght  or  cargo 

/WTCALC/( 

19) 

PRINT* 

I 

WCARGO 

WTSCH 

w 

WCARGO 

wconn 

Coaauni c at i o n systea  aelght 

/UTCALC/( 

15) 

PRINT* 

I 

uconn 

, 

WTSCH 

n 

w COflrt 

WCONT 

Contingency  and  groath  aelght 

/WTCALC/( 

16  ) 

PRINT* 

l 

WCONT 

tamper 

I 

WCONT 

WTSCH 

<i 

WCONT 

UCOVER 

Total  aeight  of  theraal  protection  systea  cover 

pane  1 s 

/WTCALC/( 

17) 

PRINT* 

I 

WCOYER 

WT5CH 

* 

WCOVER 

WDECAY 

Thrust  decay  propellant  ael ght 

/WTCALC/( 

18  ) 

PRINT* 

I 

WDECAY 

STORE 

* 

WOECAY 

WTSCH 

n 

WDECAY 

UD1ST1 

Fuel  systea  distribution  aelght  ptt 

/WTCAlC/( 

19) 

UTSCH 

* 

W0IST1 

W0IST2 

Fuel  systea  distribution  aelght  pt2 

/ WTC ALC/( 

20) 

WTSCH 

« 

W0IST2 

WDOCK 

Docking  structure  aelght 

/WTCALC/( 

21  ) 

PRINT* 

I 

WOOCK 

UTSCH 

a 

WOOCK 

WOPLOY 

/ WT  C ALC/( 

22) 

PRINT* 

I 

WOPLOY 

UTSCH 

n 

WOPLOY 

UORANS 

Fuel  tank  duap  and  drain  aelght 

/WTCALC/< 

23) 

UTSCH 

* 

WORANS 

UORY 

Stage  dry  aelght 

/WTCALC/( 

ZH  ) 

PRINT* 

I 

WORY 

TAfIPER 

I 

UDRY 

WTSCH 

* 

WQRY 

UlELCAD 

Description  not  Input 

/wtcalc/c 

25  ) 

PRINT* 

I 

WELCAO 

WErtPTY 

St  age  eapty  ae 1 ght 

/ WTCALC/( 

26) 

WTSCH 

* 

UErtPTY 

WENGrtT 

Engine  aount  aelght 

/WTCALC/( 

27) 

WTSCH 

(9 

WENGHT 

UENGS 

Weight  of  rocket  engines  Installed 

/wtcalc/( 

28) 

PRI NT* 

I 

UENGS 

WTSCH 

n 

WENGS 

30  OCT  72  G. 01-96 


► Uh  I h AN 
SYMBOL 


MA  I H 
YMBOl 


DESCRIPTION 


STORAGE  SUBROUTINE  U5  AGE 

BLOCK  LOC  SUBR  CODE  YAH 


WENGS2 

Weight  of  accondary  engine* 

/utcalc/c 

29  ) 

PR  I NT W 

I 

WENGS2 

UTSCH 

M 

WENGS2 

UFAIR 

Weight  of  fairings  and  shrouds 

- 

/ WT  CALC/C 

30) 

PR  I NT W 

I 

UFAIR 

UTSCH 

« 

WFA1R 

UFCONT 

/WTCALC/( 

31  ) 

WTSCH 

W 

UFCONT 

WFOCAY 

Thrust  decay  fuel  melght 

/ WT  C ALC/ ( 

32) 

UTSCH 

M 

WFOCAY 

UFROST 

Frost  and  ice  melght 

/ WT  CALC/ ( 

33) 

PR  I NT W 

I 

UFROST 

STORE 

n 

WF  ROST 

WTSCH 

n 

UFROST 

UFU2 

Weight  of  secondary  fuel 

/ WT  C ALC/( 

3 9) 

PR  I NT  W 

I 

WFU2 

TAMPER 

I 

WFU2 

UTSCH 

* 

WFU2 

WFUEL 

Fuel  weight  1.  Thrust  build-up  fuel  2. 

Not  used  3. 

/wtcalc/c 

37) 

PRUTS* 

* 

WFUEL 

Main  impulse  fuel  mt . 9.  main  impulse 

5.  Secondary  Impulse  fuel  6.  Not  used 

fuel  reserve 

UTSCH 

* 

WFUEL 

UFUL 

Fuel  melght 

/UTCALC/C 

93) 

PR  I NT W 

I 

UFUL 

/ 

WTSCH 

* 

UFUL 

UFULOS 

Vented  fuel 

/WTCALC/C 

99) 

PRINTU 

I 

UFULOS 

STORE 

n 

UFULOS 

WTSCH 

« 

UFULOS 

UFUNCT 

Fue 1 tank  me! ght 

/WTCALC/I 

95  ) 

WTSCH 

M 

UFUNCT 

UFUOX 

We i ght  of  main  and  secondary  propellant 

/WTCALC/I 

96) 

PR  I NT  W 

I 

UFUOX 

TAMPER 

I 

UFUOX 

WTSCH 

M 

UFUOX 

WT  VOL 

I 

UFUOX 

UFURES 

Fuel  reserve 

/WTCALC/C 

Hi) 

PRINTU 

I 

UFURES 

STORE 

m 

WFURES 

TAMPER 

1 

UFURES 

UTSCH 

* 

UFURES 

UFUSYS 

Total  fuel  system  melght 

/WTCALC/C 

98  ) 

PRINTU 

I 

WFUSY5 

WTSCH 

M 

UFUSYS 

UFUTK 

Wt  of  non* struct  oral  fuel  tankage 

/WTCALC/C 

99) 

PRINTU 

I 

UFUTK 

WTSCH 

« 

WFUTK 

UFUTK2 

Ut  of  secondary  fuel  tank  and  system 

/WTCALC/C 

50  ) 

PRI NTU 

I 

WFUTK2 

UTSCH 

M 

WFUTK2 

ufutot 

Total  neight  of  fuel 

/WTCALC/C 

51  ) 

UTSCH 

M 

UFUTOT 

UFUTRP 

Trapped  fuel  melght 

/WTCALC/C 

52) 

PRINTU 

I 

UFUTRP 

STORE 

M 

UFUTRP 

UTSCH 

M 

UFUTRP 

UGASPR 

/ WT  CALC/ ( 

53  ) 

PRINTU 

I 

WGA5FR 

STORE 

M 

W3A5PR 

UTSCH 

n 

WGASPR 

WGNAV 

Guidance  and  navigation  system  at 

/WTCALC/C 

59) 

PRI NTU 

I 

WGNAV 

WTSCH 

M 

WGNAV 

WHORIZ 

Horizontal  stabilizer  mt . 

/WTCALC/C 

55  ) 

PRINTU 

I 

UHORZ 

PROTHR 

I 

whorz 

UTSCH 

M 

UHQRZ 

UH YC AO 

Hydraulic  / pneumatic  system  at 

/WTCALC/C 

56  ) 

PRI NTU 

I 

WHYCAO 

WTSCH 

M 

WHYCAD 

UINFUT 

Weight  of  intergral  fuel  tank 

/WTCALC/C 

57) 

PRINTU 

I 

uinfut 

PROTHR 

I 

uinfut 

UTSCH 

M 

uinfut 

U I NO  XT 

Weight  of  integral  osidizer  tank 

/WTCALC/C 

58  ) 

PRINTU 

1 

UINOXT 

PROTHR 

1 

WINOXT 

WTSCH 

M 

winoxt 

UINSTK 

Total  meight  of  tank  insulation 

/WTCALC/C 

59  ) 

PRINTU 

I 

WINSTK 

UTSCH 

M 

W1N5TK 

WINST 

Weight  of  instrument  system 

/UJCALC/C 

60  ) 

PRINTU 

I 

winst 

WTSCH 

M 

winst 

UINSUL 

Description  not  Input 

/WTCALC/C 

61  ) 

PRINTU 

I 

UINSUL 

WTSCH 

M 

WINSUL 

30  OCT  12  G.01 -96 


/<yv7 


f UH  I H A* 
[ ,YrmOL 


HATH 

SYHBOL 


WJET 


WLANCH 

ULG 

ULOSS 

WLRO 

WNACEL 

UOOCAY 
WO  I L 

UOILRS 

WORSUL 

WOVERS 

UQX 

UQX2 


WOXIO 

WOXLOS 

WOXRES 

WOXSYS 

WO  XT  K 

W0XTK2 

UIO  X TOT 
WOXTRP 

WP 

WPASS 

WPAYL 

WPERS 


DESCRIPTION 


Jettison  Height  1.  Ignition  to  lift-off  2.  Not  used 
3.  Jettison  durlnq  ascent  9.  In-orbit  jettison  it . 
5.  Pre-entry  jettison  at . 6.  Fly-back  jettison  ot . 


Launch  gear  ae  i ght 

Landing  gear  and  controls  Height 

2 n-f  I i ght  are  > ght  loss 


Launch  and  recovery  systea  ae I ght 

Pylons,  nace  I , and  pod  Heights 

Oxidizer  thrust  decay  acight 
Ser  vice  i tea  losses 

Service  itea  reserves 

Orientation, control,  and  separation  systea  Height 
Wing  loading 


Thrust  build-up  oxidizer  I . Thrust  build-up  oxidizer 
2.  Not  used  3.  Plain  iapulse  oxidizer  9 . Plain 
iapuJse  oxidizer  reserve  5.  Secondary  Iapulse 
oxidizer  6.  Not  used 

Secondary  oxidizer  Height 


Plain  iapulse  oxidizer  aelghter 
Vented  oxidizer 


Oxidizer  reserve 


Oxidizer  systea  Height 

No n- s t ur c t ur a l tank  at,-  oxidizer 

Secondary  systea  oxidizer  tank  at 

Total  Height  of  oxidizer 
Trapped  oxidizer  Height 

Total  propellant  Height 
Weight  of  passengers 

Payload  Height 

Cren  gear  and  life  support  Height 


$ T JR ATf 
Block  l o C 

/WTCALC/(  62  ) 

/ WT  C AL  C / ( 68) 

/WTCALC/I  69) 

/WTCALC/t  70  ) 

/WTCALC/t  71  ) 

/WTCALC/I  72) 

/ WT  C ALC / ( 73) 

/UTCALC/(  79) 

/ WT  C ALC/ ( 75) 

/ WT  C ALC / ( 76) 

/WTCALC/I  77) 

/ WT  CALC/ ( 78) 

/WTCALC/I  89) 

/WTCALC/I  87) 

/WT  C ALC/ ( 88) 

/ WT  C ALC/ ( 89) 

/ WT  C ALC/ ( 90) 

/ WTC ALC/ ( 91  ) 

/WTCALC/(  92) 

/WT CALC/I  93) 

/WTCALC/I  99) 

/WTCALC/t  95) 

/WTCALC/I  96) 

/WTCALC/I  97) 

/WTCALC/t  98  ) 


SUBROUTINE  USAGE 
S'JBh  CODE  VAR 


PR J T VA 

I 

WJET 

PRUTS* 

* 

WJET 

STORE 

0 

WJET 

tamper 

I 

WJET 

WTSCH 

* 

WJET 

PRI NTW 

I 

WLANCH 

WTSCH 

* 

WLANCH 

PR1NTW 

I 

WLG 

WTSCH 

* 

ULG 

PR  1 NT  W 

I 

WLOSS 

PRUTS* 

I 

WLOSS 

WTSCH 

0 

WLOSS 

PRINTW 

I 

WLRO 

WTSCH 

* 

WLRD 

PRINTW 

I 

WNACEL 

WTSCH 

* 

WN ACE  L 

WTSCH 

* 

WODCAY 

PRINTW 

I 

WO  I L 

WTSCH 

* 

W01L 

PRI NT W 

I 

UOILRS 

WTSCH 

* 

WOILRS 

PRINTW 

I 

WORSUL 

WTSCH 

* 

WORSUL 

PR0TMR 

I 

WOVERS 

T A PIPER 

I 

WOVERS 

WTSCH 

* 

WOVERS 

PRUTS* 

* 

WOX 

WTSCH 

* 

UOX 

PRINTW 

I 

W0X2 

TAMPER 

I 

W0X2 

WTSCH 

* 

W0X2 

PRI NTW 

I 

WO  X I D 

WTSCH 

* 

woxio 

PRINTW 

1 

WOXLOS 

STORE 

* 

WOXLOS 

WTSCH 

* 

WOXLOS 

PRINTW 

I 

WOXRES 

STORE 

* 

WOXRES 

TAMPER 

I 

WOXRES 

WTSCH 

PI 

WOXRES 

PRINTW 

1 

WOXSYS 

WTSCH 

PI 

WOXSYS 

PRI NTW 

I 

WO  XT  K 

WTSCH 

* 

WOXTK 

PRINTW 

I 

WO  XT  K 2 

WTSCH 

* 

W0XTK2 

WTSCH 

* 

WOXTQT 

PRINTW 

I 

WOXTRP 

STORE 

* 

WOXTRP 

WTSCH 

* 

WO  XT RP 

WTSCH 

* 

WP 

PRINTW 

I 

WPASS 

WTSCH 

pi 

WPASS 

PRINTW 

I 

WPAYL 

TAMPER 

I 

WPAYL 

WTSCH 

* 

WPAYL 

PRINTW 

1 

WPERS 

WTSCH 

* 

WPERS 
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roniHAN  NAIM 

SVHROL  SYMBOL 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

auK*  nrr*  subr  coue  var 


UPOWCO 

Poaer  conditioning  equtpwent  mi. 

/utcalc/i 

99) 

PR1NTW 

I 

UPOUCQ 

UTSCH 

PI 

UPOUCD 

UPOUER 

Description  not  Input 

* 

/wtcalc/i . 

100) 

PRINTW 

I 

UPOUER 

UTSCH 

n 

UPOUER 

WPOWFO 

Power  systc*  propellant  mi. 

/UTCAlC/< 

101  ) 

PRINTU 

I 

UP  0 UFO 

STORE 

pi 

UP  0 UFO 

UTSCH 

pi 

UPOUFO 

UPOURS 

Power  systew  propellant  rciirva 

/utcalc/i 

102) 

PRINTU 

l 

UPOURS 

STORE 

pi 

UPOURS 

UTSCH 

pi 

UPOURS 

UPOUT  K 

Prise  poser  systes  tank  weight 

/UTCALC/< 

103) 

PRINTU 

I 

WPOUTK 

UTSCH 

n 

UPOUT* 

UIPPRO  V 

P*r50OD*J  pro  $ l on* 

/WTCALC/1 

109) 

PRINTU 

J 

WPPBOV 

UTSCH 

« 

UPPROV 

UPREIG 

Pr  e-  i gnitlon  losses 

/UTCAlC/( 

105  ) 

PRINTU 

I 

UPREIG 

PRUTS* 

pi 

UPREIG 

UTSCH 

n 

UPREIG 

UPRQP 

Total  weight-  propulsion  group 

/utcalc/< 

106) 

PRINTU 

I 

UPROP 

UTSCH 

pi 

UPROP 

UPR5VS 

Pressurization  systes  Height 

/WTCALC/< 

107) 

PRINTU 

I 

UPRSVS 

UTSCH 

* 

UPRSYS 

WREFUL 

Fuel  systes  refueling  systes  weight 

/UTCALC/( 

100) 

UTSCH 

pi 

UREFUL 

URESIO 

Ue  1 ght  of  res i dual s 

/UTCAlC/( 

109  ) 

PRINTU 

I 

URESID 

UTSCH 

pi 

WRESID 

URESRV 

Propelt  ant  reserve 

/UTCAlC/l 

11  0 ) 

PRINTU 

I 

URESRV 

UTSCH 

pi 

URESRV 

USEAL 

Fuel  tank  seal  weight 

/utcalc/i 

111  ) 

UTSCH 

n 

USEAL 

USECST 

Secondary  body  structure  wt 

/UTCAlC/( 

112) 

PRINTU 

I 

USECST 

PfiOTHR 

I 

USECST 

UTSCH 

pi 

USECST 

USORCE 

Prise  power  systes  weight 

/utcalc/< 

113) 

'PRINTU 

I 

USORCE 

UTSCH 

pi 

USORCE 

USRTRP 

Trapped  oxidizer  weight 

/UTCALC/( 

119) 

PRINTU 

I 

USRTRP 

STORE 

pi 

USRTRP 

UTSCH 

* 

USRTRP 

USTAB 

Engine  giwbel  systes  wt 

/UTCALC/< 

115  ) 

PRINTU 

I 

USTAB 

UTSCH 

pi 

USTAB 

USURP 

Aero  surface  wt 

/UTCALC/( 

116  > 

PRINTU 

I 

USURF 

UTSCH 

pi 

USURF 

UT  ABC 

Net  stage  weight 

/utcalc/( 

117  ) 

UTSCH 

0 

UT  ABC 

UTHRST 

Thrust  structure  wt 

/UTCALC/( 

116  ) 

PRINTU 

i 

UTHRST 

UTSCH 

* 

UTHRST 

UTO 

Take-  off  weight 

/utcalc/( 

119) 

PRINTU 

i 

UTO 

UTSCH 

pi 

UTO 

UTP5 

Induced  e n v i r o nwe nt a 1 protection  wt 

/UT  CALC/  ( 

120  > 

PRINTU 

i 

UTPS 

UTSCH 

PI 

UT  P S 

UVERT 

Vertical  fin  we i ght 

/UTCALC/< 

121  ) 

PRINTU 

I 

UVERT 

PROTHR 

I 

UVERT 

' 

UTSCH 

PI 

UVERT 

UUAJT 

Sussary  weights  1.  Ignition  2.  Take-off 

3. 

Bur  no  ut 

/UTCALC/( 

122  ) 

PRIT VA 

I 

UUAIT 

9 . Initial  orbiter  5.  Initial  entry  6. 

Initial 

PRUTS* 

I 

UUAIT 

flyback  7.  Landing 

STORE 

PI 

UUAIT 

TAflPER 

I 

UUAIT 

UTSCH 

PI 

UUAIT 

UlUET 

Operating  weight-ewpty 

/utcalc/( 

132  ) 

PRINTU 

I 

UUET 

UTSCH 

PI 

WUET 

UUING^  _ 

Total  structural  wt.  Of  wing 

/ UT  C ALC/  (_ 

133  ) 

PRINTU 

I 

UUJ  ng 

PfiOTHR 

I 

UUI  NG 

UTSCH 

PI 

UUING 

UZROFU 

Zero  fuel  weight  of  vehicle 

/utcalc/( 

139) 

UTSCH 

PI 

UZROFU 

30  QCT  72  6.01-96 


SUBROUTINE 
DATA  IN 


/4/ 


FOM  RAN 
SYMBOL 


DESCRIPTION 


HATH 

SYMBOL 


CODE 


BlOCA 


FRENCH 

S 

Subrout l ne 

to 

Inltl 

elite  vehicle  siting  det  e 

/FRENCH/! $ 

) OATAIN 
FRENCH 

S 

E 

FRENCH 

FRENCH 

thrust 

s 

Subrout  1 nc  to 
vehicle  thrust 

deter 

nine  booster,  orblter,  end 

/THRUST/! * 

) DAT  A 1 N 
THRUST 

S 

E 

THRUST 

THRUST 

VEHDF 

s 

Subro  ut  1 ne 

to 

cell 

end  Inltleliie  synthesis  dete 

/VEHDF  /( $ 

) DAT  AT  N 
VEHOF 

S 

E 

VEHDF 

yEMDF 

30  .OCT  72  G.01-M6 


DAT  ft  I N 


70. 

71. 

72. 

73. 


0  OCT  72  6.01-46 


1. 

2. 

3. 

4. 

5. 

6. 
7. 
8 

9. 

10. 

11. 

12. 

13. 

14. 

15. 


24. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 

40. 
41  . 

42. 

43. 


PROGRAM  OATAIN 

SUBROUTINE  TO  READ  IN  CASE  DATA 
COnnON/ GLOBAL/ 

«GR  , ER  ,0«6Z  , XLAWRF  YWURF  ,IUH 

♦ .JJOPUO)  IFATAL  NARC  NOR  AN  , NF  ARC  ,10(9) 

*,KTAB<20),ITAB<20>  ,$IG  ,HAXTA& 

*,G  n ,P$IRF,IPFLG1,  1PFLG2, 1PFL63,  1PFLG4,  INEQFU20) 

* , I TPSO  ,KSOL  , KGlOBLl 8 > 

cowwon/juwpy/  juwp,hbig,  hboo 

REAL  KIN 

REAL  ISP,K,LF,WR,NCREH,L6Q0V,NPASS 

REAL  NENGS 

COnrtON/CINPUT/ 

,CFUEL(  6) 
, CSO  XTK 
F XUQ  VS 
,NCREU 
R HOF  U 
TPfi ATO 


I tU' »©<  iv  r.  i v } , I U J l/l  IV/,  IV/ 

COWWON/ORBINX/ 

1 TOl.TO2,TO3,TO4fTO5,TO6.TO7TO0,TO9.TOlO.TOll.TO12.TO13.TO14 

2 T015,T016,Tul 7,T018,T019,T020,T02I, 1022, 1023,10241025, 1026, T027 

3 I028,I029,IQ30,I031,I032,T033,T034,T035,T036,I037,T03e,T039,T040, 

4 T0417T042. 7043,1044. T045.T046/T047.T048.T049/T050/T05i/T0 52, T053, 

5 T054,  T055,T056,T057,T066,SK0,SC0.0USAVE 

6,7059,7060,1061,1062,1063,1064,1065,7067,7068,1069,1070,1071, 

7 7072,7073,1074,7075,7076,1077,7078,1079,7080,1081,1082,7083, 

8T084 

01  WENS  ION  SKB<  30),SCB(  300  ),  TB4(  6 ),  TB20(  10  ),TB27(  6 ),7B34(  6 ), 

1 TB48(  10),TB49(  10  ) T B50(  10),TB57<  6),  BUSAVEl  10  1 
COWWON/ORBINV/ 

1 781,782,783,784,765,786,787,788,789,7810,1811,7812,7613,7814, 

2 TBl5,TB16,TB17,fB18,TBl9,TB20,TB21,I822,iB23,IB24lB25,IB26,TB27,  ORBINY 

3 IB28,IB29,IB30,IB31,IB32,TB33,7B34,TB35,7B36, IB37,TB38,TB39,TB40,  ORBINY 

4 TB41,TB42,TB43,TB44,TB45,TB46,TB47,fB48,TB49,TB50,TB51,TB52,TB53, 

5 TB54,TB55,TB56,TB57,SKB.SCB,BNSA¥E 

6 TB59  TB60  TB61  TB62  TB63  TB64  TB65  TB66,TB67  T668  TB69  TB70, 


16. 

1ANENGS 

, ANTANK 

r ASA ATO 

,ASUEEP 

,C(  300  ) 

CBBQDY 

17. 

2CHB00Y 

, CLBODY 

, CS  BOGY 

, CSFA1  R 

, CSFUT  k 

CS  H0R  Z 

18. 

3CSPLAN 

, CS VERT 

r C S W I NG 

,CTMRST 

, CTHST2 

, DEF{ 5 ) 

19. 

41 SPt 6) 

, ITPS 

r K(  30  ) 

,K1N 

,LF 

WR(  6 ) 

20. 

5NENGS 

, NLI  STO 

, NP  ASS 

,nwl 

, P CH AN 

,0 

21. 

6RH0FU2 

. RHOX 

, R HO  X2 

, S BOOY 

, tol 

,TOVERC 

22. 

23. 

7TVTAIL  , V60DY 
01  WENS  I ON  SK0<  30), 

, W6R05S 
,SCO( 300) 

,T04(  6), 

, T020(  10  ), 

T027(  6), 

CKOUT 

OATAIN 

OATAIN 

OATAIN 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

OATAIN 

CINPUT 

Cl  NPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

ORBINX 

CKOUT 

ORBINX 

ORBINX 

ORBINX 

ORBINX 

ORBINX 

CKOUT 

UH 

UH 

UH 

ORBINY 

CKOUT 

ORBINY 

ORBINY 


ORBINY 
UH 
UH 
UH 


44. 

45. 

8T883, TBR4 
COnn&N/WTCALC/ 

" ’1  * I 

ABFSYS 

, UABF7K 

, HABFU 

UABPR 

“ # — 9 

HACRES 

UH 

HTCALC 

46. 

1UACS 

UACSFO 

, uacstk 

, UAERO 

, UAUXT 

,HBAS1C 

, HBODY 

UT  CALC 

4T  . 

2UBPUHP 

UCARGO 

,ucown 

, UCONT 

,UCOVER 

, HOECAY 

, HOI ST1 

HTCALC 

48. 

3UDIST2 

, UDOCK 

, WOP  LO V 

, HORANS 

,UORY 

, HELCAO 

HEWPTY 

HTCALC 

49. 

4WENGWT 

. WEN6S 

. UENGS2 

, UFAI R 

, HFCONT 

, UFOCAY 

, UFR0S7 

HTCALC 

50. 

5WFU2I  3) 

. UFUELt  6 ) , UFUL 

, UFULOS 

, WFUNCT 

HF  UO  X 

, HFURES 

HTCALC 

51. 

6HFUSYS 

, WFUTK 

, UFUTK2 

, UFUTOT 

, WFUTRP 

, H6A5PR 

HGNAV 

HTCALC 

52. 

7UH0R2 

, UHYCAD 

, HI NF UT 

HI  NO  XT 

, HI  NST  K 

, HI NST 

HI  NS  UL 

HTCALC 

53. 

8UJET ( 6 ) 

ULANCH 

, ULG 

, WLOSS 

,ULRD 

HNACEL 

, HOOCAV 

HTCALC 

54. 

96I0IL 

, UO I LRS 

, UORSUL 

, HOVERS 

,HOX(  6) 

,U0X2<  3 ) 

, HQ  X I 0 

HTCALC 

55. 

IWOXLOS 

, UOXRES 

, UOXS VS 

, HO  XTK 

,H0XTK2 

U0XT07 

HOXTRP 

HTCALC 

56. 

2 UP 

, UP ASS 

,UPAYL 

, HPERS 

, upouco 

, UPOUER 

UPQHFO 

HTCALC 

57. 

3UP0URS 

UP0UTK 

, UPPRO V 

, HPRE I G 

, HPR0P 

UPRSYS 

, HREFUL 

HTCALC 

58. 

4URESID 

, URESR V 

, USE AL 

, WSECST 

, HSORCE 

,hsrtrp 

.HSTAB 

HTCALC 

59. 

5W5URF 

, WTA6C 

, UTHRST 

,HTO 

, HTP5 

, HVERT 

. HWAI  T<  10). 

HTCALC 

60. 

6UUET 

, UUI N6 

, U2R0FU 

, HABTRP 

, HABRES 

, UHNQTP 

UWNFTP 

CKOUT 

61. 

7UWN0RS 

UWNFRS 

, UACOTP 

,hacftp 

,uphotp 

, UPHFTP 

, USAS 

CKOUT 

62. 

8UABFUC 

. WACORS 

.UACFRS 

, up hors 

, HPHFRS 

CKOUT 

63. 

CO WHO N/ VuLCAL/BBObY.CROOT 

, CSP  AN 

, CT I P 

,6AL 

, SSP  AN 

VOLCAL 

64. 

2HB0DY 

, LBODY 

, fl  TOO 

,SFAIfi 

, SFUTK  * 

, SHOP 2 

, SOXTM 

VOLCAL 

65. 

3SPLAN 

, STPS( 1 ) 

, S VERT 

, SUING 

,SXPOS 

, TOEL 

, TROOT 

VOLCAL 

66. 

4TT0T 

, TT0T2 

, TTOT  AL 

, VBOOYA 

, VB0DY1 

, VB0DY2 

, VCARGO 

VOLCAL 

67. 

5VCREU 

, VFUTK 

, VFUTK2 

, V I NS  T K 

, VLSBAY 

, VOTHER 

, VOX! K 

VOLCAL 

66. 

6V0XTK2 

. VPROP 

, VS7RUC 

VOLCAL 

69. 

CALL  FRENCH 

DATAIN 

CALL  VEHOF 
CALL  THRUST 
RETURN 
END 


DATAIN 

OATAIN 

OATAIN 

OATAIN 


SUBR0UTINE 

FLYBKP 


FORTRAN 

SYMBOL 


NATH 

SYMBOL 


COOE 


DESCRIPTION 


SCB 


SE 


SO 


$V 


TB3A 


M Working  n»a«  for  input  c-array  booster  sealing  /0RBINV/< 

coefficients 


0 Array  of  synthesis  iteration  propulsion  parameters  /SIZING/! 


M A synthesis  data  array  (37,5)  that  contains  the  /SIZING/! 

flyback  data  and  tone  Injection  quantities 


1 A synthesis  array  (28)  containing  staging  /SIZING/! 

paraneters  and  nisc  flags 


I S 


(i) 


/QRBINV/( 


1 AH  ) FLYBKP 

M 

SCB 

STORE 

M 

SCB 

SUMOUT 

I 

SCB 

TAMPER 

I 

SCB 

THRUST 

n 

SCB 

VEHOF 

I 

SCB 

NT  VOL 

M 

SCB 

259)  FLVBKP 

0 

SE 

PRITVA 

1 

SE 

SIZEMR 

I 

SE 

SUMOUT 

I . 

SE 

tamper 

M 

SE 

THRUST 

I 

SE 

VEMDF 

M 

SE 

MTSCH 

I 

SE 

UT  VOL 

M 

SE 

7A>  ENVPRM 

M 

SO 

FLVBAP 

M 

so 

1 SPRAT 

I 

so 

POBC 

I 

so 

PRITVA 

I 

so 

RANGE 

M 

SQ 

REU3 

0 

SO 

SUE 

0 

SQ 

SIZEMR 

M 

SO 

SIZ1N 

M 

SQ 

stau 

I 

SO 

SUMOUT 

M 

SQ 

TAMPAR 

0 

SO 

TAMPER 

M 

SQ 

THRUST 

M 

SQ 

TRTOSZ 

M 

SQ 

VEHOF 

M 

SQ 

UTVOL 

M 

SQ 

At)  ENVPRN 

M 

SV 

FLY&KP 

1 

SV 

1TER8 

I 

SV 

RANGE 

I 

SV 

SIZEMR 

M 

SV 

SIZIN 

I 

SV 

SSSP 

l 

SV 

SUMOUT 

l 

SV 

TAMPAR 

0 

SV 

TAMPER 

M 

SV 

TRTOSZ 

M 

SV 

VEHOF 

M 

SV 

‘NT  VOL 

I 

SV 

53)  FLVBKP 

I 

TB3a 

ITER8 

0 

T&3M 

SSSP 

M 

T83A 

STORE 

M 

TB3  A 

SUMOUT 

1 

TB3  A 

TAMPER 

I 

TB3A 

VEHOF 

I 

T63A 

UTVOL 

M 

T B3  A 

8 NOV  72  6.01-A6 


f LVBKP 


Vt 


SUBROUTINE  FLVBKP 

SUBROUTINE  TO  CALCULATE  FLYBACK  PERFORMANCE  PARAMETER 

REAL  HUB,  MUO.  ISPB,  ISPO,  I0VEL,NN6,N0 
COMMON  /SI ZI Nb/ 

PHASE  II  SIZING  PARAMETERS 


FLVBKP 

FLVBKP 

FLVBAP 

flvbap 

SIZING 

SIZIN6 

SIZING 


0. 

•TZ. 

VV(  31. 

0P(  19  >. 

EROR, 

PZ(  5 ), 

VO, 

SW(2C),  SIZING 

9. 

10.  C 

*S¥<28),  SQt  37,51 
PHASE  I SIZING 

SEt  11  ),  TLAT, 

PARAMETERS 

TLNG, 

SIZING 

SIZING 

11. 

* WBO  , 

WLOO, 

DWEB, 

ONES, 

TOLNT, 

UPB, 

TMRAT2,  SIZING 

12. 

*BK1, 

BA2  , 

BA3, 

BA9, 

ISIZE, 

TRAFL6, 

TURATO,  SIZING 

13. 

*0A  1 , 

0A2 

0A3, 

0K9, 

PRFL6, 

IPASS, 

IPSMAX,  SIZING 

19. 

*AEX  I T , 

T VACO , 

NO, 

WFQ, 

IDVEL, 

ISPO, 

I SPB,  SIZING 

15. 

• XPL, 

TVACB, 

NNB, 

MEO. 

NEB, 

HQ. 

WLO,  SIZING 

16. 

•ovo. 

DVB, 

HUB, 

MUO, 

VST  6, 

wpo 

SIZING 

17. 

* JT VP 

8EC0  , 

8STG  , 

OR  BI 

ITNBW  , 

IT NON  , 

SIZING 

18. 

• svopsa 

, SVOCON 

1 HUNT 

.10PSTG 

, I S ZD(  19 

> 

UH 

**  j « ur  $ J TU  L-U»N  , I nu*Ni  | I vr  ^1  « . I J I * 9 

19.  DIMENSION  SKBt3G),SCB(  300  >,T&*t<6),Td2G(  1G),T827(6  >,TB39(6>,  ORBINV 

20.  1 TB96t  1G),TB99|  10),TB50<  10 ),  TBS 7t 6 ), BWS AVEt  10)  CAOUT 

21.  C0MM0N/0RB1NV/  ORBINV 

22.  1 TBl,TB2TB3,TB9TB5,TBtTB7TB8,TB9TB10,TBll.TB12,TB13,T819  ORBINV 

23.  2 TB15,TBi6,Tdl7,TBlB#TB19TB20,T621,IB22,lB23,IB29,IB25, IB26,TB27,  ORBINV 

2 9-  3 1B26.1B29.IB30. IB31f  I B32,TB33,TB39,TB35,TB36, I B37, TB38, TB39,TB90,  ORBINV 

25.  9 T691 ,TB92,TB93,TB99,TB95,TB96,TB97,T896,TB99,TB50, T651 ,TB52,TB53,  ORBINV 

2b.  5 TB5N, 7855, TB56.TB57, SAB. SCft,BNSAtfE  UM 

27.  6,7859TS60TB61TB62,TB63,T869TB65,TB66,TB67 TB68, TB69  TB70,  UH 

2B.  7TB7 1 , I B7J>  T873, t B79, TB75 , I B76, T67I, lB78,TBT9, TB80,  t B8 1 , *B82,  UH 

29.  6TB63.TB8N  UH 


30. 

C 

FLVBKP 

31. 

C 

CRUISE  PROPELLANT  HEIGHT  EQUATION 

flvbkp 

32. 

C 

FLVBKP 

33. 

FH<  A, 6, C, D ) = WA  * (1.  - I . /E XP<  l . 689* A/C*B/D  ) ) 

flvbkp 

39. 

C 

flvbkp 

35. 

IF<  SV<  21  l.NE.O. 1 GO  TO  11 

FLVBKP 

36. 

C 

flvbkp 

37. 

C 

ADJUST  FLYBACK  RANGE 

flvbkp 

36. 

c 

flvbkp 

39. 

SWt  15)  = PZt  5 ) ♦ SQ(  10,3) 

flvbkp 

90. 

c 

flvbkp 

91 . 

c 

M**  SWt  15)  IS  THE  FLYBACK  RANGE  • 

flvbkp 

92. 

c 

flvbkp 

93. 

c 

DETERMINE  FLYBACK  PROPELLANT  WEIGHT  REQUIRED 

flvbkp 

99. 

c 

flvbkp 

95. 

11 

CONTINUE 

flvbkp 

96. 

IFLV  = SQt 32, I) 

flvbkp 

97. 

GO  TO  ( 600, 650,700), IFLV 

flvbkp 

98. 

c 

FLVBKP 

99. 

c 

USE  BREGUET  RANGE  EQUATION  FOR  CRUISE  RANGE  PARAMETER 

flvbkp 

50. 

c 

flvbkp 

51 . 

600 

CONTINUE 

flvbkp 

52. 

DMUB  = TB39t  3)  - SQt 19,2) 

flvbkp 

53. 

I Ft  SWt 3).GT. 1.5. AND.ABSt DAUB > . 6T . . 0Q1  ) 

flvbkp 

59. 

1 SEt 5 ) - ( SW( 15)  - SQt  191))/  DUMB 

flvbkp 

55- 

SQt  19,1  ) = SWt  15) 

flvbkp 

56. 

SQt 19,2)  = TB39t  3) 

flvbkp 

57. 

SQt  19,3)  = SWt  19  )/SW(  12  )«SWt  11  )/I.689 

flvbkp 

58. 

SCBt  219>=£XPC  SWt  15)/SQ(  19,3)) 

flvbkp 

59. 

SCB(219)=  SCBt  219  ) • S Vt  20  )/t  SVt20)-  SQ(32,9)> 

flvbkp 

60. 

SCBt  219 ) = SCBt  219  ) - 1. 

flvbkp 

61 . 

GO  TO  800 

flvbkp 

62. 

c 

flvbkp 

63. 

c 

USE  PERCENTAGE  WEIGHT  METHOO  FOR  DESCENT  ANO 

flvbkp 

69. 

c 

BREGUET  RANGE  EQUATION  FOR  CRUISE 

flvbkp 

65. 

c 

flvbkp 

66. 

650 

CONTINUE 

flvbkp 

67. 

DWF  = SQt 32,2)  • S Vt  20  ) 

ckout 

68. 

SQt  35,2  ) = DWF 

flvbkp 

69. 

UA  s SVt  20) 

ckout 

70. 

R2  = SWt  15)  - SQt  32,5)  - SOt  33, 1 ) - SQt33,2> 

flvbkp 

71  . 

OW  = FW(  R2,S0t 33,9 ) $Q(  39,2 ) , SOC 39,5)1 

flvbkp 

72. 

SQt 35,3)  = DW 

Flvbkp 

73. 

WA  = WA  - OW 

flvbkp 

79. 

OWF  =■  DWF  ♦ OW 

flvbkp 

600— l 650-1  700- 


800-1 
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75. 

DU  = SQ(  32,3)  * UA  — ^ 

FLYBKP 

76. 

SQ( 35,9 1 = ou 

FLYBttP 

77. 

GO  TO  790 

FLYBKP 

78. 

C 

FLYBKP 

79. 

C 

USE  BRE6UET  EQUATION  FOR  OESCENT 

FLYBKP 

80. 

c 

FLYBKP 

81. 

700 

CONTINUE 

FLYBKP 

82. 

UA=SY( 39) 

FLYBKP 

83. 

DUF  = FU(  Rl, Sat  33,3), SQ( 39, 1 ),S0(  39,9 > ) 

FLYBKP 

89 . 

SOt 35,2)  = DUF 

FLYBKP 

85. 

UA  = S Vt  20  ) - DUF 

CKOUT 

86. 

R2  = SU(  15)  - SOt  32,5)  - S0t33,l)  - SQt33,2) 

FLYBKP 

87. 

OU  = FUt  R2 , SQt 33,9  ),SOt  39,2  >,S«(  39,5 ) ) 

FLYBKP 

88. 

SOt  35,3)  = DU 

FLYBKP 

89. 

OUF  = OUF  ♦ DU 

FLYBKP 

90. 

UA  = UA  - DU 

FLYBKP 

91. 

DU  = FU(R3, SOt  33,5  ), SOt  39,3), SOt  35, 1 ) ) 

FLYBKP 

92. 

SQt  35,9)  = OU 

FLYBKP 

93. 

c 

FLYBKP 

9H. 

c 

CALCULATE  CRUISE  RANGE  PARAMETER 

FLYBKP 

95. 

c 

FLYBKP 

96. 

790 

CONTINUE 

FLYBKP 

97. 

OUF  = DUF  ♦ DU  ♦ SQt  32, 9) 

FLYBKP 

98. 

UA  = UA  - DU  - SQt 32,9) 

FLYBKP 

99. 

SCBt  219)  s DUF/UA 

FLYBKP 

100. 

SOt  19,3)  = SOI  39,5)/1.689*SQt 39,2>/S0(  33,9) 

FLYBKP 

101. 

SOt35,5)  = R2 

FLYBKP 

102. 

600 

CONTINUE 

FLYBKP 

103. 

RETURN 

FLYBKP 

109. 

END 

FLYBKP 

790—1 
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SUBR0UTINE 

FRENCH 


FORTRAN 

SYMBOL 


HATH 

SVABOL 


COOE 


DESCRIPTION 


hiinc  wins  “i& 


A 

I 

Number  of  sir  breathing  engines  used  by  * * 1 0 

to  set  /Cl NPUT /( 

1 ) 

FRENCH 

I 

A 

eovion  to  tero 

FRENCH 

A 

ANENGS 

SETO 

0 

A 

STORE 

A 

ANENGS 

MTSCH 

I 

ANENGS 

ANENGS 

a 

Nuobtr  of  oir  breathing  engines  used  by  setO 

to  set  /C!NPUT/( 

1 ) 

FRENCH 

I 

A 

co ••on  to  loro 

FRENCH 

A 

ANENGS 

SETO 

0 

A 

STORE 

A 

ANENGS 

MTSCH 

I 

ANENGS 

FRENCH 

E 

Subroutine  to  Inltlaliio  vehicle  sizing  data 

/FRENCH/C  6 

) 

DATA1N 

S 

FRENCH 

FRENCH 

F 

FRENCH 

10 

I 

A four  «ord  array  containing  the  beaic  deck. 

/flOBAL/t 

21  ) 

BL1C0 

I 

ID 

reference  run,  cate  and  part  coat  nuebin  in 

that 

FRENCH 

I 

ID 

order . 

6EJMP 

I 

JO 

PAOSl 

0 

ID 

PRINT 

1 

ID 

SOINP 

I 

ID 

TOP  A 

1 

ID 

VEHDF 

1 

ID 

1 TPS 

0 

The r ao  protection  flag 

/CINPUT/< 

336  1 

FRENCH 

0 

I TPS 

STORE 

A 

ITPS 

MTSCH 

A 

ITP5 

JUAP 

0 

/ JUAPY  /< 

i ) 

FRENCH 

0 

JUAP 

PR1NTM 

1 

JUAP 

PR1TVA 

I 

JUAP 

PR  MTS A 

A 

JUAP 

MTSCH 

I 

JUAP 

MT  VOL 

A 

JUAP 

NML 

0 

Mi ng  loading  flag 

/CINPUT/i 

379  > 

FRENCH 

0 

NML 

STORE 

A 

NML 

MTSCH 

A 

NML 

STORE 

s 

Subroutine  to  store  vehicle  data  In  internal 

fornat  /STORE  /( 6 

) 

FRENCH 

S 

STORE 

and  ■ t v o I fornat 

STORE 

E 

STORE 

TRAFLG 

0 

Traffic  control  flag  0.  Siting  loop  net  converged  /SIZING/! 

28H) 

FRENCH 

0 

TRAFLG 

1.  Sizing  loop  converged  2.  Error  in  siting 

loop 

ITERS 

0 

TRAFLG 

neat  caae 

PADS1 

I 

TRAFLG 

• 

SIZE 

A 

TRAFLG 

SSSP 

0 

TRAFLG 

VEHDF 

0 

TRAFLG 
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■“V 


.UNOfc.  0 Flit  of  til  output  dot* 


BL1C0 

0 

. UN06 

BNDRVC 

0 

. UN06 

CRASH 

0 

. UN06 

FRENCH 

0 

. UN06 

FXDAT 

0 

. UN06 

6E1NP 

0 

. UNOfc 

HUNT 

0 

. UN06 

1NE0IT 

0 

. UNOfc 

1TER8 

0 

. UN06 

rtOOELA 

0 

. UN06 

nonj 

0 

. UN06 

«PS  I 

0 

. UN06 

OUT 

0 

. UN06 

PAV02 

0 

.UNOfc 

PRINT 

0 

. UN06 

PR I NT  V 

0 

. UNOfc 

PRINT* 

0 

. UN06 , 

PR1TE0 

0 

. UN06 

PRITVA 

0 

. UN06 . 

PROPIN 

0 

. UN06 . 

PROTHR 

0 

. UN06 . 

PRUTSrt 

0 

. UN06 . 

RANGE 

0 

. UN06 . 

S 

0 

.UNOfc. 

SDINP 

0 

. UN06. 

SIZE 

0 

. UN06 , 

SIZIN 

0 

. UN06 . 

SIZOUT 

0 

. UN06 . 

SOLVE 

0 

. UN06. 

SPLICO 

0 

. UN06 . 

SPLIZ 

0 

. UN06. 

SPLVNE 

0 

. UN06 . 

SSSP  ' 

0 

.UNOfc. 

STAU 

0 

. UN06. 

STPIT 

0 

. UNOfc . 

SUflOUT 

0 

. UN06 . 

TAB1N 

0 

.UNOfc. 

TEST 

0 

.UNOfc. 

VEHDF 

0 

.UNOfc. 

UTSCH 

0 

.UNOfc. 

NT  VO  l 

0 

.UNOfc. 
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FRENCH 


SUBROUTINE  FRENCH 


SUBROUTINE  TO  INITIALIZE  BOOSTER  AND  ORBITER 
COMMON  BLOCKS  OF  DATA 


CQMMQN/PO/  MPRNT,MPNCH 
COMMON/JUMPY/  JUMP , UBI 6,  UBOO 

common/ GLOBAL/ 

•6R  ,ER  , OHGZ  , ILA 

•,JJOP< 10)  , IFATAL  .narc  ,N 

» KT  AB<  20)1TAB< 20)  ,516  ,MAXTAB 

*,GM  PSIRF, IPFLGI,  IPFLG2 

*,  I TPSO  ,KS6l  , KGLDBLt 6 ) 

Real  kin 

REAL  ISP ,K, LF, MR, NCREU, LBODV, NPASS 

REAL  NEN&S 

COMMON/CINPUT/ 


XLAMRF  YMURF  ,LUM 

, NBR AN  , NF  ARC  ,10(4) 

,MAXTAB 

IPFL62,1PFLG3,IPFL64,INEQFL<  20) 


18. 

1 ANENGS 

, ANT  ANK 

, ASRATO 

, AStfEEP 

,CC  300) 

, CBBOOV 

,CFUEL(  6), 

CINPUT 

19. 

2CHB00V 

, CLBODV 

, CS  BODY 

, CSF  A1 R 

, CSF  UTK 

, CSHORZ 

.CSOXTK  , 

C1NPUT 

20. 

3CSPLAN 

, CS  VERT 

, C S Nil  NG 

CTHRST 

,CTHST2 

, DEF( 5 ) 

,FXHOVS  , 

CINPUT 

21. 

4ISP( 6) 

, ITPS 

,K(  30  ) 

, K I N 

, LF 

,MR( 6 ) 

,NCREN 

CINPUT 

22. 

5NENGS 

, NLI STO 

, NPASS 

, NHL 

, P CHAM 

,Q 

, RHQFU 

CINPUT 

23. 

6RH0FU2 

,RH0X 

,RH0X2 

, S BODY 

, T0L 

, TO  VERC 

, TPR ATO  , 

CINPUT 

24. 

7TVTAIL 

VBODV 

H&ROSS 

CINPUT 

DIMENSION  SKO( 3C),SC0(  300 ) , T04<  6 ), T020(  10 ), T027<  6 ), T034< 6 ),  ORB! NX 

1  T048<  IO),T049<  10),T050(  10),T057(  6),0HSAVE(  10)  CKOUT 

COMMON/ORB I NX/  ORBINX 

1 TO1,TO2,TO3,TO4,TO5,TO6,T07TO8TO9,TO1O,TG11,T012,TO13,TO14  ORBINX 

2 TO  15, T0l6,T0l 7, T018,T01 9, T0i0,T021, 1022,1023,1024,1025, 1026, T02  7,  ORBINX 

3 1028,1029,1030,1031,1032,7033,7034,7035,7036,1037,7038,7039,7040,  ORBINX 

4 T041,T042,T043,T044,T045, 7046, T047,T048, 7049, T050,T051,T052,T053,  ORBINX 

5 T054,  T055 , T056.T05 7, T066, SKO  SCO, OUSAVE  CKOUT 

6, 7059, T060,T061,T062, T063, 7064, T065,T067,T068,T069, 7070, T071,  UH 

7 7072, 7073, T074,T075,T076,T077, TO 78, 7079, T080, 708 1,T082,TQ83,  UH 

BT084  UH 

DIMENSION  SKB( 30  ), SCB(  300 ),TB4(  6),TB20(  10 ), TB27< 6 ), TB34(  6 ),  ORBINV 

1 TB48(  10),TB49(  10),TB50(  10),7B57(6),BMSAVE(  10)  CKOUT 

commqn/orginv/  orbinv 

1 TB1,TB2,TB3,TB4,TB5,TB6,7B7,TB8TB9TB10,TB11,TB12,TB13,TB14.  ORBINV 

2 TB15,TB16,TBl7,Tai8,TBl9,TB20,TB2l, I B22, I B23, I B24, 1825,1826,7827,  ORBINV 

3 IB28,1B29, IB30, IB31, IB32,TB33,TB34,TB35,TB36,IB37,TB38,TB39,TB40,  ORBINV 

4 TB41,TB42,TB43,TB44,TB45,TB46,TB47,TB48,TB49,TB5C,TB?1,TB52,TB53,  ORBINV 

5 TB54,TB55,TB56,TB57,SKB,SCB,BUSAVE  UH 

6,TB59,TB60, TB61.TB62,TB63,TB64,TB65,TB66,TB67,T868,TB69,TB70,  UH 

7TB71,TB72,iB73,TB74,TB75,TB76,TB77,TB78,TB79,TB80,lB81,iB82,  UH 

8TB83^  7B84  UH 


47. 

COMMON/ NT CALC/ 

ABFSVS 

, UABFTK 

, UABFU 

, HABPR 

,HACRES  , 

HTCALC 

48. 

I MACS 

, UAC5F0 

, UACSTK 

,uaebo 

HAUXT 

, UB AS  I C 

, UBODY  , 

utcalc 

49. 

2UBPUMP 

HCAR  GO 

, UCQMM 

, UCONT 

, UCOVER 

, UOECAV 

, UDI ST1  , 

HTCALC 

50. 

3HDIST2 

, WOOCK 

,HOPLOV 

, HORANS 

, HORV 

, HELCAD 

, UEMPTV  , 

HTCALC 

51. 

4UEN&MT 

,HENGS 

, UEN6S2 

UFAI R 

, UFCONT 

, HFOC AV 

, UFR05T  , 

HTCALC 

52. 

5HFU2C  3 ) 

,UFUEL<  6 

,HFUL 

, HFULOS 

HFUNCT 

,HFUOX 

, HFURES  , 

HTCALC 

53. 

6UFUSYS 

, HFUTK 

,HFUTK2 

, HFUTOT 

, UFUT  RP 

, HGASPR 

, HGNAV 

HTCALC 

54. 

7UH0RZ 

, UMVCAD 

HI  NF  UT 

HI  NO XT 

HI NSTK 

, HI NST 

UI NSUL  , 

HTCALC 

55. 

6HJET(6  ) 

ULANCH 

,HL6 

, ULOSS 

,hlro 

, UNACEL 

, UOOCflV  , 

HTCALC 

56. 

9U0IL 

, HOURS 

HORSUL 

, HOVERS 

,HOX(  6) 

,H0X2(  3) 

, HO  X 1 D 

UTCALC 

57. 

1U0XL0S 

, HO  XRES 

,hoxsvs 

,HOXTK 

, HQ  XT  K2 

,HOXTOT 

, HOXTRP  , 

HTCALC 

58. 

2HP 

, HP ASS 

, UP  AY  L 

UPERS 

UPOuCO 

UPOUER 

WPQHFO  , 

HTCALC 

59. 

3 UP  OURS 

, HPOHTK 

, UP  PRO  V 

UPREI 6 

, HPROP 

,HPRSVS 

, HREFUL  , 

HTCALC 

60. 

4URESID 

, HRESR V 

,u$eal 

,HSECST 

, HSORCE 

USRTRP 

,HSTAB 

HTCALC 

61. 

5USURF 

HT  ABC 

,hthrst 

, HTO 

, UTPS 

, HVERT 

, UH  A I T ( 10  )( 

, HTCALC 

62. 

6UUET 

,HHING 

, UZROFU 

, UABTRP 

HABRES 

,HMNOTP 

UMNFTP  , 

CKOUT 

63. 

7UMN0RS 

UMNFRS 

UACOTP 

HACFTP 

HP HO TP 

, HPHFTP 

, USAS 

CKOUT 

64. 

SUABFUC 

.HACORS 

, UACFRS 

,HPHORS 

HPHFRS 

CKOUT 

65. 

COMMON/ VOLCAL/ BBOOV . CROOT 

, CSP AN 

, CT I P 

,gal 

, GSP AN 

VOLCAL 

66. 

2HBOOV 

, LBODV 

,RTOD 

, SFAI R 

, SFUTK 

, SHORZ 

SOXTK 

V0LCAL 

67. 

3SPLAN 

,STPS( 1 ) 

, SVERT 

, SHI N6 

,SXPOS 

, TOEL 

, TROOT 

VOLCAL 

68. 

4TT0T 

, TT0T2 

, TT07  AL 

, VBOOVA 

, VBOOVI 

, VBOOV2 

VCARGO  , 

VOLCAL 

69. 

5VCREH 

, VFUTK 

VFUTK2 

, VINSTK 

, VtGBAV 

, VOTHER 

VOXTX 

VOLCAL 

70. 

6V0XTK2 

, VPROP 

, VSTRUC 

VOLCAL 

EQUIVALENCE  ( A, ANENGS ) 

REAL  HUB,  HUO,  ISPB,  ISPO,  IOVEL,NNB,NO 

common  /Sizing/ 

PHASE  II  SIZING  PARAHERERS 
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76. 
7 7 . 

78. 

79. 
60. 
81. 
81. 
83. 
89. 
85. 
66. 
87. 


VV<  3 ) . 


97. 

98. 

99. 
100. 
101 . 
102. 
103. 
109. 

105. 

106. 

107. 

108. 

109. 

110. 
111. 
112. 
113. 
119. 

115. 

116. 

117. 

118. 

119. 

120. 
12  1 . 
122. 
123. 
129. 

125. 

126. 

127. 

128. 

129. 

130. 


*TZ, 

*SV(  28  >, 

PHASt  1 mu 
ULOQ, 
81(2, 
0*2. 
TYACO, 
TVACB, 


*U80, 

*BK1, 

♦0*1, 

*AEXIT, 

♦ XPL, 

♦DVO, 

*,  JTYP 

♦ svopsa  . 

NAMEL1ST/PRNTX/ 


DVB . 
BECO 


QPI19),  EROR, 

SE<  1 1 >,  TLAT, 

i PARAMETERS 

PZ(  5 ) , 
TLNG, 

VO, 

SH(  20  ), 

SIZING 

SIZING 

SIZING 

OUEB, 

OUEO, 

TOLUT, 

UPB, 

TURAT2, 

SIZING 

BK3, 

BK9 , 

1SIZE, 

TRAFL6, 

TURATO, 

SIZING 

0K3, 

0K9, 

PRFlG, 

1PASS, 

I P S MAX  , 

SIZING 

NO, 

UFO, 

10VEL, 

ISPO, 

ISPB, 

SIZING 

NNB, 
MUB, 
BST6  , 
, I HUNT 

UEO , 

«u5, 

OR  BI 
, IOPSl G 

UEB, 

VST  G, 
1TNBU 
, I $ZD(  1§> 

W°uTo 

ITNOU  , 

ULO, 

SIZING 

SIZING 

SIZING 

UH 

UH 

88. 

1 ANENGS 

, ANTANK 

, ASRATO 

, ASUEEP 

,C 

, CBBODY 

, CFOEL 

UH 

89. 

2CHB00Y 

, CLBO  DY 

, CS  BODY 

, CSF  A I R 

, CSF  UT  K 

, CSHORZ 

, CSO  XT  K , 

UH 

90. 

3CSPLAN 

, CS  VERT 

, CSU! NG 

, CT  HRST 

, CT  HST2 

,FXUOVS  , 

UH 

91. 

9ISP 

, I TPS 

, K 

, K I N 

,LF 

, MR 

,NCREU 

UH 

92. 

5NENGS 

, NLI STO 

, NP ASS 

,NUL 

, P CH AM 

, Q 

, RHOFU 

UH 

93. 

‘ 6RH0FU2 

, 8H0X 

, R HO  X2 

, SBODY 

, T OL 

, TOVERC 

TPRATO  , 

UH 

99. 

7TYTAIL 

, VBODY 

, U6R0SS 

UH 

95. 

C 

FRENCH 

96. 

c 

REAO 

ORBITER 

DATA  AND 

STORE  IN 

INTERNAL 

FORMAT 

FRENCH 

IPC  = 31 
JUMP  = 0 
CALL  SETO 

CALL  TABIN( DUN. 1, A. 392, RUMMY, 1 , 1 D, I PC, 0 , 1 EOD > 

1 F( 1 EOD . NE . 0 ) GO  TO  1 

MPRNT  - A(  205  ) 

ITP5=A(  336) 

NUL=  A( 379) 

1F< MPRNT .EO.  1)  UR  I TE( 6, PRNT  X ) 

IF<  ANENGS. EQ.  0.  ) ANEN6S  = 1. 

CALL  STORE 
CALL  ORBSTO 

READ  BOOSTER  OATA  AND  STORE  IN  INTERNAL  FORMAT 

IPC  = 32 
JUMP  = 1 
CALL  SETO 

CALL  TAB1N(0UM,1,A  3 9 2, RUMMY, 1,10, IPC, 0,1 EOD) 

I F < 1E0D.NE.0)  GO  TO  I 

MPRNT  = A(  205  ) 

NUL=  AC  3 79  ) 

ITPS=A( 336) 

IFCMPRNT.EO.l ) MRITEC 6,PR«TX) 

IFC  ANENGS.Efi.  0.  ) ANENGS  = 1. 

CALL  STORE 
CALL  BOOSTO 

RETURN  TO  SYNTH  PR06RAH 
RETURN 


FRENCH 

CKOtiT 

FRENCH 

CKOUT 

UH 

UH 

UH 

UH 

UH 

UH 

UH 

CKOUT 

FRENCH 

FRENCH 

FRENCH 

FRENCH 

FRENCH 

CKOUT 

FRENCH 

CKOUT 

UH 

UH 

UH 

UH 

UH 

UH 

UH 

CKOUT 

FRENCH 

FRENCH 

FRENCH 

FRENCH 

FRENCH 

FRENCH 


131. 

1 URI TE<  6,2) 

UH 

132. 

2 FORMAT! 22H  NO  SIZING  DATA  INPUT  ) 

UH 

133. 

TRAFL6=2. 

UH 

139. 

CALL  SIZERR 

UH 

135. 

END 

FRENCH 
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/ v„- 


SUBR0UTINE 

HUNT 


/ 4^ 


DESCRIPTION 


5 I OR  ATP 
BLULrt  LOC 


SUdfi  tOOE  VAR 


BLOW 

I Idl*  descent  ring*  lncr*M*nt  for  flyback 

c ■ 1 c u t at  1 out 

/0ATA2X/I 

/ 0 ) 

HUNT 

I 

BLOW 

EROR 

1 Nuabtr  of  booster  cnglntt 

/SIZING/I 

19  ) 

HUNT 

I 

EROR 

SSSP 

I 

EROR 

UTVOL 

0 

EROR 

PNOX 

I Solid  »otor  thrust  slop* 

/ 0 A T A2  X / ( 

60  ) 

HUNT 

I 

PNOX 

RVAR 

I Solid  Motor  thrust  curve  Intercept 

/ 0 AT  A2  X / ( 

59  ) 

HUNT 

I 

RVAR 

SORT 

F Square  root  function 

/SORT  /( 0 

> 

ANl AT 

F 

SORT 

CRASH 

F 

SORT 

DCTOE 

F 

SORT 

DER3A 

F 

SORT 

E NVP  R fl 

F 

SORT 

HUNT 

F 

SORT 

nODELA 

F 

SORT 

nODELB 

F 

SORT 

OPUELL 

F 

SORT 

OUT 

F 

SORT 

P AT63 

F 

SORT 

PAY02 

F 

SORT 

P OB  C 

F 

SORT 

P0Y3A 

F 

SORT 

STORE 

F 

SORT 

SYHVRT 

F 

SORT 

UTS  CH 

F 

SORT 

. UNO  6 . 

0 File  of  all  output  data 

/ . UN06. /< $ 

) 

BLICO 

0 

. UN06 

BNDRYC  0 
CRASH  0 
FRENCH  0 
FXDAT  0 
GEINP  0 
HUNT  0 
INEDIT  0 
ITERS  0 
mODELA  0 
NOflJ  0 
mPSI  0 
OUT  0 
PAY02  0 
PRINT  0 
PRINTV  0 
PfilNTW  0 
PRITEQ  0 
PR1TVA  0 
PROPIN  0 
PROTHR  0 
PfiulTSn  0 
RANGE  0 
S 0 
SDINP  0 
SIZE  0 
SIZIN  0 
SIZOUT  0 
SOLVE  0 
SPlICO  0 
SPLIZ  0 
5PLYNE  0 
SSSP  0 
5TAU  0 
STPIT  0 
BUYOUT  0 
TABIN  0 
TEST  0 
VEHOF  0 
UTSCH  0 
UTVOL  0 


30  OCT  JZ  G. 01-96 


MUNI 


PROGRAM  HUNT 

PROGRAM  CONTROLS  HUNTING  PROCEEDURE 
REAL  BUB.  MUO,  1SPB,  ISPO,  1QVEL,NNB,N0 
COMMON  /SIZING/ 

PHASE  II  SIZING  PARAMERERS 


HUNT 

HUNT 

SIZING 

SIZING 

SIZING 


6. 

*TZ, 

VV<  3 ), 

QP<  19  ), 

EROR, 

PZ<  5 ), 

VQ, 

SMt  20  >, 

SIZING 

7 . 

♦ SV(  28). 

SQ<  37.5). 

sec  it  >. 

TLAT. 

TLN6, 

SIZING 

8.  C 

PHASE  I SIZING 

parameters 

SIZING 

9. 

*UBO, 

WLOO, 

DUES, 

OUEO, 

TOLUT, 

UPB, 

TURAT2, 

SIZING 

10. 

•BX1 , 

BX2 , 

BX3 , 

BX9, 

I5IZE, 

TRAFLG, 

TURATO, 

SIZING 

11  . 

*0X1, 

0X2, 

0X3, 

0X9, 

PRFLG, 

IPASS, 

I P S MAX 

SIZING 

12. 

* AE  X I T , 

T VACO , 

NO, 

UFO, 

IDVEL, 

ISP0, 

ISPB, 

SIZIN6 

13. 

♦ XPL, 

TVACB, 

NNB, 

UE0, 

WEB, 

* UO, 

UL0, 

SIZING 

19. 

♦ ovo. 

OVB, 

MUB, 

MUO, 

VST  G, 

UPO 

SIZING 

15. 

*, JTYP, 

BECO  , 

BSTG  , 

ORBI , 

1TNBU  , 

ITN0U  , 

SIZING 

16. 

* SVOPSQ 

. SVDC&N 

1 HUNT 

. I0PST6 

. 1SZD<  1 9 ; 

) 

UH 

1 7 . 

DIMENSION  SK6<  30  ), 

StB<  300  ), 

T&9( 6 ).TB20(  10 >,  TB2  7(  6 ),  TB39<  6 1 

ORBINY 

18. 

1 T B 9 8 ( 10  ),TB99<  10  ) 

, TB5 0(  10  ) 

,TB57(  6 ), 

BWSAVEt 10 : 

) 

CXOUT 

19  . 

COMMON/ORoI NY/ 

ORBINY 

20.  1 TB1,TB2,TB3,TB9TB5,TB6,TB7TB8,TB9,TB10,TB11TB12,TB13,TB19,  ORBINY 

21.  2 TB15,TB16,T817,TB18,TB19,TB20,TB21,lB22,IB23,IB29#iB25,IB26,TB27_  ORBINY 

22  3 IB26,1B29, 1830,1831, I B32,TB33,TB39,TB35,TB36, IB37T838,TB39,TB90,  ORBINY 

23.  9 TB91,TB92,TB93#TB99,TB95,TB96,TB97,TB98,TB99,TB50,TB51,TB52,TB53,  ORBINY 

29 . 5 TB59,TB55,TB56,TB57,SXB,SCB,BUSAVE  UH 

25.  6,TB59,TB60,TB61,TB62,TB63,TB69/TB65,TB66,TB67/TB68,TB69,TB70,  UH 

26.  7TB71,TB72,TB73,TB79,TB75,TB76,TB77,TB78,TB79,TB80fTB81,TB82,  UH 

27.  8TB83,T&89  UH 

28.  REAL  NXFO&  DAT A2 X 

29.  REAL  I VACO . IVACB,  ISLO,  ISLB,  IDYELO  0ATA2X 

30.  COMMON/ 0 AT A2X/  0ATA2X 

31.  *ALD,  FBPAR.  IOVELO,  ISLB,  ISLO,  IVACB.  IVACO.  PERISP,  OMXX,  0ATA2X 

32.  1 GMXS,SFC,GLVOUT, COPIES, SYNI T , TFCTRB, TF CTR0 , T0LMU, TOLTM,  DAT  A2X 

33.  2 TRATIO,TMLO,TUlOI,WTOUT,FIRE,BOOTU,VCRUSE  DATA2X 

3 9.  3 , NXFOB, PRNTX,FSEC,CLVG,DRN6  DAT A2 X 

35.  9 .SOLID, AS, BS,SISP,SINERT,SAE,TSB0,FLYBCX  0ATA2X 

36.  5 , WP0REm,u6rEm, GUREQ  DAT A2X 

37  6 ,FBFUEL,CA,CB,WFLYX,RTfRl,R3,SFClfSFC2,SFC3,ALDl, AL02, ALD3, VFLY1,  DAT A2X 

38.  7 VFLY2,VFLV3  DAT A2 X 

39.  *,TblOX(  2 >,PNDX<  10>,BL0U(  10),BUPP(  10),STEP(  11  >,PAYX  PON 

NO.  EQUIVALENCE  ( R VAR ,TWOX( 2 ) ) PON 

9 1 . DIMENSION  A< l ). XVAR< 10  ),PVAR( 10),STAP( 1 1 ),ER0R(  10 ) HUNT 

92.  EQUIVALENCE  (A,  TB1  ) HUNT 

93.  COMMON/POWEL/  IZ<95)  HUNT 

99.  EQUIVALENCE  ( IZ(  31  ), CON)  ,(IZ(95),EN)  HUNT 

95.  INTEGER  EN  .CON  HUNT 

96.  C FUNCTIONS  HUNT 

97  BO  XI  N(  XXII)  = ASIN<SQRT<<XX  - BLOW  1 1 ) )/<  BUPPU  I >-BLO«<  1 1 ) ) ) ) HUNT 

98.  BQX( XX, II  ) = BLOU(II)  ♦ (BUPP(II)  - BLOW(II))*  SIN(XX)**2  HUNT 

tiQ  MW  AR  =R  i/IB  uuMT 

50*.  C 1 PUT  A VALUES  INTO  XVAR  ARRAY  HUNT 

51.  00  10  J=1,NVAR  HUNT 

52.  INOX  = PN0x<  I ) HUNT 

53.  XVAR< I ) = A< INOX ) HUNT 

59.  PVAR(I)  = BOXINC  XVAR< I ), I ) HUNT 

55.  STAPt I ) = BOXIN<STEP< I ), I ) HUNT 

56  10  CONTINUE  HUNT 

57.  INOPA  = AB$( P AYX ) HUNT 

58.  51=1.  HUNT 

59.  I F ( PAYX.GT.O.  ) SI*-!.  HUNT 

60.  PAY  = A(  I NOP A )*S  I HUNT 

61.  CALL  PQMELM  P VAR, N VAR  STAR. EROR. PAY ) HUNT 

62.  C TEST  FOR  CONVERSANCE  HUNT 

63.  DO  20  I = 1 . NVAR  HUNT 

69.  INOX  - Pn6X( I ) HUNT 

65.  A(INDX)  = BOX<  PVAR<  1 >,1  > HUNT 

66.  STEP( I ) = B0 X< STAP( I ),I)  HUNT 

67.  20  CONTINUE  HUNT 

68.  IF(  CON. NE.-l  ) RETURN  HUNT 

69.  PAYO=A< 1NDPA)  HUNT 

70.  UR  I TE<  6 1 03 ) PAYO  HUNT 

71.  103  F0RMAT<35N0  POWELL  HAS  CONVERGED  TO  A P AY0FF  = E20 . 8 1 HUNT 

72.  RETURN  HUNT 

73.  END  HUNT 
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SUBR0UTINE 

ITER8 


FORTRAN 

SYMBOL 

MATH 

SYMBOL 

CODE 

DESCRIPTION 

STORAGE 

SUBROUTINE  USAGE 

“TloFT  lOc 

SUBR 

CODE  VAR 

ITER8 

E 

Subroutine  to  evaluate  synthetis  convergence  end 

/ITER8  /($  > 

1TER6 

E 

ITER0 

call  fpf  flyback  range  calculations  and  sunnary 

page  output 

RANGE 

S 

Subroutine  to  evaluate  booster  flyback  range  based 

/RANGE  /(  4 ) 

ITER8 

S 

RANGE 

on  f I y bek 

RANGE 

E 

RANGE 

SV 

I 

A synthesis  array  (28)  containing  staging 

/SIZING/I  46) 

ENVPRM 

M 

SV 

paraneters  and  nl s c flags 

FLYBKP 

I 

sv 

ITERS 

I 

SV 

RANGE 

I 

sv 

SIZEMR 

M 

sv 

S1Z1N 

I 

sv 

SSSP 

I 

sv 

SUHOUT 

I 

sv 

T AMP  AR 

0 

sv 

TAMPER 

M 

sv 

TRTOSZ 

M 

sv 

VEHOF 

M 

sv 

NT  VOL 

I 

sv 

TB34 

0 

/0RBlNY/(  53) 

FLYBAP 

I 

TB34 

1TER8 

0 

TB34 

SSSP 

M 

TB34 

STORE 

M 

TB3  4 

SUMOUT 

I 

TB34 

TAMPER 

I 

TB34 

VEHOF 

I 

TB34 

NT  VOL 

M 

TB34 

TOLER 

M 

Orbiter  aati  ratio  to  I er ance achi a ved 

/1TER8  /<♦  ) 

ITER8 

N 

TOLER 

T034 

M 

Stored  orbiter  value  of  nr(  1 ) 

/OR  B I NX/(  53) 

ITER8 

M 

T034 

SSSP 

0 

T034 

STORE 

M 

T034 

TAMPER 

l 

T034 

VEHDF 

0 

T034 

NT  VQ  L 

M 

T034 

TRAFL6 

0 

Traffic  control  flag  0.  Sizing  loop  not  converged 

/SI ZI NG/(  284) 

FRENCH 

0 

TRAFLG 

1.  Sizing  loop  converged  2.  Error  in  sizing  loop 

I TER  8 

0 

TRAFLG 

neat  case 

P AOS  l 

I 

TRAFL6 

SIZE 

M 

TRAFLG 

SSSP 

0 

TRAFLG 

VEHOF 

0 

TRAFLG 
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y U H 1 H A N 
SYnHOl 


HA1  H 

symbol 


CODE 


DESCRIPTION 


.UNOb. 


0 


FUt  of  all  output  d»t  • 


STOrASE 

SUBROUTINE  USAGE 

block  loc 

S'JBB  CODE  VAR 

/ .UNOb./f  0 

> BUCO 

0 

. UNOb . 

BNORYC 

0 

. UNO  6 . 

CRASH 

0 

. UNOb , 

FRENCH 

0 

. UNO  6 . 

FXDAT 

0 

.UNOb. 

GEINP 

0 

. UNOb . 

HUNT 

0 

. UNOb. 

INE01T 

0 

. UNOb. 

ITER8 

0 

.UNOb. 

nODELA 

0 

.UNOb. 

nortj 

0 

.UNOb. 

rtPSI 

0 

.UNOb. 

OUT 

0 

.UNOb. 

PAY02 

0 

. UNOb. 

PRINT 

0 

. UNOb. 

PRINTV 

0 

.UNOb. 

PRINTS 

0 

.UNOb. 

' PRITEO 

0 

.UNOb. 

PR1TVA 

0 

.UNOb. 

PROPIN 

0 

. UNOb. 

PROTHR 

0 

.UNOb. 

PfiWTSfl 

0 

. UNOb. 

RANGE 

0 

.UNOb. 

S 

0 

.UNOb. 

SOINP 

0 

.UNOb. 

SIZE 

0 

. UN06 . 

SIZIN 

0 

.UNOb. 

SIZOUT 

0 

.UNOb. 

SOLVE 

0 

. UNOb. 

SPLICO 

0 

. UNOb. 

SPLIZ 

0 

. UNOb. 

SPLYNE 

0 

. UNOb. 

SSSP 

0 

. UNOb. 

STAU 

0 

.UNOb. 

STPIT 

0 

. UNOb. 

SU^OUT 

0 

.UNOb. 

TABI  N 

0 

. UNOb. 

TEST 

0 

.UNOb. 

VEHOF 

0 

.UNOb. 

ulTSCH 

0 

.UNOb. 

u/TVOL 

0 

.UNOb. 
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I UR8 


9. 
10  . 
11. 
12. 
13. 
19. 

15. 

16. 

17. 

18. 

19. 

20. 
21, 
22. 
23, 
29, 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
39. 

35. 

36. 

37. 
33. 
39. 
90. 


PR06RAN  ITERS 


SUBROUTINE  TO  CHECK  SVNTHE5JS  LOOP  FOR  CONVERGENCE 


REAL  HUB.  HUO.  ISPB,  ISPO,  1 D VEL, NNB, NO 
connON  /SIZING/ 

PHASE  II  SIZING  PARAHERERS 
*TZ,  V V(  3 ),  QPC19),  ER0R  , 

• SVC  28  )#  SOI  37.5).  SEt  11).  TLAT, 

PHASE  I SUING  PARAHEAeRS 


PZC  5), 
TLNG, 


VO, 


SUC  20), 


•UBQ, 

• BK1, 
•OKI, 
•AEXlT, 
•XPL, 

• OVO, 

• , JTVP . 

svdpso 


ULOO, 
BK2, 

0K2, 
TVACO, 
TVACB, 
DVB, 
BECO  , 
SVDCON 


DUEB, 
BK3 
0K3, 
NO, 
NNB, 
HUB, 
BST6  , 
I HUNT 


OUEO, 
BK9 
0K9 , 
UFO, 
UEO. 

HUO, 
ORBI  , 

. I OPST 8 


TOLUT, 

ISIZE, 

prflg, 

idvel, 

WEB. 

VSTG, 

ITNBU 


, 1 S Z DC  1$) 


UPB. 

TRAFLG, 

IPASS, 

ISPO, 

“2*0 

1TN0U  , 


TURAT2, 

TURATO, 

IPSHAX, 

ISPB, 

ULO, 


CKOUT 

ITER8 

ITER8 

ITERS 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

UH 

ORBINX 

CKOUT 

ORBINX 

ORBINX 


01  HENS  I ON  SKO(30),S60(  300  ),  t69(  6 ) , T026(  10  ),  T027<  6 ),  T039C  6 ), 

1 T098<  10  ),T099<  10  ),T050(  10  >,T057<  6 ),OUSAVE(  10  ) 

COHHON/ORBINX/ 

1 T01,T02,T03,T09,T05,T06.T07,T08,T09,T010,T011,T012,T013,T019, 

2 T015,T016,T017T018,T019T020,T021, 1022, 1023,10291025, 1026, i027,  ORBINX 

3 1028,1029,1030,  1 03 1 , I 0 32 , T033, T039 , T035 , TO 36,  1 03 7 , T0  38 , T039, T090,  ORBINX 
9 T091,T092,T093,T099,T095,T096,T09T,T098,T099,T050,T051,T052,T053, 

5 T059,  7055, T056,T057.T066,SK0, SCO. OUSAVE 

6,T059,T060,T061,T062,t063,T069,T065,T067,T068,T069,T070,T071, 

7 T072,T073,T079,T075,T076,T077,T078,T079,T080,T081,T082,T083, 

8T089 

D I HENS  I ON  SKB(  30),SCB(  300  >,  TB9C  6 ) , TB20C  10  ),  TB2  7(  6 ),  TB39C  6 ), 

1 TB98C  10),TB99(  10>,TB50<  10 >,TB57C  6 ), BUSAVEC  10) 

COHHON/ORBINV/ 

1 TB1,TB2,TB3,TB9.TB5,TB6,TB7TB8,TB9,TB10,TB11TB12,TB13,TB19, 

2 TB15,TB16,TB17,TB18,TB19TB20,TB21, f B22 , IB23, IB29, IB25, I 82  6, TB2  7 ORBINV 

3 IB28, IB29  IB30, 1 B 3 1 , IB32,TB33,TB39,TB35,TB36, 1 B37  TB38,TB39,TB90,  ORBINV 
9 TB91,TB92,TB93,TB99,TB95,TB96,TB97,TB98,TB99,TB50,TB51,TB52,TB53, 

5 TB59,TB55,TB56,TB57,SKB,SCB, BUSAVE 

6,TB59TB60.TB61fTB62,TB63,TB69.TB65.TB66.TB67.TB68.TB69.TB70, 
7TBTl,TB72,TB73,TB79,tB75,TB76,TB77,TBT8,TB79,tB80,TB81,TB82, 


ORBINX 

CKOUT 

UH 

UH 

UH 

ORBINV 

CKOUT 

ORBINV 

ORBINV 


ORBINV 
UH 
UH 
UH 
UH 


91  . 

C 

ITER8 

92. 

C 

SUC 2)  = 2 FOR  CONVERGED  RUN 

ITERS 

93, 

C 

SU(2)=1.  FOR  LAST  PASS 

ITERS 

99. 

c 

SU( 2 ) =.5  FOR  ITERATION 

ITERS 

95. 

C 

ITERS 

96. 

C 

CALCULATE  IHPULSE  HASS  RATIOS 

ITERS 

97. 

c 

ITERS 

98. 

CALL  SIZEHR 

ITERS 

99. 

c 

ITERS 

50. 

c 

CALC  ERROR  IN  HASS  RATIO  ANO  PRINT 

ITERS 

51. 

c 

ITERS 

52. 

TOLER  = ABSC  T039C3)  - SV(6>  ) / SVC  6) 

ITERS 

53. 

WRITE  ( 6,1005)  SVC  6 ),  T039C  3 ),  SUC  3 ),  SUC  5 ),  TOLER 

ITERS 

59. 

c 

ITERS 

55, 

c 

CHECK  FOR  SUCCESSFUL  CONVERGENCE 

ITERS 

56. 

c 

ITERS 

57. 

IFCTOLER.LT. SU(5>>  GO  TO  1 

CKOUT 

56. 

GO  TO  11 

ITERS 

59, 

c 

ITERS 

60. 

1 SUC  2 ) = 2. 

CKOUT 

61  . 

TRAFLG  = 1.0 

CKOUT 

62. 

GO  TO  n 

CKOUT 

63. 

c 

SET  ORBI TER  HASS  RATIO  FOR  UTVOL  ROUTINES 

ITERS 

69. 

c 

ITERS 

65. 

c 

CALL  FLYBACK  RANGE 

ITERS 

66. 

c 

ITERS 

11- 


67. 

68. 

69. 

70. 

71. 

72. 

73. 
79. 


11  T039C  3 ) = 5 VC  6 ) 

TB39C3)  = SVC  20  ) 

CALL  RAN6E 
CALL  FLVBKP 

IFC  SUC  2 ) . GE . 1. ) RETURN 


IF  HASS  RATIO  ERROR  TOO  LARGE  PRINT 


ITERS 

UH 

ITERS 

1TER8 

ITER8 

1TER8 

ITERS 

ITERS 
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75.  500  IFC  TOLER  . GT . SU< 5 ) ) URI TE( b 1 1000  ) S V< 6 ) , T039< 3 >, SN< 5 ), TOLER  I TER8 

76.  C ITER0 

77.  C IF  ITERATION  COUNTER  EXCEEDED  PRINT  ITER6 

76.  C ITER8 

75.  IF(  SU(  3 ).GT  ,$U(  <())  WRITE! 6, 1021 > SU(  3 >,  5«t  5 >, TOLER  ITERS 

80.  C ITER8 

81.  C RETURN  TO  SYNTH  PROGRAM  ITERS 

82.  RETURN  ITER8 

83.  1000  FORMAT  ( /26H  FAILED  TO  CONVERGE  - MU  = 2E16.B.  1TER8 

85.  I 5X#13H  INPUT  TOL  = F8.5,5X,7H  TOL  = F9.6)  ITER8 

85.  1005  FORMAT ( /5  X 1 OH  TOP  MU  = F 1 0 . 6 , 5 X . II  HUT  VOL  MU  = F10.fc,F9.0,  CXOUT 

86.  1 5 X , 1 3H  INPUT  TOL  = F8.5,5X,TH  TOL  = F9.6)  ITERS 

87.  1020  FORMAT  <//31H  ITERATION  COUNTER  EXCEEDED  = FH.O//)  ITERS 

88.  1021  FORMAT  (//31H  ITERATION  COUNTER  EXCEEDED  = F9.0,  ITERS 

89.  1 5 XI 3H  INPUT  TOL  = F8.5#5X,7H  TOL  = F9.6)  I TEAS 

90.  END  ITER8 
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SUBR0UTINE 

0PWELL 


I U M I MAN 

SYrmoi 


SORT 


™ ™0E  DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCH  LOC  SUBR  CODE  VAR 


F 5qu«r*  root  function 


/SORT  /<$ 


ANL  AT  (1 

F 

SORT 

CRASH 

F 

SORT 

OCTOE 

F 

SORT 

DER3A 

F 

SORT 

ENVPRfl 

F 

SORT 

HUNT 

F 

SORT 

MOOELA 

F 

SORT 

rtODEtB 

F 

SORT 

OPUELL 

F 

SORT 

OUT 

F 

SORT 

P AT  63 

F 

50RT 

PAV02 

F 

SORT 

P08C 

F 

SORT 

P0V3A 

F 

SORT 

STORE 

F 

SORT 

SVHVRT 

F 

SORT 

UTS  CM 

F 

SORT 

30  OCT  72  G.01-N6 


OPUtU 


h' 


1 . 

2. 
3. 
9 . 

5. 

6. 
7. 
6. 
9. 

10. 
11 . 
12. 
13. 
19. 

15. 

16. 

17. 

18. 

19. 

20. 
21. 
22. 
23. 
29. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
39. 

35. 

36. 

37. 
36. 
39. 

90. 

91. 

92. 


93. 


99. 

95. 

96. 

97. 

98. 

99. 

50. 

51. 


52. 


SUBROUTINE  OPWELL(  P V, N, STEP , EPP, PAY ) 
common  /OPUEL/ 

♦ DEL  (11)  .11  , COUNT  ,XT(3)  . AT  (3) 

♦PASAV  ,CON  , LOU  ,EN  ,PPN<10)  , 

♦SC  .MOUNT  .66(11,10) 

♦ . PA&,  NT  , Nt  , DO  . 0(7)  , VC  7 ) 

Cummon/S 1 Z1 NG/0Ummv(  320),  ELI  m 
DIMENSION  PV( 1 ),$TEP( 1 ) 

* , EPP(  1 ) 

INTEGER  COUNT, CON, EN 
INTEGER  ELIN 

BEGIN  LOGIC  FOR  SUBROUTINE  POWELL 
IF(EN.GE.l)  GO  TO  19 

FIRST  PASS  LOGIC 

NC=0 
NT  = 0 
PAO  -PAY 
SC=1 . 

CON  = -1 
L0U=0 
COUNT  =0 
MOUNT  =0 
11=1 
EN=1 

DO  5 1=1,3 

XT( 1 ) = 0. 

5 AT<  I ) = 0. 

DO  6 1=1,11 

6 DEL< 1 ) = 6. 

DO  10  1=1, N 

PVS(  I ) =PVM  ) 

10  PPN(  I ) = PVCI) 

NP1  =N*1 

DO  17  1=1, NP1 

DO  17  J =1, N 

IF( I.EO.J)  GO  TO  15 

G6( 1 . J )=  0. 

60  T6  17 


,PVS( 10) 


15  66(  1,J)=  1. 


17  CONTINUE 


CHECK  VALUE  OF  MOUNT. 

1.)  IF  MOUNT  EQUAL  ZERO  STORE  INFORMATION 
REQUIRED  FOR  ACCELERATED  LINEAR  SEARCH. 

2 ) IF  MOUNT  EQUAL  ONE  CONTINUE  WITH  QUADRATIC 
SEARCH. 


OPNELL 
OPHELL 
JULY28 
JULY28 
JULY26 
JULV28 
JULY28 
JULV28 
JULV28 
JULY2B 
JULY28 
j ULY28 
JULY28 
JULY28 
JULY28 
JULY28 
JULY28 
JULY28 
JULY28 
JULY28 
JULY28 
JULY28 
JULY28 
JULY28 
JULV26 
JULV28 
JULY28 
JULY28 
JULY28 
JULY28 
JULY28 
JULV28 
JULY28 
JULY28 
JULV28 
JULV28 
JULV28 
JULY28 
JULY28 
JULV28 
JULY28 
JULY28 


19- 


JULY28 


gl 


JULY28 

JULY28 

JULV28 

JULY28 

JULY28 

JULY26 

JULY28 

JULY28 


19  I Ft  MOUNT. EQ. 1 ) GO  TO  100 


JULY28 


ITOO— ; 


53. 

59. 

55. 

56. 

57. 

58. 

59. 

60. 
61. 
62. 
63. 
69. 


65. 

66. 
67. 
66. 

69. 

70. 
71  . 

72. 

73. 


20  COUNT 
XT(  1 ) 
XT(  2 ) 
XT  ( 3 ) 
AT  ( 1 ) 
AT<  2 ) 
ATC3) 


COUNT  ♦! 
XT(  2 ) 

XT(  3) 
OEL(Il) 
AT(  2 ) 

ATC  3 ) 
PAY 


I FC COUNT . GE.2 ) 60  TO  70 

SAVE  PAYOFF  TO  CHECK  IF  ACCELERATED  LINEAR  SEARCH 
SHOULD  BE  ENDED. 


JULY28 

JULY28 

JULV28 

JULY28 

JULY28 

JULY28 

JULY26 

JULY28 

JULV28 

JULY28 

JULY28 

JULY28 


70-i 


52  PASAV  = PAY 

COMPUTE  STEP  SIZE  FOR  USE  IN  ACCELERATED  LINEAR  SEARCH, 
AND  COMPUTE  NEW  VALUE  OF  PV. 

VAL  = 0. 

DO  53  1 = 1, N 

53  VAL  = VAL  ♦ ( GG( 1 1 , 1 )/STEP( I ) )**2 
OEL( II  ) =1 ./SQRT( VAL) 


JULY28 

JULY28 

JULY28 

JULY28 

JULY28 

JULY28 

JULY26 

JULY28 

JULY28 
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DEUin  - 2 .** COUNT *DEL(  II  )/(2.*EN)  JULY28 

DEUin  = SC  • OELCII)  JULY28 

DO  55  1 ~1 , N JULY28 

55  PV<1>=  PPN<1)  ♦ DEL(  II  >*6G<  II#!)  JULY  28 

RETURN  JULY28 

JULY26 

COMPARE  VALUES  FRO*  ACCELERATED  LINEAR  SEARCH.  JULY26 

1. )  IF  FIRST  THREE  POINTS  FORH  A CONCAVE  UPWARD  JULY28 

SET.  GO  TO  QUADRATIC  SEARCH.  JULY28 

2. )  IF  PAY  IS  LESS  THAN  PASAV,  SET  PASAV  EQUAL  JULY28 

TO  PAY,  CGHPUTE  NEW  STEP  SIZE  AND  NEW  VALUE  JULV28 

OF  PV.  JULY28 

3.  > IF  PAY  IS  GREATER  THAN  OR  EQUAL  TO  PASAV.  JULV28 

A.)  IF  COUNT  IS  EQUAL  TO  TWO.  SET  JULY28 

PASAV  EQUAL  TO  PAY,  REVERSE  THE  JULY28 

OIRECTION  OF  NEW  STEP, COMPUTE  JULV28 

NEW  PV.  JULY28 

8.  I IF  COUNT  NOT  EQUAL  TO  TWO  BE6IN  J UlY 20 

QUADRATIC  SEARCH.  JULY28 

JULV28 


94. 

95. 

96. 

97. 

98. 

99. 

C 

C 

c 

70 

IF(PAV. GT. ATI  1 ). AND. SC. EQ . - . 5 . AND . COUNT . EO. 3)  GO  TO  75 
IF! PAY. LT. PASAV  ) 60  TO  52 
I F ( COUNT .EQ .2 ) GO  TO  90 

BEGIN  QUADRATIC  SEARCH. 

JULV28 
J ULY  28 
JULY28 
JULY28 
JULY28 
JULY28 

52 

90— j 

100. 

75 

NC=NC*1 

JULY28 

101 . 

AA  = ( XT{ 2 )-XT( 3 ))*AT(  1 ) 

JULY28 

102. 

88  =(  XT<  3)  - XT!  1 ) )*AT(2  ) 

JULY28 

103. 

CC  =(  XT(  1)  - XT<2)  >*AT<  3 ) 

JULY28 

109. 

AS  = (XT(2>**2  -XT(  3 )**2  )*ATC  1 ) 

JULY28 

105  . 

8S  =(XT(3)**2  -XT(  1 )**2  )*AT<2) 

JULY28 

lOfc. 

CS  = (XT<  11**2  - XT(  2 1**2  >*AT(  3 ) 

J0LY28 

107. 

DQ=  ( AS  + BS+CS  )/( AA*BB*CC ) 

JULY28 

108. 

OD  * .5*00 

JULY28 

109. 

D(NC)  -DO 

JULY28 

110. 

PASAV  * PAY 

JULY28 

Ill . 

DO  85  1 = 1. N 

JULV28 

112. 

85 

PV(I)  s PPNt  I ) *00*66(11,1  > 

JULY28 

113. 

HOUNT  = 1 

JULY26 

114. 

RETURN 

JULY28 

115. 

c 

JULY28 

116. 

c 

REVERSE  D1RET1QN  OF  STEP. 

JULY28 

117. 

c 

JULY28 

118. 

90 

SC  = -.5 

JULV28 

119. 

GO  TO  52 

JULY28 

52 

120. 

c 

JULV28 

121 . 

c 

CHECK  VALUE  OF  LOU. 

JULY 2 6 

122. 

c 

1.)  IF  LOU  EQUAL  TO  ONE,  CHECK  CONVERGENCE  OF 

JULY28 

123. 

c 

QUADRATIC  SEARCH 

JULY28 

124. 

c 

2.)  IF  LOU  EQUAL  TO  ZERO,  THROW  AWAY  WORST 

JULY28 

125. 

c 

VALUE  OF  ACCELERATED  LINEAR  SEARCH  AND 

JULY28 

126. 

c 

' REPLACE  BY  RESULT  OF  QUADRATIC  SEARCH 

JULY28 

127. 

c 

JULY28 

128. 

100 

VI  NC>=  PAY 

JULY28 

129. 

I Ft LOU.EQ. 1 ) GO  TO  150 

JULY28 

I 50 

130. 

105 

PHAX  = AflAXH  ATI  1 ),  AT(2>,  ATI  3 > ) 

JULY28 

131  . 

00  120  1=1,3 

JULY28 

132. 

IFtPRAX.EQ.  ATC  D)  GO  TO  121 

JULY28 

121  — i 

133. 

120 

CONTINUE 

JULY28 

. 1 

134. 

121 

JH  = I 

JULY28 

135. 

PniN  = AH  INK  ATI  1 ),  AT  (2),  AT  (3)) 

JULY28 

136. 

DO  130  I =1.3 

JULY28 

137. 

I F( PHI N . EQ . A 1 ( 1 ))  GO  TO  131 

JULY28 

131—1 

138. 

130 

CONTINUE 

JULY28 

131  JS  = I 

JL  = HG0<J*«*J$,41 
I Ft JL.EQ.O ) JL  =2 
Ffll  = ArtAXH  XT(  1 >,XT(2  > ,XT<  3>> 

Ffl2  = AHl N 1 { X T € 1 ).XT(2),XT(  3 ) ) 

Iff  DO. GT.FNl.OR.Ou.LT. Frt2  > 60  TO  141 

IF(  XTC  JHl.EO.FHl . AND. 1T<  JL).EQ.Fn2 ) GO  TO  137 


JULY28 
JULY28 
JULY28 
JULY28 
JULY 2 8 
JULY28  141 
JULY28  137 
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146. 
1 47. 


IFt  XT<  JM  ) .EQ  .F«2.  AND  . X T ( JL  KEQ.FMl  ) 60  TO  135 
GO  TO  141 


JULY28 

JULY20 


146. 
1 49. 

135 

IFt OD.GT .XTt JS )>  GO  TO  141 
GO  TO  145 

JULY26 

JULY28 

145  — 

150. 

137 

IF( 00. 6T . XT( JS  >)  60  TO  145 

JULY26 

151  . 

141 

XTtJM)  =DD 

JULY28 

152. 

AT<  JN)  =PAY 

JULY28 

153. 

GO  TO  149 

JULY28 

1 4 9 — | 

154. 

145 

XTtJL)  =00 

JULY28 



155. 

AT< JL  )=  PAY 

JULY28 

, 1 

156. 

149 

LOU  =1 

JULY28 

157. 

60  TO  75 

JULY28 

158. 

150 

IFt NC.GE. 7 ) GO  TO  152 

JULY26 

Trr=j 

159. 

IFtPAY.GT.PASAY)  GO  TO  105 

JULV28 

160. 

TT  = . 2 

JULY28 

161  . 

IF( N.EQ. 1 ) TT= . 05 

JULY28 

162. 

IFt PASAY-PAY.GT .TT*PASAV>  GO 

TO 

105 

JULY28 

163. 

I Ft NT.E0.2  > GO  TO  152 

JULY28 

152  — 

164. 

NT  = NT*1 

JULY28 

165. 

I Ft PAY.6T.PA0)  60  TO  105 

JULY28 

166. 

C 

JULY28 

167. 

C 

IF  N EQUAL  TO  ONE,  SET 

CON 

equal 

TO  ONE  AND  RETURN 

JULY28 

168. 

c 

JULY28 

169. 

152 

IN=1 

JULY28 

170. 

YMIN=¥(  1 > 

JULY28 

171  . 

00  153  1=2, NC 

JULY28 

172. 

I Ft VMIN. GT . Yt I ) ) IM=I 

JULY26 

173. 

153 

VMIN  = Yt IN) 

JULY28 

174. 

DO  = Ot  IN) 

JULY28 

175. 

DO  154  1=1, N 

JULY28 

176. 

154 

PVt I ) = PPNt I )*DD*  66t 1 1. 1 ) 

JULY28 

177. 

P AY  = ¥(  IN) 

JULY28 

178. 

NT-0 

JULV28 

179. 

NC  = 0 

JULY28 

180. 

IFIN.EO.l)  60T0  252 

JULY26 

252  — 

181  . 

I Ft  II .EQ.N+l  ) GO  TO  200 

JULY26 

200  — 

182. 

c 

JULY28 

183. 

c 

RESET  FOR  NEH  MINOR  OR 

COMBINED 

SEARCH. 

JULY28 

184. 

c 

JULY28 

185. 

DO  155  1=1. N 

JULY28 

186. 

155 

PPNt  I ) = PPNt  I ) ♦ 00*66(  11. 1 ) 

JULY28 

187. 

NT  = 0 

JULY28 

188. 

SC=1. 

JULV28 

189. 

COUNT  =0 

JULY28 

190. 

MOUNT  = 0 

JULY28 

191 . 

LOU  = 0 

JULY28 

192. 

NP1=N+1 

JULY28 

193. 

DO  160  1=1, NP1 

JULY28 

194. 

160 

OELt I ) = 0. 

JULY26 

195. 

11*11*1 

JULY28 

196. 

IFt II.LE.N)  GO  TO  20 

JULY28 

197. 

c 

JULY28 

198. 

c 

COMPUTE  COMBINED  DIRETION. 

JULY28 

199. 

c 

JULV28 

200. 

GYAL=0 

JULV28 

201  . 

DO  175  I = l.N 

JULY28 

202. 

175 

GYAL  = GVAL+t PPNt I )-PY5(  I ))**2 

JULY28 

203. 

GYAL  = SORT! GYAL) 

JULV28 

204. 

00  180  I = l.N 

JULY28 

205. 

180 

GG(II.I)  = ( PPNt  I )-PY$<  I ) 1/GVAL 

JULY28 

206. 

GO  TO  20 

JULY28 

207. 

c 

JULY28 

208. 

c 

CHECK  CONVERGENCE  OF 

PROBLEM. 

JULY28 

209. 

c 

JULY28 

210. 

200 

DO  250  I =1 . N 

JULV26 

211. 

250 

IFt  ABStPYSt  I )-P Yt  I ) ) . GT  . EPPt  1 ) ) 

GO  TO 

255 

JULY28 

i 

135 


1 


141- 

141- 


d 


212. 

213. 

214. 

215. 

216. 


252  COM  = 1 
RETURN 


INCREMENT  EM. 

1.)  IF  EN  IS  LESS  THAN  OR  EQUAL  TO  ELI  M RESET 


JULV28 

JULV2B 

JULV28 

JULY28 

JULY28 


105- 

105- 

105- 
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/ £S?<y 


220. 

221. 

222. 

223. 

255  EN=EN*1 

1F< EN.LE.ELIR  ) GO  TO  260 

CON  = 0 

RETURN 

JULV28 

JULY28 

JULY28 

JULV28 

260— | 

229. 

260  00  261  1 £ 1 , N 

JULY28 

225  . 

pvsi  i > spwn 

JULV28 

226. 

261  PPN(  1 1 = PYU> 

JULY28 

227. 

NT  £ 0 

JULY28 

226. 

PAO  =PAY 

JULY28 

229. 

11  =1 

JULY26 

230. 

SC  = 1. 

JULY28 

231. 

C0UNT=O 

JULV28 

232. 

MOUNT  £ 0 

JULY28 

233. 

LOU  £ 0 

JULV28 

217. 

216. 

219. 


FOR  NEW  MAJOR 

2.)  IF  NOT, SET  CON  EQUAL  TO  ZERO  ANO  RETURN. 


JULV28 

JULY26 

JULY28 


239.  NP1=N+1 

235.  DO  265  1=1, NP1 

236.  265  OEUt>  £ 0. 

237.  DO  270  I £ I,N 

238.  DO  270  J =1,N 

239.  270  GG(  I . J ) = GGtI  + l,J> 

290.  GO  TO  20 

291 . END 


JULV28 

JULV28 

JULV28 

JULV28 

JULV28 

JULV28 

JULV28 

JULV28 


20- 
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SUBR0UTINE 
PR  INTV 


I-ORTRAN 

symbol 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


S T QR AGE  SUBROUTINE  USAGE 
BLOCK  LOC  SUBR  COOE  VAR 


KILO 

u 

Pounds  to  kllograa  conversion 

/PRINTV/I v 

) 

PR  I NT  V 

U 

KILO 

KV600Y 

u 

Saae  as  vbody  In  akt  units 

/PRINTV/I * 

) 

PRINTV 

Ul 

KVBOOV 

KVCARG 

u 

Saae  as  vcargo  In  aka  units 

/PR  I NT  V/( * 

) 

PRINT  V 

U 

KVCARG 

KVCREU 

u 

/PRINT V/{ * 

) 

PRINTV 

U 

KVCREU 

KVEUTK 

u 

Saae  as  vfutk  In  aks  units 

/PRINT V/< * 

) 

PRINTV 

U 

KVFUTK 

KVFUT2 

u 

Saae  as  vfutk2  In  aks  units 

/PRINT V/( ♦ 

) 

PRINTV 

U 

KVFUT2 

KVINST 

u 

Saae  as  vinstk  In  aks  units 

/PRINT V/( » 

) 

PRINTV 

U 

KVINST 

kvlgba 

u 

Saat  as  vlgbay  in  aks  units 

/PR  I NT  V/ ( * 

) 

PRINTV 

U 

KVLGBA 

KVOTHE 

u 

Saae  as  vother  in  aks  units 

/PR  I NT  V/{  ♦ 

) 

PRINTV 

U 

KVOTHE 

KVOXTK 

w 

Saae  as  voxtk  in  aks  units 

/Pfl I NT  V/( * 

) 

PRINTV 

U 

KVOXTK 

KV0XT2 

u 

Saae  as  voxtk2  in  aks  units 

/PR  1 NT  V/( * 

) 

PRINTV 

U 

KVOXT2 

KVPROP 

w 

Saae  as  vprop  In  aks  units 

/PR  f NT  V/( # 

) 

PRINTV 

W 

KVPROP 

KVSTRU 

U) 

Saac  as  vstruc  in  aks  units 

/PR  I NT  V/ ( * 

) 

PRINTV 

U 

KVSTRU 

PR  I NT  V 

E 

Subroutine  to  print  vehicle  voiuae  data 

/PRINT V/( $ 

) 

PRINTV 

E 

PRINTV 

UT  VOL 

S 

PRINTV 

PROTHR 

s 

Subroutine  to  print  alsc  data 

/PR0THR/( $ 

) 

PRINTV 

s 

PROTHR 

PROT  HR 

E 

PROTHR 

VBODY 

n 

Total  body  vo 1 uat 

/ C I NP UT /( 

391  ) 

PRINTV 

M 

VBODY 

SOLVE 

M 

VBODY 

STORE 

n 

VBODY 

TAMPER 

I 

VBODY 

UTSCH 

M 

VBODY 

’ 

UT  VOL 

1 

VBODY 

VCARGO 

I 

Voiuae  of  cargo  bay 

/VOLCAL/( 

27  ) 

PRINTV 

I 

VCARGO 

T AHPER 

I 

VCARGO 

UTSCH 

« 

VCARGO 

VCREW 

I 

Voiuae  of  crea  coap  arteent 

/VOLCAL/( 

28  ) 

PRINTV 

1 

VCREW 

UTSCH 

PI 

VCREW 

VFUTK 

I 

Total  voiuae  of  fuel  tank 

/ VOLCAL/( 

29  ) 

PRINTV 

I 

VFUTK 

STORE 

n 

VFUTK 

TAMPER 

I 

VFUTK 

UTSCH 

M 

VFUTK 

VFUTK2 

I 

Total  voiuae  of  secondary  fuel  tank 

/ V0lCAL/( 

30  ) 

PRINTV 

I 

VFUTK2 

STORE 

N 

VFUTK2 

TAMPER 

I 

VFUTK2 

UTSCH 

n 

VFUTK2 

vinstk 

I 

Total  tank  insulation  voiuae 

/ VOLC AL/( 

31  ) 

PRINTV 

I 

VINSTK 

UTSCH 

M 

VINSTK 

vlgbav 

i 

Voiuae  of  recovery  systea  bay 

/ VO  LCAL/< 

32  ) 

PRINTV 

I 

VLGBAY 

UTSCH 

PJ 

VLGBAY 

VOXTK 

i 

Total  voiuae  of  oxidizer  tank 

/V0LCAL/( 

39  ) 

PRINTV 

I 

VOXTK 

STORE 

PI 

VOXTK 

TAMPER 

I 

VOXTK 

UTSCH 

PI 

VOXTK 

V0XTK2 

i 

Total  voiuae  of  secondary  oxidizer  tank 

/ V0LCAL/( 

35  ) 

PRINTV 

I 

V0XTK2 

STORE 

M 

V0XTK2 

TAMPER 

I 

VO  XT  K 2 

UTSCH 

PI 

V0XTK2 

VPBOP 

I 

Voiuae  of  propulsion  bay 

/ VOLCAL/I 

36  ) 

PRINTV 

I 

VPBOP 

UTSCH 

n 

VPROP 

VSTRUC 

I 

Voiuae  of  basic  structure 

/V0LCAL/( 

37  ) 

PRINTV 

I 

VSTRUC 

UTSCH' 

pi 

VSTRUC 
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FORTRAN 

SYMBOL 


.UNO*. 


P1ATH 

SYrtBOt 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK  LOC  S UBR  CODE  YAR 


0 Flit  Of  oil  output  dots  /. UNOfc. /<$  ) BLICO  0 .UNOfc. 

BNORYC  0 . UNOfc . 

CRASH  0 . UN06 . 

FRENCH  0 . UNOfc . 

FXOAT  0 . U NO  6 . 

GEINP  0 . UNOfc . 

HUNT  0 . UN06 . 

INEDIT  0 . UN06 . 

ITERS  0 . UN06 . 

, PTODELA  0 . UN06 . 

nonj  0 . UN06 . 

mPSI  0 . UN06 . 

OUT  0 . UN06 . 

PAY02  0 . UNO  6 . 

PRINT  0 . UN06 . 

PRINTV  0 . UNOfc . 

PRINTU  0 . UN06 . 

PRITEO  0 . UNO  6 . 

PBJTVA  0 . UNOfc . 

PROPIN  0 . UNOfc . 

PROTHR  0 . UN06 . 

PRWTSU  0 . UNOfc . 

RANGE  0 . UN06 . 

S 0 . UN06 . 

SDINP  0 -UNOfc. 
SIZE  0 . UNOfc . 

SIZIN  0 .UNOfc . 
SIZOUT  0 . UN06 . 

SOLVE  0 . UN06 . 

SPLICO  0 . UNOfc . 

SPLIZ  0 . UNOfc . 

SPLYNE  0 . UNOfc . 

SSSP  0 . UNOfc . 

STAU  0 . UNOfc . 

STPIT  0 . UNOfc. 

SUnOUT  0 .UNOfc. 
TABIN  0 .UNOfc. 
TEST  0 .UNOfc. 
VEHDF  0 .UNOfc. 
UJTSCH  0 .UNOfc. 
UTVOL  0 .UNOfc. 
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PRINT* 


SUBROUTINE  PRINT* 

C ♦ PR  I NT ¥ **• 

C 

C PRINT¥  - PRINT  VOLUMES 
C 

real  ailo,  avstru,  avcars,*  vlgba,xvprqp,rvfutr#xvoxtk,xvinst,i(vothe 

*,KVBDDY,X¥FUT2, AV0XT2,  AVCREW 
REAL  KIN 


REAL  ISP .A, LF,NR,NCREW,LBODY,NPASS 
REAL  NENGS 


COMMON/ Cl NPUT/ 
IANENGS  , ANT  ANA 


2CHBOOV 
3CSPLAN 
91SPC  6 ) 
5 NENGS 
6RH0FU2 

hvtail 


, CL80DY 
, CS VERT 
, I TPS 
, NL I STO 
,RHOX 
.VBOOV 


ASR AT  0 
, CSBODV 
f CSU1N6 
,*(  30  ) 

, NP  ASS 
, RH0X2 
, U8R0SS 


common/ v6lcal/bbo6y . CROOT 


, ASWEEP 
,C$FAIR 
, CTHRST 
, KIN 
,NUL 
, SBODV 

, CSPAN 
, SF  AI R 
,SWIN6 
f VBOOV A 
, V l N5T  A 


,C(  300) 
,CSFUTK 
,CT«ST2 

, PCM AN 

* tol 

, CT  IP 
.SFUTA 
,SXPOS 
, VBOOV! 
, VL6BAV 


2HB0DY  , LBOQV  ,RfOD  ,SFAIR  ,SFUTA 

3SPLAN  ,STPS(  1 ) ,SVERT  ,SMING  ,SXPOS 

9TT0T  ,TT0T2  , TTOT  AL  ,VBODYA  ,VB0DVI 

5VCREW  ,VFUTA  ,VFUTK2  ,VINSTA  ,*L&BAY 

6V0XTA2  VPROP  ,VSTRUC 
COMMON/MTCALC/  ABFSYS  , UABFTA  ,WABFU 
1WACS  , M ACSFO  , WACST  A , WAERO  ,WAUXT 

2U8PUNP  ,WCARGO  ,WCOMN  ,WCONT  ,WCGVER 

3WDIST2  , WOO  CK  WOPLO V , MORANS  , WDR  V 
9WENGNT  , WENSS  , UENGS2  ,WFAIR  .WFCONT 

5WFU2C3)  ,WFUEL<  6>,UFUL  ,UFULOS  ,WFUNCT 
6WFUSYS  ,MFUTA  ,UFUTA2  ,WFUTOT  ,MFUTRP 

7WH0RZ  , WHY  CAD  ,UINFUT  , MI  NO  XT  , WI N5T  A 

8WJETC6)  , MLANCH  ,ULG  ,Wl05S  ,WLRD 

9 WO  I L , UO I LRS  ,WORSUL  ,WOVERS  ,W0X(6> 

1W0XL0S  , WO  XRES  , WQXSVS  ,WQXTA  ,W0XTK2 

2WP  , WPASS  f UP  AVL  , WPERS  ,WPOWCO 

3WP0WRS  ,WPOWTK>  ,WPPROV  ,WPREIG  ,WPROP 

9WRESI0  , WRESfi V , USE AL  ,W$ECST  ,wSORCE 

5WSURF  , UT  ABC  ,UTHRST  ,WTO  ,WTPS 

6WWET  , UWI NG  , WZROFU  , UABTRP  , WABRES 

7 MANORS  , WMNFRS  ,UACOTP  ,UACFTP  ,WPWOTP 

8MABFUC  WACORS  .UACFRS  .MPMORS  ,UPWFRS 
9 AILO  = .0283 

KVSTRU  ~KI LO  *¥STRUC 
KVCREM-KILO  *VCREW 
A VO  XT2  = AI LQ* VQXTAZ 
A VFUT2=A I LO*  VFUTA2 
AVCARG  -A I LO  » VCAR60 
AVLGBA  =KI LO  * VLGBAV 
A VPROP  =A I LO  * VPROP 
A VFUTA  =AILO  **FUTA 
AVOXTA  =A I LO  *VOXTA 
AVINST  = VI NSTA*A I LO 
AVOTHE  =A I LO  * VOT HER 
A VBOOV  =KILO  *¥BOOV 
WRITE  (6,8) 

MR  IT  E<  610) 

MR  I TE( 6, 1 00  ) VSTRUC, AVSTRU 
WRITE! 6,200  ) VCREW. AVCREW 
WRITE  (6,300)  VCAR50, AVCARG 
WR I TEC  6 , 900  ) VLGBAV , AVLGBA 
WRITEC 6,500)  VPROP, A VPROP 
WR  I TE<  6, 70©  > VFUTA, AVFUTA 
WR  I TE( 6,600  ) VOXTA, AVOXTA 
WR  I TE( 6,900  ) VINSTA, AVINST 
WRITEC  6, 1900  ) VFUTA2, AVFUT2 
WRITEC 6,1500)  V0XTA2, A V0XT2 
1110  FORWATC 1MO,9CHTOTAL  ENTRY  VEHICLE  VOLUME 
950  WRITE  ( 6, 1000  1V0THER, AVOTHE 
WRITEC 6,1110 > VBOOV, AVBODV 
IFC  VBOOV. EO.O. ) VBOOV  = 1. 

CALL  PROTHR 
RETURN 

8 FORMAT  ( 1H1 ) 

10  FORMATC  8H  VOLUMES  ,35X,10H  CU  FT 


CBBODV 
, CSHORZ 
, OEFC 5 ) 

, MRC  6 ) 

,0 

, TO VERC 

, GAL 
SHORZ 
, TOEL 
, VB00V2 
, VOTHER 

WABPR 
USAS  I C 
, WOE  CAV 
,WELCAD 
UFDCAV 
, WFUOX 
, WGASPR 
,WINST 
, UNACEL 
, WO  X 2 C 3 ) 
, wo X TOT 
WPO WER 
WPRS VS 
WSRTRP 
, UVERT 
WflNOTP 
WPWFTP 


, CF  UELC  6 ), 
, CSO  XT  A , 
, FXMQ  VS  , 
, NCREW 
, RHOFU  , 
, TPR ATO  , 

, GSP  AN  , 
, SO  XT  A , 
, TROOT 
, VCARGO  , 
, VOXTA  , 

, WACRES  , 
, WBOOY  , 
, WDIST1  , 
, WEMPT  V , 
, WFROST  , 
, UFURES  , 
, MGNAV  , 
,WINSUL  , 
, WODCAV  , 
,WOXIO  , 
, WO  XTRP  , 
, WPO WFO  , 
, WREFUL  , 

,wstab 

, WWAITC 10) 
, WMNFTP  , 
,WGAS  , 
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76. 

100 

FORMAT! 1 HO 

t 90HB0OY  STRUCTURE 

2F10.2) 

PRINT! 

77  . 

200 

FORMAT!  1H 

,90HCREW  AND  PASSENGER  COMPARTMENTS 

2F10.21 

PRINT! 

78. 

300 

FORMAT ( 1H 

, 90HCAR  GO  COMPARTMENT 

2F10.2) 

PRINT! 

79. 

HOO 

FORMAT ( IH 

.90HLAND1NG  GEAR  BAYS 

2F1C.2  ) 

PRINT! 

80. 

500 

FORMAT!  IH 

, 90HPROP ULS 1 ON  BAY  WITHIN  BOOV 

2F10.2  ) 

PRINT! 

61  . 

700 

FORMAT!  IH 

90HFUEL  CONTAINERS 

2F10.2  ) 

PRINT! 

82  . 

800 

FORMAT!  1M 

.90H0X1DI2ER  CONTAINERS 

2F1C.2  ) 

PRINT! 

63. 

900 

FORMAT!  IH 

, 90HPR0PELLANT  INSULATION 

2F10.2  ) 

PR  I NT! 

8 S . 

1000 

FORMAT!  IH 

, 90H0THER  BODY  VOLUME 

ZF1C.2) 

PRINT! 

85. 

1900 

FORMAT! IH 

, 90HSEC0NDARY  FUEL  CONTAINERS 

2F10.2  ) 

PRINT! 

66. 

87. 

1500 

FORMAT!  IH 
END 

HOHSECONDARV  OXIDIZER  CONTAINERS 

2F1G.2  1 

PRINT! 

PRINT! 
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SUBROUTINE 

PRINTW 


/V57 


I OH  l H A N 
SYMBOL 


m a 1 h 
SYMBOL 


CODE 


DESCRIPTIOM 


STORAGE 


BLOLK 


LOC 


SU^fiQUT  1 usage 
SUUR  CODE  VAR 


c 

I 

Input  array  c ( 300  > of  vehicle  siting  dot* 

/ C I NP  UT / ( 

5 ) 

PRINTy 

I 

C 

PR  IT  EG 

I 

C 

PRITVA 

I 

c 

STORE 

to 

c 

yTSCH 

I 

c 

yT  VOL 

0 

c 

FROST 

U 

yt  of  Ice  and  frost  (kg) 

/PR  I NTy/( a 

) 

PRINTy 

y 

FROST 

jump 

' I 

Oata 

flag  0=  orblter  1=  booster 

/JUnPY  /( 

1 ) 

FRENCH 

0 

JUPIP 

PRINTy 

i 

JUPIP 

PRITVA 

i 

JUPIP 

PRUTSPi 

pi 

JUPIP 

yTSCH 

i 

JUPIP 

yT  VOL 

n 

JUPiP 

KILO 

u 

Pounds 

to  kilograw  conversion 

/PRINTy/( ♦ 

) 

PRINTy 

y 

KILO 

K0XTK2 

u 

Same 

as 

•o  it k2  In  «k  s units 

/PRINTy/< ♦ 

) 

PRINTy 

y 

K0XTK2 

KUABFT 

U) 

Sawe 

a s 

wabf t k i n wks  units 

/PRINTU/(  * 

> 

PRINTy 

y 

KWABFT 

KtJABPR 

u 

S awe 

a $ 

wabpr  in  wks  units 

/PRINTy/< ♦ 

) 

PRINTy 

y 

KWABPR 

kuacre 

u 

S awe 

as 

wacres  in  wks  units 

/PR  I NTy/( ♦ 

) 

PRINTy 

y 

KWACRE 

KUACS 

u 

S awe 

as 

•acs  in  wks  units 

/PRINTW/< ♦ 

) 

PRI  NT  y 

y 

KWACS 

KuJACSF 

u 

S wae 

as 

wacsf o in  wks  units 

/PRINTy/( ♦ 

) 

PRINTy 

y 

K WACSF 

kwacst 

u 

S awe 

a s- 

wac  s tk  in  wks  uni ts 

/ PR  I NT W/ ( * 

) 

PR  I NT y 

y 

KWACST 

KUAERO 

y 

S a we 

as 

waero  in  wks  units 

/PRINTy/( * 

) 

PRINTy 

y 

KUAERO 

KUAUXT 

u 

S awe 

as 

aiuit  in  wks  uni  ts 

/PRINTy/( * 

) 

PRINTW 

y 

KUAUXT 

KWBASI 

y 

Sa  we 

as 

wbasic  in  wks  units 

/PRINTy/( * 

) 

PRI NT  y 

y 

K UB AS  I 

KUBOOY 

y 

S a we 

as 

wbody  in  wks  units 

/PRINTy/( ♦ 

) 

PRI  NT y 

y 

KUBQOY 

KWCARG 

y 

S awe 

as 

wc  ar  go  in  wks  units 

/PR  I NTW/( ♦ 

) 

PRINTW 

y 

KUCARG 

KWC0P1N 

y 

S awe 

as 

wcoww  in  wks  units 

/PR  I NT  y/ ( ♦ 

) 

PRI NTW 

y 

K WCOflfl 

KUCONT 

y 

S awe 

as 

wcont  in  wks  units 

/PR  1 NTW/( * 

) 

PRINTW 

y 

KW CO  NT 

KUCOVE 

y 

S awe 

as 

■cover  in  wks  units 

/PR  I NTW/( * 

) 

PR  I NTW 

y 

KUCOVE 

KUDECA 

y 

S awe 

as 

■decay  in  wks  units 

/PR  I NT y/ ( ♦ 

) 

PR  I NTW 

y 

KWDECA 

KUOOCK 

y 

S awe 

as 

■ dock  in  w k 5 units 

/FBI  NT U / ( * 

) 

PRINTW 

y 

KWOOCK 

KUDPLO 

y 

S awe 

a s 

wdp  loy  i n wks  units 

/ P R I NT y/ ( ♦ 

) 

PRINTW 

y 

KUOPlO 

KUORV 

y 

S awe 

as 

wdr  y in  wks  units 

/PRINT  y/( * 

) 

PRINTW 

y 

KUDRY 

KldELCA 

0 

S a we 

as 

■elcad  in  wks  units 

/pr i NTy/( ♦ 

) 

PRINTW 

0 

KUELCA 

KWENGS 

y 

Sawe 

a s 

■ e ngs  in  wks  units 

/PRlNTy/( W 

) 

PRINTW 

y 

KUENGS 

KWFAIR 

y 

S awe 

a s 

■fair  in  wks  units 

/PRINTU/<  * 

) 

PRINTW 

y 

KWFAIR 

KUFUL 

y 

Sawe 

as 

wful  in  wks  units 

/PR  I NT y/c * 

) 

PRINTW 

y 

KUFUL 

KWFULO 

y 

Sawe 

a s 

■ f u i o s in  wks  units 

/PRINTW/(# 

) 

PRINTW 

y 

KUFULO 

KWFUOX 

y 

Sawe 

a s 

■f uo i in  wks  uni ts 

/PRINTU/C* 

) 

PRINTW 

y 

KWFUOX 

KUJFURE 

y 

Sawe 

as 

wfures  in  wks  units 

/PRINTy/C ♦ 

) 

PRINTW 

y 

KWFURE 

KUFUSY 

y 

Sawe 

a s 

■fusvs  in  wks  units 

/PRINTy/<  V 

) 

PRINTW 

y 

KUFUSY 

KUFUTK 

y 

Sawe 

as 

■futk  in  wks  units 

/PRINTy/(  * 

) 

PRINTW 

y 

KUFUTK 

KUFUTR 

y 

Sawe 

a s 

/PRlNTy/(  ♦ 

) 

PRINTW 

y 

KWFUTR 

KWFU2 

y 

Sawe 

a s 

wfu2(I)  in  wks  units 

/PR  I NTy/( ♦ 

> 

PR  I NTW 

y 

KWFU2 

KUGASP 

y 

Sawe 

as 

■gaspr  in  wks  units 

/PRlNTy/( V 

) 

PRI NTW 

y 

KUGASP 

KUGNAV 

y 

Sawe 

a s 

wgnav  in  wks  units 

/PRlNTy/( ♦ 

) 

PRINTW 

y 

KUGNAV 

KulGROS 

y 

Sawe 

a s 

sgross  in  wks  units 

/PRI NTU/( * 

) 

PRI NTW 

y 

KUGROS 

KWHORZ 

y 

Same 

a s 

abort  in  wks  units 

/PRI NTW/( * 

) 

PRI NTW 

W 

KUHORZ 

K WHYCA 

u 

Sawe 

3 s 

tuhycad  in  wks  units 

/PRlNTy/( * 

) 

PRINTW 

y 

KWHYCA 

KWINFU 

- 

y 

Sawe 

as 

■Inful  In  wkt  units 

/PRI NTy/( » 

) 

PR  I NT  W 

W 

KUINFU 

K bll  NO  X 

y 

Sane 

a s 

■ I no  it  in  wks  units 

/PR INTW/(  ♦ 

) 

PRI NT  W 

y 

K W ] NOX 

KU1  NST 

y 

Sawe 

a s 

■instk  in  wks  units 

/PRINTy/(  * 

) 

PRI NTW 

y 

kuinst 
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* (Ml  1 HAN 

DESCRIPTION 

S 1 OnA'iF 

SUBRO'JT  I Nf 

USAGE 

\ V i*l till  l 

Block  lo 

SUBR  LO  OE  VAR 

KWlNSU 

u 

s am* 

at 

talntul  In  mk  i units 

/PRINTU/t  » 

) 

PRINTU 

U 

KWlNSU 

KUINS1 

u 

Same 

at 

• Inst  In  mk  s units 

/ P R I NT  U/  { • 

) 

PRINTU 

U 

KU1NS1 

KULANC 

u 

Sam* 

at 

•lanch  In  mkt  units 

/ PR  1 NTU/< * 

) 

PRINTU 

U 

KULANC 

KULG 

u 

Same 

as 

■ 1 9 In  mk s units 

/PR  I NTU/( ♦ 

) 

PRINTU 

U 

KWCG 

KULOSS 

u 

Same 

as 

•loss  in  mks  units 

/PR  I NTU/( ♦ 

) 

PRINTU 

U 

kulOSS 

KULRD 

u 

Same 

as 

■ird  in  mks  units 

/PR  1 NTU/( ♦ 

) 

PRINTU 

U 

KULRD 

KUNACE 

u 

Same 

as 

•nace I 1 n mks  uni ts 

/PR  I NT  U/(  • 

) 

PRINTU 

U 

KUNACE 

KUO  I L 

u 

Same 

as 

•oil  in  mks  units 

/PR  I NTU/( a 

) 

PRINTU 

U 

KUOJ  L 

KUO  I LR 

u 

Same 

a s 

■oilrs  in  mks  units 

/PRINTW/I ♦ 

) 

PRINTU 

U 

KUO  I LR 

KUORSU 

u 

Same 

as 

■ or  sul  in  mks  units 

/PRINTU/C* 

) 

PRINTU 

U 

KUORSU 

KUO  X I 0 

u 

Same 

as 

■oald  in  mks  units 

/PR  I NTU/( • 

) 

PRINTU 

u 

KUO  X 1 D 

KUOXLO 

u 

Same 

as 

•oxlos  In  mks  units 

/PRINT UJ/<  * 

) 

PRINTU 

u 

KUOXLO 

KUOXRE 

u 

Same 

as 

• o xr  e s In  mks  units 

/PRINTU/l * 

) 

PRINTU 

u 

KUOXRE 

KUO  XS Y 

u 

Same 

as 

•oxsys  In  mks  units 

/PRINTU/C ♦ 

) 

PRINTU 

u 

KUO  XS Y 

KUOXTK 

u 

Same 

as 

■oxtk  i n mks  units 

/PR  J NTU/< ♦ 

) 

PRINTU 

u 

KUOXTK 

KUO  XTR 

u 

Same 

as 

•oxtrp  In  mks  units 

/PR  I NTU/( * 

) 

PRINTU 

u 

KUO  XTR 

KU0X2 

u 

Same 

as 

■ o x2( 1 ) in  mks  units 

/PR  I NTW/( ♦ 

) 

PRINTU 

u 

KU0X2 

KUPASS 

u 

Same 

as 

■pass  in  mks  units 

/PR  I NTU/( * 

) 

PRINTU 

u 

KUPASS 

KUPAYL 

u 

Same 

as 

• p ay  1 in  mks  units 

/PR  I NTU/(  * 

) 

PRINTU 

u 

KUPAYL 

KUPERS 

u 

Same 

as 

■pers  in  mks  units 

/PR  I NTW/< * 

) 

PRINTU 

u 

KUPERS 

KUPOWC 

u 

Same 

as 

■posed  in  mks  units 

/PR  I NTW/( * 

> 

PRINTU 

u 

KUPOUC 

KUPOUE 

u 

Same 

as 

■poser  in  mks  units 

/PR  I NTU/< ♦ 

) 

PRINTU 

u 

KUPOUE 

KUPOUF 

u 

Same 

as 

sposf o In  mks  uni ts 

/PR  1 NTU/(  ♦ 

) 

PRINTU 

u 

KUPOUF 

KUPOUR 

u 

Same 

as 

sposrs  In  mks  units 

/PR  I NTU/<  * 

) 

PRINTU 

u 

KUPOUR 

KUPOUT 

u 

Same 

as 

spostk  in  mks  units 

/PR  I NTU/( * 

) 

PRINTU 

u 

KUPOUT 

KUPPRO 

u 

Same 

as 

spprov  in  mks  units 

/PR  I NTU/( ♦ 

) 

PRINTU 

u 

KUPPRO 

KUPREI 

u 

Same 

a s 

spr e i g In  mks  units 

/PR  I NTU/( * 

) 

PRINTU 

u 

KUPREI 

KUPROP 

u 

Same 

as 

■prop  in  mks  units 

/PR  I NT  U/( * 

) 

PRINTU 

u 

KUPROP 

KUPRSV 

u 

Same 

as 

sprsys  in  mks  units 

/PR  I NTU/( * 

) 

PRINTU 

u 

KUPRSY 

KURESI 

u 

Same 

as 

sr  es i d in  sk  s units 

/PR  I NTU/( * 

) 

PRINTU 

u 

KURESI 

KURESfi 

u 

Same 

as 

■r  esr  v in  mks  units 

1 

/PR  I NTU/( * 

) 

PRINTU 

u 

KURE5R 

KUSORC 

u 

Same 

as 

ssorce  in  mks  units 

/PR  I NTU/( * 

) 

PRINTU 

u 

KUSORC 

KUSRTR 

u 

Same 

as 

ssrtrp  in  mks  units 

/PR  I NTU/( * 

> 

PRINTU 

u 

KUSRTR 

KUSTAB 

u 

Same 

as 

sst ab  in  mks  units 

/PR  J NTU/< * 

) 

PRINTU 

u 

KUSTAB 

KUSURF 

u 

Same 

as 

ss  ur  f in  mks  units 

/PR  I NTU/( » 

) 

PRINTU 

u 

KUSURF 

KUTHRS 

u 

Same 

as 

sthrst  in  mks  units 

/PRI NTU/< » 

) 

PRINTU 

u 

KUTHRS 

KUTO 

u 

Same 

as 

sto  in  aks  units 

/PR  I NTW/( * 

) 

PRINTU 

u 

KUTO 

'KUTPS 

u 

Same 

a s 

stps  In  mks  units 

/PR  I NTU/( * 

) 

PRINTU 

u 

KUTPS 

KUVERT 

u 

Same 

as 

•vert  in  sks  units 

/PRI NTU/( » 

) 

PRINTU 

u 

KUVERT 

kuuet 

u 

Same 

as 

■ ■e  t In  mks  units 

/PR  I NTU/( * 

) 

PRINTU 

u 

KUUET 

KUUING 

u 

Same 

a s 

■■ i ng  in  mks  units 

/PRI NTU/( » 

) 

PRINTU 

u 

KUUING 

PL0L05 

u 

Pay  lo 

ad 

loss  (lb)  1 nput  as  c<  296  ) 

/PRI NTU/( * 

) 

PRINTU 

u 

PLOLOS 

P L LOS 

u 

Same 

as 

p Idles  in  mks  units 

/PR  I NTU/( a 

) 

PRINTU 

u 

PLLOS 

PRINTU 

E 

Subrout 

ine  to  print  vehicle  aeight 

data 

/PR  I NTU/ ( $ 

) 

PRINTU 

UTVGL 

E 

s 

PRINTU 

PRINTU 

UABFTK 

I 

Uelght 

of  air  breathing  propulsion 

system  tanks 

/UTCALC/( 

2 ) 

PRINTU 

UTSCH 

I 

n 

UABFTK 

UABFTK 

UABFU 

I 

Ue 1 ght 

of  jp  f ue 1 

/ U T C A L C / ( 

TT 

PRINTU 
PRUTSN 
T A PIPER 
UTSCH 

I 

PI 

I 

PI 

UABFU 

UABFU 

UABFU 

UABFU 
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» OUTRAN 
SYMBOL 

HATH 

SVM&OL 

CODE 

DESCRIPTION 

WABPR 

I 

Weight  of  air  breathing  tnglnti 

WACRES 

1 

Weight  of  attitude  control  fuel  reserve 

MACS 

I 

Weight  of  attitude  control  systea 

UACSFO 

I 

Weight  of  attitude  control  fuel  plus  oxidizer 

wacstk 

I 

Weight  of  attitude  control  tankage 

UAERO 

I 

Weight  of  aerodynaalc  controls 

UAUXT 

I 

Weight  of  separation  systea 

WBASIC 

I 

Total  aeight  of  basic  body 

WBOOY 

I 

Total  aeight  of  body  group 

UBOO 

1 

Booster  gross  aeight 

UCARGO 

I 

Pavload  aeight  or  cargo 

wco«* 

I 

Co aaun i c at i o n systea  aeight 

UCONT 

I 

Contingency  and  groath  aeight 

ucover 

I 

Total  aeight  of  theraai  protection  systea  covi 
panels 

UDECAY 

I 

Thrust  decay  propellant  aeight 

UDOCK 

I 

Oocking  structure  aeight 

WOPLOY 

I 

Deployable  aerodynaalc  device  aeight 

UORY 

I 

Stage  dry  aeight 

UENGS 

1 

Weight  of  rocket  engines  installed 

UENGS2 

I 

Weight  of  secondary  engines 

UFAIR 

I 

Weight  of  fairings  and  shrouds 

UFROST 

I 

Frost  and  ice  aei ght 

UFUL 

I 

Fuel  aeight 

WFULOS 

I 

Vented  fuel 

5 TPRftJjF  SUBROUTINE  USRG^ 

BLOCK  LOC  SUBH  COOt  VAR 


/ WT  C ALC/  ( 

9 ) 

/ WT  C ALC/ ( 

5 ) 

/ WT  C ALC/ ( 

6 ) 

/ WT  C ALC/ ( 

7 ) 

/ WT  C ALC/ 1 

0 ) 

/ WT  C ALC/ ( 

9 ) 

/ WT  C ALC / ( 

10  ) 

/WTCALC/( 

1 1 ) 

/ WT  C ALC/ ( 

12  ) 

/jumpy  /( 

3 > 

/WT  CALC/I 

19) 

/WT  CALC/I 

15  ) 

/ WT  CALC/ ( 

16  ) 

/WTCALC/< 

17  ) 

/WTCALC/< 

18  ) 

/ WT  CALC/ ( 

21  ) 

/WTCALC/( 

22  ) 

/WTCALC/( 

29  > 

/WTCALC/( 

28  ) 

/WTCALC/l 

29  ) 

/ WT  C ALC/ ( 

30) 

/WTCALC/( 

33) 

/ WT  C ALC/ ( 

93  > 

/ WT  C ALC/ ( 

99  ) 

PR  1 NT  W 

I 

WABPR 

UTSCH 

It 

WABPR 

PRINTW 

I 

WACRES 

STORE 

ft 

UACRES 

WTSCH 

-w 

WACRES 

PRINTW 

I 

WACS 

WTSCH 

« 

WACS 

PRINTW 

I 

UACSFO 

STORE 

ft 

UACSFO 

WTSCH 

ft 

UACSFO 

PR  I NT U 

I 

WACSTK 

WTSCH 

ft 

WACSTK 

P R I NT  W 

I 

UAERO 

WTSCH 

It 

UAERO 

PRINTW 

I 

UAUXT 

STORE 

I 

UAUXT 

WTSCH 

It 

UAUKT 

PR  I NT  W 

I 

WBASIC 

PfiOTHR 

I 

WBASIC 

WTSCH 

It 

WBASIC 

PRINTW 

I 

WBODY 

WTSCH 

It 

U&ODY 

PRINTW 

1 

UBOO 

TAMPER 

I 

UBOO 

WT  VOL 

0 

UBOO 

PRINTW 

I 

UCARGO 

WTSCH 

It 

WCARGO 

PRINTW 

I 

WCOrtft 

WTSCH 

n 

WCOftft 

PRINTW 

I 

UCONT 

TAMPER 

1 

WCONT 

WTSCH 

it 

WCONT 

PRINTW 

I 

WCOVER 

UTSCH 

M 

WCOVER 

PRINTW 

I 

WOECAY 

STORE 

M 

WOECAV 

WTSCH 

ft 

WDECAY 

PRINTW 

I 

UDOCK 

WTSCH 

ft 

UDQCK 

PRINTW 

I 

WOPLOY 

WTSCH 

It 

WDPLOY 

PR  I NTW 

I 

WDft  V 

TAMPER 

I 

wofiv 

WTSCH 

n 

UQRY 

PRINTW 

i 

WEN8S 

WTSCH 

rt 

WENGS 

PRI NTW 

I 

UENGS2 

WTSCH 

it 

UENGS2 

PRINTW 

i 

UFAIR 

WTSCH 

ft 

UFAIR 

PRINTW 

i 

UFROST 

STORE 

it 

UFROST 

WTSCH 

n 

UFROST 

PRINTW 

i 

WFUL 

WTSCH 

ft 

WFUL 

PRINTW 

i 

WFULOS 

STORE 

n 

WFULOS 

UTSCH 

ft  * 

WFULOS 
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v^;;r  4;:iSt  ,;ouf  description 

s t ? « A 

TF 

SUBROUTINE  USAGE 

A L 0 * 

LOC 

S'JHH 

,0O£  VAR 

UFUOX 

I Ul«  1 9 h t of  ••in  and  tecondary  propellant 

/ WT  CALC/< 

Hb  ) 

PRINTW 

I 

WFUOX 

TAflPER 

I 

WFUOX 

WTSCH 

fl 

WFUOX 

WT  VOL 

I 

WFUOX 

WFURES 

1 Fuel  rtiirvi 

/WTCALC/I 

HI) 

PRI  NTW 

I 

WFURES 

STORE 

fl 

WFURES 

TAflPER 

I 

WFURES 

WTSCH 

fl 

WFURES 

UFU$VS 

I Total  fuel  systea  aelght 

/WTCALC/( 

H 6 ) 

PRINTW 

I 

UFUSVS 

WTSCH 

fl 

WF  US  VS 

ufutk 

I Ult  of  non-structural  fuel  tanka g« 

/WTCALC/C 

99  ) 

PRINTW 

I 

WFUTK 

WTSCH 

fl 

WFUTk 

UFUTK2 

I Wt  of  secondary  fuel  tank  and  systea 

/ WTC ALC/( 

50  ) 

PRINTW 

I 

WFUTR2 

WTSCH 

fl 

WFUTK2 

WFUTRP 

l Trapped  fuel  aelght 

/ WT  CALC/ ( 

52) 

PRINTW 

I 

WFUTRP 

STORE 

fl 

WFUTRP 

WTSCH 

fl 

WFUTRP 

UFU2 

I Weight  of  secondary  fuel 

* /WTCALC/t 

3 H ) 

PRINTW 

I 

WFU2 

TAflPER 

I 

WFU2  . 

WTSCH 

fl 

WFU2 

UIGASPR 

I Weight  of  gas  and  pressurant 

/WTCALC/t 

53  ) 

PRINTW 

I 

WGASPR 

STORE 

fl 

WGASPR 

WTSCH 

fl 

WGASPR 

WGNAV 

1 Guidance  and  navigation  systea  at 

/WTCALC/I 

5 H ) 

PRINTW 

I 

WGNAV 

WTSCH 

fl 

WGNAV 

WGROSS 

I Gross  lift-off  aelght 

/ C I NPUT/( 

392  ) 

PRINTW 

I 

WGROSS 

PRWTSfl 

I 

WGROSS 

SOLVE 

fl 

WGROSS 

STORE 

fl 

WGROSS 

• 

TAflPER 

I 

WGROSS 

WTSCH 

fl 

WGROSS 

WT  VOL 

I 

WGROSS 

WHORZ 

I Hor I zont  a 1 stabilizer  at . 

/WTC ALC/( 

55  > 

PRINTW 

I 

WHORZ 

PROTHR 

I 

whorz 

WTSCH 

fl 

WHORZ 

whycad 

1 Hydraulic  / pneumatic  systea  at 

/WTCALC/( 

5fe) 

PRINTW 

1 

WHYCAD 

WTSCH 

fl 

WHYCAO 

WINFUT 

I Weight  of  intergral  fuel  tank 

/WTCALC/( 

57  > 

PRINTW 

1 

WINFUT 

PROTHR 

I 

WINFUT 

WTSCH 

fl 

WINFUT 

WJ  NO  XT 

1 Weight  of  integral  oxidizer  tank 

/WTCALC/< 

58) 

PRINTW 

I 

W I NO  XT 

PROTHR 

I 

WI NOXT 

WTSCH 

fl 

WINOXT 

winst 

I Weight  of  instruaent  systea 

/ WT  CALC/C 

60) 

PRI NTW 

I 

winst 

WTSCH 

fl 

winst 

uiinstk 

I Total  aelght  of  tank  Insulation 

/ WT  CALC/( 

59) 

PRINTW 

I 

winstk 

WTSCH 

fl 

WINSTK 

WLANCH 

I Launch  gear  ae i ght 

/wtcalc/( 

68) 

PRINTW 

I 

WLANCH 

WTSCH 

fl 

WLANCH 

WIG 

I Landing  gear  and  controls  aelght 

/ WTC ALC/( 

69) 

PRINTW 

I 

WLG 

WTSCH 

fl 

WLG 

WLOSS 

1 In-flfght  aelght  loss 

/ WT  C ALC/( 

70  ) 

PRINTW 

I 

WLOSS 

PRWTSfl 

I 

WLOSS 

WTSCH 

0 

WLOSS 

WLRD 

I Launch  and  recovery  systea  aelght 

/WTCALC/I 

71  ) 

PRI NTW 

I 

wlro 

WTSCH 

fl 

wlrd 

wnacel 

I Pylons,  n ace  1 , and  pod  ael ght s 

/ WTCALC/I 

72) 

PRINTW 

I 

WNACEL 

WTSCH 

fl 

WNACEL 

WO  1 L 

I Service  itea  losses. 

_7WTCALC/( 

1H) 

PRINTW 

I 

WO  I L __ 

WTSCH 

fl 

WO  I L 

WOILRS 

/ WT  CAL  C/( 

75  ) 

PRINTW 

WTSCH 

I 

fl 

WOILRS 

WOILRS 

30  OCT  72  6 . 0 1 -H6 


T n H 1 HAN 
1,  Y H L 


no  T H 
YrtBOL 


CODE 


DESCRIPTION 


S T OS  AG£ 


block 


LOC 


SUBROUTINE  USAG£ 
SUBR  COOL  VAR 


WORSUL 

I 

Or  1 e nt  at  1 o n , c o nt  r o 1 , and  separation  system  Height 

/UTCALC/I 

76  ) 

PRINTU 

I 

WORSUL 

UTSCH 

n 

WORSUL 

uoxio 

I 

Plain  Impulse  oxidizer  ■tighter 

/UTCALC/< 

87  ) 

PRINTU 

I 

uoxio 

UTSCH 

n 

uoxio 

UOXLOS 

I 

Vented  oxidizer 

/ WT  C ALC/ ( 

88  ) 

PRINTU 

I 

UOXLOS 

STORE 

* 

WO  X LOS 

UTSCH 

n 

UOXLOS 

UOXRES 

I 

Oxidizer  reserve 

/UTCALC/t 

89  ) 

PRINTU 

I 

UO  XRES 

STORE 

pi 

UOXRES 

T APIPER 

I 

UO  XRES 

UTSCH 

pi 

UOXRES 

UOXSYS 

I 

Oxidizer  system  pelght 

( UT  C ALC/ ( 

90  ) 

PRINTU 

I 

UOXSYS 

UTSCH 

pi 

UOXSYS 

woxtk 

I 

No n- s t ur c t ur a I tank  at . - oxidizer 

/ UT  CALC/( 

91  ) 

PRINTU 

1 

UQXTK 

UTSCH 

n 

WOXTK 

W0XTK2 

I 

Secondary  system  oxidizer  tank  mi  , 

/ UT  CALC/ { 

92  ) 

PRINTU 

I 

W0XTK2 

UTSCH 

pi 

U0XTK2 

UOXTRP 

I 

Trapped  oxidizer  Height 

/UT  C ALC/ ( 

9 9 ) 

PRINTU 

I 

UOXTRP 

STORE 

pi 

UOXTRP 

UTSCH 

n 

UOXTRP 

U0X2 

I 

Secondary  oxidizer  Height 

/UTCALC/( 

89  ) 

PRINTU 

1 

U0X2 

T AnPER 

I 

U0X2 

UTSCH 

pi 

U0X2 

UP  ASS 

I 

Uelght  of  passengers 

/UTCALC/< 

96  ) 

PRINTU 

1 

UPASS 

UTSCH 

pi 

UPASS 

UPAVL 

1 

Payload  ae  I ght 

/UT  C ALC/ ( 

97  ) 

PRINTU 

I 

UPAYL 

T AflPER 

I 

UPAYL 

UTSCH 

pi 

UPAYL 

UPERS 

I 

Cres  gear  and  life  support  Height 

/UTC ALC/( 

98  ) 

PRINTU 

I 

UPERS 

UTSCH 

pi 

UPERS 

UPOUCO 

1 

Poner  conditioning  equipment  at. 

/UTCALC/l 

99  > 

PRINTU 

1 

UPOUCO 

UTSCH 

pi 

UPOUCD 

UPOUFO 

I 

PoHer  system  propellant  at. 

/ UT  C ALC/ ( 

1C1  ) 

PRINTU 

I 

UPOUFO 

STORE 

pi 

UPOUFO 

UTSCH 

pi 

UPOUFO 

UPOURS 

1 

Poner  system  propellant  reserve 

/UTCALC/( 

102  ) 

PRINTU 

I 

UPOURS 

STORE 

n 

UPOURS 

UTSCH 

pi 

UPOURS 

UPOUTK 

1 

/ UT  C ALC/( 

103  ) 

PRINTU 

I 

UPOUTK 

UTSCH 

n 

UPOUTK 

UPPROV 

I 

Personnel  provisions 

/UT  C ALC/ ( 

10*t) 

PRINTU 

I 

UPPROV 

UTSCH 

* 

UPPROV 

UPREIG 

I 

Pre-Ignition  losses 

/UTCALC/< 

105  ) 

PRINTU 

I 

UPREIG 

PRUTS* 

pi 

UPREIG 

UTSCH 

pi 

UPREIG 

UPROP 

I 

Total  Height-  propulsion  group 

/UTCALC/( 

106  ) 

PRINTU 

I 

UPROP 

UTSCH 

pi 

UPROP 

UPRSYS 

I 

Pr e s s ur i z at i o n system  Height 

/UT  CALC/( 

107  ) 

PRINTU 

I 

UPRSYS 

UTSCH 

pi 

UPRSYS 

UIRESID 

I 

Uelght  of  residuals 

/ UT  C ALC/ ( 

109  ) 

PRINTU 

I 

URE5I0 

UTSCH 

pi 

URESID 

URESRY 

I 

Propellant  reserve 

/UT  CALC / ( 

110) 

PRINTU 

I 

UR  E SR  V 

UTSCH 

n 

uresrv 

USECST 

I 

Secondary  body  structure  at 

/ UT  C ALC/( 

112) 

PRINTU 

i 

USECST 

PROTHR 

I 

USECST 

UTSCH 

pi 

USECST 

USORCE 

I 

Prime  poner  system  Height 

/ UT  C ALC / ( 

113) 

PRINTU 

I 

USORCE 

UTSCH 

pi 

USORCE 

USRTRP 

I 

Trapped  oxidizer  Height 

/UTCALC/I 

1191 

PRINTU 

1 

USRTRP 

STORE 

pi 

USRTRP 

UTSCH 

pi 

USRTRP 
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M)H  IRAN 

HA  1 M 

CODE 

DESCRIPTION 

STORAGE 

SUBROUTINE 

USAGE 

HHOL 

SYHROL 

ULULk 

LOC 

SU8R  CODE 

VAR 

USTAB 

l 

Engine  glabal  syitea  at 

/WT  CALC/I 

115) 

PR  1 NT  U 

1 

USTAB 

UTSCH 

fl 

USTAB 

USURF 

I 

Aero  surface  at 

/WTCALC/l 

116) 

PRINTU 

I 

USURF 

UTSCH 

n 

USURF 

UTHRST 

I 

Thrust  structure  »i 

/ WT  C ALC / ( 

118) 

PRINTU 

i 

UTHRST 

UTSCH 

« 

UTHRST 

UTO 

I 

Take-  off  aeight 

/WTCALC/< 

119) 

PRINTU 

i 

UTO 

UTSCH 

n 

UTO 

UTPS 

I 

Induced  environmental  protection  at 

/ uiT  CALC/( 

120  ) 

PRINTU 

I 

UTP  5 

UTSCH 

* 

UTPS 

WVERT 

I 

Vertical  fin  ie 1 ght 

/WTCALC/< 

121  ) 

PR  I NT U 

i 

UVERT 

PROTHR 

i 

uvert 

UTSCH 

* 

WVERT 

UWET 

I 

Operating  aeight-eapty 

/UT  CALC/ ( 

132  ) 

PRI NTU 

I 

UUET 

UTSCH 

w 

UWET 

UWING 

I 

Total  structural  at.  Of  aing 

/UTCALC/t 

133  ) 

PR  I NTU 

i 

UUING 

PROTHR 

i 

UUING 

UTSCH 

UUING 

. UNOfc. 

0 

File  of  all  output  date 

/ . UN06 . /( $ 

) 

BLI  CO 

0 

. UN06 . 

BNDRYC 

0 

. UN06. 

CRASH 

0 

. UN06 . 

FRENCH 

0 

. UN06 . 

FXDAT  0 . UN06 . 

GE1NP  0 . UN06 . 

HUNT  0 . UN06 . 

INEDIT  0 .UN06. 

ITER8  0 . UNOf> . 

PIODELA  0 . UN06 . 

PlOnJ  0 . UN06 . 

PIPS1  0 . UN06 . 

OUT  0 . UNQ6 . 

P AY 02  0 . UNOfe . 

PRINT  0 . UN06 . 

PR  I NT  V 0 .UN06. 

PRINTU  0 . UN06  . 

PRITEO  0 . UN06 . 

PR  I TVA  0 . UNOfc . 

PROPIN  0 . UNC6 . 

PROTHR  0 . UN06 . 

PRUTS*  0 , UNOfc . 

RANGE  0 . UN06 . 

S 0 . UNOfc . 

50INP  0 . UN06 . 

SIZE  0 . UN06 . 

SIZIN  0 . UN06 . 

SIZOUT  0 . UN06 . 

SOLVE  0 . UNOfc . 

SPLICO  0 . UNOfc . 

SPLIZ  0 . UNO  6 . 

SPLYNE  0 . UNOfc , 

5SSP  0 .UNOfc . 
STAU  0 .UNOfc. 
STPIT  0 . UN06 . 

SUnOUT  0 . UN06 . 

TABIN  0 . UN06 . 

TEST  0 , UN06 . 

VEHOF  0 . UNO  6 . 

UTSCH  0 . UNOfc . 

UTVOL  0 . UNOfc . 
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1.  SUBROUTINE  PRINT* 

2.  C 

3.  C PRINT*  - PRINTS  WEIGHTS 

1 • C 

5.  REAL  KUSTAB 

6.  REAL  KUABPR,KWABFT,KUABFU 

7.  * , K I LO  ,KUSUftF,K*yiN&,*y VERT, KWHOfiZ,*yF AIR,  ** SO D Y , X* I NF U, KMBAS I , 

8.  UWSECS,H*TPS  ,KyCQVE,K*lNSU,*ULG  ,*yFRCP,X*EN5S,*yNACe,KyFUT*t 

9.  2K*OXTK,KUI NST, KyFUSY,KyOXSY,KUPRSV,*y AERO, <yPOyE,K*APU  , KMPQMT  , 

10.  3KHELCA,KWHYCA,KWGNAV  KfaiPPRQ , KMDRY  , KMCGNT, **PER$, KMPAYL, KMCARG, 

11 . ‘*KWPASS,KWRESI,KUGASP,llWFUTR,AyOXTR,MSRTR,«yfiESR,*yFURe, 

'\2.  *KMO  XRE  KMPOWR , KMQI LR , KMACRE . K**ET  , KULOSS , KWFULO , KMOXLO, 

13.  * KMPOMF  KMO I l kmoecakmfuoxkmful  , kwprei  KW6R0S 

1 4 . *.  KFUTK2,K0XTK2 

15.  REAL  KWLRD,KULANC,KWDPLO,KWOQCK,KMORSU,K*AUIT,KMACS 

16.  #,KUACSF,Kys5fiC,KWlNSl,KyFU2.KW0X2 

17.  l.K*lNOX,XWTHRS,*WEN62,**POWt,K*TQ,K*OXlD,K*AC$T,*UBOD 

16.  COAHON  / JUPIPY  / JU*P,  *616,  *600 

19.  REAL  KIN 

20.  REAL  ISPtK,LF,«fi,NCRE*,LBODV,NPASS 

21.  REAL  NEN&S 

22.  CONHON/CINPUT/ 


23. 

1ANENGS 

ANT  ANK 

ASR ATO 

, ASUEEP 

C<  300  1 

, CBBODY 

, CF UEL(  6 7, 

24. 

2CHB00Y 

CLBODY 

, CSBOOY 

,csfair 

CSFUT K 

, CSHORZ 

,CSOXTX 

25. 

3CSPLAN 

, CS VERT 

CS*I NG 

, CTHRST 

CTHST2 

,OEF< 5 ) 

FX*0  VS 

26. 

4ISP<  6) 

, I TPS 

,K<  30) 

, K I N 

,LF 

Hfi(  6 7 

NCRE* 

27. 

5NEN6S 

, NL1  STO 

, NP ASS 

, N*L 

PCHAN 

,0 

RMOFU 

26. 

6RH0FU2 

,RHOX 

,RH0X2 

, SBODY 

,TOl 

, TO VERC 

,TPRATO 

29. 

7TYTAIL 

. VBOOV 

.WGROSS 

30. 

COnitON/  VOLCAL/ BBOuY  * CROOT 

# CSP AN 

,CTIP 

, gal 

SSP  AN 

31. 

2HBOOY 

, LBQDV 

,RT0O 

SFAIR 

,SFUTK 

,SHORZ 

SO  XTK 

32. 

3SPLAN 

,STPS< 1 ) 

, S VERT 

SUING 

#SXPOS 

,TDEt 

, TROOT 

33. 

4TT0T 

, TT0T2 

,TTOTAL 

, VBODYA 

, VB0DY1 

, VB0DY2 

, VCARGO 

34. 

5VCREW 

,VFUTK 

, VFUTK2 

, VINSTK 

,VcGBAf 

, VQTHEfi 

f VO  XTK 

35. 

6V0XTK2 

. VPROP 

, VSTRUC 

36. 

connoN/utCALC/ 

ABFSYS 

# WABFTK 

,*ABFU 

UABPR 

MACRES 

37 

1UACS 

UACSFO 

, UACSTK 

UAERO 

,wa»jxt 

,*BASIC 

, UBOOY 

38. 

2UBPUAP 

, UCARGO 

,*corm 

, *CONT 

UCO  V£R 

# WDECAY 

, M0IST1 

39. 

3W0IST2 

, UDOCK 

,*OPLOY 

, MORANS 

WQRV 

,*ElCAO 

MEAPTY 

40. 

4WEN6WT 

.UENGS 

.UEN6S2 

, UFA I R 

,wfcont 

# WFOCAY 

. WFROST 

41 . 

5UFU2C  3) 

, WFUEL(  t ), UFUL 

WFULOS 

WFUNCT 

#*FUOX 

F WFURES 

42. 

6WFU5YS 

WFUTK 

, MFUTK2 

, WFUTOT 

UFUTRP 

,*SASPR 

*GNA  V 

# 

43. 

7UH0RZ 

UHYCAD 

,WINFUT 

, *1  NO XT 

*1 nst  k 

,*I NST 

Ul NSUL 

* 

44. 

8WJET(  6) 

.ULANCH 

, UL6 

,*LOSS 

*LRO 

WNACEL 

MODC AY 

45. 

9*0 1 L 

UO I LRS 

, UORSUL 

, MOVERS 

,*OXC  67 

,*0X2(3  7 

,*0X10 

46. 

1U0XL0S 

UOXRES 

,*oxsvs 

,*OXTK 

,*0XTK2 

UQXTOT 

MO  X TRP 

47. 

2 UP 

UP  ASS 

,UPAYL 

UPERS 

WFGMCO 

,*PO*ER 

MPOMFO 

48. 

3UP0URS 

UPOWTK 

,UPPROV 

,*PBEI6 

WPROP 

,*PRSYS 

, MREFUL 

49. 

4URES10 

, ttRESR  V 

,*SEAL 

,*SECST 

WSORCE 

*SR  TRP 

.MSTAB 

50. 

5USURF 

, *T  ABC 

,*thrst 

, WTO 

, *TPS 

, * VERT 

,**AIT<  107 

51. 

6WUET 

W*1  NG 

, UZROFU 

wabtrp 

WABRES 

,*anotp 

*ANF TP 

52. 

7URN0RS 

UANFRS 

, WACOTP 

WACFTP 

Wr*OTP 

wpufTP 

, UGAS 

# 

53. 

8UABFUC 

UACORS 

, UACFRS 

MPWORS 

WPWFRS 

54. 

KILO  = 

0.4535924 

55. 

KWABPR 

= UABPR  * 

KILO 

56. 

KUABFT 

= WABFTK  4 

KILO 

57.  KWABFU  = UABFU  * KILO 

56.  KUSTAB=KILO*USTA» 

59.  KUSURF  = KIL0*WSURF 

60.  KUUING  ^ K1L0***1 N6 

61.  KUVERT  = K 1 LO«*VERT 

62.  KWHORZ  = KILO«UHORZ 

63.  KUFAIR  = KI LO+WFAIR 

64.  KWACSF  s KILO*WAC$FO 

65.  KWBODY  = KI LO**BOOY 

66.  KUBASI  = KIL0«WBASIC 

67.  KUSECS  = KILO+WSECST 

68.  KWTPS  = K I LO**TPS 

69.  KUCOVE  = K 1 LO*MCO  VER 

70.  KWDPLO>KILO**OPLOV 

7).  KWINSU  = K I LO*MJ  NSUL 

72.  KUOOCK  = KILO  • MDOCK 

73.  K*LG  = K1L0»*L6 

74.  KWPROP  = KILO'UPROP 

75.  KUGROS  = KILO’WGROSS 


PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRI NT* 
PRINT* 
PRINT* 
PRI NT* 
PRINT* 
PRINT* 
PRINTH 
CINPUT 
CINPUT 
CINPUT 
CINPUT 
CINPUT 
CINPUT 
CINPUT 
CINPUT 
CINPUT 
CINPUT 
CINPUT 
VOLCAL 
VOLCAL 
YOLCAL 
VOLCAL 
VOLCAL 
VOLCAL 
UTCALC 
*TCALC 
*TCALC 
UTCALC 

*tcalc 

*TCALC 

*TCALC 

UTCALC 

*TCALC 

*TCALC 

UTCALC 

UTCALC 

UTCALC 

UTCALC 

UTCALC 

CKO  UT 

CKOUT 

CKO  UT 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 

PRINT* 


.01-46 


76. 

KWTO  = KILO*  WTO 

PRINTW 

77. 

KWEN&S  = KIL0*WEN6S 

PRINTW 

78. 

KWNACE  = KIlO*WNACEL 

PRINTW 

79. 

KWFUTK  = KIL0*WFUTK 

PR1NTW 

60. 

KWOXTK  = K1L0*M0XTK 

PRINTW 

81  . 

KWINST  = KILQ*WINSTK 

PRINTW 

82. 

kwfusy  = kilo*wfusys 

PRINTW 

83. 

KWOXSY  = KILO*WOXSYS 

PRINTW 

89. 

KUACS  = K1L0*UACS 

PRINTW 

85. 

KWAUXT  = KILO*  WAUXT 

PRINTW 

66. 

KHPRSY  = KlLO*WPRSYS 

PRINTW 

87. 

KWSQRC  = kilo*wsorce 

PRINTW 

88. 

KWAERO  s KILO*WA£RO 

PRINTW 

89. 

KHPQWE  - KlLO*WPOWER 

PRINTW 

90. 

KWPOWT  S KlLO*WPOWTK 

PRINTW 

91  . 

KUELCA  = Kl LO*WELCAO 

PRINTW 

92. 

K WHY  C A = K I LO*WHYCAD 

PRINTW 

93. 

KWGNA Y = Kl LO*WGNAY 

PRINTW 

99. 

KH1NS1  s K 1 LO*WI  MSI 

PRINTW 

95  . 

khcon*  r KlLO*WCONN 

PRINTW 

96. 

KdPRRO  = KlLQ*yPPROY 

PRINTW 

97  . 

KWLRD  = KI LO*ULRD 

PRINTW 

98. 

KWLANC  = K I LO*WLANCM 

PRINTW 

99. 

KyORV  S K I LO*yDRY 

PRINTW 

100. 

KWCONT  = K I LG*WCONT 

PRINTW 

101 . 

KHPERS  = KILO*  WPER5 

PRINTW 

102. 

KttPAYL  = Kl  LO*WP AYL 

PRINTW 

103. 

KUCARG  s KILO*WCARGO 

PRINTW 

109. 

KyPASS  « K I LO«yP ASS 

PRINTW 

105  . 

KWRESI  s KlLO*WRESIO 

PRINTW 

106. 

KWGASP  = KlLO*ySASPR 

PRINTW 

107  . 

KyfUTR  = kilo*wfutrp 

PRINTW 

106. 

KWOXTR  = KILO*WOXTRP 

PRINTW 

109. 

KUSRTR  = KILO*ySRTRP 

PRINTW 

110. 

KURESR  s KILO*yfiESRY 

PRINTW 

Ill  . 

KWFURE  = KI LO*MF  URES 

PRINTW 

112. 

KWOXRE  = Kl LO*WOXRES 

PRINTW 

113. 

KWPOUR  s kilo*wpowrs 

PRINTW 

119. 

KWDILR  = K I LO*WO I LRS 

PRINTW 

115. 

KyACRE  * KlLO*WACRES 

PRINTW 

1 16. 

KWWET  = KlLO*WWET 

PRINTW 

117. 

KyLOSS  = K 1 L0*WL05S 

PRINTW 

118. 

FRQST=KILQ*WFR0ST 

PRINTW 

119. 

KUFULO  = KILO*WFULOS 

PRINTW 

120. 

KUOXLO  = kilo*woxlos 

PRINTW 

121  . 

KFUTK2=KIL0*WFUTK2 

PRINTW 

122. 

KOXTK2=KILG*UOITK2 

PRINTW 

123. 

KWPOWF  = KILO*WPOWFO 

PRINTW 

129. 

KWOI L = KIL0*W0IL 

PRINTW 

125  . 

KWDECA  ^ K I LO*WQECAY 

PRINTW 

126. 

KWFUOX  : KILQ*WFUOX 

PRINTW 

127. 

KyFUL  = KILO*WFUL 

PRINTW 

128. 

KMOXIO  * KlLO*yOXID 

PRINTW 

129. 

KyFU2  = KILO  « WFU2(1> 

PRINTW 

130. 

xwox2  = KILO  * W0X2I  1 ) 

PRINTW 

131  . 

KyQRSU  = kilo*wor$ul 

PRINTW 

132. 

KWACST  S KIL0*«AC5TK 

PRINTW 

133. 

KUPREI  = KlL0*yPREI6 

PRINTW 

139. 

Kyi NF U s KILO  * WINFUT 

PRINTW 

135. 

KWINOX  =K I LO*y] NQXT 

PRINTW 

136. 

Kyi HRS  =KILO*UTMRST 

PRINTW 

137. 

KWENS2  =KIL0*W£NG52 

PRINTW 

138. 

KyPOHC  =KI LO*WPOWCD 

PRINTW 

139. 

KWACRE  =KILO*UACRCS 

PRINTW 

190  . 

PL0L0S=CC296) 

PRINTW 

191  . 

PLL0S=KIL0*PL0L0S 

PRINTW 

192. 

WRITE!  6,66) 

PRINTW 

193. 

66  FORNAT  ( INI  ) 

PRINTW 

199. 

67  CONTINUE 

PRINTW 

195. 

IF(  JUNP.E0.1)  60  TO  95 

PR  I NT W 

95 

196. 

yRITEC 6,25  ) 

PRINTW 

197  . 

25  FORNAT  < 1H0,32HWEI6HT  BREAKDOWN  - ORBITAL  ST ASE , 33 X6HP0UND5 , 20 1 

PRINTW 

198. 

« 9HKIL06RANS) 

PRINTW 

199. 

GO  TO  50 

PRINTW 

50  — | 

150. 

95  URITE  (6,26) 

PRINTW 
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151 

152 


26  FORMAT  < 1H0,31HUEI6HT  BREAKDOWN 
* 9HKIL0GRAAS) 


153. 

159. 

155. 

156. 

157. 

158. 

159. 

160. 
161. 
162. 
163. 
169. 

165. 

166. 

167. 

168. 

169. 

170. 

171. 

172. 

173. 

179. 

175. 

176. 

177. 

178. 
1 79. 

180. 
181. 
182. 
183. 

189. 
185 
186. 

187. 

188. 
189  . 

190. 

191. 

192. 

193. 
199. 

195. 

196. 

197. 

198. 

199. 

200. 
201. 
202. 
203. 
209. 

205. 

206. 
207. 
206. 

209. 

210. 
211. 
212. 
213. 
219. 

215. 

216. 

217. 

218. 

219. 

220. 
221. 
222 
223. 
229. 
225  . 


50 

150 

250 

350 

650 

750 


1050 

1350 

1550 

1750 

1650 

2150 

2250 

2350 

2950 

2550 

2750 

2850 


3550 


9250 

9350 

9950 

9550 

9850 

9950 

5350 

5550 

5650 

5750 

5850 

6550 

7250 

7950 
7750 
785  1 

8350 

8550 

8650 

8950 

9050 


9650 

9750 


9850 

9950 

10050 

10150 


WRITE!  6,  100  ) USURF.KblSURF 
WRITE!  6 , 200  ) WUING,KUHIN6 
WRITE  ! 6, 135001  UHORZ.KWHORZ 
WRITE!  6,900  1WVERT , KWVtfiT 
WRITE!  6,700  1WFAIR, KWFAIR 
WRITE!  6,800  >*BODY,KWBODY 
WRITE! 6,900)  WI NFUT.KWI WFU 
WRITE!  6, 1000  ) W) NO  XT , KU1 NOX 
UR  1 TE! 6, 1 100  1WBAS I C . KWBASI 
WRITE! 6, 1300)  USECST _ KWSECS 
WRITE  (6,1900)  WTMRST .KWTMRS 
URI TE(  6,  1600  ) UTPS.KWtPS 
WRITE! 6, 1800  ) WCOVER,KUCQ¥E 
WRITE! 6, 1900)  WI NSUL, KWINSU 
*R  J TE! 6,2200  >WIRD, KWLftD 
WRITE!  6,2300  1WLANCH  KULANC 
WRITE! 6,2900)  UOPLOY, KUOPLO 
WRITE! 6,2500)  *L6,KWL6 
WRITE!  6, 2600  ) *OOCK,K*DOCK 
WRITE! 6,2800)  WPROP,KUPROP 
WRITE! 6,2900)  UENGS, KUENGS 
WRITE! 6,2870)  WENGS2, KUENG2 
WRITE! 6,3300)  UFUTK.KWFUT* 
WRITE!  6, 3900  > *OXTK,KUOXTK 
WRITE! 6,3910)  WFUTKZ KFUTK2 
WRITE!  6,3920  ) WQ XTK2 , KO  XT K2 
WRITE!  6,3500  ) UI NSTK , KUI NST 
WRITE! 6,3600)  UFUSY5, KUFUSY 
WRITE!  6,3700  UOXSVS, KWOXSY 
WRITE! 6,3800)  WPRSY&, KUPRSV 
WRITE! 6,9110)  WABPR,K*ABPR 
WRITE! 6,3100)  UNACEL, KWNACE 
WRITE! 6,9115)  WABFTK  KWABFT 
WRITE!  6,9300  1W0RSUL . fcWORSO 
WRITE! 6,9900)  UAUXT,KUAUXT 
WRITE!  6,9970  ) UST AB  KUSTAB 
WRITE! 6,95001  WAERQ  KWAERO 
WRITE! 6,9600)  UACS.KWACS 
WRITE! 6,9600  ) WACSTK, KWACST 
WRITE!  6,9900  1WPQWER. KWPOWE 
WRITE! 6,5000)  WSORCE, KWSORC 
WRITE! 6,5300)  WPOWTK, KWPOUT 
WRITE  ( 6.5900  1WP0WCD, KWPOWC 
WRITE! 6,5600  JWHYCAD, KUHVCA 
WRITE! 6,5700)  WGNAtf , KWGNAV 
WRITE! 6,5800)  WIN$T,KWINS1 
WRITE! 6,5900)  WCOAA, KWCOAH 
WRITE!  6,6600  )WPPRO  Y, KWPPRO 
WRITE! 6, 7300)  WDRY, KWDRY 
WRITE! 6, 7900)  WCONt,KWCONT 
WRITE! 6,7500)  UPERS.KWPERS 
WRITE! 6,7800)  WPAYL  , KWPAYL 
WRITE  (6,7900)  WPASS.  KWPAS5 
WRITE  (6,7860)  WCARGO,  KWCA66 
WRITE!  6,6900 )UR£SID,KWRESI 
WRITE!  6,8500  ) *6ASPft , KWGASP 
WRITE!  6,6600  )WFUTRP, KUF UTR 
WRITE! 6,8700)  WOXTR0 , KUQXTR 
WRITE!  6, 8900 >WSRTRP , KWSRTR 
WRITE! 6,9000  )WRESRY, KWRESR 
WRITE!  6,9100 )UF URE5 , KWF URE 
WRITE! 6,9200)  W0XRE5, KUOXRE 
WRITE! 6,9300)  WPOWRS,KWPOWR 
WRITE! 6,9900)  WOI LRS , KWOI LR 
WRITE! 6,9500)  WACRE5,KUACRE 
WRITE! 6, 9700 )WWET  KWWET 
WRITE!  6,9800  )WLO$5,KWtOSS 
WRITE!  6,9801  ) PL0L05,PLL0S 
WRITE! 6,9898)  WFROST, FROST 
WRITE!  6,9900  )WFUtOS, KWF ULO 
WRITE!  6,  10000  IWOXLOS, KWOXLO 
WRITE! 6, 10100  )WPOWFO,KWPOWF 
WRITE! 6, 10200)  WACSFO , KWACSF 


► BOOST  STAGE  , 33 X6HP0 UNDS , 20X 


PRINT* 
PR  1 NT  W 


PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRI NT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
PRINT* 
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226. 

227. 

228. 

229. 

230. 
231  . 

232. 

233. 
239. 

235. 

236. 
237  . 

238. 

239. 


WRITE!  6 
UR1TE!  6 
WRITE!  6 
1 0650  URITE<  6 
10750  UR  I TE( 6 
WRITE! 6 
URITE( 6 
WRITE! 6 
WRITE! 6 
WRITE! 6 
WRITE! 6 
IF! JURP 
KU800  = 
WRITE! 6 


, 10900  > WOIL,KWOIL 
,10910)  UABF U, Ktf ABFU 
, 10600  )UDECAY , KWOECA 
, 10700  1WFUQX  KWF UOX 
, 10600  )UFUL,KWFUL 
,11900)  UOXIOKUOXID 
, 11500  )UFU2!  1>,KWFU2 
,11600  )U0*2l 1 ), KU0X2 
, 11900  lUTO.AWTO 
,12300)  WPREIG,KUPREI 
,12500)  UGRQSS, KU680S 
-EO.O)  GO  TO  9999 
WBQO  * KILO 
,13010)  UBOO  , KUBOO 


PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRI NTU 
PRINTU 
PRINTU 
PRINTU 


9999 


3 


290. 

291. 

292. 

293. 
299 . 

295. 

296. 

297. 

298. 

299. 

250. 

251. 

252. 

253. 

259. 

255. 

256. 
257  . 
258. 
259 

260. 
261 
262. 
263. 

269. 
265  . 
266. 

267  . 

268 
269 

270. 

271. 

272. 

273. 
279. 

275. 

276. 

277. 
2 78. 

279. 

280. 
281  . 
282 
283. 
289. 

285. 

286. 
287 
286. 

289. 

290. 

291. 

292. 

293. 
299. 

295. 

296. 
297  . 

298. 

299. 
300 


9999  CONTINUE 
RETURN 

100  FORMAT!  1H0.52HAERODVNAM1  C SURFACES 
♦F18.0.F27.0  ) 

200  FORMAT! IH  ,52H  WING  ♦ WING  MOUNTED  CONTROL  SURFACES 
*F9 . 0, F27 . 0 ) 

900  FORMAT!  1H  ,52H  VERTICAL  SURFACES 
*F9 . 0,F27 . 0 ) 

700  FORMAT!  1H  ,52H  FAIR  I NGS , SHROUDS  AND  ASSOCIATED  STRUCTURE 
*F9 . 0, F27 . 0 ) 

800  FORMAT! 1HO.52HB0OV  STRUCTURE 
*F  1 8 . 0,F2  7 . 6 ) 

STRUCTURAL  FUEL  CONTAINERS 


STRUCTURAL  OXIDIZER  CONTAINERS 
BASIC  BODY  STRUCTURE 
SECONDARY  STRUCTURE 
THRUST  STRUCTURE 


900  FORMAf  ! IH  ,50H 
*F  1 1 . 0.F27 . 0 ) 

1000  FORMAT  < IH  50H 
*F  1 1 .0,F27.0> 

1100  FORMAT!  IH  , 52H 
*F 9 . 0, F27 . 0 ) 

1300  FORMAT!  IH  ,52H 
*F9.0,F27.0 ) 

1900  FORMAT!  IH  ,52M 
*F9 . 0, F27 . 0 ) 

1600  FORMAT!  1 HO . 52HI NDUCEO  ENVIRONMENTAL  PROTECTION 
♦F18.0.F27.6  ) 

1800  FORMAT!  IH  ,52H  COVER  PANELS , NON-STRUCT URAL 
*F9.0,F2T .01 

1900  FORMAT!  IH  ,52H  VEHICLE  INSULATION 
*F9 . 0, F27 . 0 ) 

2200  FORMAT! 1H0,52HLAUNCH, RECOVERY  AND  DOCKING 
*F  18 . 0.F27 . 6 1 

2300  FORMAT! IH  ,52H  LAUNCH  6EAR 
♦ F9 . 0, F27 . 0 ) 

2900  FORMAT! IH  ,52H  DEPLOYABLE  AERODYNAMIC  DEVICES 
*F9 . 0, F27 . 0 ) 

2500  FORMAT!  IH  ,52H  ALIGHTING  GEAR 
*F9  0, F27 . 0 ) 

2600  FORMAT!  IH  ,52H  DOCKING  STRUCTURE 
*F9 . 0, F27 . 0 ) 

2600  FORMAT!  1H0,52HPR0PULS10N 
*F 1 8 . 0,F27 . 0 ) 

SECONDARY  ENGINES  AND  ACCESSORIES 


2870  FORMAf!  IH  ,52H 
*F9.0,F27.0) 
2900  FORMAT!  IH  ,52H 
»F9 . 0, F27 .0 ) 
3100  FORMAT!  IH  ,52H 
*F9 . 0, F27 . 0 ) 
3300  FORMAT!  IH  ,52H 
*F9.0,F27.0) 
3900  FORMAT!  IH  ,52H 

* F9 . 0 F2 7 . 0 ) 
3910  FORMAT!  IH  ,52H 

* F9 . 0, F27 .0 ) 
3920  FORMAT!  IH  ,52H 

* F9.0,F27.0) 
3500  FORMAT! IH  ,52H 

*F9 . 0, F2  7 . 0 ) 
3600  FORMAT!  IH  ,52H 
*F9 . 0, F27 . 0 ) 
3700  FORMAT!  IH  ,52H 
*F9.0,F27.0) 
3800  FORMAT!  IH  ,52H 


ENGINES  AND  ACCESSORIES 

NACELLES, PODS, PYLONS, SUPPORTS 

FUEL  CONTAINERS  ANO  SUPPORTS  ( NON-STRUCTUfi AL ) 

OXIDIZER  CONTAINERS  ANO  SUPPORTS! NON-STRUCT URAL ) 

SECONOARV  FUEL  TANKAGE  ANO  SYSTEMS 

SECQNOARY  OXIOIZER  TANKAGE  ANO  SYSTEMS 

PROPELLANT  INSULATION 

FUEL  SYSTEM  - MAIN 

OXIDIZER  SYSTEM  - MAIN 

PURGE  SYSTEMS 


PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRI NTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
PRINTU 
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301 . 

302. 

303. 
309. 
305  . 
3 06. 
307  . 

308. 

309. 

310. 

311  . 

312  . 
313. 
319. 

315. 

316. 

317. 

318. 

319. 

320. 
321  . 

322. 

323. 
329. 
325  . 
326. 

327  . 

328  . 
329. 

330  . 

331  . 

332. 

333. 
339. 

335  . 

336  . 

337  . 

338  . 
339. 
390. 
391  . 
392. 
393  . 
399. 

395  . 

396  . 

397  . 

398  . 
399. 

350  . 

351  . 

352. 

353. 

359. 
355. 

356  . 

357  . 
358. 
359  . 

360. 

361  . 

362  . 
363. 
369  . 
365  . 

366. 

367. 

368. 

369. 
3 70  . 

371  . 

372  . 
373. 
379. 
375  . 


•F9.0.F2T.0) 

9110  FOR  WAT  ( 1 H 52H  AIRBREATHING  ENGINES  AND  INSTALLATION 
*F9 . G,F27 .0  ) 

9115  FORMAT! IH  , 52H  AIRBREATHING  PROPULSION  TANKAGE  AN0  SYSTEMS 
•F9.0.F27.0) 

9300  FORMAT! 1 HO . 52H0R I ENT  AT  I ON, SEPARATION  AND  ULLAGE  CONTROL 
♦F 1 8 . 0 F27 . 6 ) 

9900  FORMAT! IH  .52M  SEPARATION  SYSTEMS 
*F9.0,F27.Q  ) 

9970  FORMAT! 1H  ,52H  STABILITY  AND  CONTROL,  ENGINE  GIMBAL 
*F9 . 0,F27 .0  ) 

9500  FORMAT!  1H  ,52H  AEROQYNAMIC  CONTROLS 
*F9 . 0,F27 .0  ) 

9600  FORMAT! 1H  ,52H  SPATIAL  ATTITUDE  CONTROL  SYSTEM 
*F9 . 0,F27 . 0 ) 

9800  FORMAT! 1H  ,52H  CONTROL  PROPELLANT  TANKAGE  AND  SYSTEMS 
*F9.0,F27 .0) 

9900  FORMAT! 1H0.52HPRIME  POWER  SOURCE  AND  DISTRIBUTION 
*F 1 8 . 0 F2  7 . 0 ) 

5000  FORMAT! 1H  ,52H  POWER  SOURCE  UNITS 

♦F9.0.F27 .0  ) 

5300  FORMAT! IH  ,52H  POWER  SOURCE  TANKAGE  AND  SYSTEMS 
*F 9 . 0 , F2 7 . 0 > 

5900  FORMAT! 1H0.52HP0WER  CONVERSION  AND  DISTRIBUTION 
•F18.0F27.0  ) 

5600  FORMAT! IH  ,52H  HYDRAULIC/PNEUMATIC 

*F 9.0.F27.0  ) 

5 700  FORMAT! 1 HO , 52HGUI DANCE  AND  NAVIGATION 
*F 1 8 . 0 F2  7 . 6 ) 

5800  FORMAT! 1 HO , 52H I NSTRUMENT AT  I ON 
•F18.0F27.0  1 

5900  FORMAT!  1 HO , 52HC0MMUNI CAT  I ON 
*F1 8 . 0 F27 . 6 ) 

6600  FORMAT! 1M0.52HPERS0NNEL  PROVISIONS 
*F 16 .0  F27 .0  1 

7300  FORMAT! 1H0,52HDRY  STRUCTURE 

♦,  7X,lH(Fi0.0,lH)f17X,lN(F10.0,lH)  ) 

7900  FORMAT! IH0.52HDESIGN  RESERVE  (CONTINGENCY) 

•F 1 8 . 0 F27 . 0 ) 

7500  FORMAT! 1 HO, 52HPERS0NNEL 
* F18.0F27.0) 

7800  FORMAT! 1H0.52MPAYLOAD 
♦F18.0F27.0  ) 

7860  FORMAT! IH  ,52H  MISSION  EOUI PMENT/P AYLO AD 
*F9.0,F27.0T 

7900  FORMAT!  IH  ,52H  CARSO  OR  UPPER  ST  AGE 
*F9.0,F27 .0  ) 

8900  FORMAT!  I HO , 52HRES I OUAL  PROPELLANT  AND  SERVICE  ITEMS 
♦F10.O.F27.6  ) 

8500  FORMAT! IH  ,52H  TANK  PRESSURIZATION  ANO  PURGE  GASES 
*F9.0,F27.0) 

8600  FORMAT! 1M  ,52H  TRAPPED  FUEL 

*F9 . 0,F27 . 0 1 

6700  FORMAT! IH  ,52H  TRAPPED  OXIDIZER 


*F 9 . 0, F27 . 0 ) 

8900  FORMAT! IH  ,52H  SERVICE  ITEMS  RESIDUALS 
*F9 . 0, F27 . 0 ) 

9000  FORMAT! 1H0. 52HRESERVE  PROPELLANT  AND  SERVICE  ITEMS 
*F 1 8 . 0 F27 . 0 ) 

9100  FORMAT! 1M  , 52H  FUEL-MAIN  PROPULSION 
*F9 . 0, F27 . 0 ) 

9200  FORMAT! IH  ,52H  OXIDIZER-MAIN  PROPULSION 
♦F9.0F27.0) 

9300  FORMAT ( 1 H ,52H  POWER  SOURCE  PROPELLANTS 


*F9 . 0 r F27 . 0 ) 

9900  FORMAT! IH  ,52H  LUBRICANTS 

*F9 . 0, F27 . 0 i 

9500  FORMAT! IH  ,52H  ATTITUOE  CONTROL  PROPELLANTS 

*F9.0/F27.Q  1 

9700  FORMAT! 1H0. 52H0PERATING  WEIGHT  EMPTY 

7X,1H(  FIO.O, 1 M ),  1 7 X , 1H(,F10.0,IM)  ) 

9800  FORMAT! IHO, 52HI N-FLI GHT  LOSSES 

*F 18.0  F27 .6  1 

9801  FORMAT! IH  ,52H  HUCKEY  PUCK 

*F9.0  F27.0  ) 


PR  1 NT  W 
FRINTW 
PR  I NT  W 
PR  I NT  W 
PR  I NT  W 
PR  I NT  W 
PRINTW 
PR  I NT  W 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
FRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
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376.  9698  FOfiMATdH  ,52H  ICE  AND  FROST 

377.  *F9.0,F27.0I 

376.  9900  FORMATHH  ,S2H  FUEL  VENTED 

379.  *F9.G,F27.0) 

360.  10000  F0RMAT11H  ,52H  OXIDIZER  VENTED 

381.  *F9 . 0, F27 . 0 ) 

362.  10100  FORMAT! 1H  , 52H  POWER  SOURCE  PROPELLANTS 

383.  *F9 . 0.F27 . 0 ) 

389.  10200  FOfiMATdH  ,52H  ATTITUDE  CONTROL  PROPELLANTS 

385.  *F9.0,F27.0> 

386.  10900  FORMAT C 1 H ,52H  LUBRICANTS  AND  OTHER  SERVICE  ITEMS 

387.  *F9 . 0 F27 . 0 ) 

386.  10910  FORMAT!  1H  ,52H  FLYBACK  FUEL 

389.  *F9 . 0.F27 . 0 ) 

;390.  10600  FORMAT! 1H0  52HTMRUST  DECAY  PROPELLANTS 

391.  *F 16 .0.F27.O  ) 

i392.  10700  FORMAT! 1H0.52HPR0PELLANTS 

393.  *F 1 8 . 0.F27 .6  ) 

399.  10800  FORMAT! 1H  ,52H  FUEL  - MAIN 

395.  *F9.0,F27.0> 

396.  11900  FORMAT! 1H  ,52H  OXIDIZER  - MAIN 

397.  *F9.0,F27.0> 

396.  11500  FORMAT! 1H  ,52H  FUEL  - SECONDARY 

399.  *F9 . 0, F27 . 0 ) 

900.  11600  FORMAT! 1H  ,52H  OXIDIZER  - SECONDARY 

901.  *F9.0,F27.0> 

902.  11900  FORMAT! 1H0.52HMASS  AT  FULL  THRUST 

903.  *F1 8 . 0.F27 . 6 ) 

909.  12300  FORMAT!  1H0, 52HPRE-I GNI TION  LOSSES 

905.  *F 1 8 . 0 .F27 . 0 ) 

906.  12500  FORMAT!  1H0, 52HMAX I MUM  GROSS  WEIGHT 

907.  *.  7X , 1H!  F10.0. 1 H ) . 15X, 1H!  ,F10.0,1H)  ) 

908.  13010  FORMAT!  1HG,5GHGR0SS  WEIGHT  OF  ONE  BOOSTER 

909.  ♦ 2XF 18 - 0.F27 . 0 > 

910.  13500  FORMAT! 1H  ,52H  HORIZONTAL  SURFACES 

911.  » F9 . 0,F27. 6 1 

,912.  ENO 


PR  1 NT  W 
PRINTW 
PR  1 NT  W 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRI NTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
PRINTW 
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VK  A 

>• 

\ 


SUBROUTINE 

PRITEQ 


f-  (I  H I H AN 
SYMBOL 


HATH 

SYneot 


CODE 


DE5CRIPTI0IM 


STORAGE 


BLdt* 


LdC 


SUBROUTINE  USAGE 
SU6H  CODb  VAR 


C 


I 


. UN06 . 


I Input  array  c<  300  ) of  vehicle  tiling  data 


U Oo  loop  counter 
0 File  of  all  output  date 


/ C I NP UT /( 


/PR  I TE0/( ♦ 
/ . UNOb . /( 0 


5 ) PRINTld 
PRITEO 
PRITVA 
'STORE 
UITSCH 
UT  VOL 

> PRITEO 

) BUCO 
BNDRYC 
CRASH 
FRENCH 
FXDAT 
GEINP 
HUNT 
INEDIT 
I TER  8 
nODELA 

nonj 

hpsi 

OUT 

PAY02 

PRINT 

PRINTV 

PR1NTW 

PRITEO 

PRITVA 

PROPIN 

PROTHR 

PRUTS* 

RANGE 

S 

SDINP 

SIZE 

SIZIN 

SIZOUT 

SOLVE 

SPLICO 

SPLIZ 

SPLYNE 

SSSP 

STAU 

STPIT 

SUflQUT 

TABIN 

TEST 

VEHOF 

UITSCH 

UT  VO  L 


1 C 
1 C 
I C 
* C 
I C 

0 c 

U I 

0 . UNOb . 

0 . UNOb . 

0 . UNO  6 . 

0 . UNO  6 . 

0 . UN06 . 

0 , UNO  6 . 

0 . UNO  6 . 

0 . UNOb . 

0 . UNO  6 . 

0 . UN06 . 

0 . UNOb . 

0 . UN06 . 

0 .UN06. 

0 . UNOb . 

0 . UN06 . 

0 . UNO  6 . 

0 .UNOb. 
0 . UN06 . 

0 .UN06. 

0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
0 .UNOb. 
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PRITEQ 


19. 

20. 
21  . 
22. 


SUBROUTINE  PRITEQ 

SUBROUTINE  TO  PRINT  WEIGHT  ANO  VOLUME  COEFFICIENTS 

REAL  MUB  MUO.  ISPB,  ISPQ,  l D VEL, NNB, NO 
COMMON  /SIZING/ 

PHASE  II  SIZING  PARAMERERS 


8. 

9 . 

10.  C 

*TZ , V V(  3 ) , 

*S  V!  28  ) , SO!  37  5 ), 
PHASE  I SIZING 

OP!  19),  EROR, 

SE(  11  ) , TLAT , 

PARAMERERS 

PZ!  5 ) , 
TLN6, 

VO, 

SW(  20  ) 

11  . 

* WBO , 

WLOO, 

DWEB, 

DWEO, 

TOLWT, 

WPB, 

TRAFLG, 

TWRAT2 

12. 

*BA  1 

BA2, 

BA3 , 

BA9, 

1SIZE, 

TWRATO 

13. 

*0A  1 

0K2. 

0A3, 

0 A 9 , 

PRFLS, 

IPASS, 

IPSMAX 

19. 

•AEXIT, 

T VACO , 

NO, 

UFO , 

IDVEL, 

1SP0, 

I SPB, 

15. 

* XPL, 

TVACB, 

NNB , 

WEO, 

WEB, 

wo. 

WLO, 

16. 

*DVO, 

OVB. 

MUB, 

mu6. 

VSTG, 

WPO 

17. 

18. 

* , JTVP  . 

* SVOPSO 

BECO  . 

, 5 VOCuN 

BSTG  , 
, I HUNT 

ORBI , 
IOPSTG 

ITNBW  . 

, I5Z0!  19) 

ITNOW  , 

REAL  AIN 

REAL  ISP ,A,LF,MR,NCREU,LBODY,NPAS$ 
REAL  NEN6S 
COMMON/CINPUT/ 


23. 

1ANENGS 

, ANTANK 

, ASRATO 

, ASUEEP 

, C!  300  ) 

, CBBODY 

, CFUEL! 6 > 

29. 

2CHB0DV 

. CLBODY 

, CSBODY 

, CSF  A 1 R 

, CSF UT  A 

CSHQRZ 

, CSO  XT  A 

25. 

3CSPLAN 

CS  VERT 

, CS WI NS 

,cthrst 

, CTHST2 

, DEF! 5 ) 

, F XWO  VS 

26. 

9I5P! 6 ) 

, ITPS 

,A( 30  ) 

, A 1 N 

,LF 

, MR!  6 ) 

, NCR  EW 

27. 

5NENGS 

, NL I STO 

, NP  ASS 

,nul 

, P CH AM 

,0 

, RHOFU 

28. 

6RH0FU2 

, RHO  x 

, R HO  X2 

, SBODY 

, TOL 

, TO VERC 

, TPR ATO 

29. 

7TYTAI L 

. VBOOY 

. WGROSS 

30. 

COMMON/VOLCAL/BBODV.  CROOT 

, CS  P AN 

, CT I P 

, GAL 

, GSPAN 

31  . 

2HB0DY 

, LBOOY 

, RiOD 

, SF  A I R 

, SF  UT  A 

, SHORZ 

, SOXT  A 

32. 

3SPLAN 

, S T P S ! 1 ) 

, S VERT 

, SWING 

,SXPOS 

, TOEL 

, TROOT 

33. 

9TTQT 

,TT0T2 

,TTQT  AL 

, VBOOYA 

, VBOOY1 

, VBOOV2 

, VCARGO 

39. 

5VCREW 

, VFUTA 

, VFUTK2 

, VINSTA 

, VLGBAV 

, VOTHER 

, VOXTA 

35. 

6V0XTK2 

. VPROP 

, VSTRUC 

36. 

COMMON/ WT CALC/ 

ABFSYS 

, WABFTA 

, WABFU 

, WABPR 

, WACRES 

37. 

1WACS 

, UACSFO 

,WACSTA 

, WAERO 

, WAUXT 

, WBAS I C 

, UBODY 

38. 

2WBPUMP 

, WCARGO 

, WCOMM 

, WCONT 

, WCO  VER 

, WOECAY 

, WDI ST  1 

39. 

3UDIST2 

, WDOCA 

, WDPLO Y 

, WORANS 

, WORY 

, WELCAD 

, WEMPT  V 

MO. 

9 WEN GMT 

, UENGS 

, WENGS2 

,UFAJR 

, WFCONT 

r WFDC AY 

, WFROST 

91  . 

5WFU2!  3 ) 

, UF UEL(  6 

1 , WF  UL 

, WF  ULOS 

, WF  UNCT 

, WF  UO  X 

, WFURES 

92. 

6WFUSVS 

,WFUTK 

,WFUTA2 

, WF  UTOT 

, WF  UT  R P 

, WGASPR 

, WGNAV 

93  . 

7WH0RZ 

, WHYCAO 

,uinfut 

, WI NO  XT 

, UI NST  A 

, WI NST 

, WINSUL 

99. 

8WJET! 6) 

, ULANCH 

,UL6 

, WLOSS 

,wlrd 

, WNACEL 

, WODCAV 

95. 

9W0IL 

, WOILRS 

, WOR  S UL 

, wqyers 

, WOX!  6 ) 

W0X2!  3) 

, WO  X I D 

96. 

1W0XL0S 

, WO  X R E 5 

, woxsvs 

, WO  XT  A 

, WO  XT A2 

, WO  XTOT 

, WD  XTRP 

97  . 

2WP 

,WPA5S 

, WPAYL 

,wpers 

, WPOWCO 

, WPOWER 

, WPOWFO 

98. 

3UP0WRS 

, WPOWTA 

, UPPRO  V 

, WPRE I 6 

, WPROP 

. WPRSY5 

, WREFUL 

99  . 

9WRES10 

, WRESR  V 

, WSEAL 

,wsecst 

, USOR  C£ 

WSRTRP 

, WSTAB 

50. 

5WSURF 

, WT  ABC 

,wthrst 

, WT  0 

, WT  P S ‘ 

, W VERT 

, WWA I T!  10 

51  . 

6WWET 

, WWING 

WZROFU 

, WABTRP 

, WABRES 

WMNOTP 

, WMNFTP 

52. 

7UMN0RS 

WMNFRS 

, UACQTP 

, WACFTP 

, WPWQTP 

, WPWFTP 

, WG  AS 

53. 

8WABFUC 

, WACORS 

, WACFRS 

, WPWORS 

, UPWFRS 

59. 

900  WRITE!  6, 

1150) 

55. 

1150  FORMAT!  1 

HI , 26HWEI GHT  COEFFICIENTS 

r C!  I >,  / ) 

56. 

DO  300  I 

- 1,300 

5T  . IF(C( I >.NE.O. ) WRITE  16,1200)  I , Ct  1 > 

58.  300  CONTINUE 

59.  1200  FORMAT< I5,F13.5> 

60.  WRITE!  6,  1250) 

61.  1250  FORMAT!  1 HO . 38HV0LUME  COEFFICIENTS  = All),  I = 1,30  =/ > 

62.  WRITE!  6,  1300  H I, AC  I ), 1 = 1,30) 

63.  1300  FORMAT!  5!I5,F13.5)> 

69.  CALL  PRITVA 

65.  RETURN 

66.  END 


PfilTEQ 

PRITEO 

PRITEQ 

PRITEO 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

UN 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

volcal 

vqlcal 

VOLCAL 

VOLCAL 

VOLCAL 

VOLCAL 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

WTCALC 

CAOUT 

caout 

CAOUT 

PRITEO 

PRITEQ 

PRITEO 

PRITEQ 

PRITEO 

PRITEQ 

PRITEO 

PRITEO 

PRITEO 

PRITEO 

PRITEQ 

PRITEQ 

PRITEO 
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SUBR0UTINE 
PR  I TVA 


FORTRAN 

SYMBOL 


NATH 

SYMBOL 


COOE 


DESCRIPTION 


STORAGE  SUBROUTINE 
Bl3T?  IOC  SUBR  COOE  VAR 


c 

I 

Input  array  c< 300 > of  vehicle  ailing  data 

/CINPUT/I 

5) 

PRINTU 

I 

C 

PRITEO 

I 

c 

PRITVA 

I 

c 

STORE 

n 

c 

UTSCH 

l 

c 

■* 

NT  VOL 

0 

c 

CBBODY 

1 

Body  aidth  coaff. 

/CINPUT/l 

305  ) 

P R 1 T V A 

i 

CBBOOY 

STORE 

a 

CBBODY 

UTSCH 

I 

CBBODY 

CHBOOV 

I 

Body  height  or  coaff 

/Cl  NPUT /( 

312  > 

PRITVA 

I 

CH80DY 

STORE 

a 

CHBOOV 

UTSCH 

l 

CHBOOV 

CLBODY 

1 

Body  length  or  coaff 

/Cl NPUT/l 

313  ) 

PRITVA 

I 

CLBOOY 

STORE 

a 

CLBODY 

UTSCH 

1 

CLBODY 

CSBODV 

I 

Total  body  aetted  araa  or  coaff 

/CINPUT/I 

319  ) 

PRITVA 

I 

CSBOOY 

STORE 

A 

CSBODV 

UTSCH 

I 

CSBOOY 

CSFAIR 

1 

Fairing  pianfora  araa  or  coaff 

/C I NPUT/l 

315  ) 

PRITVA 

I 

CSFAIR 

STORE 

a 

CSFAIR 

UTSCH 

I 

CSFAIR 

CSFUTK 

I 

/CINPUT/I 

316  ) 

PRITVA 

I 

CSFUTK 

STORE 

* 

CSFUTK 

UTSCH 

I 

CSFUTK 

CSHORZ 

I 

Horiiontal  atabalizar  pianfora  araa 

/CINPUT/I 

317  > 

PRITVA 

l 

CSHORZ 

STORE 

a 

CSHORZ 

UTSCH 

I 

CSHORZ 

CSOXTK 

I 

Osldiier  tank  turf  act  area  coaff 

/ Cl NP  UT /( 

318) 

PRITVA 

I 

CSOXTK 

STORE 

n 

CSOXTK 

UTSCH 

I 

CSOXTK 

CSPLAN 

1 

Body  pianfora  area  or  coaff 

/CINPUT/I 

319  ) 

PRITVA 

I 

CSPLAN 

STORE 

A 

CSPLAN 

UTSCH 

I 

CSPLAN 

CS  VERT 

I 

/CINPUT/I 

320  ) 

PRITVA 

I 

CS  VERT 

STORE 

A 

CS VERT 

UTSCH 

I 

CS VERT 

CTHRST 

1 

Vac.  Thru»t-te-**i ght  ratio 

/Cl NPUT/l 

322) 

PRITVA 

I 

CTHRST 

STORE 

a 

CTHRST 

UTSCH 

i 

CTHRST 

UT  VOL 

a 

CTHRST 

CTH5T2 

I 

/Cl NPUT/l 

323  > 

PRITVA 

l 

CTH5T2 

STORE 

a 

CTHST2 

UTSCH 

I 

CTMST2 

I 

U 

Do  loop  counter 

/PRITVA/I * 

) 

PRITVA 

B 

I 

JUMP 

I 

Data  flag  0=  orbltar  1 * booster 

/JUMPY  /( 

l > 

FRENCH 

0 

JUMP 

PRINTU 

I 

J UAP 

PRITVA 

I 

JUMP 

PRUT  SN 

a 

J UAP 

UTSCH 

l 

JUMP 

UT  VOL 

n 

JUMP 

NCREU 

I 

Nuaber  of  craa  aeubers 

/ C 1 NP  UT /< 

375  ) 

PRITVA 

I 

NCR  EU 

STORE 

A 

NCREU 

UTSCH 

I 

NCREU 

NENGS 

I 

Total  nuaber  anginas  par  stage 

/CINPUT/I 

376  ) 

PRITVA 

I 

NENGS 

STORE 

A 

NENGS 

UTSCH 

I 

NENGS 

RHOFU 

I 

Fuel  density 

/CINPUT/I 

382  ) 

PRITVA 

I 

RHOFU 

STORE 

A 

RHOFU 

- 

UTSCH 

I 

RHOFU 

RH0FU2 

I 

Secondary  fuel  desnity 

/ C I NP  UT /( 

383  ) 

PRITVA 

I 

RH0FU2 

STORE 

A 

RH0FU2 

UTSCH 

I 

RH0FU2 

8 NOV  72  G.01-N6 


^ ^ /}  / 


fortran 

SYNBOL 


NATH 

SYNBOL 


COOE 


DESCRIPTION 


SU8B0UT1ME  US*6E 

subr  cooe  Tar 


RHO  X 

RHOX2 

SE 


SO 


« 


TTOT 

TTOT2 

NJET 

WAIT 


I 

Onidfxer  density 

/CINPUT /< 

38*  > 

PflITVA 

I 

RHOX 

STORE 

N 

RHOX 

NTSCH 

I 

RHOX 

I 

Secondary  oaldlxer  density 

/Cl NP  UT /< 

385  ) 

PRITVA 

I 

RH0X2 

STORE 

N 

RH0X2 

NTS  CH 

I 

RH0X2 

I 

Array  of  synthesis  Iteration  propulsion  paraaeters 

/5 1 Z1 NG/< 

259) 

FLYBKP 

0 

SE 

PRITVA 

I 

SE 

S1ZENR 

I 

SE 

SUNOUT 

I 

SE 

TANPEfi 

N 

SE 

THRUST 

1 

SE 

VEHDF 

N 

SE 

NTSCH 

I 

SE 

NT  VOL 

N 

SE 

I 

A synthesis  date  array  <37, 5)  that  contains  the 

/SIZING/! 

7*  ) 

ENVPRN 

N 

Sfl 

flyback  data  end  sone  injection  quantities 

FLYBXP 

N 

SO 

1SPRAT 

I 

so 

POBC 

I 

so 

PRITVA 

I 

so 

RANGE 

N 

so 

REU3 

0 

so 

SIZE 

0 

so 

SIZENR 

R 

so 

SIZIN 

R 

so 

STAU 

I 

so 

SUNOUT 

R 

so 

TANPAR 

0 

so 

TANPER 

R 

so 

THRUST 

R 

so 

TRTOSZ 

A 

so 

VEHDF 

R 

so 

NT  VOL 

R 

so 

1 

Total  stage  vac.  Thrust 

/VOLCAL/l 

21  ) 

PRITVA 

1 

TTOT 

STORE 

I 

TTOT 

NTSCH 

N 

TTOT 

NT  VOL 

I 

TTOT 

1 

Total  stage  vac.  Secondary  thrust 

/V0LCAL/< 

22) 

PRITVA 

1 

TT0T2 

NTSCH 

R 

TT0T2 

1 

Jettison  aeight  1.  Ignition  to  lift-off  2.  Not 

/NTCALC/< 

62) 

PRITVA 

I 

NJET 

used  3.  Jettison  during  ascent  9.  In-orbit 

PRNTSN 

N 

NJET 

jettison  at.  5.  Pre-entry  jettison  at.  6.  Fly- 

STORE 

0 

NJET 

back  jettison  at. 

TANPER 

1 

NJET 

NTSCH 

R 

NJET 

I 

Suaaary  aelghts  l.  Ignition  2.  Take-off  3. 

/WTCALC/C 

122) 

PRITVA 

I 

NNA1T 

Burnout  A.  Initial  arbiter  5.  Initial  entry  6. 

PRNTSN 

I 

NNAIT 

Initial  flyback  7.  Landing 

STORE 

N 

NNAIT 

TANPER 

I 

NNAIT 

NTSCH 

N 

NNAIT 
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FORTRAN 

Symbol 


s7SbSl  cooe 


DESCRIPTION 


STORAGE 

“FLOW  Loc 


SjJBRJUTjNE 
SU&R  CODE  VAR 


.UNOb. 


0 File  of  til  output  dots 


BLICO 

0 

. UN06 . 

BNDRYC 

0 

. UN06 . 

CRASH 

0 

. UN06. 

FRENCH 

0 

. UN06 . 

FXOAT 

0 

. UN06 . 

6EINP 

0 

. UNOb . 

HUNT 

0 

, UN06 . 

INEDIT 

0 

. UN06. 

ITER8 

0 

. UN06 . 

HDDELA 

0 

. UNOb . 

MOMJ 

0 

. UNOfc . 

HP  S I 

0 

. UN06 . 

OUT 

0 

. UND6 . 

PAY02 

0 

.UNOb. 

PRINT 

0 

. UN06 . 

PR  I NT  V 

0 

-UNOb. 

PR1NTW 

0 

. UN06 . 

PRITEO 

0 

.UNOb. 

PRITVA 

0 

.UNOb. 

PROP  I N 

0 

.UN06. 

PROTHR 

0 

.UNOb. 

PfiWTS* 

0 

. UNOb . 

RANGE 

0 

.UNOb. 

S 

0 

.UNOb. 

SO  IMP 

Q 

.UNOb. 

SIZE 

0 

.UNOb. 

51ZIN 

0 

.UNOb. 

SIZOUT 

0 

.UNOb. 

SOLVE 

0 

.UNOb. 

SPLICO 

0 

.UNOb. 

5PLIZ 

0 

. UNOb. 

5PLYNE 

0 

.UNOb. 

SSSP 

0 

.UNOb. 

STAU 

0 

.UNOb. 

5TPIT 

0 

. UNOb. 

SUHQUT 

0 

.UNOb. 

TABIN 

0 

. UNOb . 

TEST 

0 

.UNOb. 

VEHDF 

0 

.UNOb. 

HTSCH 

0 

.UNOb. 

WT  VOL 

0 

.UNOb. 
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PRITYA 


SUBROUTINE  PRITYA 


PRITYA  - PRINTS  VARIABLES 

ConnON  / ju«pv  / Jimp,  wbig,  wboo 
real  WUB,  «UO,  ISPB,  ISPO,  I D VEL, NNB, NO 
COUPON  /SI ZING/ 

PHASE  II  SIZING  PARANERERS 
*T  Z,  V V(  3 ) , OP!  IN),  EPOR,  PZ 

*S  V!  28  ) , S Q ( 3 7 5 >,  SE(  11  ),  TLAT,  T 

PHASE  I SIZING  PARAMETERS 


• WBO, 
*BA1, 

♦ OA1, 

♦ AEXlT, 
*XPL, 
*OVO, 

*, JTYP, 

* SVDPSQ 
REAL  AIN 


REAL  NEN6S 
CO AAON/CI NPUT / 


WLOO, 

BA2, 

0A2, 

tvaCo, 

TVACB, 
DVB, 
BECO  , 

, SVDCON 


OUEB, 

DWEO, 

TOLWT, 

UPB, 

TURAT2, 

SIZING 

BA3, 

BAN, 

ISI ZE, 

TRAfLG, 

THRATO, 

SIZING 

0 A 3, 

0 AN, 

PfiFLG, 

IPASS, 

IPSAAX, 

SIZING 

NO, 

UFO, 

I 0 VEL , 

ISPO, 

ISPB, 

SIZING 

NNB, 

HUB, 

BSTG  , 
l , I HUNT 

NCREW, LBOOY 

UEO, 

«u5, 

ORBI, 

, 10PST6 

, NP ASS 

WEB, 
VST6, 
ITNBW  , ] 
,ISZOt 19) 

*Q*h 

ITNOW  , 

WLO, 

SIZING 

SIZING 

SIZING 

UH 

CINPUT 

CINPUT 

CINPUT 

2N  . 

1 ANENGS  , ANT  ANA 

, ASRATO 

, AS WEEP 

,C!  300) 

, CBBODY 

. CFUEL! 6). 

CINPUT 

25. 

2CHB00Y  , CLBODY 

, CSBODY 

, CSFAIR 

, CSF  UT  A 

, CSHORZ 

, CSOXTA 

CINPUT 

26. 

3CSP  LAN  , CS VERT 

, CSWIN6 

, CTHRST 

CTHST  2 

, OEFt 5 ) 

,FXWOVS 

CINPUT 

27. 

NISP<6>  , I TPS 

,A( 30  ) 

,KIN 

,LF 

,nR(  6 ) 

, NCREW 

CINPUT 

28. 

5NEN6S  , NLI STO 

, NP ASS 

,NWL 

, P CHAN 

,0 

, RHOFU 

CINPUT 

29. 

6RH0FU2  , RHOX 

,RH0X2 

, SBOOY 

,TOL 

, TO VERC 

, TPR ATO 

Cl  NP  UT 

30. 

7TYTAIL  , VBODY 

. WSRQSS 

CINPUT 

31  . 

COMMON/ volcal/bbooy,croot 

, C5P  AN 

, CT  I P 

, GAL 

, GSP  AN 

YOLCAL 

32. 

2HB0DY  , LBOOY 

.RTOD 

,sfair 

, SF  UT  A 

, SHORZ 

, SO  XT  A 

VOLCAL 

33. 

3SPLAN  , 5TP5( 1 ) .SVERT 

, SWING 

, 5 XPOS 

, TOEL 

, TROOT 

VOLCAL 

3N  . 

NTTOT  , TT0T2 

, TTOT  AL 

, VBOOYA 

, VBOOV1 

, VB00Y2 

, VCARGO 

VOLCAL 

35. 

5 V CREW  , VF  UT  A 

, VFUTA2 

, V1NSTA 

, VlGBAY 

, VOTHER 

, VOXTA 

VOLCAL 

36. 

6V0XTA2  VPROP 

, VSTRUC 

VOLCAL 

37  . 

CONMON/WTCALC/ 

ABFSYS 

, WABFTA 

, WABFU 

, WABPR 

, WACfiES 

WT  CALC 

38. 

1WACS  , WAC5F0 

,wacstk 

,uaero 

, UAUXT 

, WBAS I C 

, WBODY 

WTCALC 

39  . 

2WBPUAP  , WC ARGO 

, WCO«« 

, wcont 

, WCO VER 

, WOECAY 

, WOIST 1 

WT  CALC 

NO. 

3W0I5T2  , WDOCA 

, woploy 

, WOR  ANS 

WOR  V 

, WELCAD 

, WENPT  V 

WTCALC 

Nl  . 

NWENGAT  , WENGS 

.WENGS2 

, WF A I R 

, WF  CONT 

, WFDCAY 

, WF  fi  0 S T 

WTCALC 

N2. 

5WF  U2( 3 ) , WF  UELC  6 ) , WF UL 

, WF  ULOS 

, WF  UNCT 

, WF  UO  X 

, UFUfiES 

WTCALC 

N3  . 

6WFUSYS  , WF  UT  A 

,WFUTA2 

WFUTOT 

WFUTRP 

, WGA5PR 

, W&NAY 

WTCALC 

NN  . 

7WH0RZ  , WHYCAD 

,winfut 

, WI NO  XT 

, winsta 

, WI  NST 

, WI NS  UL 

WTCALC 

N5. 

8WJET < 6 ) , WLANCH 

,WLG 

,WLOSS 

,wlrd 

, WNACEL 

, WODCAY 

WTCALC 

N6  . 

9W0IL  , WQ I LRS 

, WORSUL 

, WO  VERS 

,WOX(  6 ) 

,W0X2!  3 ) 

,woxio 

WTCALC 

N7. 

1W0XL0S  , WQ  XRES 

,WOXSVS 

, WO  XT  A 

, W0XTA2 

, WO  X T 0 T 

, WQ  XTRP 

WTCALC 

N0. 

2WP  ,UPA5S 

, wpayl 

, WPERS 

WPQWCD 

, UPOWER 

, WPO WFO 

WTCALC 

N9. 

3WP0WRS  , WPQWT  A 

WPPRO  V 

WPREI G 

, WPROP 

, WP  fi  5 Y 5 

,WR£FUL 

WTCALC 

50. 

NURESIO  , WRESR  V 

, WSE AL 

, WSECST 

WSOR  CE 

, WSRTRP 

. WSTAB 

WTCALC 

51  . 

5USURF  , WT  ABC 

,WTHRST 

, WTO 

,WTPS 

, WVERT 

, WWAIT(  1 0 >. 

WTCALC 

52. 

6UWET  , WWI NG 

, WZRQFU 

WABTRP 

,wabres 

UftNOTP 

WMNFTP 

CfiQUT 

53. 

7WMN0RS  , WMNFRS 

,WACOTP 

, WACFTP 

, WPWOTP 

, WPblFTP 

, WGAS 

CAOUT 

5 N . 

8UABFUC  , WACORS 

, WACFRS 

, WPWORS 

, WP WFRS 

CAOUT 

55. 

WRITE  ( 6,26001  ) 

PRITYA 

56. 

WRITE  (6,1000) 

CBBOOV 

PRIT YA 

57. 

WRITE  ( 6,2000) 

CHBOOV 

PRITYA 

56. 

WRITE  (6,3000) 

CLBODY 

PRITYA 

59. 

WRITE  ( 6, NOOO  ) 

CSBODY 

PRITYA 

60. 

WRITE  (6,6000) 

CSFAIR 

PRITYA 

61  . 

Wfi I TE(  6,  7000) 

CSFUTK 

PRITYA 

62. 

WRITE(  6,  8000) 

CSHORZ 

PRITYA 

63. 

WR I T E(  6,  9000) 

CSOXTA 

PRITYA 

6N . 

WR I TE(  6,10000) 

CS  P LAN 

PRITYA 

65. 

WR I TEC  6,  11000) 

CS VERT 

PRITYA 

66. 

WRITE  (6,13000) 

cthrst 

PRITYA 

67. 

WR I TE<  6,  13002  ) 

CTHST2 

PRITYA 

68. 

WR I TE(  6,  16000  ) 

NCREW 

PRITYA 

69. 

WRITE!  6,  17000  ) 

NEN6S 

PRITYA 

70. 

WRITE! 6,20000  ) 

RHOFU 

PRITYA 

71  . 

WRITE!  6,21000  ) 

RH0FU2 

PRITYA 

72. 

WRITE!  6,22000  > 

RHO  X 

PRITYA 

73. 

WRITE! 6,22010) 

RH0X2 

PRITYA 

7 N . 

WRITE! 6,29000  ) 

CTHRST, WWA IT!  3 ), C(  129),NENGS, 

TTOT 

PRITYA 

75. 

WRITE! 6,25000) 

CT HST2 , WWA 1 T ( 6 ) , C!  1 5 8 >, T TOT 2 

PRITYA 
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76.  iOO  WRITE  < 6,26001  > 

77.  WRITE  < 6,26000 H I .UJETC I >,1=1,6) 

78.  I F < JUMP.E3.Q)  GO  TO  200 

79.  WRITE  ( 6,  1500  ) SW( 12 ) 

80.  WRITE  ( 6,  1505)  SW( 11) 

81  . WRITE  < 6, 1510)  SW(  6 ) 

62.  WRITE  < 6,  1515  ) 5W( 11 ) 

83.  WRITE  < 6.  1520  ) SM( 15) 

8 9 . WR I TE(  6 , 1 525  > SOI  10,2) 

85.  WRITE!  6,  30000 ) SEC  6 > 

86.  WRITE! 6. 30001 > SO! 5, 1 > 

87.  WRITE!  6,30002  ) SOI  6,1  ) 

88.  WRITEI6, 30003)  S0($,1) 

89.  WRITE!  6,30009 ) SO! 7,1  ) 

90.  WRITE!  6,30005  ) SO! 8,1  ) 

91  IF<  JUMP.EQ.  1 ) WRITE  1 6,999  ) 


PRITVA 
PR  I T 9 A 
PR  1 T VA 
PR  I T VA 
PRITVA 
PRITVA 
PRITVA 
PRITVA 
PRIT  VA 
PRITVA 
PRITVA 
PRITVA 
PRITVA 
PRITVA 
PRITVA 
PRITVA 


92. 

93. 
99  . 

95. 

96. 
97  . 
98. 
99  . 

100. 
101  . 
102. 
103. 

109. 

105. 

106. 

107. 

108. 
109  . 

1 10. 
Ill  . 
112. 
113. 
119. 

115. 

116. 

117. 

118. 

119. 

120. 
121  . 
122. 
123. 
129. 

125. 

126. 
127  . 
128. 

129. 

130. 

131  . 

132  . 
133. 
139. 

135. 

136. 

137. 

138. 

139. 
190. 
191  . 


200 

999 

1000 

1500 

1505 

1510 

1515 

1520 

1525 

2000 

3000 

9000 

6000 

7000 

8000 

9000 

10000 

11000 

13000 
13002 
16000 
1 7000 
20000 
21000 
22000 
22010 
29000 


RETURN 
FORMAT  ! 1 H 1 ) 

FORMAT  ( 1 HO , 91 HCBBO DV  = UIOTH  OF  BODY  / VBOOY  **  .3333  *,F9.9) 
FORMAT  ( 20HOSPECIFIC  FUEL  CONSUMPTION  = F7.5) 

FORMAT  (28H  CRUISE  BACK  VELOCITY  = F9.2,8H  FT/SEC  ) 

FORMAT  (28H  THRUST  RATIO  = F8.5) 

FORMAT  < 28H  L/D  = FB. 5 ) 

FORMAT  (28H  FLYBACK  RANGE  = F9.2,7H  N.  MI.) 

FORMAT! 29H  BANK  ANGLE  DURING  REENTRY  = F6.2,9H  DEG) 

HEIGHT  OF  BODY 
LENGTH  OF  BOOY 


vb6dy* 

VBOOY* 


.3333  F9 . 9 ) 
.3333  -,F9.9) 


WETTED  AREA  OF  BODY  / VBOOY  **  ,6667  =, 


FORMAT  ! 1H  ,91 HCHBOO Y 
FORMAT  ( 1H  ,91HCLB0DY 
FORMAT  ! 1H  , 97HCSB0  OY 
F9.9) 

FORMAT  (1H  , 92HCSFAI R = FAIRING  AREA  / BOOY  WETTED  AREA  =,F9.9> 
FORMAT  (1H  , 58HCSF UT K = WETTED  AREA  OF  FUEL  TANKS  / TANK  VOLUME  *♦ 
.6667  = F9.9) 

FORMAT! 1M  , 93HCSH0R2  = STABILIZER  AREA/THEO  WING  AREA=  ,P9.9) 

FORMAT  1 1 H ,63HCS0XTK  = WETTED  AREA  OF  OXIDIZER  TANKS  / TANK  VOLUM 
♦E  **  .6667  = F9.9) 

FORMAT  ! 1 H ,59HCSPLAN  = VEHICLE  PLANFORn  AREA  / BODY  VOLUME  **.666 

• 7 =, F9 . 9 ) 

FORMAT  tlH  , 5 7MCS VERT  = AREA  OF  EACH  VERTICAL  SURFACE  / 

*6667  = , F9 . 9 ) 

FORMAT  (1H  30MCTHRST  = ENGINE  THRUST  / WTO  =,F9.9) 

FORMAT! 97HICTHST2  = AIRBREATHING  ENGINE  THRUST  / WENTRY 
FORMAT  ! 1 HO , 29HNCREW  = NUMBER  OF  CREW  = F5.0) 

FORMAT  ! I M ,27HNENGS  = NUMBER  OF  ENGINES  =, F9.0) 

FORMAT  (1H  , 22HR HOFU  = FUEL  DENSITY  =,F6.2) 

FORMAT  (1H  , 93HRH0F U2=  SECONDARY  PROPULSION  FUEL  DENSITY  =,F6.2) 
FORMAT  (1H  , 25HRH0  X = OXIDIZER  DENSITY  =, F6.2) 

FORMAT  ! 1 H , 95HRHQ  X2  = SECONDARY  PROPULSION  OXIDIZER  0ENS1TY,F6.2) 
FORMAT  ! 1 H 66HTT0T  - MAIN  PROPULSION  THRUST  = CTHRST  * W0RB1T  ♦ C 
*( 129  ) * NEN6S  = / 10X 

* F6 . 3 , 3H  * F 7 . 0 , 3H  ♦ ,F8.0,3H  * ,FZ.0,3H  = ,F7.0> 
FORMAT  ! 1 HO , 69HT TOT 2 = AIRBREATHI N6  ENGINE  THRUST  = CTHST2  X WETUR 


VBODY 


= ,F9.9  ) 


25000 

*N  C(  158  ) ='*  / 10X  F 6 . 3 , 3H  * ,F7.0,3H  ♦ ,F7.0,3H  = ,F7.0) 

26000  FORMAT  < 1W  , 5HWJET!  , II , 3« > =,F10.I> 

26001  FORMAT!  1H0  ) 

30000  FORMAT!  1 HO, 92HMAX I MUM  ASCENT  DYNAMIC  PRESSURE  = F8.2, 

19H  P5F  ) 

30001  FORMAT! 1M  ,92HTIME  AT  MAX  2 = F8.3, 

1 HH  SEC) 

30002  FORMAT! 1H  ,92HALTITUDE  AT  MAX  0 = F8.0, 

13H  FT) 

30003  FORMAT! 1H  ,92HMACH  NUMBER  AT  MAX  0 = F7.3) 

30009  FORMAT!  1H  92HRELAT I VE  VELOCITY  AT  MAX  0 = F9.2, 

1 9 H FP5) 

30005  FORMAT! IH  92HRELAT 1 VE  FLIGHT  PATH  ANGLE  AT  MAX  0 - F6.2, 

1 9 H DEG) 

END 


PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 

PRITVA 


200 — | 
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SUBR0UTINE 

PR0THR 


h OH  I HAN 
SYMBOL 


rtAT  H 
S YPIBO  t 


CODE 


DESCRIPTION 


$ T 0 R A i j F 


BLOCK 


LOG 


SUBROUTINE  USAGE 
SUBH  CODE  VAR 


BBOOY 

I 

Body  width  used  by  aetO  to  set  to*«on  to  tero 

/V0LCAL/< 

1 ) 

PROTHR 

I 

BBOOY 

SETO 

0 

0 

WTSCH 

PI 

BBOOY 

CROOT 

I 

Ing  root  chord 

/V0LCAL/< 

2) 

PROTHR 

1 

CROOT 

WTSCH 

Pi 

CROOT 

CSPAN 

I 

Structural  span  along  0.5  chord 

/VOLCAL/i 

3) 

PROTHR 

1 

CSPAN 

WTSCH 

pi 

CSPAN 

HBOOY 

I 

Body  he  1 ght 

/ VOLCAL/I 

T ) 

PROTHtt 

I 

HBODY 

WTSCH 

0 

HBOOY 

KBBODY 

u 

Sane  as  bbody  in  isks  units 

/PR0THA/<  v 

) 

PROTHR 

u 

KBBODY 

KCROOT 

u 

Sane  as  croot  In  nk»  units 

/PR0THR/<  * 

) 

PROTHR 

w 

KCROOT 

KCSPAN 

u 

Sane  as  espsn  In  eks  units 

/PRQTHR/(  ♦ 

) 

PROTHR 

w 

KCSPAN 

KHBOOY 

u 

Sane  as  hbody  In  nks  units 

/PR0THR/(  * 

) 

PROTHR 

u 

KHBODY 

KILO 

u 

Pounds  to  kilogran  conversion 

/P80T  HR /( * 

) 

PROTHR 

w 

KILO 

KLBODY 

u 

Sane  as  (body  in  nks  units 

/PROT  HR/(  * 

) 

PROTHR 

w 

KLBODY 

KIROQT 

0 

Sane  as  croot  In  nks  units 

/PR0THR/(  ♦ 

) 

PROTHR 

0 

KIROOT 

KSBOOY 

u 

Sane  as  sbody  tn  nks  units 

/PR0THR/( * 

) 

PROTHR 

Id 

KSBOOY 

KSHORZ 

w 

Sane  as  short  tn  nks  units 

/PR0THfl/( » 

) 

PROTHR 

Id 

KSHORZ 

K5PLAW 

u 

Sane  as  splan  In  nks  units 

/PR0THR/<  * 

) 

PROTHR 

W 

K5PLAN 

ksvert 

g 

Sane  as  svert  In  nks  units 

/PR0THR/( * 

) 

PROTHR 

id 

K$  VERT 

KSW1NG 

g 

Sane  as  sning  in  nks  units 

/PROTHR/I  ♦ 

) 

PROTHR 

id 

KSW1N6 

KSXPOS 

g 

/PfiQTHR/<  ♦ 

) 

PROTHR 

w 

KSXPOS 

KUUBOO 

g 

Sane  as  unbody  in  nks  units 

/PR0THR/<  ♦ 

) 

PROTHR 

u 

KUUBOO 

kuuhor 

g 

Sane  as  unhort  tn  nks  units 

/PROT HR /(  * 

) 

PROTHR 

w 

KUWHOft 

KUUIVER 

g 

Sane  as  unvert  in  nks  units 

/PR0THR/<  ♦ 

) 

PROTHR 

w 

KUUVER 

KUUTUIIN 

g 

Sane  as  unnlng  in  nks  units 

/PR0THR/( * 

) 

PROTHR 

w 

KUUWIN 

KWOVER 

g 

Sane  as  novers  in  nks  units 

/PR0THR/(  ♦ 

) 

PROTHR 

u 

KWOVER 

LBOOY 

I 

Body  length 

/ V0LCAL/( 

8 ) 

PROTHR 

I 

LBOOY 

TAMPER 

I 

LBODY 

WTSCH 

n 

LBODY 

PRO  T MR 

£ 

Subroutine  to  print  nise  data 

/PR0THR/( $ 

) 

PR  1 NT  Y 

s 

PROTHR 

PROTHR 

E 

PROTHR 

5BOOY 

I 

Total  body  netted  area 

/ClNPUT/< 

386  ) 

PROTHR 

1 

SBOOY 

TAMPER 

I 

SBODY 

WTSCH 

Pi 

SBOOY 

SFUTK 

I 

Total  fuel  tank  netted  area 

/ VOLC AL/< 

11  ) 

PROTHR 

I 

SFUTK 

WTSCH 

m 

SFUTK 

SFUTKK 

id 

Sane  as  sfutk  in  nks  units 

/P ROTHR / ( ♦ 

) 

PROTHR 

w 

SFUTKK 

SHORZ 

I 

Horizontal  stabilizer  planforn  area 

/ VQLCAL/( 

12) 

PROTHR 

I 

SHORZ 

WTSCH 

pi 

SHORZ 

SOXTK 

I 

Total  oxidizer  tank  netted  area 

/ V0LCAL/< 

13  ) 

PROTHR 

I 

SOXTK 

WTSCH 

pi 

SOXTK 

SOXTKK 

w 

Sane  as  soxtk  in  nks  units 

/PR0THR/( * 

) 

PROTHR 

w 

SOXTKK 

SPLAN 

I 

Body  pi anf orn  area 

/VOLCAL /( 

14  ) 

PROTHR 

I 

SPLAN 

TAMPER 

I 

SPLAN 

WTSCH 

0 

SPLAN 

WTVOL 

I 

SPLAN 

SVERT 

I 

/V0LCAL/( 

16  ) 

PROTHR 

WTSCH 

I 

PI 

SVERT 

SVERT 

SUING 

l 

Gross  nlng  area 

/V0LCAL/( 

17  > 

PROTHR 

l 

SWING 

STORE 

Pi 

swing 

WTSCH 

Pi 

SWING 

SXPOS 

I * 

Exposed  nl  ng  area  - -----  _ __ 

/V0LCAL/( 

18  ) 

PROTHR 

I 

SXPOS 

WTSCH 

0 

SXPOS 
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\ ()R  1 R AN  HATH 

j V L 1,  V HB 0 L 


CODE 


DESCRIPTION 


storage  subroutine  USAGE 
block  ioc  subh  coot  var 


TQVERC 

I 

Wing  thlcknes*  over  choord  ratio 

/Cl NPUT/( 

388  ) 

prothr 

1 

TOVERC 

STORE 

n 

TOVERC 

WTSCH 

I 

TOVERC 

UWBOOY 

U 

Body  unit  «t  1 ght 

/ P RO  T HR / ( ♦ 

) 

PROTHR 

w 

UWBOOY 

UWHORZ 

w 

Horizontal  tail  unit  atlght 

/P  RO  T HR / ( * 

) 

prothr 

u 

uwhqrz 

UUVERT 

u 

Vertical  tail  unit  •tight 

/PfiOTHR/(* 

) 

PROTHR 

w 

UWVERT 

UUUI  NG 

u 

Wing  unit  •* i ght 

/ P RO  T HR / ( a 

) 

prothr 

w 

UWW1NG 

WBASiC 

/ 

Tata/  weight  of  basic  body 

/Ml  CALC/( 

l l ) 

PR/N7W 

1 

W8A51C 

prothr 

l 

WBASIC 

WTSCH 

n 

WBASIC 

whorz 

I 

Horizontal  stabilizer  it. 

/ WT  C ALC / ( 

55  ) 

PRI NTW 

I 

WHORZ 

PROTHR 

I 

WHORZ 

WTSCH 

n 

WHQRZ 

WINFUT 

I 

Weight  of  Intergral  fuel  tank 

/ WT  C ALC/ ( 

57  ) 

PR1N7U 

1 

WINFUT 

prothr 

I 

WlNFUT 

WTSCH 

n 

WINFUT 

UI NO  XT 

I 

Weight  of  Integral  oxidizer  tank 

/WTCALC/I 

58  ) 

PRINTU 

i 

Wl NO  XT 

PROTHR 

I 

Wl NO  XT 

WTSCH 

n 

W) NO  XT 

WO  VERS 

I 

Wing  loading 

/WTCALC/( 

77  ) 

prothr 

I 

WOVERS 

TAHPER 

I 

WO  VERS 

WTSCH 

a 

WOVERS 

USECST 

I 

Secondary  body  structure  at 

/WTCALC/( 

112  ) 

PRI NTW 

I 

USECST 

prothr 

i 

WSECST 

WTSCH 

n 

USECST 

WVERT 

1 

Vertical  fin  ae i ght 

/ WT  C ALC/ ( 

121  ) 

PRINTU 

I 

WVERT 

PROTHR 

i 

WVERT 

WTSCH 

WVERT 

WWING 

I 

Total  structural  »t . Of  alng 

/ W T C A L C / ( 

133  ) 

PRINTU 

I 

UWING 

prothr 

1 

WWI  NS 

WTSCH 

n 

UWING 
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I-  UH  1 RAN 
SYMBOL 


HA  1 H 
YUBOL 


COOE 


DESCRIPTION 


URRQUTlNg  US  ft  Gl 
S U BR  CODE  VAR 


\ 


1>TQEA  r,e 


BLUE* 


LOC 


.UNOb.  0 Flic  of  all  output  data 


/ . UNOb  . /( 


BUCO 

0 

. UNOb 

BNORYC 

0 

. UNOb 

CRASH 

0 

. UNOb 

FRENCH 

0 

. UNOb 

FXDAT 

0 

. UNOb 

GEINP 

0 

. UNOb 

HUNT 

0 

. UNOb 

INEDIT 

0 

. UNOb 

I TER  0 

0 

. UNOb 

fnODELA 

0 

. UNOb 

no*J 

0 

. UNOb 

npsi 

0 

.UNOb 

OUT 

0 

.UNOb 

PAY02 

0 

. UNOb 

PRIN-T 

0 

. UNOb 

PR  I NT  V 

0 

. UNOb 

PRI NTU 

0 

. UNOb 

PRITEO 

0 

. UNOb 

PRITVA 

0 

. UNOb 

PROP  I N 

0 

. UNOb 

PRO  T HR 

9 

. UNOb 

PRWTSfl 

0 

.UNOb. 

RANGE 

0 

.UNOb. 

S 

0 

. UNOb. 

S01NP 

0 

. UNOb. 

SIZE 

0 

. UN 06. 

SIZIN 

0 

.UNOb. 

SIZOUT 

0 

. UNOb. 

SOLVE 

0 

. UNOb. 

SPLICO 

0 

.UNOb. 

SPLIZ 

0 

. UNOb. 

SPLYNE 

0 

. UNOb. 

SSSP 

0 

. UNOb. 

STAU 

0 

.UNOb. 

STPIT 

0 

. UNOb. 

SUNOUT 

0 

.UNOb. 

TABI  N 

0 

. UNOb. 

TEST 

0 

. UNOb. 

VEHDF 

0 

. UNOb . 

WTSCH 

0 

. UNOb. 

UT  VOL 

0 

. UNOb. 
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PROTHR 


I. 

SUBROUTINE  PROTHR 

PROTHR 

2. 

C 

PROTHR 

3. 

C 

PROTHR  - PRINT  ALL 

OTHER  QUANTITIES 

PROTHR 

9. 

c 

PROTHR 

5. 

REAL  KILO,  KSBQDY 

, KSWING 

, KWOVER, 

KS VERT , 

KSHORZ,  KUWWIN, 

PROTHR 

6. 

1 KUWVER,  KUWHOR, 

KUWBOD, 

KLROOT,  KLBODY , KBBOOY,  KHBOOY, 

PROTHR 

7. 

2 KSXPOS,  KSPLAN 

PROTHR 

8. 

REAL  KCSP AN . KCROOT 

PROTHR 

9. 

REAL  KIN 

Cl  NP  UT 

10. 

REAL  1SP,K,LF,MR, 

ncrew,lbody.npass 

CINPUT 

11  . 

REAL  NENGS 

Cl  NP  UT 

12. 

COMMON/CINPUT/ 

CINPUT 

13. 

1ANENGS  , ANT  ANK 

, ASR ATO 

, ASWtEP 

,C(  300) 

CBBOD Y 

, CF  UE L(  6 >, 

CINPUT 

19  . 

2CHB0DV  , CLBOOY 

, CSBOOY 

,CSFAIR 

, CSF  UT  K 

, CSHOR  Z 

, CS  0 XTK  # 

CINPUT 

15  . 

3CSPLAN  , CS VERT 

, CSW I NG 

,CTHRST 

, CTHST2 

i OEFC  5 ) 

t F XWO  VS  , 

CINPUT 

16. 

91SPC6)  , 1 T P S 

,K( 30  ) 

, K I N 

,LF 

BR(  6 ) 

, NCR  EH 

CINPUT 

17. 

5NEW6S  , WL I STD 

, NP ASS 

, NWL 

, PCHAM 

,0 

, BHOFU 

CINPUT 

18. 

6RH0FU2  , RHO  X 

, RHO  X2 

, SBODY 

, TOL 

, TOVERC 

,TPRATO  f 

CINPUT 

19. 

7TYTAIL  . VBOOY 

. WGROSS 

CINPUT 

20. 

COMMON/ VOLCAL/BBOfoY.CROOT 

, CSP  AN 

, CT I P 

, GAL 

, GS  P AN 

VOLCAL 

21  . 

2HB0QY  , LBQDY 

, RTOO 

,5FAIR 

, SFUTK 

, SHORZ 

, SOXTK 

VOLCAL 

22. 

3SPLAN  , STP$( 1 > 

, SVERT 

,SW1NG 

,SXPOS 

, TOEL 

TROOT 

VOLCAL 

23. 

9TT0T  , TT0T2 

, TTOT  AL 

, VBOOVA 

, VBOOY 1 

, VB0DY2 

, VC AR  GO  , 

VOLCAL 

29. 

5 VCR  EU  ,VFUTK 

, VFUTK2 

, VINSTK 

, vlgbav 

, VOTHER 

, VO  XTK 

VOLCAL 

25. 

6V0XTK2  VPROP 

, VSTRUC 

VOLCAL 

26. 

common/wtcalc/ 

ABF  S YS 

. UABFTK 

, WABF  U 

, W ABPR 

, UACRES  , 

UT  CALC 

27. 

1 WACS  , WACSFQ 

, WACSTK 

, WAERO 

, WAUXT 

, WB AS  I C 

, W&ODY 

WT  CALC 

28. 

2UBPUMP  , UCAR  GO 

, UCOMM 

, WCONT 

, UCO  VER 

, WOE  CAY 

,HDIST1  , 

WTCALC 

29  . 

3UDIST2  ,UODCK 

, WOP  LO Y 

, WDRANS 

, WDRY 

, WELCAD 

, WEMPTY  , 

UT  CALC 

30. 

9UENGMT  , UENGS 

, WENGS2 

, UF  AIR 

, WF  CONT 

, UFDC AY 

, UFROST  , 

WTCALC 

31  . 

5UFU2(3)  ,UFUEL(6) 

, WFUL 

, WFULOS 

, WF  UNCT 

, WFUOX 

, UF  URES  , 

WTCALC 

32. 

6UFUSYS  ,WFUTK 

, WFUTK2 

, wfutot 

, UF  UTRP 

. WGASPR 

, UGNA V 

WTCALC 

33. 

7UH0RZ  , WHY  CAD 

,UINFUT 

WI NO  XT 

, WI  NS  T K 

, WI NST 

, WI NSUL  , 

WTCALC 

39. 

8WJ  ET ( 6 ) ,ULANCH 

,WLG 

. WLOSS 

,wlrd 

, WNACE  L 

, WOOCAY  , 

WTCALC 

35. 

9U0IL  , WO  I LRS 

,WORSUL 

, WO  VERS 

,UOX<  6 ) 

. U0X2C 3 ) 

, WO  X I D 

WTCALC 

36. 

1W0XL0S  , UQ  XRES 

,UOXSYS 

, WOXTK 

, UQ  XT  K 2 

, WOXTOT 

, WO  XTRP  , 

WTCALC 

37. 

2WP  , WP  ASS 

, WPAYL 

,WPERS 

, WPOUCD 

, UPOWEfi 

, UPOUFO  , 

WTCALC 

38. 

3WP0URS  , WPOWTK 

, WPPROV 

, UP  RE  I 6 

. WPROP 

, UPRSYS 

,WREFUL  , 

WTCALC 

39. 

9WRESI0  , WRESR V 

,WSEAL 

WSECST 

, WSORCE 

, USRT  RP 

,W$TAB 

WTCALC 

90  . 

5USURF  ,WTABC 

, WTHRST 

, WTO 

, UTPS 

,UVERT 

,UUAIT(  10  ), 

WTCALC 

91  . 

6WUET  , WUI NG 

, WZROF  U 

W ABTRP 

, UABRES 

UMNOT  P 

WMNFTP  , 

CKOUT 

92. 

7WMNQRS  , WMNFRS 

, UACOTP 

, WACPTP 

, UP  WOTP 

# WPUFTP 

, UG  AS 

CKO  UT 

93. 

8UABFUC  , UACORS 

WACFRS 

, WPUORS 

t WPUFRS 

CKOUT 

99  . 

uwWf  A6  = 0. 

PROTHR 

95  . 

UUVERT=0 .0 

PROTHR 

96. 

UWHOR  2=0 . 0 

PROTHR 

97  . 

I F ( S BODY . NE . 0 0) 

UWBODY=( WBASIC+WSECST*WINFUT+WINOXT )/ SBODY 

PROTHR 

98. 

1 F ( SWING  .NE.  0.  ) 

UWWINS 

= WUI NG 

/ SUING 

PROTHR 

99  . 

IF  ( SVERT .NE  0.  ) 

UWVERT  a 

WVERT  / 

SVERT 

PROTHR 

50. 

IF  ( SMORZ.NE.O.  ) 

UWHORZ  a 

WHORZ  / 

SHORZ 

PROTHR 

51  . 

KILO  = .0929 

PROTHR 

52. 

SFU7KK  = KILO  * SFUTK 

PROTHR 

53  . 

SOXTKK  = KILO  * SOXTK 

PROTHR 

59! 

KSBODY  = SBQOY  *KILO 

PROThR 

55. 

KSWING  = SWING  *KIL0 

PROTHR 

56. 

KSXPOS=KILO*SXP0$ 

PROTHR 

57. 

KSPLAN  =K I LO*SP  LAN 

PROTHR 

58. 

KS VERT  = SVERT  *KILO 

PROTHR 

59  . 

KSHORZ  = SHORZ  •KILO 

PROTHR 

60. 

K I LO  = 9 . 8829 

PROTHR 

61  . 

KUWWIN  = KILO*  U WUI MG 

PROTHR 

62. 

KUWVER  = KILO*  UWVERT 

PROTHR 

63. 

K U WHO R = KILO*  UUHORZ 

PROTHR 

69. 

KUUBOD  = KILO*  UWBOOV 

PROTHR 

65. 

KWOVER  = WO  VERS*K I LO 

PROTHR 

66. 

KILO  = .0929**. 5 

PROTHR 

67  . 

KBBOOY  = K I LO*  BBODY 

PROTHR 

68  . 

KLROOT=KILO*CROOT 

PROTHR 

69  . 

KLBODY  = KILO*LBODY 

PROTHR 

70. 

KC5P AN=C5P  AN*KI LO 

PROTHR 

71  . 

KCROOT=CROOT*KILO 

PROTHR 

72. 

KHBOOY  a K I LO*HBODY 

PROTHR 

73. 

Wfl I T£<  6 . 90  ) 

PROTHR 

79. 

50  WR I T£( 6.100) 

PROTHR 

75  . 

150  WR I TEC  6, 200  ) SBODY  ,KSBOOY 

PROTHR 
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N 


76. 

WRITE! 6, 620  ) SFUTK.SFUTKK 

PPOTHR 

77  . 

WRITE!  6 , 625  ) SOXTK,SOXTKK 

PROTHR 

78. 

650 

WRITE! 6,700) 

PROTHR 

79. 

WRITE! 6,999)  SWING, KSWIN6 

PROTHR 

80. 

WRITE!  6,3000  ) SXP05,KSXP0S 

PROTHR 

81  . 

WRITE! 6,9000 > SPLAN, KSPLAN 

PROTHR 

82. 

950 

WRITE! 6, 10001SVERT  , KSVERT 

PROTHR 

83. 

1050 

WRITE!  6, 1100 JSH0R2  ,KSHORZ 

PROTHR 

89 . 

1250 

WRITE!  6,  1300  ) 

PROTHR 

85. 

1350 

WRITE!  6,  1900  )UWWING,KUWWIN 

PROTHR 

86. 

1950 

WRITE!  6,  1500  > UUVERT , KUWVER 

PROTHR 

87. 

1550 

WRITE!  6,  1600  ItiWHOR  Z , KUWHOR 

PROTHR 

88. 

1650 

IF!  W1NFUT.EQ.0. .AND.WINQXT.EQ.O.  ) WRITE  ! 6,1700  > UWBOOV 

, KUWBOO 

PROTHR 

89  . 

850 

WRITE!  6,  910  ) HOVERS  ,KWOVEfi 

PROTHR 

90. 

3250 

WRITE! 6,2700) 

PfiQTHR 

91  . 

WRITE! 6,2500 ) 

PROTHR 

92. 

WRITE!  6,2000  ) CSPAN,KCSPAN 

PROTHR 

93. 

WRITE! 6,2100  ) CROOT,KCROQT 

PROTHR 

99. 

WRITE! 6,3100  ) TO VERC 

PROTHR 

95. 

WRITE! 6,2600) 

PROTHR 

96. 

3270 

WRITE!  6, 2200  )L BODY , KLBODY 

PROTHR 

97. 

WRITE! 6,2300)  6BOOY,KBBOOY 

PROTHR 

98. 

WRITE!  6,2900  ) HBODY, KHBQDY 

PROTHR 

99. 

RETURN 

PROTHR 

100. 

90 

FOR  MAT  !///  15X1 1H0ESI GN  DATA  ) 

PROTHR 

101  . 

100 

FORMAT! 1H0, 12HWETTED  AREAS  29X,10H  SQ.  FT.  ,10H 

SQ.M. 

PROTHR 

102. 

* ) 

PROTHR 

103. 

200 

FORMAT! 1H0, 90H  GROSS  BOOY  ! SBODY  ) 

2F10.2  ) 

PROTHR 

109. 

620 

FORMAT  (1H  , 1 8HFUEL  TANKS  ( SFUTK  >,  22X,  2F10.2) 

PROTHR 

105. 

625 

FORMAT  < 1 H .22H0XIDIZER  TANKS  (SOXTK),  18X,  2F10.2) 

PROTHR 

106. 

700 

FORMAT!  1 HO, 12HPLAN  AREAS  29X,10H  Sfi.  FT.  ,10H 

SO.M.  ) 

PROTHR 

107 

999 

FORMAT!  1H  , 9 OH  THEORETICAL  WING  AREA  (SWING) 

2F10.2  ) 

PROTHR 

108. 

910 

FORMAT! 1H  ,90H  WING  LOADING 

.2F10.2  ) 

PROTHR 

109  . 

1500 

FORMAT! 1H  ,90H  VERTICAL  SURFACES 

2F10.2  ) 

PROTHR 

110. 

1100 

FORMAT!  1H  , 9 OH  HORIZONTAL  SURFACES  (SHORZ) 

2F10.2  ) 

PROTHR 

111. 

1300 

FORMAT! 1H0, 12HUNIT  WEIGHTS  28X,1GH  LB/SO. FT.  ,10H 

KG/5Q.M.  ) 

PROTHR 

112. 

1900 

FORMAT! 1H0, 90H  WING 

2F1C.2  ) 

PROTHR 

113. 

1000 

FORMAT!  1H  , 90 H VERTICAL  SURFACES  ! SVERT  ) 

2F10.2  ) 

PROTHR 

119. 

1 60C 

FORMAT! 1H  , 90H  HORIZONTAL  SURFACES 

2F10.2  ) 

PROTHR 

115. 

1700 

FORMAT! 1«  ,90H  BODY  STRUCTURE  (BASIC) 

2F10.2  ) 

PROTHR 

116. 

2000 

FORMAT! IH  ,90H  STRUCTURAL  SPAN 

2F10.2) 

PROTHR 

117. 

2100 

FORMAT!  1H  , 9 OH  ROOT  CHORD  LENGTH 

2F10-2) 

PROTHR 

118. 

2200 

FORMAT!  1H  , 9 OH  LENGTH  ( L60DY ) 

2F10.2) 

PROTHR 

119. 

2300 

FORMAT!  1H  , 9 OH  WIDTH  ( BBODY > 

2F10.2) 

PROTHR 

120. 

2900 

FORMAT! 1H  , 90H  HEIGHT  (HBODY) 

2F1G.2) 

PROTHR 

121  . 

2500 

FORMAT!  1H  , 9 OH  WING 

) 

PROTHR 

122. 

2600 

FORMAT! IH  , 90H  BODY 

) 

PROTHR 

123. 

2700 

FORMAT!  1H0, I6HDIMEN5I0NAL  DATA27X, 10H  FEET  . 1 OH  METER5  ) 

PROTHR 

129. 

3000 

FORMAT!  IH  ,90H  EXPOSED  WING  AREA  ( SXPOS  ) 

2F10.2 ) 

PROTHR 

125. 

3100 

FORMAT! IH  , 30H  THICKNESS  RATIO 

2FI0.2) 

PROTHR 

126. 

9000 

FORMAT!  IH  , 9 1 H P LANFQRM,  INCL.  ELEYONS  (SPLAN) 

PROTHR 

127. 

4 

F*.2,F10.2  > 

PROTHR 

126. 

END 

PROTHR 
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SVMBOL  SYMBOL 


DESCRIPTION 


S T Oft  Ajg  SUBROUTINE  USAGE 

BLOCK  LOC  SUBR  COUE  VA R 


CFUEL 

M 

Ml  <t ur « ratio 

/ClNPUT/< 

306  ) 

prutsm 

M 

CFUEL 

STORE 

M 

CFUEL 

WTSCH 

M 

CFUEL 

I 

hi 

Do  loop  counter 

/PRUT$M/< a 

) 

PRWTSM 

W 

I 

15P 

* I 

Specific  1 ap u 1 ae 

/ C I NP  UT / ( 

330  ) 

PRUTSM 

I 

ISP 

STORE 

M 

ISP 

WTSCH 

I 

ISP 

UT  V0  L 

0 

ISP 

J 

W 

[To  loop  counter 

/PRUTSM/(* 

) 

PRWTSM 

W 

J 

jump 

n 

Date  flag  0=  orblter  1=  booster 

/JUMPY  /< 

1 ) 

FRENCH 

0 

JUMP 

PRINTU 

I 

JUMP 

PRITVA 

I 

JUMP 

PRWTSM 

M 

JUMP 

WTSCH 

I 

JUMP 

WTVOL 

M 

JUMP 

kdeltv 

u 

Velocity  per  arc  (aeters/sec) 

/PRWTSM/<  * 

) 

PRUTSM 

W 

KDELTV 

K ! 

u 

Constant  = 6.0 

/PRUITSM/ ( a 

) 

PRUTSM 

W 

K I 

KILO 

y 

Pounds  to  kf  lograa  conversion 

/PRUTSM/<* 

) 

PRW  TSP7 

W 

KILO 

KUABFU 

u 

/PRWTSM/<  a 

) 

PRUTSM 

W 

KUABFU 

KUFUEL 

u 

Sane  as  afuel(i)  In  aks  units 

/PRUTSM/(a 

) 

PRUTSM 

W 

KUFUEL 

KUIGROS 

u 

Gross  ae i ght  ( k I llo  gr  aas  ) 

/PRUlTSM/<  a 

) 

PRUTSM 

W 

KUGROS 

KUJET 

u 

Sane  as  ajet( t ) in  afcs  units 

/PRWTSM/C  * 

) 

PRUTSM 

W 

KUJET 

KUIOX 

hi 

Saae  as  aox( i > In  aks  units 

/PRWTSM/( a 

) 

PRWTSM 

W 

KUO  X 

KUPRIG 

U 

Pre-ignition  loss  (kg) 

/PRWTSm/<  a 

) 

PRUTSM 

W 

KUPRIG 

KUWAIT 

Ul 

Saae  as  aaait(i)  In  aks  units 

/PRUTSM/( * 

) 

PRUTSM 

U 

KUWAIT 

mr 

I 

Hass  ratio 

/Cl NPUT/( 

369  ) 

PRUTSM 

I 

MR 

SOLVE 

I 

MR 

STORE 

M 

MR 

WTSCH 

M 

MR 

OF 

W 

Oxidixer  to  fuel  alxture  ratio  1.  Thrust  build-up 
2.  Not  used  3.  Main  iapulse  4.  Main  impulse 

/PRUITSM/(  * 

) 

PRWTSM 

W 

OF 

reserve  5.  Secondary  iapulse  fc.  Not  used 

PRUTSM 

E 

Subroutine  to  print  suaaary  data 

/ P R UT  S M/ ( $ 

) 

PRUTSM 

E 

PRUTSM 

WTVOL 

S 

PRUTSM 

wabfu 

M 

Ueight  of  jp  fuel 

/UTCALC/( 

3 ) 

pRintw 

I 

WABFU 

PRUTSM 

M 

UABFU 

TAMPER 

I 

WABFU 

uTSCh 

M 

wABFb 

wait 

U 

Landing  ae i ght  (lb) 

/PRUTSM/C ♦ 

) 

PRUTSM 

W 

WAIT 

WAIT2 

u 

Land i ng  ae I ght  (kg) 

/PRUTS  M/( a 

) 

PRUTSM 

w 

UAJT2 

UIENTRV 

0 

Entry  weight 

/EMS  /( 

3 ) 

PRUTSM 

0 

WENTRV 

tamper 

1 

UENTRY 

ueturn 

0 

Weight  at  return  point 

/EMS  /( 

2 ) 

PRUTSM 

0 

UETURN 

TAMPER 

I 

UETURN 

UFUEL 

m 

Fuel  aeight  I.  Thrust  build-up  fuel  2.  Not 

used 

/UTCALC/( 

37  ) 

PRUTSM 

M 

UFUEL 

3.  Main  iapulse  fuel  at.  4.  Main  iapulse 

f ue  1 

WTSCH 

M 

UFUEL 

reserve  5.  Secondary  iapulse  fuel  6.  Not  used 

UGR0S5 

i 

Gross  lift-off  ael ght 

/ C I NP  UT  /( 

392  ) 

PRINTU 

I 

UGROSS 

PRUTSM 

I 

USROSS 

SOLVE 

M 

ySRQSS 

STORE 

M 

UGROSS 

T AMPER 

I 

UGROSS 

UTSCH 

M 

UGROSS 

WTVOL 

I 

UGROSS 

WJET 

m 

Jettison  aeight  1.  Ignition  to  lift-off  2. 

Not 

/UTCALC/( 

62  ) 

PRITVA 

I 

UJET 

used  3.  Jettison  during  ascent  4.  In-orbit 

PRUTSM 

M 

WJET 

jettison  at.  5 Pre-entry  jettison  at.  6~. 

FI,- 

- _ 

STORE 

0 

UJET 

b ack *je tt i son  at . 

TAMPER 

I 

UJET 

WTSCH 

M 

WJET 
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MIM \ H AN 

'.VrmiM 


nai  h 

SY^BOl 


CODE 


DESCRIPTION 


S 1 PRASE  S'JH^OUT  USAGE 

block  loc  su*h  cuoe  var 


WLANO 

WLOSS 

UORBIT 

wo  x 

UJPREIG 

WWAIT 

. UNOb, 


Landing  weight 

/EPJ5  /< 

i)  PRWTSP1 

0 

WLANO 

T AP1PER 

I 

WLANO 

t n-f  ( i g h t we  1 ght  1 on 

/ WT  CALC/ ( 

70  ) PR  I NT W 

1 

WLOSS 

PRUTSP1 

1 

WLOSS 

WTSCH 

0 

WLOSS 

We i ght  in  orbit 

/EHS  /( 

1 ) PRWTSP1 

0 

WORBIT 

T A PIPER 

I 

W0RB1T 

Thrust  build-up  oxidizer  1.  Thrust  build-up 

/WTC ALC/< 

78  ) PRWT5* 

* 

wo* 

oiidizer  2.  Not  used  3.  Plain  inpulse  oxidizer  <4. 

WTSCH 

n 

wo  X 

Plain  impulse  oxidizer  reserve  5.  Secondary  inpulse 

oxidizer  b . Not  used 

Pre- ignition  losses 

/ UlTCALC/( 

105)  P-RINTW 

I 

WPPEIG 

PRwTSPI 

* 

UPREIG 

WTSCH 

pi 

WPREIS 

Summary  weights  1.  Ignition  2.  Take-off  3. 

/ WT  CALC/ ( 

122)  PRITVA 

l 

WWAIT 

Burnout  H . Initial  orblter  5.  Initial  entry  b. 

pruitsm 

I 

WWAIT 

Initial  flyback  7.  Landing 

STORE 

pi 

WWAIT 

TAMPER 

I 

WWAIT 

WTSCH 

pi 

WWAIT 

File  of  all  output  data 

/ . UN06 . /( $ 

) BLICO 

0 

. UNOb. 

BNDRVC 

0 

- UNOb. 

CRASH 

0 

. UNOb. 

FRENCH 

0 

. UNOb. 

FXOAT 

0 

. UNOb. 

GEINP 

0 

.UNOb. 

HUNT 

0 

.UNOb. 

I NED I T 

0 

.UNOb. 

ITER8 

0 

.UNOb. 

P10DELA 

0 

. UNOb. 

nofiJ 

0 

.UNOb. 

mpsi 

0 

. UNOb  . 

OUT 

0 

. ‘JN06. 

PAV02 

0 

. UNOb. 

PRINT 

0 

. UN06 . 

PRI NTV 

Q 

.UNOb. 

PRINTW 

0 

. UNOb. 

PRITEQ 

0 

. UNOb. 

PRITVA 

0 

. UNOb  . 

PROPIN 

0 

.UNOb. 

PROTHR 

0 

. UNOb. 

PRUTSP) 

0 

.UNOb. 

RANGE 

0 

.UNOb. 

S 

0 

. UNOb. 

SOinr 

0 

. UNOb . 

SIZE 

0 

. UNOb. 

SI  ZIN 

0 

. UNOb. 

SIZOUT 

0 

.UNOb. 

SOLVE 

0 

. UNOb. 

SPLICO 

0 

.UNOb. 

SPLIZ 

0 

. UNOb . 

SPLVNE 

0 

.UNOb. 

SSSP 

0 

. UNOb. 

STAU 

0 

. UNOb. 

STPIT 

0 

, UNOb. 

v 

SUP10UT 

0 

. UNOb. 

T ABIN 

0 

.UNOb. 

TEST 

0 

. UNOb. 

VEHOF 

0 

.UNO  6. 

WTSCH 

0 

. UNOb. 

WT  VO  L 

0 

. UNOb. 
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PRUTS* 


1. 
2. 
3. 
9. 
5. 
6 . 
7 . 
8. 
9. 
10. 
1 1 . 
12. 
13. 
11. 

15. 

16. 

17. 

18. 


SUBROUTINE  PRUTS* 

PRUTS*  - PRINT  UE1GHT  SUMMARY 

REAL  KUABFU 

REUt  KOELTV 

REAL  *UJET<6),KUFUEL(6),KU0X<6) 

« , KNPR l G,  KUGROS 

REAL  KILO, KUUAl T 
DIMENSION  KDELT  V( 6 ) 

DIMENSION  CELT AVI  6 ) 

DIMENSION  0F(6> 

DIMENSION  KUUA I T ( 10) 

COMMON  / JUMPY  / JUMP,  UBIG,  UBOO 
REAL  AIN 

REAL  ISP. k,lf,*r,ncreu,lbooy,npass 
real  NENGS 
COMMON/CINPUT/ 


62.  IF( UFUEL( I ) . NE . 0 . )UFUEL( I >=-UFUEL(  I ) 

63.  IFiidOU  l l.NE.Q.  )U0X(  I )=-UOX(  I ) 

69.  KUJETI I )=NJET<  I )*KIL0 

65.  KUFUEH I >=KI LO*UFUEL< I ) 

66.  KUQXI  I >=KIL0*NQX< I ) 
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WRITE! 6.665 ) 
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RETURN 
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FORMAT! 1H0,2H  ) 

PRWTSM 

196. 

300 
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SUBROUT  I ME  RANGE 

SUBROUTINE  TO  CALCULATE  FLYBACK  RANGE 


DIMENSION  VST8L<7),  WSTBLT 5 ),  HANT8L<7,5>,  HAATBL<7,5>, 
2 VAATBLt  7,5).  VABTBU7  5)  RAATBL<  7,5),  R ABTBLt  7,5), 


REAL  HUB,  MUO,  ISPB,  1SPO,  IOVEL,A 
COMMON  /SIZING/ 

PHASE  II  SIZING  PARAHERERS 
*TZ,  V V(  3 >,  0P(19>,  EROR, 

*SV(  28  ),  SQ(  37.5),  SE<  11),  T LAT 

PHASE  1 SUING  PARAMETERS 


*UBO, 

♦BU, 

• OKI  * 

• AEXI T , 

• XPL, 
•OVO, 

• JTYP , 

• SVOP5D 


dluu  , BJ i a . 

, SVOC0N  ,IHUNT 


OUEO, 

bkh 

0K9, 

WFO, 

WEO 

nuO, 

ORBI, 


1BTBU  7,9) 
10 

RANGE 

RANGE 

SIZING 

SIZING 

SIZING 

PZ(  5 ), 
TLNG, 

VQ, 

SU(  20), 

SIZING 

SIZING 

SIZING 

TOLWT, 

WPB, 

TURAT2, 

SIZING 

ISIZE, 

traFls, 

TURATQ, 

SIZING 

prflg. 

I PASS , 

1PSMAX, 

SIZING 

IOVEL, 

1SP0, 

ISPB, 

SIZING 

WEB, 

wo. 

WLO, 

SIZING 

VST  G, 

WPO 

SIZING 

1TNBW  , ITNOW  , 
ISZOI  19) 

SIZING 

UH 

PARAMETRIC  RANGE  DATA  BASED  ON 
W/CL*S  = 80.7  PSF 
L/O  - MAX  AT  CL-HAX=0.5 
CL-HAX  = 0.723  AT  ALPHA  = 60  OEG 
TERMINAL  ALTITUDE  = 50,000  FT 
1 60-DEGREE  MANEUVER 
MAXIMUM  LOAD  FACTOR  = 96 
DATA  LIMITS 

APOGEE  ALTITUDE  = 300,000  FT 
APOGEE  VELOCITY  = 13,000  FPS 
PATH  ANGLE  = IN  DEGREES 

DATA  HSTBL/  150000.,  175000.,  200000.,  225000.,  250000./ 

DATA  VSTBL/  7000.,  8000.,  9000.,  10000.,  11000.,  12000.,  13000./ 

DATA  HANTBL/  2.175,  2.290,  2.320,  2.910,  2.505,  2.6075,  2.7125, 

2 2.115,  2.195,  2.190,  2.250,  2.325,  2.905,  2.985, 

3 2.055,  2.073,  2.100,  2.125,  2.160,  2.200,  2.290, 

9 2.035,  2.038,  2.092,  2.050,  2.060,  2.080,  2.105, 

5 2.015,  2.020,  2.022,  2.025,  2.030,  2.032,  2.035/ 


97. 

DATA  HAATBL/ 

195., 

200.,  200.,  197.,  193.,  187.,  175., 

RANGE 

98. 

2 150.,  183., 

203., 

215.,  220.,  220.,  220., 

RANGE 

99. 

3 200.,  250., 

303., 

353.,  905.,  960.,  510.; 

RANGE 

50. 

9 220.,  290., 

375., 

970.,  570.,  670.,  780., 

RANGE 

51. 

52. 

C 

5 235.,  320., 

915., 

520.,  690.,  790.,  880./ 

RANGE 

RANGE 

53. 

DATA  VAATBL/ 

3.65, 

6.00,  8.25,  10.60,  12.90,  15.90,  18.25, 

RANGE 

59. 

2 1.70,  2.30, 

3.20, 

9.90,  5.90,  7.55,  9.30, 

RANGE 

55. 

3 0.70,  1.15, 

9 -1.00,  -1.90 

1.60, 

2.35,  3.25,  9.95,  6.00, 

RAN6E 

56. 

, -1. 

00,  0.02.  1.70,  2.70,  2.70, 

RANGE 

57. 

58. 

C 

5 -1.30,  -1.80 

, 'I- 

70,  -1.25,  -0.70,  -0.95,  -6.70/ 

RANGE 

RANGE 

DATA  VABTBL/  -122.0,-166.0,-212.0,-260.0-309.0,-360.0,-916.0, 

2 -62.0,  -70.0,  -103.0,  -13$. 0,  -167.0,  -$02.0,  -290.0, 

3 -38.0,  -97.0,  -58.0,  -73.0,  -92.5,  -119.0,  -153.0, 

9 -6.0,  -10.0,  -15.0,  -22.0,  -32.0,  -96.0,  -67.0, 

5 5.0,  2.5,  0.,  -2.5,  -6.0,  -12.5,  -22.5/ 

DATA  RAATBL/  0.05,  0.065,  0.10,  0.18,  0.33,  0,385,  0.90, 

2 0.02,  0.08,  0.16,  0.26,  0.39,  0.59,  0.73, 

3 0.07,  0.07,  0.07,  O.H,  0.15.  0.25.  0.52, 

9 -0.05,  0.01,  0.09,  0.055,  0.66,  0.698,  0.201, 

5 0.09,  0.03,  0.01,  -0.018,  -0.09,  -0.05,  0.03/ 

OATA  RABTBL/  2.3,  2.8,  3.1,  2.8,  2.2,  2.5,  3.9, 

2 3.7,  9.1,  9.2,  9.9,  5.2,  §.55,  5.8, 

3 3.95,  9.85,  6.95,  8.3,  9.8,  10.9,  11.6, 

9 5.2,  5.2,  6.3,  9.0,  11.8,  19.25,  16.8, 

5 9.1,  5.9,  8.0,  10.5,  13.2,  16.1,  19.9/ 
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ft 

V 


76. 


RANGE 


77. 

DATA 

VAT  BL/  7000.,  8000., 

9000.,  10000.,  11000..  1 20GG . . 

, 13000./ 

RANGE 

78. 

C 

RANGE 

79. 

DATA 

HAT  BL/  180000.,  200000.,  220000. 

290000.,  260000., 

, 280000., 

RANGE 

80. 

1 300000./ 

RANGE 

81. 

C 

RANGE 

82. 

DATA 

PSATBL/  90.0,  90.0, 

89.0,  85.0, 

B3.0,  81.0,  79.5, 

RANGE 

83. 

2 87.0 

, 80.5,  76.0,  73.5, 

72.0,  71.0, 

71.0, 

RANGE 

89. 

3 81.5 

, 66.5,  63.0,  62.0, 

61.5,  61.5, 

62.0, 

RANGE 

85. 

9 65.0 

, 58.5,  55.5,  59.0, 

59.5,  56.0, 

58.5, 

RANGE 

86 

5 35  -0 

, 32.5,  32.0,  33.0, 

35.0,  38.0, 

91.5, 

RANGE 

87. 

6 17.0 

, 16.0,  17.0,  19.0, 

22.0,  25.5, 

30.0, 

RANGE 

88. 

7 0.0 

, 0.0,  1.5,  9.0, 

8.0,  13.0, 

19.0/ 

range 

89. 

C 

RANGE 

90. 

DATA 

PS1TBL/  0.,  95.,  60. 

, 75./ 

RAN6E 

91  . 

C 

RANGE 

92. 

DATA 

HARTBL/ 150000 . , 175000.,  200000. 

, 225000., 

RANGE 

93. 

1 250000.,  275000.,  300000 

t./ 

RANGE 

99. 

C 

RANGE 

95. 

DATA 

HRATBL/  7416.0E-07 

RANGE 

96 

97. 

98. 
99 

100. 
101  . 
102. 
103. 

109. 

105. 

106. 
107. 
108 
109 

110. 
111. 
112. 
113. 
119. 

115. 

116. 
117. 

lie 

119. 


120. 
121  . 
122. 
123. 
129. 

125. 

126. 

127. 

128. 

129. 

130. 
131 

132. 

133. 
139. 

135. 

136. 

137. 

138. 

139. 

190. 

191 . 

192 

193 

1 99  . 

195. 

196. 

197. 

198. 

199. 
150 


1 7 . 999E-07  8.000E-07,  8.090E-07, 

2 3 209E-07,  9.100E-07,  9.636E-07,  3.900E-07, 

2 5.176E-07,  5.350E-07,  5.591E-07, 

3 0 . 29 7E-07  1.150E-07,  1 . 969E-07,  2.600E-07, 

3 3.131E-Q7,  3.550E-07,  3.958E-07/ 

DATA  MRBTBL/  0.,  0.250E-02,  0.975E-02,  0.650E-02, 
A 0.800E-02,  0 . 950E-02,  1 . 100E-02, 

1 0.57  7E-02 , 0.600E-02,  0.992E-02,  1.150E-02, 

1 1.276E-02,  1.900E-02,  1.512E-02, 

2 0 . 830E-02 , 1.000E-02.  1.152E-02.  1.275E-02, 

2 1.925E-02,  1 525E-02,  1.652E-02, 

3 0.931E-02,  1.120E-02,  1.271E-02,  1.900E-02, 

3 1 . 522E-02,  l . 630E-02 , l . 726E-02/ 

BANK  ANGLE  DURING  ENTRY  = PSI  = SQ<10,2) 

S0( 10,2)  = 0. 

TEST  FLYBACK  OPTION  FLAG 

I SND  = I F I X( SQ(  19.5  >4.1) 

GO  TO  (100,200,300,900,500),  ISND 


100  CONTINUE 

DETAILED  FLYBACK  RANGE  CALCULATIONS 
VS  = 5 V(  8 ) 

HS  = SV(  9 ) 

CHECK  STAGING  ALTITUDE 
I F<  H$ . GT  250000.)  UR  I TEC  6, 1000 ) 

IF(HS  GT. 250000.)  HS  = 250000. 

I F ( SV(10)  .LE.  0.  ) GA«S=  0.0001 
GARS  = S V ( 10  ) 

CHECK  STAGING  PATH  AN6LE 
IF( GAWS.GT. 19.  ) UR  I TE( 6, 2000 ) 

I F ( GAHS.GT. 19.  ) GANS  - 1%. 

ORS  = $U(  10) 

CALCULATE  APOGEE  ALTITUDE 

CALL  TBL2D( VS , HS , VSTBL, HSTBL, HANTBL, HAN ) 
CALL  TBL2D( VS , HS , VSTBL, HSTBL, HAATBL, HAA > 
HA  = HAA*GAf1S**HAN  ♦ HS 

CALCULATE  APOGEE  VELOCITY 

CALL  TBL2D<  VS , HS, VSTBL, HSTBL, VAATBL,  VAA > 
CALL  TBL2D(  VS, HS, VSTBL, HSTBL, VABTBL,  VAB ) 
VA  = VAA*6AC)S**2.  * VAB*GA«S  4 VS 

CALCULATE  RANGE  TO  APOGEE 

CALL  TBL2D( VS , HS , VSTBL, HSTBL, RAATBL, RAA > 
CALL  T B L 2 0 ( VS,HS, VSTBL, HSTBL, RABTBL,RAB> 
RA  = RAA»GArtS**2.  ♦ RAB*GA«S 


RANGE 

RAN6E 

RANGE 

RAN6E 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RAN6E 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 


RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

FINI 

RANGE 

RANGE 

RAN6E 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 

RANGE 


100— |200-i300-i 


3 


900- 


500-1 
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TEST  APOGEE  ALTITUDE 

IF(HA.GT  .300000.  ) URI TE(  4, 3000  ) 

IF( HA. GT. 300000.  ) HA  £ 300000. 

RETRE1VE  BANK  ANGLE  REQUIRED  ANO  TEST 

CALL  TBL2D( VAHA.VATBL,HATBL,P5ATBL,PSI I 
IFCFSI.6E. 75.01  r5I  - 75.0 
SQ< 10,2)  = PSI 

CALCULATE  RANGE 


CALL  TBL2D( HA, PSI , HARTBL,PS I TBL, HRATBL, HR A ) 

CALL  TBL20( HA, PS  I , HARTBL, PS  I TBL, HfiBTBL, HRB I 
RR  = HR  A*  V A**  2 . ♦ HRB* VA 

R = 40 . *DRS  + RA  + RR  ♦ SQ(10,3> 

SQ<  10,3)  IS  A FLVBACK  ADDITIVE  RANGE  FACTOR  TO  ACCOUNT  FOR  THE 
FINITE  TIHE  REQUIRED  TO  ACCOHPLISH  VARIOUS  REENTRY  PIANEUVERS. 
ORNG  IS  THE  NUftONIC  INPUT  IN  QATA2. 

IF  VARABLE  GEORETRY  CONFIGURATION  GO  TO  10 

I F< SW( 9 ) . NE . 1 . ) GO  TO  10 

$*(  15)  = R 


CORRECT  FG  RANGE  PREDICTION  FQR  VG  CONFIGURATION 


18  9. 
185. 
184. 

C_ 

10 

SW(15>  = R*(  0 . 7230/SW  9 ) )**0 .25 
RETURN 

RANGE 

RANGE 

RANGE 

187. 

200 

CONTINUE 

RANGE 

188. 

C 

FLYBACK  RANGE  = FUNCTION  OF  STAGING  Q ONLY 

RANGE 

189. 

C 

RANGE 

190. 

c 

SPECIAL  FLYBACK  RANGE  CORPUTATION  FOR  RSC 

RANGE 

191  . 

c 

VQ  = LOG<  10)  Q STAGE 

RANGE 

192. 

c 

RANGE 

193. 

VO  : AL0G10C  $V(  12)) 

CKOUT 

199. 

RNG  = -55.915  * VQ  ♦ 930.0 

RANGE 

195. 

c 

RANGE 

194. 

c 

$0(10.3)  IS  A FLVBACK  AOOIT1VE  RANGE  FACTOR  TO  ACCOUNT  FOR  THE 

RANGE 

197. 

c 

FINITE  TIRE  REQUIRED  TO  ACCORPLlSH  VARIOUS  REENTRY  NANEUVERS. 

RANGE 

198. 

c 

ORNG  IS  THE  NNEflONIC  INPUT  IN  DATA2. 

RANGE 

199. 

c 

SW(  15  ) = FLYBACK  RANGE 

RANGE 

200. 

5W(  15  ) = RNG  * SQ(  10,3) 

RANGE 

201. 

c 

RANGE 

202. 

c 

RANGE 

203. 

RETURN 

RANGE 

209. 

c 

RANGE 

205. 

300 

CONTINUE 

range 

204. 

c 

FLVBACK  RANGE  = CONSTANT  = SQ(10,3)  INPUT  IN  0ATA2 

RANGE 

207. 

SU<  15  ) = SQ(  10,3) 

RANGE 

206. 

RETURN 

RANGE 

209. 

c 

RANGE 

210. 

900 

CONTINUE 

RANGE 

211. 

c 

FLYBACK  RANGE  = IIP 

RANGE 

212. 

c 

S«(10)  = CFNTRAL  ANGLE  FROM  LIFT  OFF  TO  STAGING 

RANGE 

213. 

c 

SQ< 12,1)  = IIP  CENTRAL  ANGLE  FRO*  STAGING  TO  IHPACT  = 2(89) 

RANGE 

219. 

c 

50(10,3)  = AODITIVE  RANGE  FACTOR  ( DAT A2  INPUT) 

RANGE 

215. 

SN(15)  = 40.*(SQ(  12,1  ) ♦ SW(IO))  ♦ SQ(  10,3) 

RANGE 

216. 

RETURN 

RANGE 

217. 

c 

RANGE 

: mm  FLYBACK  TRAJECTORV  TO  BE  NURERICALLY  INTEGRATED 

RETURN 

"lOOO  FORRATt  79H  STAGING  ALTITUDE  GREATER  THAN  250000  FT 
1 EQUATIONS  INVALID) 


m**  RANGE 

RANGE 
RANGE 

FLYBACK  RANGE  RANGE 
RANGE 
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2000  FORNATtfcSH  STAGING  GAflflA  GREATER  THAN  IH  DEG  - FL  V B ACK  RANGE  EOUAT  RANGE 
UONS  INVALID)  RANGE 

3000  FOR«AT(  73H  APOGEE  ALTITUDE  GREATER  THAN  3C0C00  FT  * FLVBACK  RANGE  RANGE 
1E0UATI0NS  INVALID)  RANGE 

END  RANGE 
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SUBR0UT INE 
SETO 


rJ 


A 0 Number  of  air  breathing  engine*  used  by  s«tO  to  set  /ClNPUT/(  1)  FRENCH  I A 


conon  to  KfO 

FRENCH 

PI 

ANENGS 

SETO 

0 

A 

STORE 

n 

ANENGS 

UITSCH 

I 

ANENGS 

c 

0 

Airbreathing  fuel  syste*  weight  used  by  setO  to  set 

/ulTCALC/< 

1 ) 

SETO 

0 

C 

conon  to  zero 

UITSCH 

pi 

ABFSYS 

D 

0 

Body  width  used  by  setO  to  set  coaaon  to  zero 

/ VQLC  Al_/  ( 

1 ) 

P ROT  HR 

l 

BBOOY 

SETO 

0 

0 

WTSCH 

PI 

BBODY 

I 

u 

Oo  loop  counter 

/SETO  /<* 

> 

SETO 

u 

l 

30  OCT  12  G.01-H6 


S ET  0 


I.  SUBROUTINE  SETO  SETO 

2 . C*M**»»*.**.*.M*M»f»****,MM*#*MMM*»<«,»MM*»*****MMMM*MM  SETO 

3.  C INITIALIZES  VEHICLE  OATA  TO  ZERO  SETO 

H . SETO 

5.  CO«nON/ClNPUT/A< 392 ) SETO 

6.  CO«WON/VOLCAL/0< 37  ) SETO 

T.  CO»inON/blTCALC/C<  139)  SETO 

r B.  DO  10  1=1,392  SETO 

u 9 . 10  A(  I >=0  SETO 

r 10.  DO  30  1=1,139  SETO 

u 11.  30  Ct I >=0  SETO 

r 12.  DO  90  1=1,37  SETO 

u 13.  90  0( I )=0  SETO 

19.  RETURN  SETO 

15.  ENO  SETO 
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SUBR0UTINE 

SIZEMR 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


COOE 


DESCRIPTION 


/S 

V 


STORAGE 
BLOCK LOC 


subroutine  usage 
~^UBR  COOE  VAT" 


SE 


SO 


sv 


TB2  7 


T027 


1 Amy  of  synthesis  iteration  propulsion  parameters 


M A synthesis  data  array  (37,5)  that  contains  the 
flyback  data  and  sox  Injection  quantities 


M A synthesis  array  (26)  containing  staging 
parameters  and  aisc  flags 


I Stored  booster  value  of  lep(l) 


1 Stored  orbiter  value  of  isp(l) 


/SIZING/I 


/SIZING/' 


/SIZING/' 


/QRBI NY/( 


/ OR B I NX/ ( 


259)  FLY8KP 

0 

SE 

PRITVA 

I 

SE 

SIZEMR 

I 

SE 

SUMOUT 

1 

SE 

TAMPER 

M 

SE 

thrust 

I 

SE 

VEHDF 

M 

SE 

WTSCM 

I 

SE 

ntvol 

M 

SE 

7*0  ENVPRM 

M 

SO 

F LYBKP 

M 

SO 

ISPRAT 

I 

SO 

POBC 

I 

so 

PRITVA 

I 

SO 

RANGE 

M 

so 

REU3 

0 

so 

SIZE 

0 

so 

SI ZEMR 

M 

so 

SIZIN 

M 

so 

STAU 

I 

so 

SUMOUT 

M 

so 

TAMPAR 

0 

so 

TAMPER 

M 

so 

THRUST 

M 

so 

TRTOSZ 

M 

so 

VEHDF 

M 

so 

NT  VOL 

M 

so 

Mb)  ENVPRN 

M 

sv 

FLYBKP 

I 

sv 

ITER8 

I 

sv 

RANGE 

I 

sv 

SIZEMR 

M 

SV 

SIZIN 

I 

sv 

SSSP 

I 

sv 

SUMOUT 

I 

sv 

TAMPAR 

0 

sv 

TAMPER 

M 

sv 

TRTOSZ 

M 

sv 

VEHOF 

H 

sv 

NT  VOL 

I 

sv 

Hi  ) SI ZEMR 

TB27 

SSSP 

TB2T 

STORE 

M 

TB27 

SUMOUT 

TB27 

tamper 

TB27 

VEHDF 

n 

TB27 

NT  VOL 

TB27 

HI  ) SIZEMR 

T027 

SSSP 

T027 

STORE 

M 

T02T 

SUMOUT 

T02  7 

VEHOF 

M 

T027 

NTVOl 

T02  7 
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S|  It  «A 


1 . 
2. 
3. 
9. 

5. 

6. 

7 . 

8. 

9. 

10. 

11. 

12. 

13. 

19. 

15. 

16. 
IT. 
18. 

19. 

20. 
21 . 
22. 
23. 


25. 

26. 
27. 
26. 

29. 

30. 

31. 

32. 

33. 
39. 

35. 

36. 

37. 

38. 

39. 

90. 

91. 

92. 

93. 
99. 

95. 

96. 

97. 

98. 

99. 

50. 

51. 

52. 

53. 


55. 

56. 

57. 

58. 

59. 

60. 
61 . 
62. 
63. 
69. 

65. 

66. 

67. 


68. 

69. 

70. 

71. 

72. 

73. 
79. 
75. 


C 

C 

C 


C 


C 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


SUBROUTINE  SIZENR 


SUBROUTINE  TO  EVALUATE  MAIN  IMPULSE  MASS  RATIOS 


REAL  NUB.  nuo.  ispb,  ispo,  idvel,nnb,no 

COMMON  /SIZING/ 

PHASE  II  SIZING  PARAMERERS 
*TZ,  V VC  3 > . QP ( 19).  EROR , PZ<  5 ), 

*SV<28>,  SQ( 37.5  ) . SE( 11).  T LAT  T LNG, 

PHASE  1 SIZING  PARAMETERS 
*UBO,  HLOO,  DUEB,  OMEO,  TOLUT 

*BK1,  BK2,  BK3,  BK9,  ISIZE, 

*0*1.  0K2 . 0K3 , 0K9,  PRFLG 

* AEXI T , TVACO,  NO,  WFO,  IOVEL, 

*XPL,  TVACB,  NNB , NEO,  HEB. 

*DVO,  DVB.  «UB,  HUD,  VST  8, 

* JT VP . BECO  . BSTG  , ORB  I ITNBH  . 

* SVOPSQ  , SVOCfiN  ,IHUNT  . IOPSTG  ,1SZD(19) 


VO, 


hpb, 

TRAFLG, 

IPASS, 

ISPO, 

“2*o 

ITNQH  , 


SU(  2 0), 


T HR  AT  2 , 
TURATO, 
1 P SNA  X , 
ISPB, 
HLO, 


J vur  9 j ▼ w . * ngm  . lur^t  o | I t / 

DIMENSION  SKOC  30>,SC0<  300),T09C  6),T02G(  10  >,T027<  61.T039C  6 >, 

1 T098(  10).T099(  10),T05C(  10),T057I  6>,0USAVE(  10) 

CONNON/ORBINX/ 

1 701,702, T03.T09, 705, T06,T07T08,TC9TQI0T011,T012. 7013, T019, 

2 T015,T016,T01 7,t018,TOl9,T020,T621, 1022, 1023, 1029, 1025, 1026,7027, 

3 1028,  1029,1030,  1 03 1 , 1 032, T033 , T039 , T035 , T036 , I 03 7 , T038, T0  39 , T090, 
9 T091,T092.T093,T099,T095,T096,T097,T098.T099,T050,T051,T052,T053, 
5 T059,  TQ55,TO56,T057.T066,SK0,SCO,6hSAVE 

6,T059T060,T061,T062,i063,T069,T065,T067,T068,T069,T070,T071# 

7 T072,T073,T07S,T075,T076,T077,T078,T079,T080,T081,T082,T083, 

8T089 

DIMENSION  SKB(  30  ),  $CB(  300  ), T B9(  6 ) , TB20C  1 0 ) , T B27<  6 ),  TB39(  6 ), 

1 TB98C  10),TB99<  10),TB50<  10),TB57<  6),BUSAV£<  10) 

COMMON/OR B 1 NV/ 

1 TB1,TB2,TB3,TB9,TB5,TB6,TB7,TB8,TB9TB10,TB11,TB12.TB13,TB19. 

2 TB15,TB16,TB17,TB18,TB19,TB20,TB21,IB22,IB23,  1B29,1B25, 1B26,TB27, 

3 1B28, I B29, IB3C, IB31, IB32,TB33,TB39TB35,TB36, IB37,TB38,TB39,TB90 
9 TB9I,TB92#TB93,TB99,TB95.TB96,TB9T(TB98,TB99,TB50,Te5l,TB52,TB53, 
5 TB59,TS55,TB56,T057,SK8,5C6,0WSAVE 

6.TB59,TB60,TB61,TB62,TB63.TB69,TB65.TB66,TB67.TB68,TB69.TB70, 

7TB71,TB72,TB73,TB79,TB75,TB76,TB77,fB7e,TB79,TB0O,TB81,TB82, 

8TB83, T B89 

CALCULATE  LAST  STAGE  NASS  RATIO 

S VC  6 > = SVC  7>/5VC9> 

CALCULATE  BOOSTER  NASS  RATIO 

S V(  28  ) = VVC  1 )/0P(  9 ) 

TEST  PARALLEL  BURN  FLAG 

IFC  SE(  2 >.NE . 1 . ) GO  TO  1 

CALCULATE  EFFECTIVE  FIRST  STAGE  MASS  RATIO 

ORBDV  - 32.179  • T027(  3 ) * AL0GCSVC6)) 

EFFNR  = EXP(  ( S VC  3 )-  ORBOV  )/32 . 1 79/0P(  13  ) ) 

DETERMINE  BOOSTER  SIZING  NASS  RATIO 

TBPAR  = VVC1)/£FFNR  *<  EFFNR  -1.)*  0P(13)  / OPC  1 ) 

TBPARO  = TBPAR  « T02 7(  3 )/  QP(2) 

S V(  28  ) = (VVC1)  - HPPARO  )/0P<9> 

GO  TO  99 

CHECK  CROSS  FEED  FLAG 


1 JF(  SEC  10). EO. 1. ) GO  TO  2 

CORRECT  ORBITER  NASS  RATIO 
S V(  6 ) = C SVC  7 > ♦ SEC  11))/  SVC  9 ) 
CALCULATE  BOOSTER  NASS  RATIO 


SIZEMR 

SIZENR 

SIZENR 

SIZENR 

SIZING 

SIZING 

SIZING 

SUING 

SUING 

SUING 

SIZ1N6 

SUING 

SIZING 

SUING 

SUING 

SIZIN6 

SIZING 

UH 

ORBINX 

CKO  UT 

ORBINX 

ORBINX 

ORBINX 

ORBINX 

ORBINX 

CKOUT 

UH 

UH 

UH 

ORBINV 

CKOUT 

ORBINV 

ORBINV 

ORBINV 

ORBINV 

ORBINV 

UH 

UH 

UH 

UH 

SIZENR 

SIZENR 

SIZENR 

CKOUT 

SIZENR 

SIZENR 

SIZENR 

CKOUT 

SIZENR 

SIZENR 

SIZENR 

SIZENR 

SIZENR 

SIZENR 

SIZENR 

CKOUT 

SIZENR 

SIZENR 

SIZENR 

SIZENR 

SIZENR 

CKOUT 

CKOUT 

SIZENR 

SIZENR 

SIZENR 

SIZENR 


SIZEMR 

SIZEMR 

SIZENR 

SIZEMR 

CKOUT 

SIZEMR 

SIZENR 

SIZEMR 


99-i 
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76.  $¥(28)  = « WVf  1 > - SEC  HI)  / 0P(9>  CKOUT 

7 T . C StZErtR 

76.  C CHECK  SOLID  «OTOR  FLA6  SIZEflR 

79.  C SIZEnfi 


60.  2 IF<  S3( 20, I l.LE. 0.  ) 60  TO  99  SIZEnfi 

61.  C SIZEWR 

82.  C CALCULATE  BOOSTER  flASS  RATIO  SIZEflfi 

83.  C SIZEflR 

89.  SVC  26 ) = ( VV(  n-  SQ(21,5>)/  0P(  9 ) CKOUT 

85.  C SIZErtR 

86.  C CALCULATE  VELOCITIES  SIZEflR 

87.  C SIZEWR 


86.  99  CONTINUE  SIZEUR 

89.  $0(19,1)  = 32.179  ♦ TB27(3)  * AL0G<SV(28)>  CKOUT 

90.  SQ(  19,3)  = 32.179  * T027(  3 ) ♦ AL06(SV(6>)  CKOUT 

91 . S0<  19,2 ) = SVC  3)  CKOUT 

92.  SV(2)sSV(3)  F ) N 1 

93.  999  RETURN  SIZE«R 

99.  ENO  SIZENR 
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SUBR0UTINE 

S0LVE 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


<N 

Vi 

v 


ST  PRASE 
BLOCK  nfiT 


SUBROUTINE  USASE 
SUBR  COOE  VAR 


MR 


SOLVE 

TOL 

VBOOY 


VI 

VZ 

W6R0SS 


UTSCH 


U1 

uz 

. UNOfc . 


I 

M«ss  ratio 

/C I NPUT /( 

369  ) 

PRUTSM 

I 

MR 

SOLVE 

1 

MR 

STORE 

M 

MR 

UTSCH 

M 

MR 

E 

Subroutine  to  drive  oelght  end  volune  calculations 

/SOLVE  /<  5 

) 

SOLVE 

E 

SOLVE 

(otsch)  to  convergcnct  - an  inner  loop  driver 

NT  VOL 

S 

SOLVE 

M 

Gross  oelght  Iteration  tolerance 

/Cl NPUT /( 

387  ) 

SOLVE 

M 

TOL 

M 

Total  body  vo  lane 

/Cl NPUT/< 

391  ) 

PR  I NT  V 

n 

VBOOY 

SOLVE 

M 

VBOOY 

STORE 

M 

VBOOY 

TAMPER 

I 

VBOOY 

UTSCH 

M 

VBOOY 

UT  VOL 

t 

VBOOY 

W 

Duooy  value  of  vbedy  In  solve  routln 

/SOLVE  /(* 

) 

SOLVE 

u 

VI 

U 

/SOLVE  /(* 

) 

SOLVE 

u 

VZ 

M 

Gross  lift-off  oeigbt 

/ Cl NPUT/I 

392  ) 

PRINTU 

I 

UGROSS 

P RUT  SM 

I 

U6R0SS 

SOLVE 

M 

UGROSS 

STORE 

M 

UGROSS 

tamper 

I 

UGROSS 

UTSCH 

M 

UGROSS 

UT  VOL 

1 

U6R0SS 

s 

Subroutine  to  calculate  oeigbt  and  voluoe  of  both 

/UTSCH  /($ 

) 

SOLVE 

S 

UTSCH 

stages 

UTSCH 

E 

UTSCH 

UT  VOL 

S 

UTSCH 

w 

/SOLVE  /<» 

> 

SOLVE 

u 

U1 

w 

/SOLVE  /<♦ 

) 

SOLVE 

u 

U2 

0 

f 1 le  of  all  output  data 

/ .UNOfc. n % 

> 

BLICO 

0 

.UNOfc. 

BNDRYC 

0 

.UNOfc. 

CRASH 

0 

.UNOfc. 

FRENCH  0 . UNOfc . 

F X OAT  0 . UNOfc . 

GEINP  0 .UNOfc. 
HUNT  0 .UNOfc. 
INEDIT  0 .UNOfc. 
ITER8  0 .UNOfc. 


MOOELA 

0 

.UNOfc 

RONJ 

0 

.UNOfc 

MPSI 

0 

. UN06 

OUT 

0 

.UNOfc 

PAY02 

0 

.UNOfc 

PRINT 

0 

.UNOfc 

PRINT  V 

0 

.UNOfc 

PRINTU 

0 

. UNO  6 

PRITEQ 

0 

.UNOfc 

PRITVA 

0 

.UNOfc 

PROPIN 

0 

.UNOfc, 

PROTHR 

0 

.UNOfc 

PRWTSM 

0 

.UNOfc. 

RANGE 

0 

.UNOfc. 

S 

0 

.UNOfc 

SOINP 

0 

.UNOfc, 

SIZE 

0 

.UNOfc, 

SIZIN 

Q 

.UNOfc. 

SIZOUT 

0 

.UNOfc. 

SOLVE 

0 

.UNOfc. 

SPLICO 

0 

.UNOfc. 

SPLIZ 

0 

.UNOfc. 

SPLYNE 

0 

.UNOfc. 

SSSP 

0 

.UNOfc. 

STAU 

0 

.UNOfc. 

STPIT 

0 

.UNOfc. 

SUMOUT 

0 

.UNOfc. 

TABIN 

0 

.UNOfc. 

TEST 

0 

.UNOfc. 

VEHDF 

0 

.UNOfc. 

UTSCH 

0 

. UN06 , 

UT  VOL 

0 

.UNOfc. 
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SOLVE 


SUBROUTINE  SOLVE 

THIS  VERSION  OF  SOLVE  DRIVES  SUBROUTINE  UTSCH 
USING  A NEUTQN/RAPHSON  ITERATION  SCHEME 


TO  CLOSE  ON  WEIGHT 


REAL  MI N, MAX 
REAL  MUBt  MUO.  1 SPB,  I 5PO  I DVEL, NNB, NO 
COMMON  /SIZING/ 

PHASE  II  SIZING  PARAMERERS 


♦TZ,  V V<  3 ), 

♦ S V(  28  ) , 501  37,5  ). 

PHASE  I SIZINt 

0P(  IV  ), 

, SEC  H), 
i PARAMERERS 

EROR, 

TLAT, 

PZ<5), 

TLNG, 

VO, 

SU<  20), 

SIZING 

SIZING 

SIZING 

♦ UBO, 

ULOO, 

DUEB, 

OUEO, 

TOLUT, 

UP  B , 

TURAT2, 

SIZING 

♦ BK  1 

BK2 , 

BK3 , 

BKV, 

ISIZE, 

TRAFLG, 

TURATO, 

SIZING 

♦ OKI, 

0K2, 

0K3, 

OK  V, 

PRFLG, 

IPASS, 

I PSNAX 

SIZING 

♦AEXiT, 

T VACO , 

NO, 

UFO, 

IOVEL, 

1SP0, 

I5PB, 

S1ZIN6 

* XPL, 

TVACB, 

NNB , 

UEO, 

WEB, 

uo. 

ULO, 

SIZING 

♦ DVO, 

DVB, 

MUB, 

MUO, 

VSTG, 

UPO 

SIZING 

I'smSa 

BECO  , 

, SVDCON 

BSTG  , 
, I HUNT 

ORBI , 
I0PST6 

ITNBU  , 

,iszo< m 

ITNOU  , 

SIZING 

UH 

REAL  KIN 

REAL  ISP,K,LF,MA,NCREW,LBODY,NPASS 

REAL  NEN6S 

COMMON/CINPUT/ 


1ANENGS 

, ANTANK 

, ASRATO 

, AS WEEP 

,C(  300  ) 

, CBBOOY 

,CFUEL( 6) 

2CH0OOV 

, CLBODV 

, CSBODV 

, C5F A1 R 

, CSFUT  K 

, CSHORZ 

, CSOXTK 

3CSPLAN 

, CS VERT 

, CSUI NG 

CT  HRST 

, CTHST2 

,OEF( 5) 

,FXWOVS 

VlSP<  6 ) 

, I TPS 

,K(  30) 

, K I N 

t LF 

, Mfi(  6 ) 

, NCR  EU 

5NENGS 

, NLI STO 

, NP  ASS 

, NUL 

, PCHAM 

,8 

, RHOFU 

6RH0FU2 

,RHOX 

RHO  X2 

, SBODY 

,TOL 

, TO VERC 

, TPR ATO 

7TVTAIL 

, VBODY 

. WGROSS 

COMMON/VOLCAL/BBO 

OV.CROOT 

, CSP AN 

, CT  I P 

, GAL 

, GSPAN 

2HB0DY 

, LBODV 

, RTOD 

,SFAIR 

, SFUTK 

, SHORZ 

, SO  XTK 

3SPLAN 

, STPS(  1 ) 

, S VERT 

, SUING 

,$XPOS 

, TOEL 

, TROOT 

VTTOT 

, TT0T2 

, TTOT  AL 

, VBOOYA 

, VB0DY1 

, VB00Y2 

, VCARGO 

5VCREU 

, VFUTK 

, VFUTK2 

, VINSTK 

, VLGBAY 

, VOTHER 

, VOXTK 

6V0XTK2 

, VPROP 

, VSTRUC 

COMMON/ 

UTCALC/ 

ABFSVS 

,UABFTK 

UABF  U 

, UABPR 

, UACRES 

1UACS 

, UACSFO 

, UACSTK 

UAERO 

, WAUXT 

,UBASIC 

, UBODY 

2UBPUMP 

, UCARGO 

, UCONM 

, UCONT 

, UCO VER 

, UOECAV 

, U01 ST  1 

3UDIST2 

, UDOCK 

, UOPLOY 

UOR  ANS 

UOR  Y 

, UELC AO 

, WEMPTY 

VWENGMT 

, WENGS 

, UENGS2 

, UFA1R 

, UFCONT 

, WFDCAY 

, UFROST 

5UFU2<  3) 

,UFUEL( 6) 

, UFUL 

UFULOS 

UF  UNCT 

, UFUO  X 

, UFURES 

6UFUSVS 

, UFUTK 

, UFUTK2 

, UF  UTOT 

UFUTRP 

, UGASPR 

, WGNA V 

7UH0RZ 

, UHYCAO 

, UI NF  UT 

UI NOXT 

, UINSTK 

, UI NST 

, UI NSUL 

8U JET ( 6 ) 

, ULANCH 

,ulg 

, ULOSS 

, WLRO 

, UNACEL 

, WOOCAY 

9U01L 

,UOI LRS 

, UORSUL 

UQ  VERS 

,UOX(  6 ) 

, U0X2( 3 ) 

,UOXIO 

I WO  X LOS 

, UO  XRES 

,UOXSYS 

, UQXTK 

W0XTK2 

, UOXTOT 

, UOXTRP 

2WP 

UP  ASS 

, UP  AY  L 

UPERS 

UPOUCD 

, UPO  UER 

, UPOWFO 

3UP0URS 

, UPOUTK 

UPPRO V 

UPREI 6 

WPROP 

, UPRS YS 

, UREFUL 

VURESID 

, WRESR  V 

, USE  AL 

, USECST 

USORCE 

, USRTRP 

,WSTAB 

5 US URF 

, UT  ABC 

UTHRST 

, UTO 

, UTPS 

, UVERT 

, UUA I T( 10 

6UUET 

, WUING 

, UZROF  U 

UA6TRP 

, UlABRES 

, WMNOTP 

, UMNFTP 

7WMN0RS 

,UMNPPS 

, WACOTP 

uacftp 

UP  WO  T P 

, WPUFTP 

, UG AS 

6UABFUC 

UACORS 

, UACFRS 

'UPWORS 

;upwfrs 

I F( SU< 1 3 ) . GT . 2 . 5 ) WRITE!  6, 1001  > 
wk=hr< 3 ) 

IF(’TOL.LT.l.  .0R.T0L.GT.100.  1 TOL 
ITER  -0 

MAX=2 . 5* WGROSS 
MJ  N=0 . 9*W6A055 

V 1 = VBODV 
hll  = WGROSS 
CALL  WTSCH 


10  CONTINUE 

U2=WGROSS+UK«0U1 

R=U2/UGR0SS 

V2=VB00V*R 


CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

CINPUT 

VOLCAL 

VOLCAL 

VOLCAL 

VOLCAL 

VOLCAL 

VOLCAL 

UTCALC 

WTCALC 

UTCALC 

UTCALC 

UTCALC 

UTCALC 

UTCALC 

UTCALC 

UTCALC 

UTCALC 

UTCALC 

UTCALC 

UTCALC 

WTCALC 

UTCALC 

CKO  UT 

CKOUT 

CKOUT 

SOLVE 

SOLVE 

SOLVE 

SOLVE 

SOLVE 

SOLVE 

SOLVE 

SOLVE 

SOLVE 

SOLVE 

SOLVE 

SOLVE 


67. 

5005  CONTINUE 

SOLVE 

68. 

DU1=UGR0SS-U1 

SOLVE 

69. 

OV1=VBODY  -VI 

SOLVE 

70. 

C 

SOLVE 
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\ 


75. 

VB0DV=V2 

SOLVE 

76. 

MGR0SS=W2 

SOLVE 

77. 

I TER  = I TER* 1 

SOLVE 

78. 

CALL  WTSCM 

SOLVE 

7 9 . 

DW2=W6R0$S-W2 

SOLVE 

80 

D V2= VBOQY  -V2 

SOLVE 

81  . 

IF(  W2.GT .MAX. 0R.W2.LT. niN)  GO  TO  120 

SOLVE 

120 

82. 

JF( ABS(0U2).LT.T0L.AN0.A8S(DV2>.LT.5.  ) GO  TO  100 

SOLVE 

ICO 

83. 

in  ITER  GT.  15)60  TO  110 

SOLVE 

110 

8 *•  _ 

WK  = ( W2-Ul)/< 0W1-0W2)  - I. 

SOLVE 

85. 

IF(WK.GT.5. > WK=5. 

SOLVE 

86. 

IF( WK . LT .2 . > WK=2. 

SOLVE 

87. 

Ml  = M2 

SOLVE 

88. 

DW1  = 0M2 

SOLVE 

89. 

VI  = V2 

SOLVE 

90. 

DV1  = DV2 

SOLVE 

91. 

I Ft  SW(  13  KGT.2.5  ) WRITE!6,  1000  ) W2,DU)2,  V2.DV2,  WK , I TER 

SOLVE 

92. 

IF(O)  5005.10.5005 

SOLVE 

93. 

C 

THIS  CARO  NECESSARY  TO  PROGRAM  AROUND  COMPILER 

SOLVE 

99. 

C 

OPTIMIZATION  BU6  ON  UNIVAC  1106  EXEC  II. 

SOLVE 

95. 

C 

SOLVE 

96. 

C 

SOLVE 

97.  110  CONTINUE  SOLVE 

1 

98.  100  CONTINUE  SOLVE 

99.  I F(  SW!  13)  E0.2.0)  WRITE!  6, 1001 ) SOLVE 

100.  I Fi  SW! 13  ).GT. 1 .5  ) WRITE(6#1000)  W2,DW2,  V2,DV2,  WK  I TER  SOLVE 

101.  RETURN  SOLVE 

102. 

120 

CONTINUE 

SOLVE 

103. 

MRI T E(  6,  1 002  ) 

SOLVE 

109. 

1002 

FORMAT!  1 OX  30H  *****  BLOWUP  IN  SOLVE  ♦ ***•  //  ) 

SOLVE 

105. 

WRITE! 6 , 1001  ) 

SOLVE 

1106. 

WRITE!  6 1000  ) W2  DW2 , V2f0V2,  WK  I T ER 

SOLVE 

107. 

RETURN 

SOLVE 

108. 

1000 

FORMAT!  5X,2<  F 12 . 2. F 12 . 9 ),F 12 . 3 . 1 9 ) 

SOLVE 

109. 

1001 

FORMAT ! /9X2HW2  10Xt3H0W2  BX,  2HV2  10X,  3H0V2  10X, 

SOLVE 

no. 

1 

L 2HWK  8X, 9HITER  ) 

SOLVE 

Illl. 

C 

SOLVE 

112. 

END 

SOLVE 

I O—1  5005 
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SUBR0UTINE 

ST0RE 


I OH  1 H AM 
SYnnOl 

HAT  H 
SYMBOL 

cooe 

DESCRIPTION 

ST  OR  AT 

c 

SUBROUTINE  USAGE 

H l 0 1 * 

lOC 

SUBh 

CODE  VAR 

ANENGS 

pi 

Number  of  elr  breathing  engines  used  by  letO  to  set 

/Cl NPUT/( 

1 ) 

FRENCH 

I 

A 

common  to  itro 

FRENCH 

m 

ANENGS 

$ET0 

0 

A 

STORE 

pi 

ANENGS 

WTSCH 

I 

ANENGS 

ANT  ANK 

pi 

Number  of  air  breathing  fuel  tanka 

/ C I NP  UT/ ( 

2) 

STORE 

n 

amt  ank 

WTSCH 

I 

ANTANK 

ASRATO 

m 

Wl  ng  aspect  r at  1 o 

/ C I NP  UT / ( 

3 ) 

STORE 

n 

ASRATO 

WTSCH 

I 

ASRATO 

ASWEEP 

n 

Wing  leading  edge  steep  angle 

/ C I NP  UT / ( 

4 ) 

STORE 

m 

ASWEEP 

WTSCH 

I 

ASWEEP 

C 

« 

Input  array  e(300)  of  vehicle  sizing  data 

/ C I NP  UT / ( 

5 ) 

PRINTU 

I 

C 

PRITEO 

I 

C 

PR  ITVA 

I 

C 

STORE 

n 

C 

WTSCH 

I 

C 

WT  VOL 

0 

c 

CBBOOY 

n 

Body  b 1 dt  h cocff. 

/ C I NP  UT / ( 

305  ) 

PR1TVA 

i 

CBBODY 

STORE 

n 

CBBODY 

WTSCH 

i 

CBBODY 

CFUEL 

n 

Pit  1 1 ur  e ratio 

/Cl NPUT/( 

306  ) 

PRWTSW 

n 

CFUEL 

STORE 

n 

CFUEL 

WTSCH 

n 

CFUEL 

CHBOOY 

n 

Body  he i ght  or  coef f 

/ C I NP  UT / ( 

312  ) 

PRITVA 

I 

CHBODY 

STORE 

m 

CHBODY 

WTSCH 

I 

CHBOOY 

CLBOOY 

n 

Body  length  or  coef f 

/Cl NPUT/( 

313  ) 

PRITVA 

I 

CLBODY 

STORE 

n 

CLBODY 

WTSCH 

I 

CLBODY 

CSBODY 

n 

Total  body  Betted  area  or  coeff 

/Cl NPUT/( 

314  ) 

PRITVA 

I 

CSBODY 

STORE 

pi 

CSBODY 

WTSCH 

I 

CSBOOY 

CSFAIR 

pi 

Fairing  pianfora  area  or  coeff 

/Cl NPUT/( 

315  ) 

PRITVA 

I 

CSFAIR 

STORE 

n 

C5FAIR 

WTSCH 

l 

CSFAIR 

CSFUTK 

pi 

Fuel  tank  surface  area  or  coeff 

/Cl  nlP UT /( 

31b  ) 

PRITVA 

I 

CSFUTK 

STORE 

pi 

CSFUTK 

WTSCH 

I 

CSFUTK 

CSHORZ 

n 

Horizontal  stabalizcr  planter*  area 

/ C I NP  UT  / ( 

317) 

PRITVA 

I 

CSHORZ 

STORE 

n 

CSHORZ 

WTSCH 

I 

CSHORZ 

CSOXTK 

pi 

Oxidizer  tank  surface  area  coeff 

/Cl NPUT/( 

318) 

PRITVA 

I 

CSOXTK 

STORE 

pi 

CSOXTK 

WTSCH 

1 

CSOXTK 

CSPLAN 

m 

Body  planfor*  area  or  coeff 

/ C I NP  UT/( 

319  ) 

PRITVA 

I 

CSPLAN 

STORE 

n 

CSPLAN 

WTSCH 

I 

CSPLAN 

C5YERT 

n 

Vertical  fin  planfort  area  or  coeff 

/ C I NP  UT / ( 

320  ) 

PR  I TVA 

I 

CS  VERT 

STORE 

pi 

C S VERT 

WTSCH 

I 

CSVEflT 

CSLJI  NG 

pi 

tiling  pianfora  area 

/Cl NPUT/( 

321  ) 

STORE 

n 

CSWI NG 

CTHR5T 

pi 

Vac.  T hr u s t - t o -me i ght  ratio 

/CINPUT/t 

322  ) 

PRITVA 

I 

CT  HR  ST 

STORE 

pi 

CT  HR  ST 

WTSCH 

I 

CT  HR  ST 

WT  VOL 

pi 

CTHRST 

CTHST2 

pi 

Secondary  propulsion  i/m 

/Cl NPUT/( 

323  > 

PRITVA 

I 

CTHST2 

STORE 

n 

CTHST2 

WTSCH 

1 

CTHST2 

F xwovs 

PI 

Fiied  ping  loading 

/ C I NP  UT / ( 

329  ) 

STORE 

n 

FXWO  VS 

WTSCH 

1 

FXWOVS 

I 

u 

Oo  loop  counter 

/STORE  /(♦ 

) 

STORE 

w 

I 
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► oh l * a* 
SY  1*PL 

I SP 

l TPS 
LF 

WR 

NCREW 

NENGS 

NLISTO 
NP  ASS 
NWL 

P CHAW 
AH0FU 

RH0FU2 

RHOX 

RH0X2 

SCB 


SKB 


NAI  H 

SYMBOL 


code  DESCRIPTION 


Pi  Spec  if  I c i »pu I »• 
n Thermo  protection  flog 

PI  LMtimate  load  factor  1.  Thrust  buildup  2.  Not 
used  3.  Plain  impulse  mass  ratio  9.  Plain  Impulse 
reserve  5.  Secondary  Impulse  mass  ratio  6.  Not 
used 

PI  Was*  ratio 

PI  Number  of  crea  members 

PI  Total  number  engines  per  stage 

Pi  Namelist  output  flag 
n Number  of  passengers 
fl  Wing  l o ad i ng  f I ag 

ft  Plain  rocket  engine  chamber  pressure 
n Fuel  density 

Pi  Secondary  fuel  desnfty 

n Oxidizer  density 

P)  Secondary  oxidizer  density 

PI  Working  name  for  input  c~array  booster  scaling 
coef f i c i ents 

PI  Working  name  for  input  k-array  booster  volume 
scaling  coef  f 


STORAGE 

SUBROUTINE  usage 

BIOL* 

IOC 

SUBR 

CODE  VAR 

/ C I NP UT /( 

330  ) 

PRWTSPi 

I 

ISP 

STORE 

PI 

ISP 

UTSCH 

I 

ISP 

WT  VOL 

0 

ISP 

/ C I NPUT /( 

336  ) 

FRENCH 

0 

1 TPS 

STORE 

PI 

I TPS 

WTSCH 

Pi 

ITPS 

/C I NP  UT/( 

366  ) 

STORE 

PI 

LF 

WTSCH 

I 

LF 

/CINPUT/< 

369  ) 

PRWTSPI 

I 

NR 

SOLVE 

I 

PiR 

STORE 

PI 

rtH 

WTSCH 

Pi 

PiR 

/Cl NPUT /( 

375  I 

PRITVA 

I 

NCREW 

STORE 

Pi 

NCR  EW 

WTSCH 

I 

NCREW 

/ C 1 NPUT /( 

376  > 

PRITVA 

I 

NENGS 

STORE 

PI 

NENGS 

WTSCH 

I 

NENGS 

/C1NPUT/I 

3 7 7 ) 

STORE 

pi 

nlisto 

WTSCH 

I 

NL1ST0 

/ C I NP  UT  /( 

378  > 

STORE 

n 

NP  ASS 

WTSCH 

I 

NP  ASS 

/ C I NPUT/< 

379  ) 

FRENCH 

0 

NWL 

STORE 

pi 

NWL 

WTSCH 

pi 

NWL 

/ C I NP  UT /( 

380  ) 

STORE 

pi 

PCHAPi 

WTSCH 

i 

PCH  API 

/CINPUT/< 

382  > 

PRITVA 

i 

RHOFU 

STORE 

pi 

RHOFU 

WTSCH 

i 

RHOFU 

/ C I NPUT /( 

383  ) 

PRITVA 

i 

RH0FU2 

STORE 

pi 

RH0FU2 

WTSCH 

i 

RH0FU2 

/ciNPur/< 

389  ) 

PRITVA 

i 

RHOX 

STORE 

pt 

RHOX 

WTSCH 

i 

RHOX 

/C I NP  UT /( 

385  > 

PRITVA 

i 

RH0X2 

STORE 

pi 

RH0X2 

WTSCH 

i 

RH0X2 

/OR  BI NY / ( 

199  ) 

FLYBKP 

pi 

SCB 

STORE 

pi 

SCB 

SUPIOUT 

i 

SCB 

TAPIPER 

i 

SCB 

THRUST 

pi 

SCB 

VEHDF 

i 

SCB 

WT  VOL 

pi 

SCB 

/ORB I NY / ( 

119) 

STORE 

Pi 

SKB 
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M»H  IRAN  HA  I H 

SVAROL  SYABOl 


DESCRIPTION 


b T QfiftGf  VWilM  USAGE 
Block  lOC  Sub*  cooe  var 


$QRT  F Square  root  function  /SORT  /{  i ) ANLATA  F SORT 

CRASH  F SORT 
OCTOE  F SORT 
DER3A  F SORT 
ENVPRA  F SORT 
HUNT  F SORT 
nOOELA  F SORT 
nOOELB  F SORT 
GPUELL  F SORT 
OUT  F SORT 
P AT  6 3 F SORT 
PAV02  F SORT 
POBC  F SORT 
P 0 V 3 A F SORT 
STORE  F SORT 
SYAVRT  F SORT 
WTSCH  F SORT 


STORE 

E 

Subroutine  to 

store 

v e h 1 

[ c 1 e data 

In  Internal  foraat  /STORE  /(  $ 

) 

FRENCH 

S 

STORE 

and  etvof  for  ait 

STORE 

E 

STORE 

SWING 

n 

Gross  i 

■ i ng  area 

/ VOLCAL/ ( 

1 7 ) 

PROTHR 

I 

SWING 

STORE 

a 

SWING 

WTSCH 

a 

SWING 

TB10 

n 

Stored 

booster 

value 

of 

csf  a i r 

/ORB  I NY/ ( 

15  ) 

STORE 

A 

TB10 

TB1 1 

n 

Stored 

booster 

value 

o f 

csf utk 

/0RBINY/( 

16  ) 

STORE 

A 

TB11 

T B 1 2 

a 

Stored 

booster 

value 

of 

c so  *t  k 

/OR  B I NY / ( 

17  ) 

STORE 

A 

TB12 

TB13 

a 

Stored 

booster 

value 

o f 

cshori 

/0RBINY/< 

18  ) 

STORE 

A 

T B 1 3 

T B 1 5 

n 

Stored 

booster 

value 

0 f 

c sp 1 an 

/OR  B1 NY / ( 

20  ) 

STORE 

A 

T B 1 5 

TB16 

a 

Stored 

booster 

value 

of 

c s ver t 

/ORBI NY/( 

21  ) 

STORE 

A 

T B 1 6 

TB17 

a 

Stored 

booster 

value 

0 f 

c s * i ng 

/0RBINY/( 

22) 

STORE 

A 

TB17 

T B 1 8 

n 

Stored 

booster 

value 

0 f 

cthrst 

/ OR  B I N Y / ( 

23  ) 

STORE 

A 

TB1B 

WT  VOL 

0 

T B 1 8 

TB19 

a 

Stored 

booster 

value 

0 f 

cthst2 

/ORBI NY/( 

2 9 ) 

STORE 

A 

TB 1 9 

TB2 

a 

Stored 

booster 

value 

of 

c bbo  dy 

/ORBI  NY/t 

2 > 

STORE 

A 

TB2 

TB27 

n 

Stored 

booster 

value 

0 f 

i s p ( i ) 

/0RBINY/( 

*♦1  ) 

SIZEAR 

I 

TB27 

SSSP 

1 

TB27 

STORE 

A 

TB27 

SUdOUT 

I 

TB27 

T AdPER 

I 

TB27 

VENOF 

A 

TB27 

WT  VOL 

1 

T82  7 

TB39 

n 

Stored 

booster 

value 

of 

■r<  i ) 

/ OR  B I N Y / ( 

53  ) 

FLYBKP 

I 

TB39 

ITER8 

0 

TB39 

SSSP 

A 

TB39 

STORE 

A 

TB39 

SUdOUT 

I 

TB3  9 

T AdPER 

I 

TB39 

vehdf 

I 

TB39 

WT  VOL 

A 

T B 39 

TB35 

n 

Stored 

booster 

value 

of 

ncrea 

/ 0 R B I NY / ( 

59  ) 

STORE 

A 

T B 3 5 

T B 3 fe 

n 

Stored 

booster 

value 

0 f 

nengs 

/ORBI NY/( 

60  ) 

STORE 

A 

TB36 

S UdQUT 

I 

TB36 

T AdPER 

I 

TB36 

THRUST 

I 

TB36 

WT  VOL 

I 

TB36 

T B 3 8 

n 

Stored 

booster 

value 

of 

np  ass 

/ 0 R B I NY / ( 

62  ) 

STORE 

A 

TB38 

TBS 

fi 

Stored 

booster 

value 

of 

If 

/ OR  BI NY / ( 

9 ) 

STORE 

A 

TB9 

T BS1 

n 

Stored 

booster 

value 

0 f 

r ho  f u 

/ OR  B I N Y / ( 

65  ) 

STORE 

A 

TB91 

TBS2 

fi 

Stored 

booster 

value 

of 

r ho  f u2 

/ OR  B I NY / ( 

66  ) 

STORE 

A 

T B 92 

TBS3 

m 

Stored 

booster 

value 

of 

rhoa 

/ OR B I NY / ( 

67  ) 

STORE 

A 

TB93 

TBSS 

n 

Stored 

booster 

value 

of 

r ho  *2 

/ORBI NY / ( 

68  ) 

STORE 

A 

TB99 

30  OCT  72  G. 01-96 


I OH  I H ft IV  rtAl  H 

o y nfto i symbol 


CODE 


DESCRIPTION 


S T Q R A j£  subroutine  USAGE 

BLOCK  LOC  SUBh  CODE  VAR 


TBM5 

to 

Stored 

booster 

value 

of 

>•1  ng 

/ORBI NY/I 

69  > 

STORE 

to 

TBM5 

SunOUT 

I 

TBM5 

TAMPER 

1 

TBM5 

T BM7 

n 

Stored 

booster 

v » 1 ue 

of 

to  var  c 

/ORBI NV/t 

71  ) 

STORE 

to 

TBM7 

TB5 

n 

Stored 

booster 

value 

of 

ehbody 

/0RBINY/( 

10  J 

STORE 

to 

TBS 

TB51 

n 

Stored 

booster 

v a I ue 

of 

vbo  dy 

/ORBI NY /( 

102  ) 

STORE 

to 

TB51 

UT  VOL 

0 

T 85  1 

T 852 

0 

Stored 

booster 

value 

of 

vf  utk 

/ OR  B I NY / ( 

103  ) 

STORE 

0 

TB52 

TB53 

to 

Stored 

booster 

value 

of 

v f ut  k2 

/ORBI NY/( 

1 OM  ) 

STORE 

N 

TB53 

TB5M 

0 

S t o r e d 

booster 

value 

of 

voxtk 

/0RBINY/< 

105  1 

STORE 

0 

T 85  M 

TB55 

to 

Stored 

booster 

value 

o f 

vo  1 1 k2 

/ORBI NY / ( 

106  ) 

STORE 

to 

TB55 

TB56 

n 

5t  o r e d 

booster 

value 

of 

»gr oss 

/ORBI NY/t 

107  ) 

STORE 

to 

TB56 

UT  VOL 

to 

TB56 

TB6 

n 

Stored 

booster 

value 

of 

c 1 bo  dy 

/ OR B I NY / ( 

11  ) 

STORE 

to 

TB6 

toverc 

n 

Winq  thickness 

over  i 

choor  d ratio 

/ C 1 NP  LIT  / ( 

388  ) 

prothr 

1 

TOVERC 

STORE 

to 

TOVERC 

UTSCH 

I 

TOVERC 

T010 

to 

Stored 

o r b i t er 

value 

of 

csf air 

/0RBINX/< 

15  ) 

STORE 

to 

T010 

TO  1 1 

to 

Stored 

o r b i t er 

value 

of 

csf utk 

/ORBI NX/( 

16  ) 

STORE 

n 

TOll 

TO  12 

to 

Stored 

or  b i t er 

value 

of 

c so  at k 

/ORBI NX/t 

17  ) 

STORE 

to 

TO  1 2 

T 0 1 3 

to 

Stored 

o r b i ter 

value 

of 

cshor i 

/0RBINX/( 

18  ) 

STORE 

n 

TO  1 3 

TO  1 5 

n 

Stored 

or  b i t er 

value 

of 

esp 1 an 

/OR  BI NX / { 

20) 

STORE 

to 

TO  1 5 

T 0 1 6 

to 

Stored 

o r b i t e r 

value 

of 

cs vert 

/OR  B I NX / ( 

21  ) 

STORE 

to 

TO  1 6 

TO  1 7 

to 

Stored 

or  b i t er 

value 

of 

c s a 1 ng 

/OR  BI NX / ( 

22  > 

STORE 

to 

TO  1 7 

TO  1 8 

to 

Stored 

or  b i t er 

value 

0 f 

c t hr  st 

/ OR  B I N X / ( 

23  ) 

STORE 

to 

TO  1 8 

LJT  VOL 

to 

TO  1 8 

TO)  9 

to 

Stored 

or  b i t er 

value 

of 

ct  hst  z 

/0RBINX/< 

2M  ) 

STORE 

to 

TO  1 9 

T02 

to 

Stored 

o r b 1 1 er 

value 

0 f 

c b bo  dy 

/0RBINX/< 

2 ) 

STORE 

to 

T02 

T027 

to 

Stored 

o r b i t er 

value 

of 

I sp(  1 ) 

/ DR B I NX / ( 

Ml  ) 

S I ZENR 

I 

T027 

SS5P 

I 

TO  2 7 

STORE 

to 

T 02  7 

SjnOUT 

I 

T027 

VEHOF 

to 

T 02  7 

WT  VOL 

I 

TO  2 7 

T 0 3M 

to 

Stored 

or  b i t er 

value 

of 

■ r ( i ) 

/0RBINX/( 

53  ) 

ITER8 

« 

T03M 

SSSP 

0 

TO  3 M 

STORE 

to 

T03M 

tamper 

I 

T03M 

VEHOF 

0 

T03M 

WT  VOL 

to 

T03M 

TO  35 

to 

Stored 

o r b i t e r 

value 

0 f 

ntrea 

/ OR  B I N X/ ( 

59) 

STORE 

to 

T 0 3 5 

TO  36 

to 

Stored 

o r b i t e r 

value 

of 

nengs 

/ORBINX/I 

60  ) 

STORE 

to 

TO  3 6 

SUNOUT 

I 

T 0 3 6 

TANPER 

I 

TO  36 

THRUST 

I 

T 0 3 6 

WT  VOL 

I 

T036 

TO  38 

to 

Stored 

orbi ter 

value 

0 f 

np  as  s 

/ORBI NX/( 

62  ) 

STORE 

to 

T 0 38 

TOM 

to 

Stored 

o r b i t e r 

value 

0 f 

cf uel< I ) 

/ ORBI NX/( 

M ) 

STORE 

n 

TOM 

TO  M 1 

to 

Stored 

o r b i t e r 

value 

of 

r hof  u 

/ OR  B I N X / ( 

65  ) 

STORE 

to 

TOM  1 

TO  M2 

to 

Stored 

or  bi t er 

value 

of 

r ho  f u2 

/OR  BI NX/( 

66  ) 

STORE 

to 

T 0 42 

TO  M 3 

to 

Stored 

o r b i t e r 

value 

of 

r ho  x 

/0RBINX/( 

67  ) 

STORE 

to 

T0M3 

T0M5 

to 

Stored 

o r b 1 1 er 

value 

of 

sal  ng 

/ OR  B I N X / ( 

69  ) 

STORE 

to 

T0M5 

SUNOUT 

I 

TOMS 

T ArtPER 

I 

TOMS 

TOMT 

n 

Stored 

o r b i t e r 

value 

of 

t o ver  c 

/ 0 R B I N X / ( 

71  ) 

STORE 

to 

T 0 M 7 

T 05 

to 

Stored 

or  b i ter 

value 

of 

ehbody 

/ORBI MX/C 

10) 

STORE 

to 

T 0 5 

30  OCT  72  G. 01 -Hb 


na  i h 
SYMBOL 


DESCRIPTION 


5 TQP  ftlE 
HlOLK  LOL 


SUBR  CODE 


T 05  1 

m 

Stored  orbiter  value  of  vbody 

zonal Nx/c 

102  ) 

STORE 

PI 

T 05  1 

WT  VOL 

0 

T 0 5 1 

T052 

0 

Stored  orbiter  value  of  vf  utk 

/Ofi&JNX/C 

103) 

STORE 

0 

T052 

T053 

n 

Stored  orbiter  value  of  vfutk2 

/ORB I NX/C 

ION  ) 

STORE 

PI 

T053 

T05M 

0 

Stored  orbiter  value  of  voxtk 

/ORBINX/I 

105  ) 

STORE 

0 

T05N 

T055 

pi 

Stored  orbiter  value  of  voxtk2 

/0RBI NX/< 

106) 

5 TORE 

PI 

T055 

T056 

pi 

Stored  orbiter  value  of  agrott 

/0RBINX/( 

107  ) 

STORE 

n 

T056 

WT  VOL 

pi 

T056 

T06 

pi 

Stored  orbiter  value  of  clbody 

/ORBI NX/< 

11  ) 

STORE 

* 

T 06 

T 0 66 

m 

Working  na«e  for  input  k-array 
scaling  coef f 

orbiter  voluae 

/0RBINX/< 

in ) 

STORE 

T066 

TO  7 

pi 

/0R6INX/C 

12  ) 

STORE 

pi 

TO  7 

TPRATO 

pi 

Wing  taper  ratio 

/Cl  NPUT/l 

389  ) 

STORE 

pi 

TPRATO 

WTSCH 

I 

TPRATO 

TTOT 

l 

Total  stage  vac.  Thrust 

/VOLCAL/ ( 

21  ) 

PR1TVA 

I 

TTOT 

v 

STORE 

I 

TTOT 

WTSCH 

pi 

TTOT 

WT  VOL 

l 

TTOT 

VBODY 

pi 

Total  body  vo  1 u«e 

/ Cl  NP UT /( 

391  ) 

PR  I NT  V 

pi 

VBODY 

SOLVE 

pi 

VBODY 

STORE 

m 

VBODY 

TAMPER 

I 

VBODY 

WTSCH 

pi 

VBODY 

WT  VOL 

I 

VBODY 

VBODYR 

u 

Vbody  to  - 2/3  power 

/STORE  /<♦ 

) 

STORE 

w 

VBODYR 

VFUTK 

« 

Total  voluae  of  fuel  tank 

/ VOlCAL/ ( 

29  ) 

PR1NTV 

I 

VFUTK 

STORE 

pi 

VFUTK 

TAMPER 

I 

VFUTK 

WTSCH 

pi 

VFUTK 

VFUTK2 

pi 

Total  voluae  of  secondary  fuel 

tank 

/ VOLC AL/< 

30) 

PR  I NT  V 

I 

VFUTK2 

STORE 

pi 

VFUTK2 

TAMPER 

I 

VFUTJC2 

WTSCH 

pi 

VFUTK2 

YOXTK 

pi 

Total  volume  of  oxidizer  tank 

/ VOLCA  L/  ( 

3 H ) 

PRINTV 

I 

VOXTK 

STORE 

pi 

VOXTK 

TAMPER 

I 

VOXTK 

WTSCH 

n 

VOXTK 

VCXTK2 

Total  volume  of  secondary  oxidl 

zer  tank 

/ V0LCAL/( 

35  ) 

PR  INTV 

I 

VO  XT  K 2 

STORE 

pi 

v 0 X T K 2 

TAMPER 

1 

V0XTK2 

WTSCH 

pi 

V0XTK2 

WACRES 

pi 

Weight  of  attitude  control  fuel 

reserve 

/ WT  C ALC/( 

5) 

PR  I NT  W 

I 

WACRES 

STORE 

pi 

WACRES 

WTSCH 

pi 

WACRES 

WACSFO 

pi 

Weight  of  attitude  control  fuel 

plus  oxidizer 

/WTCALC/< 

7 ) 

PR  I NT W 

1 

WACSFO 

STORE 

pi 

WACSFO 

WTSCH 

pi 

WACSFO 

WAUXT 

i 

Weight  of  separation  systea 

/ WT  C ALC/< 

10  ) 

PR  I NT  W 

I 

WAUXT 

STORE 

I 

WAUXT 

WTSCH 

pi 

WAUXT 

UDECAY 

pi 

Thrust  decay  propellant  weight 

/WTCALC/( 

18  ) 

PRINTW 

I 

WDECAY 

STORE 

pi 

WOECAY 

WTSCH 

pi 

WGECAY 

WFROST 

pi 

Frost  and  Ice  wel ght 

/ WT  CALC/( 

33) 

PRINTW 

I 

WFROST 

STORE 

pi 

wfrost 

WTSCH 

n 

WFROST 

UFULOS 

pi 

Vented  fuel 

/WT  CALC/C 

*f  H ) 

PRINTW 

I 

WFULOS 

. — _ 

_ „ 

STORE 

pi 

UFULOS 

* 

*' 

WTSCH " 

pi 

UFULOS 

30  OCT  72  G.01-H6 


HU*  1 R AM 
^VnftOL 


H A ! H 
jV HBOL 


CODE 


DESCRIPTION 


S T OR  ASE  SUBROUTINE  USAGE 

BLOCK  LOG  SU*h  COOt  VAR 


WFURES 

n 

Fut  | re»ff»t 

/WTCAlC/( 

9 7 ) 

PRINTW 

I 

WF  Llfi  6 S 

STORE 

n 

WFURES 

T AflPEfi 

I 

WF  UR  ES 

WTSCH 

pi 

WFURES 

UFUTRP 

PI 

Trapped  fuel  eel ght 

/WTCALC/( 

52  ) 

PRINTW 

I 

WF  UT  R P 

STORE 

m 

UFUTRP 

WTSCH 

pi 

UFUTRP 

WGASPR 

n 

Weight  of  gas  and  pressurant 

/WTCALC/i 

53  ) 

PRINTW 

I 

WGASPR 

STORE 

pi 

WGASPR 

WTSCH 

pi 

WGASPR 

UGROSS 

pi 

Gr  o s s lift-off  ae 1 ght 

/ C I NP  UT / ( 

392  ) 

PRINTW 

I 

WGROSS 

PRWTSfl 

I 

UGROSS 

SOLVE 

pi 

WGROSS 

STORE 

n 

UGROSS 

TAMPER 

I 

WGROSS 

WTSCH 

n 

WGROSS 

WT  VOL 

I 

WGROSS 

ujet 

0 

Jettison  aefght  1.  Ignition  to 

lift-off  2. 

Not 

/ WT  CALC/( 

62  > 

PR  I T V A 

I 

WJET 

used  3.  Jettison  during  ascent 

M.  In-orbit 

PfiWTSPI 

n 

WJET 

jettison  at.  5.  Pre-entry  jettison  at.  6. 

Fly- 

STORE 

0 

WJET 

back  jettison  at. 

TAMPER 

i 

WJET 

WTSCH 

m 

WJET 

UOXLOS 

pi 

Vented  o * i dl zer 

/UTCALC/( 

88  ) 

PRINTW 

1 

WOXLOS 

STORE 

n 

UOXLOS 

WTSCH 

n 

WOXLOS 

UI0XRE5 

n 

Oxi di zer  reserve 

/ WT  CALC/( 

89  ) 

PRINTW 

i 

WQXRES 

STORE 

p) 

W0XRE5 

T AflPER 

1 

WQXRES 

WTSCH 

p) 

WQXRES 

UOXTRP 

« 

Trapped  oxldlz»r  aelght 

/ WT  CALC/( 

99  ) 

PRINTW 

1 

WQXTRP 

STORE 

pi 

UQXTRP 

WTSCH 

pi 

WQXTRP 

UIPOWFO 

n 

Poser  systea  propellant  at. 

/ WT  CALC/ C 

101  ) 

PRINTW 

1 

WPQWFO 

STORE 

pi 

WPOWFO 

WTSCH 

pi 

WPQWFO 

wpours 

n 

Poser  systea  propellant  reserve 

/ WT  C ALC / ( 

102) 

PRINTW 

I 

UPOWRS 

STORE 

pi 

UPQURS 

WTSCH 

pi 

WPQWRS 

WSRTRP 

pi 

Trapped  oxidizer  aelght 

/ WT  CALC/ ( 

119) 

PRINTW 

I 

USRTRP 

STORE 

pi 

WSRTRP 

WTSCH 

pi 

WSRTRP 

WWAIT 

pi 

Suaaary  aeights  I.  Ignition  2. 

Take-off  3. 

/WTCALC/< 

122) 

PRITVA 

1 

WWAIT 

Burnout  9.  Initial  orbiter  5. 

Initial  entry 

6. 

PRWTSfn 

1 

WWA1T 

Initial  flyback  7.  Landing 

STORE 

pi 

WWAIT 

T AmPER 

1 

WWAIT 

WTSCH 

pi 

WWAIT 
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SI  ORE 


SUBROUTINE  STORE 


SYNTHESIS  CONTROL  SUBROUTINE  FOR  TUO-STASE  VEHICLES 
REAL  KIN 

REAL  ISP,X,LF,*R,NCREU,LBOOf,NPASS 

REAL  NEN&S 

COflnON/CINPUT/ 


9.' 

1ANENGS 

, ANT  ANK 

, ASRATO 

ASUEEP 

,CC  300  ) 

, CBBOOY 

,CFUEL<  6), 

CINPUT 

10. 

2CHB0DV 

, CLBODY 

, CSBOOY 

,CSFAIfi 

, CSFUTX 

, CSHORZ 

, C50  XT  X , 

CINPUT 

11. 

3CSPLAN 

, CS VERT 

, CSU1  NG 

,CTHRST 

, CT  HST2 

, OEF( 5 ) 

FXUOVS  , 

CINPUT 

12. 

HISPt  6) 

, I TPS 

,X(  30) 

,«1N 

* LF 

MR  ( 6 ) 

NCREU 

CINPUT 

13. 

5NENGS 

, NLISTO 

, NP ASS 

, nul 

, P CHAM 

,0 

, RHOF  U 

Cl  NP  UT 

1H. 

6RH0FU2 

,RHOX 

, RH0X2 

, SBODV 

,t0l 

, TOVERC 

, TPR ATO  , 

CINPUT 

15. 

7TYTAIL 

.VBOOY 

. UGROSS 

CINPUT 

16. 

COMMON/ VO L CAL/ BBQOY . CROOT 

, CSP AN 

,CT  IP 

,gal 

, GSP AN 

VCLCAL 

17. 

2HB0DY 

, LBOOY 

, RTOD 

,sfair 

,SFUTX 

, SHORZ 

SO  XT  X 

VOLCAL 

18. 

3SPLAN 

,STPS( 1 > 

, S VERT 

, Suing 

,SXPOS 

, T DEL 

, TROOT 

VOLCAL 

19. 

HTTOT 

,TT0T2 

,TTOTAL 

, VBOOY  A 

, VB00Y1 

, VB00Y2 

YCARGO  , 

VOLCAL 

20. 

5VCREU 

, VFUTX 

, VFUTX2 

,vinstx 

, VLSBAY 

, VOTHER 

, VO  XT  X 

VOLCAL 

21. 

6V0XTX2 

. VPROP 

, VSTRUC 

VOLCAL 

22. 

COnnON/UTCALC/ 

ABFSYS 

, UABFTX 

,UABFU 

, UABPR 

UACRES  , 

UTCALC 

23. 

1NACS 

, uacsfo 

, UACSTK 

,UAERO 

, UAUXT 

UB  AS  I C 

, UBOOY 

UT  CALC 

2H. 

2UBPUMP 

UCARGO 

,UCQ«« 

,UC0NT 

, uCO VER 

, UDECAV 

, UO I ST  1 , 

UTCALC 

25. 

3UOIST2 

, UDOCK 

, HDPLQ Y 

,UORANS 

UQRV 

,UELCAO 

, UEMPTY  , 

UTCALC 

26. 

HtiENGNT 

, UENGS 

, UENGS2 

, UF  AIR 

,uFCQNT 

UFDCAY 

WFR05T  , 

UTCALC 

27. 

5UFU2(3> 

, UFUELt  6 

, UFUL 

,UFULOS 

, UFUNCT 

UFUO  X 

WF  URES  , 

UTCALC 

28. 

6UFUSYS 

, UFUTX 

, WF UTK2 

,UFUTOT 

, UFUTRP 

UGASPR 

UGNA V , 

UTCALC 

29. 

7WH0RZ 

, UHYCAD 

, HI NFUT 

>INQXT 

ul NST  X 

UI  NST 

, UI NS  UL  , 

UTCALC 

30. 

8UJET( 6 ) 

ULANCH 

,UL6 

,ULOSS 

,ULfiO 

UNACEL 

, MODCAV  , 

UTCALC 

31. 

9U0IL 

UO I LRS 

, UOfiSUL 

,U0 VERS 

,UQX(  6) 

,W0X2(  3) 

,UOXIO 

UTCALC 

32. 

1U0XL0S 

, UOXRES 

, WOXSYS 

,UQxTX 

UQ  XT  1(2 

UO  XTOT 

UOXTRP  , 

UTCALC 

33. 

2 HP 

UP  ASS 

, UP AYL 

, UPERS 

ttPOUCO 

UPOUER 

, UPOUFQ  , 

UTCALC 

3H. 

3UP0URS 

, UPOWTK 

, UPPRO V 

,UPREIG 

UPROP 

UPRSYS 

, UREFUL  , 

UTCALC 

35. 

HbJRESI  0 

, URESRV 

USE  AL 

,USECST 

, USORCE 

USRTRP 

UST  AB 

UTCALC 

36. 

5USURF 

, UT  ABC 

, UTHRST 

,U70 

, UTPS 

UVERT 

, UUAl T< 10  ), 

UTCALC 

37. 

6UUET 

, UU1 NG 

, UZROFU 

, UABTRP 

, UABRES 

UMNO  T P 

UMNFTP  , 

CKOUT 

38. 

7UMN0RS 

UMNFRS 

UACOTP 

, UACFTP 

, UPUOTP 

UPUFTP 

USAS 

CXOUT 

39. 

8UABFUC 

WACORS 

, UACFRS 

,UPU0RS 

UPUFRS 

CXOUT 

DIMENSION  SKO( 30 ) SCO(  300  ),TOhC  6 ),  t62G(  10  ), T027(  6 >, T03HI  6 >, 

1  T0H8(  10  >,T0M9<  1 0 ),  T05G(  10  ),  T05  7<  6 >,  QUSAVEl  10) 

COMMON/ORBINX/ 

1 T01,TO2,TO3,TOH,TO5,TO6.TO7,TO8,TO9,TO1G,TO11,TO12.TO13.TO1H, 

2 T015,TOl6,Tul7,TQ18,T019,T02GTG21, 1022, 1023,1029, 1025,1026,1027, 

3 1028, 1029, 1030, 1031, 1032, T033,T034,T035T036, 1037, T038,T039, TO 40, 
H TOHl,TOH2,T0H3,T0HH,T0H5,T0H6,T0H7,TOH8,TOH9,T050,T05t,TO52,TO53, 
5 TOSH,  T055.T056, T057,T066.$K0,SC0,uUSAVE 

6,TO59,TO6O,tO61,TO62,TOfc3,TO6H,TOfcS,TQ67,TO60,TO69,TO7O,TO71, 

7 T072,T073,T07H,T075,T076,T077,T07e,T079,T080,T081,T062,T083, 

8TQ8H 

DIMENSION  SKB<  30  ) SCB<  300  ),TBH(  6 ) , T B2CC 1 0 ), TB27(  6 ), T63HC 6 ), 

1 TBH8(  10),TBH900),TB50(  10),TB57(  6>,BNSAVE<  10  ) 

COMDON/ORBINV/ 

1 TB1,TB2,TB3,TBH,TB5,TB6,TB7,TB8,TB9,TB10,TB11,TB12,TB13,TB1H, 

2 TB15,TB16,TB17,TB10,TB19,TB2C,T421, 1822,1823, 1 B2H, 1B25, IB26,TB27, 

3 1828,1829,1830, 1831,1832, T833, TB3H,  T835,  T936,  I B3 7,  TB38,  TB3  9, TBHO, 
H TB41,TBH2,TBH3,TBHH,TBh5,TBH6,TBh7,T8H8,TBH9,TB50,TB51,TBS2,TB53, 
5 TB54, TB55, TB56,TB57,SXB. 5CB,BUSA¥E 

6,TB59,TB60.TB61,TB62,TB63.TB6H,TB65,TB66TB67,TB68,TB69,TB70, 

7fB71,TB72,TB73,fB7H,tB75,TB76,tB77,tB7a,TB79,TB80,TBBl,t8B2, 

8T  B83,TB8H 

SUIN8=CSWING 

IF< CSHOR2.GT.20.  ) C5H0fiZ=CSHORZ/5tfIN6 
YBOOVfi  = l./( VBOOY**. 666667) 

IF<  CSBOOY . GT . 20 . ) CSBOOV=CSBGDY*VBOOVR 
I F< CSPLAN.GT.20.  ) CSPLAN=C$PLAN* VBODVR 
I Ft  CS VERT . GT . 5 . ) CS VERT =CS VERT* VBODVR 
1F( CSFA1R.GT.20.  ) CSFAI R = CSFAI R/(  CSBOOY/ VB3DYR ) 

VBODVR  = SORT! VBODVR) 

I F( CBBOOY . GT . 5 . ) CBBOOV  = CBBOOY* VBODVR 
1F(  CH800Y.GT. 5.  ) CH800Y  = CHBOOV* VBOQVB 
IFC CLBOOV.GT.20.  ) CLBQOY=CLBQDY  • VBOOYR 
RETURN 
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76. 

C 

ORBITER  DATA  STORAGE 

77. 

C« 

78. 

ENTRY  ORBSTO 

7 9. 

T02  = CBBODY 

80. 

00  20  I = 1.6 

81  . 

20 

T09(  I ) = CFUEL<  I ) 

82. 

T 05  = CHBODY 

83. 

T06  = CLBODY 

89. 

TOT  = CSBODY 

85. 

T010  = CSFAIR 

86. 

T011  = CSFUTK 

87. 

TO  1 2 = csoxtk 

80. 

TO  13  = CSHORZ 

89. 

TO  1 5 = CSPLAN 

90. 

T016  = CSYERT 

91. 

T01T  = CSM1NG 

92. 

T018  = CTHRST 

93. 

T019  = CTMST2 

99. 

00  29  I = 1.6 
T027( I ) = 1SP<  D 

95. 

29 

96. 

DO  26  I = 1.6 
T039(  I > = J) 

97. 

26 

98. 

7035  = NCREN 

99. 

T036  = NENGS 

100. 

T036  = NP  ASS 

101  . 

T09 1 = RHOFO 

102. 

T092  = RM0FU2 

103. 

T093  = RMOX 

109. 

T099  = RM0X2 

105. 

T095  = SUING 

106. 

T097  = TOVERC 

107. 

T05 1 = YBOOY 

108. 

T052  = YFUTK 

109. 

T053  = YFUTX2 

110. 

T059  = YOXTK 

Ill- 

TO  55  = Y0XTX2 

112. 

T056  = USROSS 

113. 

00  30  1 = 1.30 
SKO(  I >=  KU) 

119. 

30 

115. 

DO  50  I = 1.300 
SCO(  I )=  C(I) 

116. 

50 

117. 

T059  = LF 

118. 

TO  60=TPRAT0 

119. 

T061=ASRAT0 

120. 

T062=FXU0¥S 

121. 

T063-NWL 

122. 

T069=ITP$ 

123. 

T065=PCHAN 

129. 

T066=ANEN6S 

125. 

T067=ANT  ANK 

126. 

T068=TVTAIL 

127. 

T069=NLI$T0 

128. 

T07G=ASW£EP 

129. 

T071=UFROST 

130. 

T072=UFUTRP 

131. 

TO  73=W0XTRP 

132. 

T079=U5RTRP 

133. 

T075=UDECAY 

139. 

T076=UFURES 

135. 

TOTTsUOXRES 

0 

136. 

T078=UACSFO 

137. 

T079=UF0L0S 

138. 

T080=WOXLOS 

139. 

T08UUP0UF0 

190. 

T082-UGASPR 

191. 

T083-UACRES 

192. 

T089=UP0UR5 

193. 

00  999  1=1,10 

199. 

999 

OUSAVEt I )=UUAIT( 1 ) 

195. 

RETURN 

196. 

c« 

► * *•< 

197. 

c 

BOOSTER  DATA  ST0RA6E 

198. 

c« 

199. 

ENTRY  BOOSTO 

150. 

TB2  = CBBODY 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

5TORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 
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151 . 

DO  60  I s 

STORE 

152. 

60  TBK  I ) = CFUEU  I 1 

STORE 

153. 

T85  = CHBOOV 

STORE 

151. 

T 86  = CLBOOY 

STORE 

155. 

TB7  = CSBODY 

STORE 

156. 

TB10  = CSFAIR 

STORE 

157. 

TB1 1 = CSFUTK 

STORE 

158. 

TB12  = C$0  XT  K 

STORE 

159. 

TB13  = CSHORZ 

STORE 

160. 

TB15  = CSPLAN 

STORE 

161  . 

TB16  = CS VERT 

STORE 

162. 

TB17  = CSUING 

STORE 

163. 

TB1B  = CTHRST 

STORE 

161. 

TB19  = CTHST2 

STORE 

165. 

DO  61  I = 1,6 

STORE 

166. 

61  TB27( I ) = I SP( I > 

STORE 

167. 

DO  66  I = 1,6 

STORE 

168. 

66  TB3K  I ) = *fl<  I ) 

STORE 

169. 

TB35  = WCREM 

STORE 

1 70. 

TB36  = NENGS 

STORE 

171  . 

TB38  = NPA5S 

STORE 

172. 

TB1 1 = RHOFU 

STORE 

173. 

TB12  = RM0FU2 

STORE 

1 71. 

TB13  = RHOX 

STORE 

175. 

TB11  = RH0X2 

STORE 

176. 

TB95  = SUING 

STORE 

177. 

TB17  = TOVERC 

STORE 

178. 

TB51  = VBOOY 

STORE 

179. 

TB52  = VFUTX 

STORE 

180. 

TB53  = VFUTK2 

STORE 

161  . 

TB51  = VOXTK 

STORE 

102. 

TB55  = V0XTK2 

STORE 

183. 

TB56  = WGROSS 

STORE 

181. 

DO  80  I = 1,  30 

STORE 

185. 

80  SKB( I ) = K(  1 ) 

STORE 

186. 

DO  100  I = 1,  300 

STORE 

187. 

100  SCB(I)  = CCII 

STORE 

188. 

TB59  = LF 

STORE 

189. 

TB60=TPRATO 

STORE 

190. 

TB6I=A5RAT0 

STORE 

191  . 

TB62-FXU0VS 

STORE 

192. 

TB63=NUL 

STORE 

193. 

TB61=ITPS 

STORE 

191. 

TB65=PCMAN 

STORE 

195. 

TB66-ANENGS 

STORE 

196. 

TB67=ANTANX 

STORE 

197. 

TB60=TYTAIL 

STORE 

198. 

TB69=NLI STO 

STORE 

199. 

TB70=ASUEEP 

STORE 

200. 

TB71=UFR05T 

STORE 

201. 

TB72=UFUTRP 

STORE 

202. 

TB73=UOXTRP 

STORE 

203. 

7B79=USRTRP 

STORE 

201. 

TB75=UOECAY 

STORE 

205. 

TB76-UFURES 

STORE 

206. 

TB77=MOXRE$ 

STORE 

207. 

TB78=UACSFO 

STORE 

208. 

TB79=UFUL0S 

STORE 

209. 

TB60-WOXtOS 

store 

210. 

TB81 =UPOUFO 

STORE 

211  . 

TB82=U6ASPR 

STORE 

212. 

TB03-UACRES 

STORE 

213. 

TB01=UPOUR5 

STORE 

211. 

DO  997  1=1,10 

STORE 

215. 

99 T BUSAVEt I ) = UUAIT( I ) 

STORE 

216. 

RETURN 

STORE 

217 

218. 

C 

ARBITER  DATA  RETRE1VAL 

STORE 

219. 

c« 

220. 

ENTRY  ORBCAL 

STORE 

221. 

CBBOOY  = T02 

STORE 

222. 

00  2001  = 1,6 

STORE 

223. 

200  CFUEU  I > = T09(  1 ) 

STORE 

221. 

CHBODY  = T05 

STORE 

225. 

CLBODY  = T06 

STORE 
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226. 

CSBOOY  = T07 

STORE 

227  . 

CSFAIR  = TOIO 

STORE 

228. 

CSFUTH  » T011 

STORE 

229. 

CSOXTK  = TO  12 

STORE 

230. 

CSHQRZ  = T013 

STORE 

231. 

CSPLAN  = TO  1 5 

STORE 

232. 

CSYERT  * TO  1 6 

STORE 

233. 

C5UING  = TO  1 7 

STORE 

239. 

CTHRST  = TO  16 

STORE 

235  . 

CTHST2  = T019 

STORE 

236  . 

DO  2091  = 1.6 

STORE 

237  . 

209 

I SP(  I ) = T027(  1 ) 

STORE 

238. 

00  2061  = 1,6 

STORE 

239  . 

206 

ARC 1 ) = TO 39( I ) 

STORE 

290. 

NCREU  = TO  35 

STORE 

291  . 

NENGS  = T036 

STORE 

292. 

NP  ASS  = T038 

STORE 

293  . 

RHOFU  = TO  9 1 

STORE 

299  . 

RH0FU2  = T092 

STORE 

295  . 

RHO  X = T093 

STORE 

296. 

RH0X2  = T099 

STORE 

297  . 

SUING  = T095 

STORE 

298  . 

TOVERC  = T097 

STORE 

299. 

VBOOY  = T05 1 

STORE 

i250 . 

VFUTK  = 0. 

STORE 

251. 

YFUTX2  = T053 

STORE 

252. 

YOXT*  - 0. 

STORE 

253. 

YOXT *2  = 7055 

STORE 

259. 

UGROSS  = T056 

STORE 

255. 

DO  230  I = 1,30 

STORE 

256. 

230 

Ml)-  SKQ<  I ) 

STORE 

257  . 

DO  260  1 = 1,300 

STORE 

258. 

260 

C(  I ) = SCO< I ) 

STORE 

259. 

LF  = T059 

STORE 

260. 

TPR AT0-T060 

STORE 

261. 

ASRAT0-T061 

STORE 

262. 

FXU0YS-T062 

STORE 

263. 

NUL=T063 

STORE 

269. 

I TPS  = T069 

STORE 

265. 

PCHA*=T065 

STORE 

266. 

ANENGS=T066 

STORE 

267. 

ANTAN*  =T067 

STORE 

268. 

TYTAlL=T068 

STORE 

269. 

NLIST0=T069 

STORE 

270. 

A$UEEP=T070 

STORE 

271  . 

UFR0ST=T071 

STORE 

2 72. 

UFU7RP=7072 

STORE 

273. 

W0XTRP-T073 

STORE 

279. 

USRTRP=T079 

STORE 

275. 

U06CAY=T075 

STORE 

276. 

UFURES=TO  74 

STORE 

277. 

U0XRES=T077 

STORE 

278  . 

HAC5F0-TO78 

STORE 

279. 

UFUL0S=TO79 

STORE 

280. 

U0XL0S=T0£0 

STORE 

281  . 

UP0UF0=T081 

STORE 

282. 

USASPR=T082 

STORE 

283. 

UACRES=T083 

STORE 

289. 

UP0URS-T089 

STORE 

285  . 

00  996  fat  10 

STORE 

286. 

996 

UUA1TC 1 )=OUS A VEC  I ) 

STORE 

287. 

RETURN 

STORE 

288. 

ENTRY  BOOCAL 

STORE 

289  . 

C< 

290. 

C 

BOOSTER  OATA  RETRE I VAL 

STORE 

291  . 

2 92. 

CB600Y  - T 82 

STORE 

293. 

DO  3001  = 1,6 

STORE 

299. 

300 

CFUELC I ) = TB9( I ) 

STORE 

295. 

CHBOOY  = TBS 

STORE 

296. 

CLBODY  = TB6 

STORE 

297  . 

CSBOOY  = TB7 

STORE 

298. 

CSFAIR  = TB10 

STORE 

299. 

CSFUT*  = TBI1 

STORE 

300. 

CSOXT*  = TB12 

STORE 
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301 . 

CSMORZ  = TB13 

STORE 

302  . 

CSPLAN  = TB15 

STORE 

303 . 

CS VERT  = TB16 

STORE 

30*1. 

CSyiNfi  = TBIT 

STORE 

305  . 

CTHRST  = TB18 

STORE 

306. 

CTMST2  = TB1 9 

STORE 

307  . 

DO  3091  = 1.6 

STORE 

308. 

309  I$P< I ) = TB2TI I ) 

STORE 

309. 

DO  3061  = 1.6 

STORE 

310. 

306  «R< I ) = T B39< 1 1 

STORE 

311  . 

NCREN  = TB35 

STORE 

312. 

NENGS  = TB36 

STORE 

313. 

NPA55  = TB36 

STORE 

319. 

RHOFU  = TB91 

STORE 

315. 

RH0FU2  = TB92 

STORE 

316. 

RHOX  = TB93 

STORE 

317. 

RH0X2  = TB99 

STORE 

318. 

SUIN6  = TB95 

STORE 

319. 

TOVERC  = TB97 

STORE 

320. 

VBODV  = TB51 

STORE 

321  . 

VFOT  K = 0. 

STORE 

322. 

VFUTK2  = TB53 

STORE 

323. 

VOXTK  = 0. 

STORE 

329. 

V0XTK2  = TB55 

STORE 

325  . 

00  900  I = 1.30 

5T0RE 

326. 

900  K(  1 ) = SKB<  1 ) 

STORE 

327  . 

DO  950  I - 1,300 

STORE 

328. 

950  C<  1 ) = 5CB<  I ) 

STORE 

329. 

LF  = TB59 

STORE 

330. 

TPRAT0=TB60 

STORE 

331  . 

ASR ATO ~T  B6 1 

STORE 

332. 

FXU0VS=TB62 

STORE 

333  . 

MWL=TB63 

STORE 

339. 

ITPS=TB69 

STORE 

335. 

PCHA*=TB65 

STORE 

336. 

ANENGS=TB66 

STORE 

337. 

AMTAMK  = TB6  7 

STORE 

338. 

TVTAIL=TB68 

STORE 

339. 

NLIST0-TB69 

STORE 

390. 

ASyEEP=TB70 

STORE 

391  . 

WFROST  = TB71 

STORE 

392. 

UFUTRP=TB72 

STORE 

393. 

M0XTRP=TB73 

STORE 

399. 

y5RTRP=TB79 

STORE 

395. 

WDECAV=T  675 

STORE 

396. 

yFURES=TB76 

STORE 

397  . 

yOXRES=TB77 

STORE 

398. 

yAC5FO=TB78 

STORE 

399. 

yFUL0S=TB79 

5T0RE 

350. 

WOXL05=TB80 

STORE 

351  . 

ypoypo=TB8i 

STORE 

352. 

yGASPR=T  B82 

STORE 

353. 

^CRE5=7SS3 

STORE 

359. 

yP0yRS=TB89 

STORE 

355. 

DO  995  1=1,10 

STORE 

356. 

995  yyAIT(  1 ) = By$AVE< I ) 

STORE 

357  . 

I F( T81 8 . EQ  0 . AND.SCBC  129  l.EO.O.  ) C(129)  = TTOT  * NENGS 

STORE 

358. 

IF( SCB(  153  l.EQ.O.  ) C(159)  = MAUXT  * $CB(  263  > 

STORE 

359. 

C(  105  )=yGROSS 

STORE 

360. 

UGROSS  = TB56 

STORE 

361 . 

yJET(3)=C<  1 05  )*C<  761 

STORE 

362. 

RETURN 

STORE 

363. 

END 

STORE 
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SUBR0UTINE 

SUM0UT 


FORTRAN 

SVHBOL 


HATH 

SVHBOL 


CODE 


DESCRIPTION 


BTTOT 

FRANK 

IFIRE 

OTTOT 

SBOOVB 

SBOOVO 

SOB 


SE 


SPLANB 

SPLANO 

SPSLN 

SP  VAN 
SO 


suhout 


i 


w 


y 

i 


i 

i 

i 


I 


i 

i 

u 

y 

h 


E 


Tatal  booittr  tiijht  f loi 


Total  ascent  propellant  weight  Including  fpr 
Integer  value  of  fire  flag 
Total  orblter  thrust 

Total  body  netted  area'  booster 

Total  body  aetteo  area'  orblter 

yorklng  naaa  for  Input  c-array  booster  scaling 
coefficients 


Arr ay  of  synthesis  iteration  propulsion  parameters 


Booster  body  planforn  area 

Orblter  body  planfora  area 

Nominal  specific  impulse-  sea  level 
Nominal  specific  Impulse-  vacuum 

A synthesis  data  array  (37,5)  that  contains  the 
flyback  data  and  some  injection  quantities 


Subroutine  to  print  summary  data  and  calculate 
thrust  for  output  purposes  only 


STORAGE 
BLOCK  LOC 

/TAHP  /(  5) 

/SUHOUT /< ♦ I 

/ SUHOUT / ( a ) 

/TAHP  /(  2) 

/SUflVN  /(  13  > 

/SUHVy  /<  26  > 

/OR  B 1 NY / ( 199) 

/ SI  ZI  NS/(  259  ) 


/SUHVH  /(  19) 

/SUnvy  /(  27  ) 

/SUHOUT  /(  * ) 

/SUHOUT /’(  * ) 

/SIZING/*  79) 


/SUHOUT/IS  ) 


SUBROUTINE  US A6E 
SUBR  CODE  VAR 


SUHOUT 

1 

BTTOT 

T AHPEfi 

I 

BTTOT 

NT  VOL 

0 

BTTOT 

SUHOUT 

w 

FRANK 

SUHOUT 

y 

IFIRE 

SUHOUT 

I 

OTTOT 

TAHPER 

I 

OTTOT 

WT  VOL 

H 

OTTOT 

SUHOUT 

I 

SBOOVB 

TAHPER 

0 

SBOOVB 

SUHOUT 

I 

SBOOVO 

TAHPER 

0 

SBOOYO 

flybkp 

H 

SCB 

STORE 

n 

SCB 

SUHOUT 

i 

SCB 

TAHPER 

I 

SCB 

THRUST 

H 

SCB 

VEHDF 

I 

SCB 

NTVOL 

n 

SCB 

flybkp 

0 

SE 

PR  IT VA 

i 

SE 

SIZEHR 

i 

SE 

SUHOUT 

i 

SE 

TAHPER 

n 

SE 

THRUST 

I 

SE 

VEHOF 

n 

SE 

WT5CH 

l 

SE 

MT  VOL 

h 

SE 

SUHOUT 

i 

SPLANB 

TAHPER 

0 

SPLANB 

SUHOUT 

i 

SPLANO 

TAHPER 

0 

SPLANO 

SUHOUT 

y 

SPSLN 

SUHOUT 

y 

SP  VAN 

ENVPRH 

H 

SO 

FLYBKP 

H 

so 

ISPRAT 

l 

SO 

POBC 

I 

so 

PRIT VA 

I 

so 

RANGE 

n 

so 

REU3 

0 

SO 

SIZE 

0 

so 

SIZEHR 

H 

so 

S I ZI  N 

H 

so 

STAU 

I 

so 

SUHOUT 

H 

so 

TAHPAR 

0 

so 

TAHPER 

n 

so 

THRUST 

H 

so 

TRTOSZ 

n 

so 

VEHDF 

n 

so 

NT  VOL 

n 

so 

S5SP 

s 

SUHOUT 

SUHOUT 

E 

SUHOUT 
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Fortran 

SYMBOL 


DESCRIPTION 


STORAGE 

iTTi  loT 


SUBRCOOE VAR 


sv 

1 

A synthesis  array  (28)  containing  staging 

/SIZING/! 

Ht>  ) 

ENVPRM 

l M 

sv 

part««t«n  and  alic  flags 

flybkp 

I 

sv 

ITER0 

1 

sv 

RANGE 

I 

sv 

S1ZEMR 

M 

sv 

SIZIN 

I 

sv 

SSSP 

1 

sv 

sumout 

1 

sv 

TAMP  AR 

0 

sv 

TAMPER 

M 

sv 

TRT0S2 

M 

sv 

vehof 

M 

sv 

WT  VOL 

I 

sv 

TB27 

I 

Stored  booster  value  of  isp(i) 

/0RBlNV/( 

Ml  ) 

SIZEMR 

I 

TB27 

SSSP 

I 

TB27 

STORE 

M 

TB27 

SUMOUT 

I 

TB27 

TAMPER 

I 

TB27 

VEHDF 

n 

TBZ7 

UT  VOL 

I 

TB27 

TB3N 

I 

Stored  booster  value  of  ar<  1 ) 

/0R8I  NY/( 

53  ) 

flybkp 

l 

TB3N 

ITER8 

0 

TB3N 

SSSP 

M 

TB3N 

STORE 

n 

TB3N 

SUMOUT 

i 

TB3N 

TAMPER 

i 

TB3N 

VEHOF 

i 

T83N 

yivoL 

M 

TB3N 

TB36 

I 

/QRBlNY/( 

60) 

STORE 

M 

TB36 

SUMOUT 

I 

TB36 

TAMPER 

I 

TB36 

THRUST 

I 

TB36 

yT  VOL 

1 

TB36 

TBN5 

I 

/OR  B I NV / ( 

69  ) 

STORE 

M 

TBN5 

SUMOUT 

1 

TBN5 

TAMPER 

1 

TBN5 

T027 

I 

Stored  arbiter  value  of  isp(i) 

/OfiBI NX/l 

HI  ) 

S1ZEMB 

I 

T027 

SSSP 

1 

T027 

STORE 

M 

T027 

SUMOUT 

I 

7027 

VEHDF 

M 

T027 

UT  V n L 

l 

T027 

T036 

I 

Stored  orbiter  value  of  nengs 

/0RBlNX/( 

60  ) 

STORE 

M 

T036 

SUMO  UT 

I 

T036 

TAMPER 

I 

T036 

THRUST 

1 

T036 

UT  VOL 

1 

T036 

TONS 

( 

Stored  orbiter  value  of  aalng 

/0R8INX/( 

69  ) 

STORE 

n 

TONS 

SUMOUT 

1 

TONS 

TAMPER 

I 

TONS 

TSLN 

y 

Noainal  sea  level  thrust  for  output 

/SUMOUT /(  * 

) 

SUMOUT 

y 

TSLN 

TSLNB 

u 

Noatnal  sea  level  thrust  for  output  booster 

/SUMOUT  /(  * 

) 

SUMOUT 

y 

TSLNB 

TSLNO 

y 

Noainal  sea  level  thrust  for  output  orbiter 

/SUMOUT/t * 

) 

SUMOUT 

y 

TSLNO 

T VAN 

y 

Noainal  vac.  T hr u s t -o ut p u t (vehicle) 

/ S UMO  UT  / ( * 

) 

SUMOUT 

u 

T V AN 

T VANB 

u 

Noainal  vac.  Thrust-output  (booster) 

/simouT/(  ♦ 

> 

SUMOUT 

y 

TVANB 

T VANO 

y 

Noainal  vac.  Thrust-output  (orbiter) 

/SunouT/( * 

) 

SUMOUT 

y 

T VANO 

TtfORB 

y 

Orbiter  t hr ust- to-»e 1 ght  ratio 

/sunouT /( * 

) 

SUMOUT 

y 

TNORB 

VBOOYB 

i 

Booster  body  voluae 

/sunvy  /( 

10  ) 

SUMOUT 

l 

VBOOYB 

TAMPER 

0 

VBOOYB 

VBODVO 

i 

Orbiter  body  voluae 

/sumvn  /( 

29) 

SUMOUT 

i 

VBQOYO 

TAMPER 

0 

VBOOYO 

VCARO- — — — - 

1 

Vo  1 uee-of  csr  go. — . „ 

/sunvy  /t 

22  ) 

SUMOUT 

1 

VCARO 

* 

~~  — - — “ 

~~ — — 

TAMPER- 

0 

VCARO- 
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VFUTKB 

VFUTKO 

VOTHB 

VOTHO 

VOXTKB 

VOXTKO 

vpropb 

VPROPO 

WABFUB 

WABFUO 

WBPTX 

WCONTB 

WCONTO 

WODTft 

WQRYB 


wentrb 

UENTRO 

WFUOXB 

WFUOXO 

UGROSB 

UGROSO 


UiLANDB 

WLANDO 

MOP 

WOPT 

UOPTX 

WORBTO 

MOT  MB 

MQ  T HO 

UOVRSB 


l 

Total  voluae  of  fuel  tank  - booster 

/SUAVW  /( 

7)  SUMOUT  1 
TAMPER  0 

VFUTKB 

VFUTKB 

I 

Total  volune  of  fual  tank  - orbitar 

/sumvw  /< 

20)  SUMOUT  I 
TAMPER  0 

VFUTKO 

VFUTKO 

I 

/5UMVW  /< 

9)  SUMOUT  1 
TAMPER  0 

VOTHB 

VOTHB 

I 

/sumvw  ✓( 

23)  SUMOUT  1 
TAMPER  0 

VOTHO 

VOTHO 

I 

Booster  oxidizer  tank  vo  June 

/SUftVW  /( 

8)  SUMOUT  I 
TAMPER  0 

VOXTKB 

VOXTKB 

I 

Or  biter  oxidizer  tank  vo lune 

/sumvw  /( 

21)  SUMOUT  I 
TAMPER  0 

VOXTRO 

VOXTKO 

u 

Volune  of  propulsion  bay  - booster 

/5UM0UT/<* 

) sumout  w 

VPROPB 

w 

Voluoe  of  propulsion  bay  - orbitar 

/SUM0UT/<  * 

) sumout  y 

VPROPO 

I 

Booster  flyback  fuel  required 

/sumvw  /< 

2)  SUMOUT  1 
TAMPER  M 

WABFUB 

WABFUB 

i 

Orbitar  flyback  fuel  required 

/sumvw  /< 

19)  SUMOUT  I 
TAMPER  M 

WABFUO 

WABFUO 

y 

Ascent  propellant  eeight  - booster 

/SUM0UT/( * 

) SUMOUT  y 

HBPTX 

I 

Contingency  and  grooth  oe I ght-bo o s tr 

/sumvw  /< 

36)  SUMOUT  I 
TAMPER  0 

WCONTB 

WCONTB 

I 

Contingency  and  grooth  oe 1 ght-or b i tr 

/sumvw  /( 

37)  SUMOUT  I 
TAMPER  0 

WCONTO 

WC0NT0 

w 

ftoelnel  oeight  floo 

/SUMOUT// * 

) SUMOUT  M 

WOO  T ft 

I 

Stage  dry  oeight  - booster 

/sumvw  n 

4>  SUMOUT  1 
TAMPER  0 

MDfWB 

WDRYB 

I 

Stage  dry  oeight  -orbitar 

/SUMVW  /( 

17)  SUMOUT  I 
TAMPER  0 

UORVO 

WDRVO 

I 

Booster  entry  oeight 

/sumvw  n 

34)  SUMOUT  1 
TAMPER  0 

WENTRB 

WENTRB 

I 

Orbitar  entry  oe I ght 

/sumvw  /( 

33)  SUMOUT  I 
TAMPER  0 

WENTRO 

WENTRO 

l 

Propellant  ot . Less  fpr  -booster 

/Sumvw  /( 

3)  SUMOUT  I 

tamper  m 

WFUOXB 

WFUOXB 

I 

Propellant  ot.  Less  fpr  -orbitar 

/TAMP  /( 

2)  SUMOUT  I 
TAMPER  1 
WT  VOL  W 

aFUOXO 
WFUO xo 
WFUOXO 

I 

Booster  gross  oeight 

/Sumvw  /( 

5)  SUMOUT  1 
TAMPER  ft 

W6R0SB 

W6R0SB 

I 

Orbitar  gross  oel ght 

/TAMP  /< 

1 ) SSSP  I 
SUMOUT  1 
WTVOL  M 

W6R0S0 

W6R0S0 

W6ROSO 

I 

Landing  «e 1 ght  - booster 

/sumvw  /( 

35)  SUMOUT  1 
TAMPER  0 

WLANOB 

WLANOB 

1 

Landing  oeight  - orbitar 

/sumvw  /( 

3b  1 SUMOUT  I 
TAMPER  0 

ulanoo 

ulanoo 

I 

Orbit  Maneuvering  propellant  oeight 

/sumvw  /( 

1 ) SUMOUT  I 
TAMPER  0 

WOP 

WOP 

y 

Total  ascent  propellant  oeight 

/sumout  m* 

> sumout  y 

WOPT 

y 

Ascent  propellant  for  orblter  including  fpr 

/SUMOUT /< ♦ 

) sumout  y 

WOPTX 

I 

In-orbit  peight  - orbitar 

/sumvw  /( 

29)  sumout  i 

TAMPER  0 

WORBTO 

WORBTO 

1 

Wise  Weight  - booster 

/Sumvw  /i 

fc)  SUMOUT  1 
TAMPER  0 

WOTHB 

U0TH8 

i 

Wise.  Weight  - orblter 

/Sumvw  /( 

18)  SUMOUT  I 

tamper  o 

UOTHO 
WOT  HO 

I 

Booster  oi ng  loading 

/Sumvw  /< 

15  ) SUMOUT  f 
TAMPER  0 

WOVRSB 

UOVBSB 
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FORTRAN 

SYMBOL 


MATH 

Symbol 


CODE 


DESCRIPTION 


STORAGE 

WlT 


UOVRSO  I 
UPAYLO  I 

URTRNB  t 
URTRNO  I 
. UNOb . 0 


Or  b I tar  aing  loading 
Pay  load  aalgfct 

Entry  weight-  booster 
Entry  weight-  arbiter 
File  of  all  output  data 


/suwvu 

/( 

20)  SUMOUT 

I 

UOVRSO 

tamper 

0 

UOVRSO 

/SUmvu 

/< 

lb)  55 SP 

I 

UPAYLO 

SUMOUT 

I 

UPAYLO 

TAMPER 

M 

UPAYLO 

/Sumvu 

/( 

32)  SUMOUT 

I 

URTRNB 

TAMPER 

0 

URTRNB 

/sumvu 

/( 

31  ) 5UM0UT 

I 

URTRNO 

TAMPER 

0 

URTRNO 

/ . UN06 . 

/(  ft 

) BL1C0 

0 

. UNOb. 

BNDRYC 

0 

. UN06. 

CRASH 

0 

. UNQ6 . 

FRENCH 

0 

. UN06. 

FXOAT 

0 

. UNOb  • 

GE1NP 

0 

.UNOb. 

HUNT 

0 

. UNOfc . 

INEDIT 

0 

. UNOb . 

1TER0 

0 

. UN06 . 

MOOELA 

0 

. UNOb . 

MOMJ 

0 

. UNOb. 

MPSI 

0 

. UN06 . 

OUT 

0 

. UNOb. 

PAY02 

0 

. UNOb . 

PRINT 

0 

.UNOb. 

PRINTY 

0 

.UNOb. 

PRINT* 

0 

•UNOb. 

PRITEQ 

0 

.UNOb. 

PRITVA 

0 

.UNOb. 

PROPIN 

0 

.UNOb. 

PROTHR 

0 

. UNOb. 

PRUT  SM 

0 

.UNOb. 

RANGE 

0 

.UNOb. 

S 

0 

.UNOb. 

SOINP 

0 

.UNOb. 

SIZE 

0 

.UNOb. 

SIZ1N 

0 

.UNOb. 

SIZOUT 

0 

.UNOb. 

SOLVE 

0 

.UNOb. 

SPLICO 

0 

.UNOb. 

SPLIZ 

0 

.UNOb. 

SPLYNE 

0 

.UNOb. 

SSSP 

0 

.UNOb. 

STaU 

0 

.UNOb. 

STPIT 

0 

.UNOb. 

SUMOUT 

0 

.UNOb. 

TABIN 

0 

.UNOb. 

TEST 

0 

.UNOb. 

VEHOF 

0 

. UNOb. 

UTSCH 

0 

.UNOb. 

UT  VOL 

0 

.UNOb. 
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SUftOUT 


1 . 
2. 

3. 

4. 

5. 

6. 
1 . 
8. 
9. 

10. 
1 1 . 
12. 
13. 
19. 

15. 

16. 
17. 
16. 

19. 

20. 
21  . 
22. 
23. 
29, 

25. 

26. 
27. 


30. 
31  . 

32. 

33. 
39. 

35. 

36. 

37. 

38. 


90. 
91  . 

92. 

93. 
99. 

95. 

96. 

97. 

98. 


51  . 

52. 

53. 
59. 
55. 


61  . 
62. 
63. 
69. 

65. 

66. 
67. 
66. 

69. 

70. 
71  . 

72. 

73. 
79. 
75. 


SUBROUTINE  SUftOUT 


SUBROUTINE  TO  PRINT  SUftftARY  DATA 
CALCULATES  THRUST  FOR  OUTPUT  PURPOSES  ONLY 


REAL  LBODYO.LBODYB 

REAL  HUB,  ftUO,  I SPB,  ISPO,  I DYEL.NNB.NO 

conmoN  /si zing/ 

PHASE  II  SIZING  PARAnERERS 
*TZ,  VV(3), 

*S  V(  28  ) , SQ(  37  5 ) 


•UBO, 

•BK  1 , 

* OKI 
•AEXIT, 

* XPL, 
»DVO, 

* , JTYP , 

* S VDPSQ 


ULOO. 
BK2f 
0K2 . 
TVACO, 
TVACB, 
DVB, 
BECO  . 

, SVDCON 


QPt 19),  EROR, 

SEC  11  ),  TLAT, 

; PARAMETERS 

PZ(  5 ), 
TLNG, 

VC, 

SWt  20 ) 

DWEB, 

OWEO, 

tolwt. 

UPB, 

TUB  AT  2 

BK3, 

BK9, 

ISI ZE, 

TRAFLG, 

TWRATO 

0K3, 

0K9, 

PRFLG, 

IPASS, 

IPSftAX 

NO, 

UFO, 

10VEL, 

ISPO, 

I SPB, 

NNB, 

UEO, 

WEB, 

wo. 

WLO, 

ftUB, 

ftu6. 

VSt  G, 

UPO 

BSTG  , 
, I HUNT 

ORBI, 

.IOPSTG 

ITNBU  , 

. ISZDt 19  ) 

ITNOW  , 

SCO<  300  ), 
>,  T050(  10  ) 

TG9(  6 ),  T020(  10  ),  T02  7(  6 >,T039<  6 ) 
,T057< 6),0USAVEt 10  ) 

COftftON/OR&INX/ 

1 T01T02,T03,T09,T05,T06T07T08T09T010,T011T012,T013,T019 

2 TQ15fT016,Tul7,TQ18,T019T020TQ2l, 10 22, 1023, 1029, 1025,1026,1 02 7, 

3 1028, 1029, 10  30, 1031 , 1032, TO  3 3, TO  3 9 , TO  35, TO  36, 1 03 7 , TQ 38 , TO  39 , T09 0, 
9 T091,T092,T093,T099,T095,T096,T097,T098,T099,T050,T051,T052,T053, 
5 TO 5 9,  TO55,TO56.TO57  TO66,5KD,5C0,OW5AVE 

6,T059,T060,T061,T062,T063,T069/T065,T067,T068,T069,T070#T071, 

7 T072,T073,T079,T075,T076,T077#T078,T079,T080fT081,T082,T083, 

8T089 

DIMENSION  SKB( 30  ),SCB(  300  ),TB9( 6 ),TB20( 10  >,TB27(  6 ),TB39(  6 ), 

1 TB98<  10  ) .TB99(  1 0 ) , T B5 0(  1 0 > , TBS 7( 6 ),BW$AVE(  10 ) 

COMMON/ ORB  I NY / 

1 TB1 , TB2.TB3, TB9.TB5,TB6  TBT, TB8.TB9, TB10, TB1 1, TB12, TB13.TB19, 

2 TB1 5 , TB 1 6, T B 1 7 , TB 1 8, TB 1 9, TB20 , T B2 1 , 1 B22 , 1 B23, 1 B29 , 1 B25 , 1 B26, TB27, 

3 IB28, I B29, IB30, IB31 , I B32 , TB33 , TB39 ,TB35,TB36, I B3 7 , T 838 , TB3 9 , T B90, 
9 TB91 ,TB92,TB93,TB99,TB95 ,TB96,TB97 , TB9 8 , T B99 , T B50 , T B5 1 , T B52 , T B5 3, 
5 T859, TB55, TB56, TB57,5KB,$CB, BUSAVE 

6,16597860,7661,7662,7663,7869766516667667,7668,7869,1670, 

7TB71,TB72,fB73,TB79,TB75,TB76,TB77,TB78,TB79,T880,TB81,TB82, 

8TB83.T689 

CO«ftON/T ARP /UGROSO, OTTOT, UFUOXO,TBTO, BTTOT 

COMMON/ SURVU/UOP,  JJABFUB,«Fu6XB,UDRYB,UGROS8,UOTHB, 

1 VFUTKB, VOXTKB, VOTHB, VBODYB,  VABFUB, 

2 LBODYB,SBODYB, SP LANB , WO VRSB , 

1 WPAYLO, WDRYO,UOTHO,  UABFUO, 

2 YFUTKO, VOXTKO, VCARO, VOTHO. VBOOYO, 

3 LBODYO , SBODYO, SP  LANu , WO VRSO 

9 , IVOR  BTO,  WORST  B,  WRTR  NO,  UR  TRNB, WENTR0  WEMTRB, WLANOB, WLAMOO 
5 , WCONTO, WCONTB 
IFIRE  = SEC  2 ) 

SQtli,3)  - Su(i9,2>  - $6(19,1) 

FRANK  = WFUOXO  - WOP 
TUORB  = OTTOT/UGROSO 
WORVT  = WORYB  ♦ WDRVO 
WGROSV  = WGROSB  4 W6R050 
VPROPO  = VFUTKO  4 VOXTKO 
VPROPB  = VFUTKB  + VOXTKB 
30  TVANO  = 0TT0T/T036 
TVANB  = 6TT0T/TB36 
T5LN0  = TVANO  * T02 7( 2 )/T027< 3 ) 

TSLNB  = TVANB  * TB27( 2 )/TB27( 3 ) 

X = 1. 

IF( SEC  8 l.EQ.O. .OR. IFIRE. EQ.2)  X = 0. 

TVAN  = OTTOT  • X 4 BTTOT 

UDOTN  = OTTOT  • X /T027(3>  + BTTOT  / TB27(3) 

SP  VAN  = TVAN/WOOTN 

TSLN  = TSLNO  • T036  * X 4 TSLNB  ♦ TB36 
SPSLN  = TSLN/WDOTN 
t*JOPT  = FRANK  4 SQ<  37,9 ) 

WOPTX  = WFUOXO  ♦ SQ( 37,9) 

WBPTX  = WFUOXB  4 SQ< 37,5  ) 

NCOPIE  = SV( 15  )4  .1 
DO  900  1=1, NCOPIE 


SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SI  ZING 
SIZING 
SIZING 
SIZING 
SIZING 
SIZING 
SIZING 
SIZING 
SIZING 
SIZING 
SIZING 
SIZING 
SIZING 
UH 

ORBINX 

CKO  UT 

ORBINX 

ORBINX 

ORBINX 

ORBINX 

ORBINX 

CKOUT 

UH 

UH 

UH 

0R8INY 

CKOUT 

ORBINV 

ORBINY 

ORBINV 

ORBINY 

ORBINY 

UH 

UH 

UH 

UH 

SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
5 UftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
SUftOUT 
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WRITE  ( 6,1000 
WRITE  <6,1005 
WRITE  ( 6,10)0 
WRITE! 6,10)1  ) 
WRITE  <6,1012 
WRITE  < 6, 1015 
WRITE  < 6, 1020 
WRITE  < 6, 1025 
WRITE  < 6, 1022 
WRITE  < 6,1030 
WRITE  < 6,1035 
WRITE  (6,1091 
WRITE  < 6,  1 090 
WRITE  < 6,  10*15 
WRITE  < 6, 11T0 
WRITE  (6,1175 
WRITE  ( 6,1160 
WRITE  (6,1185 
WRITE  < 6, 1050 
WRITE  ( 6, 1055 
WRITE  < 6,1060 
WRITE  < 6, 1065 
WRITE  ( 6,1070 
WRITE  < 6,1075 
WRITE  ( 6,1077 
WRITE  ( 6, 1080 
WRITE  ( 6, 1085 
WRITE  ( 6, 1090 
WRITE  ( 6, 1095 
WRITE  < 6,1096 
WRITE  ( 6, 1100 
WRITE  (6,1105 
WRITE  (6,1110 
WRITE  (6,1111 
I F ( SEC  8 ) . EQ  . 0 
WRITE  (6,1112 
WRITE  (6,1113 
WRITE  (6,1115 
WRITE  (6,1120 
NO  CROSSFEED 


WFUOXB,  FRANK 

> S0<  37,5),  S0( 37,1) 

) WBP T X WCPT 

) WOP 

) WBPTX  MOPTX 
) WA8FUB  , WABFUO 
) UPAVLO 

) UDRV  B , WORYO  ,WORVT 
) WCONTB, WCONTO 
) WOTHB  WOT HO 
) WGROSB, W6R0SQ  WGROSV 
) UORBTO 

) WRTRNB, WRTRNO 
) WENTRB, WENTRO 
) WLANDB, WLAMDO 

) VFUTKB, VFUTKQ 
) VOXTKB, VOXTKO 
) VPROPB, VPROPO 
) VCARO 
) VOTMB,VOTHO 
) VBODYB, VBODYO 

> 

) LBOD YB, L80DV0 
) SBOOYB, SBOOVO 
) SP  LANB, SPLANO 
) TB95,  T0*I5 
) WOVRSB, WOVRSO 
) 

> TWORB  SV(  13) 

) TB36, T036 

. .OR.  IFIRE. EQ. 2)  GO  TO  200 
) TSLNB,  TSLNO , TSLN 
) T VANS,  TVANO,  T VAN 
) SPSLN 
) SP VAN 


116. 

200 

continue 

SUWOUT 

117. 

WRITE  (6,2112)  TSLNB,  TSLNO,  TSLN 

SUWOUT 

116. 

WRITE  (6,2113)  TVANB,  TVANO,  T VAN 

SUWOUT 

119. 

WRITE  (6,2115)  SPSLN 

SUWOUT 

120. 

WRITE  ( 6,2120)  SP VAN 

SUWOUT 

121  . 

220 

WRITE  ( 6,1125) 

SUWOUT 

122  . 

WRITE  (6,1126)  TB39C  3),SV(  6) 

SUWOUT 

123. 

WRITE! 6, 1128  ) SQ< 19, 1 ),SQ( 19,3  ),SQ< 19,2 ) 

SUWOUT 

129. 

WRITE  ( 6,1127  ) SE(  6) 

SUWOUT 

125. 

WRITE  ( 6,1130  ) SV( 12) 

SUWOUT 

126. 

WRITE  ( 6, 1135  ) 5 V ( 0 ) 

SUWOUT 

127. 

WRITE  ( 6, 1 190  ) SV<  9 ) 

SUWOUT 

128. 

WRITE  ( 6,1195  ) SV( 10) 

SUWOUT 

129. 

WRITE  ( 6,1150)  5Q(  19,9) 

SUWOUT 

130. 

WRITE  ( 6, 1155  ) Sfl< 19,5  ) 

SUWOUT 

131  . 

WRITE  ( 6,1160  ) S0( 15,3) 

SUWOUT 

132. 

WRITE  ( 6,1165  ) SQ( 15,9) 

SUWOUT 

133. 

WRITE  ( 6, 1195  ) SW< 15  ) 

SUWOUT 

139. 

C 

SUWOUT 

135. 

C 

SUWOUT 

136. 

I F( 50(20, 1 ) . LE . 0 . ) GO  TO  900 

SUWOUT 

137. 

WRITE  ( 6,  1200  ) SO ( 20,  1 ),S0( 22, 1 ),S0( 20,5  ),S0( 21,5 ),S0(21, 1 ), 

SUWOUT 

136. 

l 30(21,2)  ,SQ(  20,9),  §Q(  20,2  ),S0(  *0,  3 ),SQ(  22,2  ) 

SUWOUT 

139. 

C 

FIXED  SOLI 0 STRAPON  SYNTHESIS  OPTION  *♦»♦••*♦•*********#***♦* 

SUWOUT 

190 

C 

SUWOUT 

900  CONTINUE 

WRITE  ( 6, 1000) 

WRITE  ( 6,3000  ) SQ<  36, 1 ) 
WRITE  ( 6,3010)  SQ( 36,2) 
WRITE  ( 6,3015  > SQ( 36,3) 
WRITE  ( 6,3020  ) SQ( 36,9) 
WRITE  ( 6,3025  ) SQ( 36,5  ) 
WRITE  ( 6,3095  ) S0( 37, 1 > 
WRITE  ( 6,3096)  SOI  37,2) 
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/Xi-/ 


WRITE  (6,3050) 

1FLY  = S U ( 19.5) 

GO  TO  ( 9)0, 920, 930, 990,950 ),1FLV 


910  WRITE  ( 6,3055  ) SW(  9 ),  S0(  1 0,  2 ) 
GO  TO  960 


920  WRITE  ( 6,3060)  SV( 12) 
GO  TO  960 


930  WRITE  (6,3065)  SQ(10,3> 
GO  TO  960 


990  WRITE  (6,3070)  $W( 10  ) , S0(  12, 1 ) 
GO  TO  960 


950  WRITE  ( 6,3075  ) SV( 27  ) 
WRITE  ( 6,3080)  TLAT 
URITE( 6,3085 ) TLNG 
WRITE  ( 6,3090)  PZ(  5 ) 
WRITE  ( 6,3095  ) PZ<3> 
WRITE  ( 6,3100)  PZ(  1 ) 
WRITE  (6,3105)  PZ<2> 
WRITE  (6,3110)  PZ(  9 ) 


960  IFUL  * S0( 32,1) 

GO  TO  ( 965,970,975 ),1FUL 


965  WRITE  ( 6,3115)  SW( 15) 
WRITE  ( 6,3120)  SW( 12) 
WRITE  (6,3125)  SW(ll) 
WRITE  (6,3130)  SU(19) 
WRITE  (6,3135)  SQ(10,3) 
WRITE  (6.3190)  SQ( 32,9) 
U2  = UABFUB  - 50(32,9) 
WRITE  ( 6,3195)  W2 
WRITE  (6,3150)  WABFU8 
WRITE  (6,3155)  5CB( 219 ) 
GO  TO  980 


970  WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
GO  TO 


( 6,3160) 
( 6,3175  ) 
(6,3165) 
( 6,3180  ) 
( 6,3215  ) 
( 6,3190) 
( 6,3195  ) 
( 6,3200) 
( 6,3205  ) 
( 6,3220) 
(6,3170) 
(6,3185) 
( 6,3225  ) 
( 6,3135) 
( 6,3210) 
( 6,3150) 
( 6,3155  ) 
980 


SW(  15) 
50(32,5) 
$0(32,2) 
50(  33,1) 
SQ( 35,2  ) 
50(33,9) 
50(39,2) 
S0( 39,5  ) 
S0(  35,5) 
50(  35,3) 
50(  32,3) 
S0(  33, 2 ) 
$Q(  35,9) 
SQ< 10,3) 
50(32,9) 

wabfub 

SCB<  219) 


975  WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


( 6,3230) 
(6,3175) 
( 6,3235) 
( 6,3295  ) 
( 6,3255  ) 
( 6,3180) 
(6,3215) 
( 6,3190  ) 
(6,3195) 
( 6,3200) 
( 6,3205  ) 
( 6,3220  ) 
( 6,3290  ) 
( 6,3250) 
( 6,3260) 
( 6,3185  ) 
( 6,3225  ) 
( 6,3135  ) 
( 6,3210  ) 
( 6,3150) 
( 6,3155  ) 


SW( 15  ) 
S0( 32,5) 
S0( 33,3) 
$0(39,1) 
SQ( 39, 9 ) 
50(  33,1  ) 
50(35,2) 
50(33,9) 
50( 39, 2 ) 
50(  39,5) 
50(  35,5  ) 
SQ( 35,3) 
S0<  33, 5 ) 
SQ< 39,3) 
Sfl( 35,1) 
S0( 33,2) 
SO ( 35,9) 
S0(  10,3) 
50(32.9) 
WABFUB 
$CB(  219) 


SUrtOUT 

SUnOUT 

SUflQtJT  910  — | 920— 1930— |9S0— *950 


suflouT  r 

SUflOUT  1960- 


SU90JT  r 

SUWQDT  1 9 60- 


SU«0l)T  I 
SU90UT  1960- 


SUflOUT 
5U90UT  960- 


SU90UT 

SUAOUT 

SU90UT 

SU90UT 

SU90UT 

SU*OUT 

StMOtfT 

SUrtOOT 


SU*OUT  I 

SU90UT  965“ i970-|975- 


stmouT 

SUI9QUT 

SimOUT 

SU90UT 

suaouT 
sunouT 
suno  ut 
$u«out 

SIMOUT 
SU90UT 
SUflOUT  980- 


StmouT 

StMOUT 

SU90UT 

SU90UT 

SUnOUT 

SU90UT 

suhqut 

5U90UT 
$U*OUT 
SUMQUT 
SU90UT 
simouT 
SU90UT 
5U.90UT 
sunauT 
5U90UT 
SU*OUT 
SU«OUT  980- 


SU*OUT 

SUI90UT 

SUftOUT 

SUI90UT 

StMOUT 

SUAOUT 

SUMOUT 

simouT 

SUAOUT 

SU90UT 

SU90UT 

SiMOUT 

sunouT 

5U90UT 

SU90UT 

SIMOUT 

SIMOUT 

StMCUT 

5U9QUT 

S090UT 

SIMOUT 
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22  7 . 

1011 

FOR MAT(  32H 

PROPELLANT,  ASCENT 

LESS  FPRF12.0,  F18.0) 

228. 

1 C 1 2 

FORMAT 

( 27H 

PROPELLANT, ASCENT 

FPR,FI7.0,F18.0) 

229  . 

1015 

FOR MAT(  30H 

PROPELLANT,  ASCENT 

TOTAL  F19.0,2Fie.0) 

230. 

1020 

FORMAT 

( 36H 

PROPELLANT.  ORBIT 

MANEUVER  8X,2F18.0) 

231  . 

1C22 

FORMAT 

( 26H 

FLYBACK  FUEL 

3FI8.0  ) 

232. 

1C25 

FORMAT 

( 26H 

PROPELLANT,  TOTAL 

3F18.0  ) 

233. 

1030 

FORMAT 

< 26H 

P AY  LO  AO 

1 8 X , 2F 1 8 . 0 ) 

239. 

1035 

FORMAT ( 26H 

STRUCTURE 

3F18.0  ) 

235. 

1090 

FORMAT 

( 26N 

OTHER 

3F18.0) 

236. 

1091 

FORMAT 

< 26H 

CONTINGENCY 

3F18.0) 

237. 

1095 

FORMAT 

( 26H 

TOTAL 

3FI8.0  ) 

238. 

1050 

FORMAT 

< 1 3H0 VOLUME  ( FT3  > ) 

239. 

1055 

FORMAT 

< 26H 

FUEL  TANK 

3F18.0  ) 

290 

1060 

FORMAT 

( 26H 

OXIDIZER  TANK 

3F16.0  ) 

291  . 

1065 

FORMAT 

( 26H 

PROPELLANT  TANKS 

3F18.0  ) 

292 

1070 

FORMAT 

( 26H 

PAYLOAD 

18X2F16.0) 

293 

1075 

FORMAT 

( 26H 

OTHER 

3F18.0) 

299 

1077 

FORMAT 

( 26H 

TOTAL 

3FI8.0  ) 

295  . 

1060 

FORMAT 

( 9H  GEOMETRY) 

296. 

1085 

FORMAT 

( 26H 

LEN6TH  ( FT ) 

3F18.1  ) 

297  . 

1090 

FORMAT 

( 2 7 H 

BODY  WETTED  AREA  ( FT2  ) F 1 7 . 1 . 2F 1 8 . 1 ) 

298 

1095 

FORMAT 

< 29H 

BOO Y PLANFORM  AREA 

( FT2 ) F15. I.2FI8. I ) 

299. 

1096 

format 

( 33H 

THEORETICAL  WING  AREA  < FT2  ) F11.1.F18.1) 

250. 

1100 

FORMAT 

( 23H 

WING  LOAOING  (PSF ) 

F21. 1,F18. 1 ) 

251  . 

1105 

FORMAT 

( 1 1H 

PROPULSION) 

252. 

1110 

FORMAT 

( 26H 

THRUST-TO- WEIGHT 

18X  2F18.5  ) 

253. 

ini 

FORMAT 

( 26H 

NO.  OF  ENGINES 

2F18.0) 

221. 

222. 

223. 

22*1. 

225. 

226. 


2 5 9. 

255. 

256. 

257. 

258. 

259. 

260. 
261  . 
262. 
263. 

269. 
265  . 
266. 
267. 
266. 
269  . 

270. 
271  . 
272. 
272. 
279. 

275  . 

276 
2 77. 
278. 
2 79. 
260. 
281  . 
282  . 
283. 
269 
285  . 
26  6. 

287  . 

288 

289. 

290. 
291  . 
292. 
293  . 
299. 
295  . 


980  CONTINUE 
RETURN 

: 

1000  FORMAT<  1H1  , 25X , 3 1 HSP ACE  SHUTTLE  SYNTHESIS  SUMMARY) 
1005  FOR  WAT  C 37X, 7HB00STER1 IX, 7HQRB1TER1 U, 7HVEHICIE/ 1 
1010  FORMAT  ( 12H  WEIGHT  ( LB  ) > 


1 112  FORMAT  ( 26H 

1113  FORMAT  (26H 
1 1 15  FORMAT  ( 26H 
1120  FORMAT  ( 26H 


SL  THRUST/ENG  NON 
VAC  THRUST/EN6  NON 
SL  ISP  NON 
VAC  ISP  NON 


1125  FORMAT  C 1 1H0TR AJECTORV  ) 


2( E10. 0,8X1  F9.0) 

, 2( F10. 0, 6X ),  F9.0) 
,59X,F12, 1 ) 

5 9X , F 1 2 . 1 ) 


1126  FORMAT  ( 26H 

1127  FORMAT  ( 3 5 H 

1128  FORMAT(  3 9 H 
1130  FORMAT  { 35H 
1135  FORMAT  ( 38H 
1190  FORMAT  ( 35  H 
1195  FORMAT  ( 9 7 H 

1 F 1 8 . 3 ) 

1150  FORMAT  ( 90H 
1155  FORMAT  ( 35H 
1160  FORMAT  { 99H 
1165  FORMAT  ( 35 H 
1 170  FORMAT  ( 26H0 
11  75  FORMAT  ( 26H 
1180  FORMAT  (26H 
T 85  FORMAT  C 26M 


NASS  RATIO 


2F18.5  ) 

MAXIMUM  DYNAMIC  PRESSURE  t PSF )27X  F18.  1 ) 
CHARACTERISTIC  VELOCITY  ( FPS >3X,F7.0, 2F18.0  ) 

STA6ING  DYNAMIC  PRESSURE  ( P SF  )2 7 X , 2F 1 8 . 0 ) 

STAGING  VELOCITY  (RELATIVE)  < FP$  )29X, F 18. 0 > 

STAGING  ALTITUDE  (FT)  27X.F1B.0) 

STAGING  FLIGHT  PATH  ANGLE  (RELATIVE)  ( DEG  ) 1 5X  f 

INJECTION  VELOCITY  (INERTIAL)  ( FPS  )9X .F18 . 0 ) 
INJECTION  ALTITUDE  (FT)  9X.2F1B.Q) 

INJECTION  FLIGHT  PATH  ANGLE  (INERTIAL)  <DE6)F13.3> 
INJECTION  INCLINATION  (DEG)  9X,2F18.2> 


N ORBIT 

RETURN  CONDITION 
ENTRY 
LANDING 

1195  FORMAT  ( 26H0FLYBACK  RANGE  ( N MI  ) 

1200  FORMAT  (22HOSOLIO  AUGMENTATION 
1WT.=  F8. 0.,  2X,  10HINERT  WT.=  F8.0/ 

2 1 2X , 11HT0TAL  WT . =F9 . 0, 5X, 1 1 HE XIT 

3RE A = F6.0,5X, 11HBURN  TINE  =F5.0/ 


18X .2F18.0  ) 

2F18.0) 

2F18.0) 

2F18.0) 

F18.1  ) 

F9.0/7H  SOLIOS,2X, 15HPR0PELLANT 


{ ,F7. 0, 9H  * TIME  > 

SL  THRUST/ENG  NON 
VAC  THRUST/ENG  NON 
SL  ISP  NON 
VAC  ISP  NON 
3000  FORMAT  (39HOORAG  L05S  AT  5TA6ING 
3010  FORMAT  (39H  6RAVITY  LOSS  AT  STAGIN6 
3015  FORMAT  ( 39H  DRAG  LOSS  AT  INJECTION 


5 ENG=  F8 . 0 9H 
2112  FORMAT  ( 26H 
21  13  FORMAT  ( 26H 
2115  FORMAT  ( 26H 
2120  FORMAT  ( 26H 


12  X , 5HI SP  -F  7 2 5 X 


. 6H  V AC  THRUST/ 

1 2 X 1 5 HSL  tHRUST/ENG  = F9.0) 

, r 1 0 . 0, 8X,F10. 0,8X,F9.0 ) 
F10.0,8XF10.08XF9.0) 

. 36X, F 12 . i ) 

,36X,F12. 1 ) 

= F10.2) 

= F10.2) 

= F10.2) 

3020  FORMAT  ( 39H  GRAVITY  LOSS  AT  INJECTION  = F10.2) 

3025  FORMAT  ( 39H  MISALIGNMENT  LOSS  AT  INJECTION  = F10.2) 

3095  FORMAT  (18H  BOOSTER  BURN  TIME,15X,1H=  F7.2) 

3096  FORMAT  (18H  ORBITEfi  BURN  TIME,15X,1H=  F7.2) 

3050  FORMAT  ( 9H0FLYBACK  ) 

3055  FORMAT  ( 29H  OETAILEO  RANGE , CLV6  = E 1 6 . 7 5 X 1 2HBANK  ANGLE  = F7.2  ) 
3060  FORMAT  (27H  F( 0 STAGE).  Q AT  STAGING  - FlO.S) 


SUMOUT 

SUM0U1 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMO UT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

SUMOUT 

CKQUT 

CKO  UT 

SUMOUT 

SUMOUT 

SUMOUT 
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^£3 


296. 

3065 

FORMAT 

(17H  CONSTANT,  0RN6  - F10.3) 

SUMOUT 

297  . 

3070 

FORMAT 

(22H  IIP.  CENTRAL  ANGLE  = F6.2,5X,5H  I I P=  F8.2) 

SUAOUT 

296. 

3075 

FQRflAT 

( 38H  NUMERICAL  INTEGRATION,  MAX.  LOADING  = F7.3) 

SUMOUT 

299. 

3060 

FORflAT 

( 5 X 6HTLAT  = F6.3) 

SUMOUT 

300. 

3085 

FORflAT 

C 5 X 6HTLN6  = F6.3) 

SUMOUT 

301. 

3090 

FORflAT 

( 5 X15HSURFACE  RANGE  = F9.3) 

SUMOUT 

302. 

3095 

FORflAT 

( 5 X 1 OHALT I T UDE  = F10.1) 

SUMOUT 

303. 

3100 

FORflAT 

( 5 X 1GHLAT1TU0E  = F8.3) 

SUMOUT 

309 . 

3105 

FORflAT 

(5X11HL0NGI TUOE  = F8.3) 

SUMOUT 

305. 

3110 

FORflAT 

( 5X, 15HAZI MOTH  OIFF.  = F8.3) 

SUMOUT 

306. 

3115 

FORflAT 

( 16H0CRUISE,  RANGE  = F8.2) 

SUMOUT 

307. 

3120 

FORMAT 

( 5 X, 5HSFC  = F9.9) 

SUMOUT 

306. 

3125 

FORMAT 

( 5 X, 5HL/D  = F9.9) 

SUMOUT 

309. 

3130 

FORflAT 

< 5X , 1 7MCRUI SE  VELOCITY  = F9.2) 

SUMOUT 

310. 

3135 

FORflAT 

( 5 X 6H0RN6  = F9.2) 

SUMOUT 

311. 

3190 

FORMAT 

( 5 X,  7HHFLYX  = F9.2) 

SUMOUT 

312. 

3195 

FORMAT 

I 5 X,  1 3HCRUI SE  FUEL  = F10.2) 

SUMOUT 

313. 

3150 

FORMAT 

( 5X, T9HFLYBACK  FUEL  = F10.2) 

SUMOUT 

319. 

3155 

FORMAT 

( 5X1  OH  C( 219  ) = F9.5) 

SUMOUT 

315. 

3160 

FORMAT 

(27H0PERCENTAGE  HEIGHT,  RANGE  = F8.2) 

SUMOUT 

316. 

3165 

FORMAT 

( 5X, 5HCA  - F9.9) 

SUMOUT 

317. 

3170 

FORMAT 

(5X,5HC»  = F9.9) 

SUMOUT 

318. 

3175 

FORMAT 

(5X,5HRT  = F9.2) 

SUMOUT 

319. 

3160 

FORMAT 

( 5X, 5HR 1 = F9.2) 

SUMOUT 

320. 

3165 

FORflAT 

< 5 X, 5HR3  = F9.2) 

SUMOUT 

321. 

3190 

FORMAT 

(5X,5HSFC2=F9.9) 

SUMOUT 

322. 

3195 

FORMAT 

<5X,5HALD2=F9.9> 

SUMOUT 

323. 

3200 

FORMAT 

<5X,6HVFLY2=F9.9> 

SUMOUT 

329. 

3205 

FORMAT 

( 5 X , 5HR2  = F9.2) 

SUMOUT 

325. 

3210 

FORflAT 

(5X,6HHFLYX=  F9.2) 

SUMOUT 

326. 

3215 

FORMAT 

( 5 X20HI OLE  OESCENT  FUEL  = F9.2) 

SUMOUT 

327. 

3220 

FORflAT 

( 5X20HCRUI SE  FUEL  HEIGHT  = F10.2) 

SUMOUT 

326. 

3225 

FORMAT 

< 5 X 2 7HF I NAL  DESCENT  FUEL  HEIGHT  = F9.2) 

SUMOUT 

329. 

3230 

FORMAT 

( 1 7H0BREGUET,  RANGE  - F9.2) 

SUMOUT 

330. 

3235 

FORMAT 

< 5X, 7HSFCI  = F9.9) 

SUMOUT 

331. 

3290 

FORMAT 

< 5X, 7HSFC3  = F9.9) 

SUMOUT 

332. 

3295 

FORMAT 

< 5 X, 7HAL01  = F9.9) 

SUMOUT 

333. 

3250 

FORMAT 

( 5X, 7HAL03  = F9.9) 

SUMOUT 

339. 

3255 

FORMAT 

(5X,7HVFLY1=  F9.9) 

SUMOUT 

335. 

3260 

FORMAT 

< 5X, 7HVFLY3-  F9.9) 

SUMOUT 

336. 

END 

SUMOUT 
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SUBR0UTINE 

TAMPER 


FORTRAN  WAT  H 

SYMBOL  SVWBOL 


CODE 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


5UeR0,MT1NE,.,USAfci 
SUBR  COOE  VAA 


BTTOT 

1 

Total 

/TAMP  /( 

5 ) 

SUWOUT 
TAMPER 
HT  VOL 

I 

I 

0 

BTTOT 

BTTOT 

BTTOT 

BH00T1 

H 

Booster  aclght  floa 

/T  AWPER/i * 

) 

TAMPER 

tf 

BHD0T1 

IFIRE 

y 

Integer  value  of  fire  flag 

/TAWP£R/( * 

) 

tamper 

y 

IFIRE 

LBOOY 

i 

Body 

lisgth 

/ volcal/( 

8 ) 

PROTHR 

tamper 

yTSCH 

I 

i 

M 

LBOOY 

LBOOY 

LBOOY 

OTTOT 

i 

Total 

orbitar  thrust 

/TAMP  /( 

2 ) 

SUWOUT 
TAMPER 
HT  VOL 

1 

I 

M 

OTTOT 

OTTOT 

OTTOT 

SBOOV 

i 

Total 

body  netted  area 

/C1NPUT/! 

386  ) 

PROTHR 

TAMPER 

HTSCH 

I 

1 

W 

SBOOY 

SBOOY 

SBOOY 

SBODVB 

0 

Total 

body  netted  area-  booster 

/sunvy  n 

13) 

SUNQUT 

TAMPER 

1 

0 

SBODYB 

SBODYB 

SBODVO 

0 

Total 

body  netted  area-  orblter 

/SUMVU  /< 

26  ) 

SUWOUT 

TAMPER 

I 

0 

SBOOYO 

SBODVO 

/ORBlNY/{  199)  FLYBKP  W SCB 
STORE  « SCB 
SUWOUT  I SCB 
TAMPER  I SCB 
THRUST  W SCB 
VEHOF  I SCB 
HT  VOL  w SCB 

0 SE 

1 SE 
( SE 
I SE 
M SE 
I SE 
w SE 
1 SE 
M SE 

I SPLAN 
I SPLAN 

0 SPLAN 

1 SPLAN 


SPLANB 

0 

Booster  body 

p 1 aof or a 

area 

/SJFWH  /! 

19) 

SUWOUT 

I 

SPLANB 

TAMPER 

0 

SPLANB 

SPLANO 

0 

Orb! tar  body 

p 1 inf or  a 

area 

/SUMVH  /( 

27) 

SUWOUT 

1 

SPLANO 

tamper 

0 

SPLANO 

SQ 

n 

A sy  nt  has i s 

data  array 

t 37, 5 ) that  contains  the 

/SIZING/! 

79  ) 

ENYPRM 

w 

SQ 

f lybacfc  data 

and  so aa 

injection  quantities 

FLYBKP 

w 

SQ 

ISPRAT  I SQ 
POBC  I SQ 
PRITVA  I SQ 
RANSE  n SQ 
REU3  0 SQ 
SIZE  0 SQ 
SIZEWR  n SQ 
SIZIW  « SQ 
STAU  I SQ 
SUWOUT  W SQ 
TAWPAR  0 SQ 
TAMPER  « SQ 
THRUST  W SQ 
TRTOSZ  W SQ 
VEHOF  N SQ 
NT  VOL  W SQ 


n Array  of  synthesis  iteration  propulsion  paraaeters  /SIZING/I  259)  FlYBKP 

PRITVA 

SIZEWR 

SUWOUT 

. TAMPER 

THRUST 
VEHOF 
UTSCH 
NT  VOL 


I Body  planfo 


/ VOLC AL/ ( 1*0  PROTHR 

TAMPER 
HTSCH 
UT  VOL 


I Hor king  naac  for  input  e-array  booster  scaling 
coefficients 
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FORTRAN  HATH 

SYMBOL  SYMBOL 


5V 


T ampea 

TB2T 


TB39 


TB36 

T B95 
1039 


T036 


T0H5 

T2 

VABFUB 
V BODY 


VBOOYB 

VBODYO 


DESCRIPTION 


m 

A tynthetls  array  (28)  containing  staging 

/SIZING/! 

H6  ] 

1 ENVPRM 

, M 

sv 

parameters  and  else  flags 

FLYBKP 

I 

sv 

ITERS 

I 

sv 

RANGE 

1 

sv 

S1ZEMR 

M 

sv 

SIZIN 

I 

sv 

SSSP 

1 

sv 

SUMOUT 

1 

sv 

T AMPAR 

0 

sv 

TAMPER 

M 

sv 

TRTOSZ 

M 

sv 

VEHOF 

M 

sv 

HTVOL 

I 

sv 

E 

Subroutine  to  Interface  aelght  and  volume  overlay 

/TAMPER/!  0 

) 

TAMPER 

E 

TAMPER 

el  t h trajectory  program  overlay 

hlT  YOU 

S 

TAMPER 

l 

/0RB1NY/! 

HI  > 

SIZEMR 

1 

TB27 

SSSP 

I 

TB27 

STORE 

M 

T627 

SUMOUT 

I 

TB27 

TAMPER 

I 

TB27 

VEHOF 

M 

TB27 

UTVOL 

I 

TB27 

I 

Stored  booatcr  value  of  er<  1 ) 

/ORBINY/! 

53) 

FLYBXP 

I 

TB39 

ITER8 

0 

TB39 

SSSP 

M 

TB39 

STORE 

M 

TB39 

SUMOUT 

I 

TB3H 

TAMPER 

I 

TB39 

VEHOF 

1 

TB39 

WT  VOL 

M 

TB39 

I 

/ORBINY/! 

60  ) 

STORE 

M 

TB36 

SUMOUT 

1 

T 036 

TAMPER 

I 

TB36 

THRUST 

1 

TB36 

UTVOL 

I 

TB36 

I 

Stored  booster  value  of  aelng 

/ORBINY/! 

69) 

STORE 

M 

TB95 

SUMOUT 

1 

TBH5 

tamper 

I 

TB95 

I 

/0RB1 NX/( 

53) 

l TER  B 

M 

T039 

SSSP 

0 

1039 

STORE 

M 

TQ39 

TAMPER 

i 

1039 

VEHOF 

0 

TO  39 

UTVOL 

M 

T039 

I 

/0RB1NX/! 

6G  ) 

STORE 

M 

T036 

SUMOUT 

I 

T036 

TAMPER 

I 

TQ36 

THRUST 

I 

1036 

KTYOL 

I 

T036 

I 

Stored  orblter  value  of  salng 

/0RB1NX/! 

69  ) 

STORE 

M 

1095 

SUMOUT 

1 

T095 

tamper 

I 

T095 

hi 

Main  engine  burn  tine 

/TAMPER/!  ♦ 

) 

TAMPER 

W 

T2 

0 

Volume  of  booster  propellant  tanks 

/SUMYW  / ! 

11  ) 

TAMPER 

0 

VABFUB 

I 

Total  body  vo  1 uae 

/C1NPUT/! 

391  ) 

PRINTV 

n 

VBOOY 

SOLVE 

M 

VBODV 

STORE 

M 

VBOOY 

TAMPER 

I 

VBOOY 

UTSCH 

H 

VBOOY 

hiT  VOL 

l 

VBOOY 

0 

Booster  body  volume 

/SUMVN  / ! 

1C) 

SUMOUT 

I 

VBOOYB 

tamper 

0 

VBOOY  B 

0 

Or  bi t er  body  vo  1 uae 

/SUMVN  / ! 

2H  ) 

SUMOUT 

I 

VBOOVO 

tamper 

0 

VBDOYO 

8 NOV  72  G.01-H6 


FORTRAN 

MATH 

« DESCRIPTION 

STORAGE  SUBROUTIi 

NE  USAGE 

SYMBOL 

SYMBOL 

tUL 

BLOCH 

LflC  SUBR  CODE  VAR 

VCAR60 

I 

/V0LCAL/< 

27  ) PR  I NT  V I 
TAMPER  I 
UTSCH  M 

VCARGO 

VCARGO 

VCARGO 

VCARO 

0 

Vo  luee  of  cargo 

/sumvh  /( 

22)  SUMOUT  I 
TAMPER  0 

VCARO 

VCARO 

VFUT* 

Total  voluae  of  fual  tank 

/VOLCAL /( 

29)  PR  1 NT V 1 
STORE  M 
TAMPER  I 
UT5CH  M 

VFUT* 

VFUTk 

VFUT* 

VFUT* 

VFUTHB 

0 

Total  eoluac  of  fuel  tank  - booster 

/SUMVH  /( 

7)  SUMOUT  I 
TAMPER  0 

VFUT*6 

VFUT*B 

VFUTKO 

0 

Total  voluae  of  fuel  tank  - orbit or 

/sumvh  /( 

20)  SUMOUT  1 
TAMPER  0 

VF  UT  *0 
VFUT*0 

VFUT  *2 

I 

/ VOLCAL/ ( 

30)  PR  I NT  V I 
STORE  M 
TAMPER  I 
UTSCH  M 

VFUT  *2 
VFUT  *2 
VF  UT  *2 
VFUT*2 

VOTHB 

Q 

Wise.  Booster  *o  1 uac 

/SUMVH  /( 

9)  SUMOUT  I 
TAMPER  0 

VOTHB 

VOTHB 

VOTHO 

0 

Ml  * c . Orblter  voluae 

/SUMVH  /( 

23)  SUMOUT  1 
TAMPER  0 

VOTHO 

VOTHO 

voxtk 

I 

/volcal/( 

3 9 ) PR  I NT  V I 
STORE  fl 
TAMPER  I 
UTSCH  M 

VOXT* 

VOXT* 

VOXT* 

VOXT* 

VOXTKB 

0 

Booster  oxidizer  tank  voluae 

/SUMVH  /( 

8)  SUMOUT  I 
TAMPER  0 

VOXTKB 

VOXTKB 

VOXTKO 

0 

Orblter  oxidizer  tank  volute 

/SUMVH  /( 

21)  SUMOUT  I 
TAMPER  0 

VO  XT  *0 
V0XT*0 

VOXT*2 

I 

Total  voluae  of  secondary  oxidizer  tank 

/VOLCAL/I 

35)  PR  1 NT V 1 
STORE  M 
TAMPER  1 
UTSCH  M 

V0XT*2 
V0XTK2 
VO  XT  *2 
VGXT*2 

wabfm 

I 

Height  of  jp  fuel 

/HTCALC/C 

3)  PR l NTH  I 
P RUT  SR  M 
TAMPER  I 
UTSCH  M 

UABFU 

UA6FU 

UABFU 

UABFU 

habfub 

m 

Booster  fiybaca  fuel  required 

/Sunvw  /{ 

2)  SUMOUT  I 

TAMPER  M 

HABFUB 

HABFUB 

habfuo 

M 

Orblter  flyback  fuel  required 

/SUMVH  /{ 

19)  SUMOUT  I 
TAMPER  M 

HABFUO 

UABFUO 

HBOO 

1 

Booster  gross  eeight 

/JUMPY  /( 

3)  PR  I NTH  I 
TAMPER  I 
UTVOL  0 

HBOC 

HBOO 

HBOO 

UCONT 

' 1 

Contingency  and  groeth  eeight 

/HTCALC/C 

16)  PR  1 NT H 1 
TAMPER  I 
UTSCH  M 

HCONT 

HCONT 

HCONT 

UCONTB 

0 

Contingency  and  groeth  ee 1 ght-boo str 

/SUMVH  /( 

38)  SUMOUT  I 
TAMPER  0 

UCONTB 

UCONTB 

WCONTO 

0 

Contingency  and  groeth  ee 1 g ht- o r b i t r 

/SUMVH  /( 

37  ) SUMOUT  I 
TAMPER  0 

HCONT  0 
HCONT  0 

HOOT  T 1 

y 

Height  floe 

/tamper/< ♦ 

) TAMPER  U 

H00TT1 

HORV 

i 

Stage  dry  eeigbt 

/ HT  C ALC/ ( 

29  ) PRINTU  I 
TAMPER  1 
UTSCH  M 

HDRV 

HORY 

HORY 

UORVB 

0 

Stage  dry  eeight  - booster 

/SUMVH  /( 

9 ) SUMOUT  1 
TAMPER  0 

UORVB 

UORVB 

HPRfO 

0 

Stage  dry  eeight  -orbiter 

/SUMVH  /< 

17)  SUMOUT  I 
TAMPER  0 

HORYO 

UORYO 

hentrb 

o 

Booster  entry  eeight 

/SUMVH“/(  “ 

39  rsunouT  l— 
.tamper  o 

HENTRB 
UENT  R B 

g NOV  n G 01-96 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


storage  SUBROUTINE  USAGE 
BLOC*  LOC  SUBS'  CODE  VAR 


WENTRO 

0 

Orbiter  entry  •eight 

/SUMVU  /( 

33  I 

SUWOUT 

I 

WENTRO 

TAMPER 

0 

WENTRO 

WENTRY 

\ 

Entry  •eight 

7EMS  71 

3 I 

PRWTSM 

0 

WENTRY 

TAMPER 

I 

WENTRY 

MET  URN 

1 

Weight  at  return  point 

/E«S  /( 

2 > 

PRWTSM 

0 

WETURN 

TAMPER 

I 

WETURN 

wfuox 

I 

Weight  of  aein  end  secondary  propel! 

1 ant 

/WTCALC/( 

96 ) 

PR  1 NT  W 

I 

WFUOX 

TAMPER 

I 

WFUOX 

WTSCH 

« 

WFUOX 

UT  VOL 

1 

WFUOX 

WFUOXB 

M 

Propellent  »t . Less  fpr  -booster 

/sumvw  n 

3 ) 

SUMOUT 

I 

WFUOXB 

TAMPER 

M 

WFUOXB 

WFUOXO 

I 

Propellent  »t . Less  fpr  -erblter 

/TAMP  /< 

3) 

SUMOUT 

I 

WFUOXO 

tamper 

1 

WFUOXO 

UT  VOL 

n 

WFUOXO 

UFURES 

1 

Fuel  reserve 

/ WT  C ALC/ ( 

9 7 ) 

PRI  NTW 

1 

WFURES 

STORE 

M 

WFURES 

TAMPER 

I 

WFURES 

WTSCH 

M 

WFURES 

WFU2 

I 

Weight  of  secondary  fuel 

/WTCALC/t 

39  ) 

PR  I NTW 

I 

WFU2 

TAMPER 

I 

WFU2 

WTSCH 

M 

WFU2 

UGROSB 

M 

/suwvw  /( 

5 ) 

SUMOUT 

I 

U6R0SB 

TAMPER 

W 

WGROSB 

UGROSS 

I 

Gross  lift-off  weight 

/ Cl  NP  UT  / ( 

392  ) 

PRI NTW 

1 

W GROSS 

PRWTSM 

I 

UGROSS 

SOLVE 

w 

WGROSS 

STORE 

w 

UGROSS 

TAMPER 

I 

WGROSS 

WTSCH 

M 

WGR0S5 

UT  VOL 

I 

WGROSS 

UJET 

I 

Jettison  aeight  1.  Ignition  to  lift 
used  3.  Jettison  during  ascent  9. 

-off  2. 

No  t 

/WTCALC/t 

62  ) 

PRITVA 

I 

WJET 

In-orbit 

PRWTSM 

M 

WJET 

jettison  at.  5 . Pre-entry  jettison 

■ t.  6. 

Fly- 

STORE 

0 

UJET 

back  jettison  at . 

TAMPER 

I 

WJET 

WTSCH 

M 

WJET 

WLAND 

I 

Land ) ng  eel ght 

/ EWS  /< 

9 ) 

PRWTSM 

0 

WLAND 

TAMPER 

I 

WLANO 

WLANDB 

0 

Landing  aeight  - booster 

/SUWVW  /( 

35  ) 

SUMOUT 

I 

WLANDB 

TAMPER 

0 

WLANDB 

UL ANDO 

0 

Landing  acight  - orbiter 

/SUWVW  /( 

36  ) 

SUMOUT 

1 

WLANDO 

TAMPER 

0 

WLANOO 

WOP 

0 

Orbit  aaneuvering  propellant  aeight 

/SUWVW  /( 

1 ) 

SUMOUT 

1 

WOP 

tamper 

0 

WOP 

WORBIT 

I 

We  1 ght  in  orbit 

/EWS  /( 

1 ) 

PRWTSM 

0 

WORBIT 

TAMPER 

I 

WORBIT 

WORBTB 

0 

In-orbit  aeight  - booster 

/SUWVW  /( 

30  1 

TAMPER 

0 

WORBTB 

WOP  BT  0 

0 

In-orbit  aeight  - orbiter 

/SUWVW  /( 

29  > 

SUMOUT 

I 

WORBTO 

TAMPER 

0 

WORBTO 

UOTHB 

0 

Wise.  Weight  - booster 

/SUWVW  /< 

6 ) 

SUMOUT 

I 

WOTHB 

TAMPER 

0 

UOTHB 

WOT  HO 

0 

Wise.  Weight  - orbiter 

/SUWVW  /( 

18) 

SUMOUT 

I 

WOTHO 

TAMPER 

0 

WOT  HO 

MOVERS 

I 

Wing  loading 

/ WT  CALC/( 

77  ) 

prothr 

I 

WOVERS 

TAMPER 

I 

WQVERS 

WTSCH 

n 

WOVERS 

WOVRSB 

0 

Booster  aing  loading 

/SUWVW  /( 

15  ) 

SUMOUT 

i 

WOVRSB 

TAMPER 

0 

WOVRSB 

wovnso 

0 

Orbiter  aing  loading 

/SUWVW  /( 

28  ) 

SUMOUT 

I 

UOVRSO 

- 

■ 

- - --  - 

- 

TAMPER- 

0 - 

WOVRSO  - 
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FORTRAN 

SVft&OL 


NATH 

SVftBOL 


CODE 


DESCRIPTION 


SUBRQUT I NE 
SUB*  CODT" 


WOXRES 

/WTCALC/I 

69  ) 

PRINTW 

STORE 

TAftPER 

WTSCH 

I 

n 

I 

ft 

WOXRES 

WOXRES 

WOXRES 

WOXRES 

W0X2 

1 

Secondary  oildiier  atight 

/WTCALC/I 

89  ) 

PR  I NT W 
TAftPER 
WTSCH 

1 

1 

ft 

W0X2 

W0X2 

W0X2 

WPAVL 

I 

Payload  alight 

/WTCALC/l 

97  ) 

PR  I NTH 
T AftPER 
WTSCH 

I 

I 

ft 

WPAVL 

WPAVL 

WPAVL 

WPAVLO 

n 

Payload  anight 

/SUftVW  /( 

16) 

SSSP 

5UNOUT 

TAftPER 

1 

1 

ft 

WPAVLO 

WPAVLO 

WPAVLO 

URTRNB 

0 

Entry  aelght-  booater 

/simvw  /t 

32  ) 

SUftOUT 

TAftPER 

I 

0 

WRTANB 

WRTRNfi 

URTRNO 

0 

Entry  aelght-  orbttor 

/SUftVW  /( 

31  ) 

S UNO  UT 
TAftPER 

I 

0 

WRTRHO 

WRTRNO 

WWAIT 

l 

Suaaary  aalghta  1.  Ignition  2. 
Burnout  *1.  Initial  orbiter  5. 
Initial  flyback  7.  Landing 

Takt-off  3. 
Initial  entry  6 . 

/WTCALC/I 

122  ) 

PRITVA 

PfiWTSft 

STORE 

TAftPER 

WTSCH 

I 

I 

ft 

1 

ft 

WWAIT 

WWAIT 

WWAIT 

WWAIT 

WWAIT 

8 NOV  72  G. 01-96 


T ArtPCR 


1 . 
2 

3. 

9 . 

5 

6 

7 . 
6. 
9. 
10. 
1 1 . 
12. 
13. 


5U8R0UT 1 Ht  T AMPEfi  < NCALL  ) 


PR  I NARY  DATA  INTERFACE  BETWEEN  UTVOL  AND 
TRAJECT OR V PRO BR AW.  THIS  SUBROUTINE  SETS 
TRAJ  PROG  WORKING  VARIABLES  AND  STORES 
SUMMARY  WEIGHT  AON  VOLUME  DATA 


COMMON  / JUMPY  / JUMP.  UB1G,  WBOO 
COMMON/T  AHP/U6R050,0TT0T,UFU0X0,TBTQ,BTT0T 
REAL  KIN 

REAL  ISP. K,LF,MR,NCREW,LBODY,NPASS 
REAL  NEN6S 
COMMON/CJNPUT/ 


TAMPER 

tamper 

TAMPER 

TAMPER 

TAMPER 

TAMPER 

TAMPER 

TAMPER 

TAMPER 

CINPUT 

CINPUT 

CINPUT 

CINPUT 


19. 

1ANENGS 

ANTANK 

ASRATO 

, ASUEEP 

,C(  300  ) 

, CBBODY 

,CFUEL( 6 

CINPUT 

15  . 

2CHBOOY 

CLBODY 

CSBODY 

, CSFAIR 

, CSF UT K 

, CSHORZ 

, CSO  XT  X 

CINPUT 

16. 

3CSPLAN 

CS  VERT 

CSWING 

, CT  HRST 

,CTHST2 

,DEF( 5 ) 

, F XWO  VS 

CINPUT 

1 7. 

9I5P<  6 ) 

I TPS 

K<  30  ) 

, K I N 

, LF 

, W?< 6 ) 

, NCREW 

CINPUT 

18. 

5NENG5 

NLISTO 

NP  ASS 

, NWL 

, PCMAM 

,fi 

, RHOFU 

CINPUT 

19 

6RH0FU2 

RHO  X 

RH0X2 

, SBOOY 

,TOL 

, TO  VER  C 

, TPR ATO 

CINPUT 

20. 

7TYTAI L 

VBODY 

WGROSS 

CINPUT 

21 

COMMON/ VO LCAL/BBODY,CROOT 

, CS  P AN 

, CT  l P 

, GAL 

, GSPAN 

VOLCAL 

22 

2HB0DY 

LBODY 

RTOD 

,SFA1R 

, SF  UT  X 

, SHORZ 

, SO  XT  K 

VOLCAL 

23. 

3SPLAN 

STPS(  1 ) 

SVERT 

, SUING 

,SXPOS 

,toel 

, TROOT 

VOLCAL 

29. 

9TT0T 

TT0T2 

TTOTAL 

, VBODY  A 

, VB00Y1 

, VB0DY2 

V CAR  60 

VOLCAL 

25. 

5VCREU 

VFUTK 

VFUTK2 

, VlNSTK 

, VLGBAY 

, VOTHER 

, VO  XT  X 

VOLCAL 

26 

6V0XTK2 

VPROP 

VSTRUC 

VOLCAL 

27 

COMMON/UTCALC/ 

ABFSYS 

, WABFT  K 

, UABFU 

, WABPR 

, WACRES 

UT  CALC 

26 

1UACS 

WACSFO 

WACSTK 

, WAERO 

, WAUXT 

, WBAS1 C 

, WBODV 

WT  CALC 

29 

2WBPUMP 

WCARGO 

UCOMM 

, UCONT 

, WCO  VER 

, WDECAV 

, W01 ST  1 

WTCALC 

30. 

3UDI ST  2 

UOOCK 

UDPLOY 

, UORANS 

, UOR  V 

, UELCAO 

, UEMPT V 

WTCALC 

31  . 

9WENGMT 

WENGS 

WEN6S2 

, WFAIR 

, UF  CONT 

, WFOC A Y 

, UFROST 

WTCALC 

32. 

5UFU2(  3 ) 

UFUELI 6 ) 

WFUL 

, WF  ULOS 

, WF  UNCT 

, WF  UO  X 

, UFURES 

WTCALC 

33. 

6WFUSYS 

WFUTK 

WFUTK2 

, UFU70T 

, WF  UTRP 

, WGASPR 

, WGNA V 

WTCALC 

39 . 

7UH0RZ 

WHY  CAD 

UI  NF  UT 

, WI NO  XT 

, Ul  NS  TIC 

, Wl NST 

, Wl  NS  UL 

WTCALC 

35 

8 WJ  E T ( 6 ) 

ULANCH 

UL9 

, ULOSS 

,ulrd 

, WNACEL 

, WODC AY 

WTCALC 

36. 

9 WO  I L 

WOILRS 

WORSUL 

, WO  VERS 

, WOX(  6 ) 

,W0X2( 3 

) , WO  X I D 

WTCALC 

37. 

1U0XL0S 

UOXRES 

UOXSYS 

, WOXTK 

, WO  XT  K2 

, WOXTOT 

, UOXTRP 

WTCALC 

38. 

2UP 

UPASS 

UPAYL 

, UPERS 

, UPOUCD 

, WPOWER 

, WPOWFO 

WTCALC 

39. 

3WP0WRS 

UPOUTK 

WPPRQV 

, WPREI6 

, WPROP 

, WPRSVS 

, UREF  UL 

WTCALC 

90. 

9WRESI0 

WRESRV 

USEAL 

, USE  CST 

, WSORCE 

, WSRT  R P 

, WSTAB 

WTCALC 

91  . 

5WSURF 

UT  ABC 

UTHRST 

, WTO 

, UTPS 

, W VERT 

, UUA 1 T ( 10 

WTCALC 

92. 

6WWET 

UWI  NS 

W2R0FU 

UABTRP 

, WABRES 

, WMNOTP 

WMNFTP 

CKQUT 

93. 

7UMN0RS 

UMNFRS 

WACOTP 

, WACFTP 

, WPWOTP 

, WPUFTP 

, WGAS 

CKOUT 

99 

8WABFUC  , 

UACORS 

WACFRS 

, UPWORS 

WPUFRS 

CKQUT 

95. 

DIMENSION 

1 5K0(  30  ) 

SCO(  300  ) 

, TO 9(  6 ), 

T020C  10), 

T027C  6 ). 

f039< 6 ), 

ORBINX 

96 

1 T 0 9 8 ( 1 0 ) 

> . T099( 101 

,T05  0(  10  ),T05  7<  6>,0USAVE(  10  ) 

CKOUT 

97 . _ 

98.  1 T01.T02,T03.T09,T05,T06TQ7T08T09T010T011,T012.T013,T01 

9 9 2 TO  15, TO  16, TO  1 7, TO  18, TO  19, T020, 7021 , 1022, 102  3, 1029, f 025, 1026 

50.  3 1028,  102  9,  10  30,  1 0 3 1 , I 0 32 , T033 , T039 , TO 3 5 , T036 , 1 03 7 , TO 38 , T039 

5 1 . 9 7 091  ,T092,T09  3,T0  99.T095,T096,T09  7f T09  8, TO 99 , T05Q, T05 1 , T052 

52.  5 T059,  T05§.T056.T057T066,SKO,SCQ.6wSAVE 

53.  6,  TO 5 9,  T 060,  T 061  ,Tu62, 1 063,  T069 , T065 , T06  7 , T066 , T0«>9 , T07  0,T07  1 

59  7 T072,T073,T079,T075,T076,T077,T078,T079,TOeO,T081,T082,T083 

55.  8T089 

56.  DIMENSION  SK B( 30  ) , S CB(  300  ) , TB9(  6 ) , TB20(  1 0 ) , T B2 7(  6 ) , T B39C 6 ) , 

57.  1 TB981  10  ).TB99(  10  ),TB50(  10  ),TB57C  6),BWSAVE(  10) 

58.  COMflON/ORBI  NY  / 

59  1 TB1, 7B2, 7B3.7B9. 7B5, 7B6, 767, TB8, 7B9, 7810,7811,7612,7613.781 

60  2 TB15,TB16,TB17,TB18,TB19TB20,TB21,IB22,1B23, I B29 , 1 B25 , 1 B26 

61 . 3 IB28,  IB29,  I B30 , I B3 1 , 1 B32 , T B 3 3 , T B39 , T B3 5 , T B36 , I B3 7 , T B38 , T B39 

62  . 9 TB9  1 ,TB92,TB93,TB9  9,TB95,TB96,TB9  7,TB98, TBs9,TB50, TB51 ,TB52 

63.  5 TB59,  TB55,TB56,TB57,SKB,SCB, BWSAVE 

69  6, TB59, TB60,TB61,TB62.TB63,TB69,TB65,7B66,TB67, TB68,TB69  TB70 

65  77371 , 7872, 7673,7679, 78 75 , 7 B 76 , TB 7 7 , 7 6 78 , T B 79, 7680 , 768 1 , T B82, 

66  8TB83, TB89 

67.  REAL  LBOOVO, LBODYB 

68.  COMMON/ SUMVW/ WOP,  UABFUB, UJFUOXB, UORYB, U6R0SB,  WQ7HB, 

69  1 VFUTKB, VOXTKB, YOTHB, VBODYB, YABFUB, 

70  2 lbooyb,$bodyb,splanb,wovrsb, 

71.  1 WPAYLO,WDRYO, WOTHO,  WABFUO, 

72.  2 VFUTKO, V0XTK0, VCARO. VOTHO, VBOOYfi, 

73.  3 LBOOYO,SBODYO.SPLAn6.WOVRSO 

79.  9 ,W0RBT0,  W0RB7B,  UR TRN& , WRTRNB , UENTRQ , WENT R B, ULANOB , UL ANDO 

75.  5 , WC0NT6,WC0NTB 


, f027, 
, T090 
,T053, 


f B27, 
' TB90, 
TB53, 


ORBINX 

ORBINX 

ORBINX 

ORBINX 

ORBINX 

CKOUT 

UH 

UH 

UH 

ORBINY 

CKQUT 

ORBINY 

ORBINY 

ORBINY 

ORBINY 

ORBINY 

UH 

UH 

UN 

UH 

SUMVW 

SUMVW 

SUMVW 

SUMVW 

SUMVW 

SUMVW 

SUMVW 

SUMVW 

SUMVW 
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n. 

REM-  MUB,  MUO,  ISPB,  ISPO,  ID9EL,NNB,N0 

SIZING 

77. 

common  /Sizing/ 

SIZING 

78. 

C 

PHASE  11  SIZING  PARAMERERS 

SIZING 

79. 

• TZ,  99131.  3PI191,  EROR,  PZI5), 

va. 

SHI  20  ), 

SIZING 

80. 

• S9I  28 1,  SQI37.5),  SEI11),  T LAT  TLN6, 

SIZING 

81. 

c 

PHASE  1 SUING  PARAMETERS 

SIZING 

82. 

• HBO , HLCO,  DHEB,  OWED,  TOLUT, 

UPB. 

THRAT2, 

SIZING 

83. 

•BKI,  BK2,  BK3,  BK9,  ISIZE, 

Tfi AFL6, 

TURATG, 

SIZING 

89. 

•0*1,  0*2.  0*3,  0*9,  PRFLS, 

IPASS, 

1PSAAX, 

SIZING 

85. 

•AEXIT , T9AtO,  NO,  HfO,  109EL, 

ISPO, 

ISPB, 

SIZING 

86. 

*XPL,  T9ACB,  NNB,  HEO.  NEB 

HO , 

HlO  , 

SIZING 

87. 

*090,  098.  HUB,  MUO,  9STG, 

w PO 

SIZING 

88. 

*,  JTYP , BECO  . BST6  . QRBI  ITNBH  . 

ITNOH  , 

SIZING 

89. 

* S90PS0  , S9DC&N  .I  HUNT  .lOPSTG  ,ISZ0U9 

) 

UH 

90. 

CQMMQN/EnS/HORBI I , HETURN, HENTR V, HLANO 

TAMPER 

91. 

COMMON/OS/OSPLAN 

TAMPER 

92. 

c 

TAMPER 

93. 

IFIRE  = SCI  2 1 

TAMPER 

9*». 

991  11  £ H GROSS 

TAMPER 

95. 

S91  7 1 = QHSA9E1  11 

CKOUT 

96. 

S9191  = 0HSA9E191 

CKOUT 

97. 

S9I61  = 103913) 

CHOUT 

98. 

SOI  19,91  S WJETC51 

CXOUT 

99. 

c 

CKOUT 

ICO. 

c 

PROPULSION  REFERENCE  AREA  1 TOT AL1 

C*OUT 

101. 

c 

CXOUT 

102. 

QP! 111  = TB36  * SCSI  218 1 

C*QUT 

103. 

OPI 121  £ T036  • SCO! 218) 

CXOUT 

109. 

c 

TAMPER 

105. 

c 

AERODYNAMIC  REFERENCE  AREAS 

TAMPER 

106. 

c 

TAMPER 

107. 

c 

OPt  6 1 = AERO  KEF  AREA  WITH  SOLID  MOTORS.  BOOSTER. ANO  0RB1TCR 

TAMPER 

108. 

DPI  7)  = T 895 

TAMPER 

109. 

OPt  8)  = TONS 

TAMPER 

110. 

c 

TAMPER 

111. 

OPI  10)  = SCO!  103) 

CKOUT 

112. 

OPI  9)  = 991  1)  - UFUOX 

CXOUT 

113. 

c 

TAMPER 

119. 

c 

ORBITER  VACUUM  THRUST  ANO  ISP 

TAMPER 

115. 

c 

TAMPER 

116. 

OPI 2)  = OTTOT  * SEC  8 ) 

TAMPER 

117. 

OPI  9)  = SEC  7 1 

TAMPER 

118. 

c 

TAMPER 

119. 

c 

BOOSTER  HEIGHT  FLO* 

TAMPER 

120. 

c 

TAMPER 

121. 

BH00T1  = 8TT0T  • SE19)/  SEC  1 > 

TAMPER 

122. 

SEC  1 i > = 0.  . 

TAMPER 

123. 

c 

TAMPER 

129. 

c 

TEST  FOR  PARALLEL  BURN 

TAMPER 

125. 

c 

tamper 

126. 

GO  TO  (5,9)  , IFIRE 

TAMPER 

5—1 

127. 

c 

TAMPER 

120. 

c 

SIMULTANEOUS  FIRE  of  BOOSTER  ANO  ORBITER 

tamper 

, j 

129. 

5 CONTINUE 

tamper 

130. 

c 

TAMPER 

131. 

c 

VACUUM  THRUST  ANO  ISP 

TAMPER 

132. 

c 

TAMPER 

133. 

QPI 1 1 = OTTOT*  SCI  8)  ♦ BOTTOT*  $E«9) 

TAMPER 

139. 

0WD0T1  - OTTOT  * 5E1 8 1/  SEI 7 ) 

TAMPER 

135. 

UOOTTI  = OHOOTI  * BDOTI 

TAMPER 

136. 

apt  3)  = OPt I l/UOOTTI 

TAMPER 

137. 

c 

CXOUT 

138. 

c 

CALCULATE  STAGE  BURN  TIMES 

CXOUT 

139. 

c 

CXOUT 

190. 

SOI  37,1)  = 1 UFUOX  B * SOI  37,5)  >•  QP191/0PI2) 

CKOUT 

191  . 

53(  37,2  ) = IHFUOXO  * S0I37,9)  )«  0P(1)/QPI3) 

CXOUT 

192. 

c 

TAMPER 

193. 

c 

CHEC*  PROPELLANT  CROSS  FEED  FLAG 

TAMPER 

199. 

c 

TAMPER 

195. 

1 FI SEI  1G1.E0.0. 1 GO  TO  16 

TAMPER 

16  — 

196. 

T2  = 1 UFUOX  - BUD0T1  * OPI 19 11/  BUOOT2 

TAMPER 

197. 

SEI  11)  = 0UC0T1  * QPI 19)  ♦ 0U00T2  * T2 

TAMPER 

198. 

OPI  10)  = OPI  10)  ♦ SEC  11  ) 

TAMPER 

199. 

API  9 ) = OPI 9 ) - SEI 11) 

tamper 
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150. 

151 

152. 

153. 
1 5*1 

155. 

156. 

C 

c 

c 

c 

9 CONTINUE 

SEQUENTIAL  firing  of  booster 

TANDEM  FIRING  OF  BOOSTER  AND 

thrust  and  ISP 

QPtl)  = BTTOT  * SEC  9) 

0PC3)  - QPC  1 )/  BWD0T1 

ANO  ORBITER  OR 

ORBITER 

TAMPER 

TAMPER 

TAMPER 

TAMPER 

TAMPER 

TAMPER 

tamper 

157. 

16  CONTINUE 

TAMPER 

158. 

SVC  11  ) = QPC  1 )/  VVC  1 ) 

CKOUT 

159. 

SVC  1 3 > = SVC  11)  • TB27( 2 )/QP( 3 ) 

TAMPER 

160. 

c 

TAMPER 

161  . 

c 

CHECK  SOLID  NO TOR  OPTION 

FLAG 

TAMPER 

162. 

c 

TAMPER 

163. 

IF<  SQC  20  1 ) . LE . 0 . ) GO  TO  18 

TAMPER 

1 & — | 

169. 

VVC  1 ) = VVC  1 ) ♦ SQC  21,5) 

tamper 

165. 

SVC  13)  =C  QPC  1 ) * TB27C2  )/QP(  3)  ♦ 

SQC  21.9)  )/  VVC  1 ) 

TAMPER 

166. 

TZ  = CQPC1)  ♦ SQC  22 , 9 ) )/C  BUD0T1 

♦ SQC il , 3 )/ SQC 21,2)) 

CKOUT 

167. 

18  IFCNCALL.EO.l ) RETURN 

TAMPER 

168. 

SVC  19  ) = TB39C3) 

TAMPER 

169. 

5 VC  20  ) = UWAITC6) 

TAMPER 

170. 

SQC9,1>  = OUSAVEC  9)-NPAVL0 

OS 

in. 

SVC  5)  = OUSAVEC  11-0WSAVEC9) 

OS 

172. 

VVC  2 ) = QPC  9)  - SVC  7) 

CKOUT 

173. 

VVC  3)  = WFUQXB 

CKOUT 

179. 

SVC  16)  = SVC  13)  “ 1. 

CKOUT 

175. 

RETURN 

TAMPER 

176. 

c* 

177. 

c 

TAMPER 

178. 

ENTRY  ORBSUN 

tamper 

179. 

c 

ORBITER  SUNNARY  WEIGHTS 

TAMPER 

180. 

c 

tamper 

181  . 

SOC  37  9 ) = WFURES  ♦ WOXRES 

tamper 

182. 

W0P=WFU2< 1 )+W0X2(  1 ) 

tamper 

183. 

WPAVLO  = WPAVL 

tamper 

189. 

UABFUO  = ABSC  WABFU ) 

TAMPER 

185. 

WCONTO  = WCONT 

tamper 

186. 

WORYO  = WORV 

TAMPER 

187. 

WOTHO  - WGROSS  * UFUOXO  - WABFUO 

- WPAYL  - WORY  - SQC  37,9  ) 

- WCONT  TAMPER 

186. 

WORBTO  = WORBIT 

TAMPER 

189. 

URTRNO  = WETURN 

TAMPER 

190. 

WENTRO  = WENTRV 

TAMPER 

191. 

WLANOO  = WLANO 

TAMPER 

192. 

c 

TAMPER 

193. 

c 

ORBITER  SUNNARY  VOLUNES 

TAMPER 

199. 

c 

tamper 

195. 

VFUTKO  = VFUTK 

tamper 

196. 

VOXTKO  = VOXTK 

TAMPER 

197. 

VCARO  = V CAR GO 

TAMPER 

198. 

VOTHO  = VBODV  - VCARGO  * VOXTK  - 

VFUTK 

TAMPER 

199. 

VBGOVO  = VBOOY 

TAMPER 

200. 

c 

tamper 

201. 

c 

ORBITER  SUNNARY  GEONETRV 

TAMPER 

202. 

c 

TAMPER 

203. 

LBOOYO  = LBOOY 

TAMPER 

209. 

SBODYO  = SBODY 

TAMPER 

205. 

SPLANO  ^ SPLAN 

TAMPER 

206. 

WOVRSO  ^ HOVERS 

TAMPER 

207. 

RETURN 

TAMPER 

208. 

c 

TAMPER 

209. 

ENTRY  600SUN 

TAMPER 

210*. 

c 

BOOSTER  SUNNARY  WEIGHTS 

TAMPER 

211  . 

c 

TAMPER 

212 

50(37,5)  = WFURES  ♦ WOXRES 

TAMPER 

213 

UABFUB  = ABSC WABFU) 

tamper 

219. 

WFUOXB  = WFUOX 

TAMPER 

215. 

UCQNTB  = WCONT 

TAMPER 

216. 

UDRYB  = UDRV 

TAMPER 

217 

WGROSB  = WBOO 

TAMPER 

1218. 

WOTHB  = WGROSB  - WFUOX  - WABFUB  - 

WORY  - SQC  37,5)  - WCONT 

TAMPER 

219. 

WORBTB  - WORBIT 

TAMPER 

>220. 

WRTRNB  = WETURN 

TAMPER 

221 . 

WENTRB  = WENTRY 

TAMPER 

222. 

WLANDB  = WLANO 

TAMPER 

223. 

c 

TAMPER 
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/ *5  Cs  J 


22  9 . 

C 

BOOSTER  SUMMARY 

VOLUMES 

TAMPER 

225. 

C 

TAMPER 

226  . 

VFUTKB  = VFUTX 

TAMPER 

227. 

VOXTKB  = VOXTX 

TAMPER 

228  . 

VOTHB  = VBODV  - 

VFUTK  - VOXTK 

TAMPER 

229 

VABFUB  s V0XTX2 

♦ VFUTK2 

tamper 

230. 

VBOOYB  = VBOOV 

tamper 

231  . 

C 

tamper 

232. 

C 

BOOSTER  SUMMARY 

6EQMETRV 

tamper 

233. 

C 

tamper 

239 . 

LBODYB  = LBODY 

TAMPER 

235. 

SBOOYB  = SBOOV 

TAMPER 

236, 

SPLANB  = SPLAN 

TAMPER 

237. 

yQVRSB  = MOVERS 

TAMPER 

238. 

RETURN 

TAMPER 

239  . 

END 

tamper 
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SUBR0UT INE 
TBL2D 


I U IH  HAN 
^ VHHOI 


mAl  h 
SYMBOL 


CODF 


DESCRIPTION 


b 1 QR  AGF  S tJBR  Q ilT  INF  USAGE 

BUG*  LOC  St^h  IGDt  YAR 


TB120 


E r»o  diaentiontl  table  look-up  mrboutlna 


/TBL2D  /(  t, 


) RANGE  S TBL20 
TBL2D  E TBL20 


TB120 


SUBROUTINE  TBL20t X, V, XTBL, VTBL, ZTBL, Z > 

2 DIMENSIONAL  TABLE  LOOK-UP 

01  WENS  ION  XTBLtT),  VTBLI7),  ZTBU7,7> 

X = 0 

DO  1 11=2,7 
I=II 

IF( X-XTBLt I ) ) 3,2,1 


10. 

1 

CONTINUE 

T8L20 

11 . 

GO  TO  3 

TBL2D 

12. 

2 

X = 1 

TBL20 

13. 

GO  TO  9 

TBL2D 

1** 

3 

SCAL1  = ( X-XTBLC  I'l  )>/<  XTBU  D-XTBLC  I-'.  1) 

TBL2D 

15. 

9 

DO  5 J J = 2, 7 

TBL20 

16  . 

J=JJ 

TBL2D 

17. 

JF( Y-YTBL<  J)l  7,6,5 

TBL20 

18. 

5 

CONTINUE 

TBL20 

19. 

60  TO  7 

TBL2D 

20. 

6 

SCAL2  = 1. 

TBL2D 

21. 

60  TO  e 

TBL20 

22. 

7 

SCAL2  = t Y-YTBU  J-l  > >/<  VTBLt  Jl-VTBLt  J-l  ' I 

TBL2D 

23. 

8 

J Ft  K-l  > 9,10,9 

TBL2D 

29. 

9 

Z1  = ZTBLt 1-1 , J-l  ) ♦ ZTBLt I,J-|  ) - ZTBLt 1-1 , J-l )) 

TBL20 

25. 

Z2  = ZTBLt  I - 1 , J ) ♦ SCAL1*(  ZTBLt  1 , J 1 - ZTBL<I-1,J>) 

TBL2D 

26. 

Z = ZI  ♦ S CAL2*t Z2  - Zl) 

TBL2D 

27. 

RETURN 

TBL20 

10  Z = ZTBL(I,J-1)  ♦ SCAL2*t ZTBL( 1 , J > - ZTBLtl,J-l)> 

RETURN 

ENO 
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SUBR0UTINE 

THRUP 


LOCI 


I A 50  » o r d array  that  corresponds  to  tables  1 thru 
50.  Each  entry  ts  an  integer  tnat  points  to  the 
initial  value  of  the  independent  variable  of  the 
cor r espondi ng  table.  A zero  entry  Indicates  table 
not  input* 


0 A 50  mo  r d array  that  corresponds  to  tables  1 thru 
50.  Each  entry  is  an  integer  that  points  to  the 
initial  value  of  the  independent  variable  of  the 
corresponding  table.  A iero  entry  Indicates  table 
not  input. 


0 A 50  »ord  array  that  corresponds  to  tables  1 thru 
50.  Each  entry  is  an  integer  that  indicates  the 
last  interval  » n nhlch  interpolation  of  the 
corr espondi ng  table  occured. 


0 A 50  aord  array  that  corresponds  to  tables  1 thru 
50.  Each  entry  is  an  integer  that  points  to  the 
last  value  of  the  independent  variable  of  the 
c or r e spo nd i n g table. 


/TABLE  /(  1 ) 5PLIC0  * LOCI 

c.  P L ! f n « v 
S P L I Z W \ LOCI 
SPUZ  I X 
SPLVNE  I LOCI 
SPLVNE  I X 
T HR  UP  I LOCI 
THRUP  0 X 

/TABLE  /(  1 ) SPLICO  to  LOCI 

5PL1C0  to  X 
5PLIZ  I LOCI 
SPLIZ  I X 
SPLVNE  I LOCI 
SPLVNE  I X 
T HR  UP  I LOCI  . 
THRUP  0 X 

/TABLE  /<  701 ) SPLICO  0 LOCL 

SPLICO  to  V 
SPLIZ  to  LOCL 
SPLIZ  I V 
SPLVNE  to  LOCL 
SPLVNE  I V 
THRUP  0 V 

/TABLE  /(  1 MO  1 ) SPLICO  to  LOCF 

SPLICO  to  l 
SPLIZ  I LOCF 
SPLIZ  I Z 
SPLVNE  I LOCF 
SPLVNE  I Z 
THRUP  0 Z 
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T HR  UP 


1.  SUBROUTINE  THRUPUTAB,  FI,  T2,  F2>  * THRUP 

2.  C THRUP 

3.  C THIS  SUBROUTINE  SETS  UP  THE  LINEAR  THRUST  THRUP 

9.  C TABLE  NUMBERED  1TAB.  THE  TABLE  ENTRIES  THRUP 

5.  C FI,  T 2 AND  F 2 ARE  DETERMINED  BY  THE  SIZING  THRUP 

6.  C MODULE  FOR  USE  IN  THE  TRAJECTORY  MODULE.  THRUP 

7.  DIMENSION  LOCK  i ) THRUP 

8.  EQUIVALENCE  (LOCl.X)  ThRUP 

9.  COMMON/TABLE/  X< 700 >, Y( 700 >. Z{ 700 > THRUP 

10.  C FIND  THE  FIRST  ENTRY  OF  ITAB.  THRUP 

11.  C THRUP 

12.  II  = LOCK  ITAB)  THRUP 

13.  C THRUP 

19.  C SET  THE  INITIAL  TIME  OF  ITAB  TO  ZERO  AND  THRUP 

15.  C ZERO  OUT  THE  SECOND  DERIVATIVES.  THRUP 

16.  C THRUP 

17.  X<  II  > = 0.  THRUP 

i0.  Z< II ) = 0.  THRUP 

19.  ZC It  ♦ l » = 0.  THRUP 

20.  C THRUP 

21.  C STORE  THE  FINAL  TIME  OF  ITAB  AND  THE  IMITIAL  THRUP 

22.  C AND  FINAL  VALUES  OF  THRUST.  THRUP 

2 3 . C T HR  UP 

29.  XT  II  ♦ I > = T2  THRUP 

25.  Y( 1 1 ) = FI  THRUP 

26.  Y< 1 1 ♦ I)  = F2  THRUP 

27.  RETURN  THRUP 

28.  ENO  THRUP 
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SUBROUTINE 

THRUST 


/£T7/ 


FSLB 

F5LL0 

FSLO 

FSLS 

FUNIT 

FVACB 

FVACLO 
F VACS 
AT 


SCB 


5E 


SAEF  S . 

re  f 


TB36 


THRUST 


a 

Booster  in  level  thrust  (lb) 

/TRUST  /( 

6)  THRUST 

a 

FSLB 

a 

See  level  lift-off  thrust  (lb) 

/TRUST  /( 

7)  THRUST 

a 

FSLLO 

a 

Orblter  see  level  thrust  (lb) 

/TRUST  /( 

2)  THRUST 

A 

FSLO 

a 

Solid  aotor  see  level  thrust  (lb) 

/TRUST  /( 

8)  THRUST 

A 

FSLS 

w 

Orbiter  thrust  per  engine  vie.  (Ib> 

/THRUST/( • 

) THRUST 

W 

FUNIT 

a 

Booster  vecuua  thrust  (lb) 

/TRUST  /( 

5 ) THRUST 

A 

FVACB 

WTSCH 

A 

FVACB 

m 

Total  vecuua  lift-off  thrust  (lb) 

/TRUST  /( 

3)  THRUST 

A 

FVACLO 

a 

Solid  aotor  total  vecuua  thrust  (lb) 

/TRUST  /( 

9)  THRUST 

A 

F VACS 

I 

Curve  nuaber  -thrust  table 

/ AR  COAT /( 

25  ) FXDAT 

I 

AT 

PROPB 

I 

AT 

PR0P1N 

I 

AT 

THRUST 

I 

AT 

a 

Working  naae  for  input  c-arrey  booster  scaling 

/ORBI NV/( 

199)  FLVBKP 

A 

5CB 

coef f I c I cuts 

STORE 

A 

SCB 

SUAOUT 

I 

SCB 

TAMPER 

I 

SCB 

THRUST 

A 

SCB 

VEHOF 

I 

SCB 

WT  VOL 

A 

SCB 

I 

Array  of  synthesis  iteration  propulsion  paraeeters 

/SIZING/! 

259)  FLVBKP 

0 

SE 

PRITVA 

I 

SE 

SIZEAR 

I 

SE 

SUAOUT 

I 

SE 

TAMPER 

A 

SE 

THRUST 

I 

SE 

VEHDF 

A 

SE 

WTSCH 

I 

SE 

WT  VOL 

A 

SE 

A 

A synthesis  data  array  (37,5)  that  contains  the 

/SIZING/! 

79)  ENVPRA 

A 

SO 

flyback  data  and  soae  injection  quantities 

FLVBKP 

A 

SO 

ISPRAT 

I 

SO 

POBC 

I 

SO 

PRITVA 

I 

SO 

RANGE 

A 

SO 

REU3 

0 

SO 

SIZE 

0 

SO 

SIZEAR 

A 

SO 

SiZlN 

A 

so 

STAU 

I 

so 

suaout 

A 

so 

TAAPAR 

0 

so 

TAMPER 

A 

so 

THRUST 

A 

SO 

TRTOSZ 

A 

so 

VEHOF 

A 

so 

WTVOl 

A 

so 

I 

/ ARCOAT /( 

1)  BNTG 

I 

ARCDA 

E0UA3 

I 

SREF 

FNTG 

I 

ARCDA 

FXOAT 

I 

ARCDA 

FXDAT 

0 

I ARCOA 

GEINP 

A 

ARCDA 

SOINP 

ARCOA 

SIZIN 

I 

ARCOA 

S1Z1N 

A 

SREF 

THRU5T 

I 

SREF 

VT 

I 

SREF 

I 

Stored  booster  value  of  nengs 

/QRBl NV/( 

60  STORE 

A 

TB36 

SUAOUT 

I 

TB36 

TAMPER 

l 

TB36 

THRUST 

I 

TB36 

WTVOL 

1 

TB36 

£ 

Subrcuttne  to  determine  booster,  orbiter,  and 

/TMRUST/( 0 

> OATAIN 

S 

THRUST- 

vehicle  thrust 

THRUST 

E 

THRUST 
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FORTRAN 

svnaOL 


RAT  H 
SYRBOL 


CQDE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

TC5C7  LO l SUBR  COOE  VAR 


T036 


! Stor«d  orbitor  value  of  0*09* 


/ORBINX/t  60)  STORE  M 
SUROUT  I 
TARPER  I 
THRUST  I 
WTVOL  1 


T036 

T036 

T036 

T036 

T036 


8 NOV  12  6 . 0 1 'N6 


THRUST 


SUBROUTINE  THRUST 

SUBROUTINE  TO  CALCULATE  BOOSTER,  ORBITER,  AND 
VEHICLE  THRUST 

REAL  HUB,  «U0,  ISPB,  ISPO,  1 DVEL, NNB, NO 
cqnnon  /SIZING/ 

PHASE  II  S1ZIN6  PARAHERERS 

• TZ,  V V<  3 ),  QP<14),  EROR,  PZ(5),  V 

• SV(28),  30(  37,5  ),  SE(  11  >.  TLAT,  TLN6, 

PHASE  I SIZING  PARAPlEftERS 

• UBO , ULOO  DUEB,  DUEO,  T0LUT,  U 

• BK1,  BK2 , BK3 , BAN,  ISIZE,  T 

• OKI,  0X2 , 0X3,  OX4* , PRFLG,  I 

•AEXlT,  TVACO,  NO,  UFO,  IOVEL,  I 

• XPL,  TVACB,  NNB,  WE 0.  WEB.  W 

• DVO,  DVB,  «UB,  NUfi,  VST  6, 

* , J T VP  BECO  , BSTG  , ORBI,  ITNBW  1TN0 

• SVDPSQ  . SVQC6n  ,1HUNT  .lOPSTG  , I S2D(  1 9 ) 


TOLUT, 
ISIZE, 
PRFLG, 
I DVEL, 
WEB, 

VS  T 6, 
ITNBW  , 


I SZD(  1$ ) 


IPASS, 

ISPO, 

WO. 

WPO 
I T NOW  , 


• UBO,  WLOO  DUEB,  DUEO,  TOLUT,  UPB,  TURAT  2 , 

• BKI,  BK2 , BK3 , BAN,  ISIZE,  TRAILS,  TUfiATO, 

• 0X1,  0X2,  OK  3 , OX4*,  PRFLG,  IPASS,  1PSNAX, 

• AEXlT,  TVACO,  NO,  UFO,  IOVEL,  ISPO,  ISPB, 

•XPL,  TVACB,  NNB,  WEO.  WEB.  WQ,  WLO, 

•DVO,  DVB,  «UB,  NUfi,  VST6,  WPO 

• , J T VP  BECO  , BSTG  , ORBI,  ITNBW  1TN0U  , 

• SV0P5Q  , SVDCON  ,IHUNT  ,IOPSTG  , I S2D( 19 ) 

DIMENSION  SKO<  30  > , SCO(  300  >,  T04( 6 >,T020(  10  ), T02  7(  6 T , T039« 6>, 

1 TO40(  10  ),  T0  4 9<  10  ),T05  0(  1 0 ),  T057(  6 ), OUS AVE(  10) 

COnrtON/ORBINX/ 

1 TO1,TO2,TO3,TO4*TO5,TO6,TO7TO0.TQ9TO1OTO11,TO12TO13,TO1A 
Z r0l5,T0i6,ruiT,T0I6,r0l7,T0z0To2I,i022, 1023, f024 1025, f026, 702  7, 
3 1028, 1029, 1030, 1031, 1032,1033, T034,T035,T03fc, 1037, T038,T039,T040, 
H T041  , T042,T043,T044,T045,T046,T04  7,T048,T049,T050,T051 ,T052,T053, 
5 TO 5 4 , T055,T056,T057,T086,SK0,SC0,6USAVE 

6,T059,T060,T0fcl,T062,T063,T064,T065,T067,T068,T069  T070,T071, 

7 TO72,TO73,TO74,TO75,TO76,TO77,TO70,TO79,TO0O,TO81,TO82,TO83, 

8T084 

DIMENSION  SXB(  30  ),SCB(  300  ),TB4(  6 ),TB20(  10  ),TB27(  6 ) . T B39I  6), 

1 TB40(  10  ).TB4  9(  10  ),TB5  0(  10),TB5  7(  6),BU$AVE<  10) 

CONNO  N/QRB I NV  / 

1 TB1,TB2,TB3,TB4,TB5,TB6.TB7,TB8,TB9,TB10,TB11,TB12,TB)3,TB14. 

2 TB15,TBU>,TB17,TB)8,TB19,TB20,TB21, 1B22, IB23, IB24,IB25, IB26,tB27, 

3 IB28, IB29, IB30,  I B3 1 , 1 B 32 , T B3 3 , T B34 , T B35 , T B3 6 , I B3 7 , TB38, TB39 , T B40 , 

4 T 84 1 TB42,TB43,TB44,TB45.TB46,T847,TB48,TB49,TB50TB5I,TB52, TBS 3, 

5 TB54,TB55, TB56,TB57,SKB.SCB,  BUSAVE 

6,  7859, 7860, 7867, 7862,7863,786V  7865, 7866, 7867, 7868, 7869, 7870, 

7TB  7 1 , t B72, t B73, f B74, T B75 , f B76, TB7  7 , TB78 , i B79 , T B80, TBB1 # TB82, 

8TB83  TB84 

connon/trust/ 


43. 

*F  VACO 

, FSLO 

FVACLO 

F VACS, 

44. 

•FVACB 

FSLB 

, FSLLO 

, fsls 

45  . 

CONNON/ ARCOAT/ 

4fc  . 

• SREF 

, E J 

, XISP 

, T NULT 

,OTNC 

, OTP  I 

47  . 

*1  AT* 

, INODE 

, JAER 

, JPRO 

, QNAX 

, GNAX 

46. 

•XLNAX 

, HDNAX 

, GNDOT 

, alfnax 

, P HNAX 

, NAE  A 

49  . 

• NAEB 

,NAEC 

, NAED 

, NAEE 

, NAEF 

, NAE6 

50. 

• NT 

,N1$P 

, NXCG 

, NZCG 

NUQ  A 

NUOB 

51  . 

• NDB 

, XCGR 

, ZC6R 

,XE 

,ZE 

f XT 

52. 

• OREF 

, NCND 

, RH06 

, QNULT 

, RENAX 

• .FflATE  , ARC0C9) 

DIMENSION  ftRCDM  40  ) 

EQUIVALENCE* SREF, ARCDA ) 

FT  ABB  = 0. 

FT  ABO  = 0. 

CALL  REA0HS  ( 9, SREF, 40, 1 ) 

ITAB=NT 

IF  (SU(  17).EQ.0..0R.SQ(20,1  ).LE.0..0R.SE(2).EQ.l.)  GO  TO  6 


5 CONTINUE 

IF(  FT  ABB . NE . 0 ) S CD( 129  ) = FT  ABB/TB36 
1 Ft  FT  ABO  .NE.  0 ) SCOT  129)  = FTABO/T036 
IF(NT.GT.O)  GO  TO  1 

CONNON  ENGINES  USED 

I F < S E < 3 ). 6E. 1 . ) GO  TO  1 


THRUST 

THRUST 

THRUST 

THRUST 

THRUST 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SUING 

SUING 

SUING 

SUING 

SUING 

SUING 

SIZING 

SUING 

UH 

ORBI NX 

CKOUT 

ORBINX 

ORBI NX 

ORBINX 

ORBINX 

ORBINX 

CXOUT 

UH 

UH 

UH 

ORB  I NV 

CKOUT 

ORB  I NY 

ORB  I NV 

ORB  I NV 

ORBI NV 

ORBINV 

UH 

UH 

UH 

UH 

CKOUT 

THRUST 

THRUST 

ARCDAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

ARCOAT 

RETAP 

ARCOAT 

ARCOAT 

THRUST 

THRUST 

CKOUT 

CKOUT 

CKOUT 

CKOUT 


62. 

6 CONTINUE 

CKOUT 

63. 

I ORB  I = SQ< 1,3) 

CKOUT 

64. 

CALL  REAONS  ( 9 , SREF , 40, 1 ORBI  ) 

CKOUT 

65. 

1FCNT.LE.0)  GO  TO  5 

CKOUT 

66. 

CALL  SPLIZ( NT,0,FTAB0,DUN) 

CKOUT 

CKOUT 

UH 

UH 

UG  1 

THRUST 
THRUST 
THRUST 
THRUST  1 
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75. 

76. 

77. 

78. 

79. 

80. 
81  . 
82. 

C 

c 

c 

c 

c 

c 

CALCULATE  ORBITER  UNIT  THRUST  FROM  BOOSTER  THRUST 

FUNIT  =SCB(129) 

GO  TO  2 

CALCULATE  ORBJTER  UNIT  THRUST 

THRUST 

THRUST 

THRUST 

CKOUT 

THRUST 

THRUST 

THRUST 

THRUST 

2~1 

83. 

1 FjNIT  ^ SCO! 129) 

CKOUT 

-* 

89. 

c 

THRUST 

85. 

c 

CALCULATE  BOOSTER  AND  ORBITER  THRUST 

THRUST 

86. 

c 

THRUST 

87. 

2 F VACO  = FUNIT*  T036  *SEC8> 

UH 

88. 

FSLO  = F VACO  - SCO<  218  ) *T036  *2116.21? 

UH 

89. 

FVACB  = SCB( 129  ) * TB36  * SEC  9 ) 

UH 

90. 

FSLB  = FVACB  - $CB< 218  > * TB36  *2116.21? 

UH 

91 . 

c 

THRUST 

92. 

c 

CHECK  PARALLEL  BURN  FLAG 

THRUST 

93. 

c 

THRUST 

99. 

IFC 1TAB.GT.0. AND. SO C 20, 1 ) . LE . 0. ) GO  TO  3 

CKOUT 

3 1 

95. 

IFC  SEC  2 ) . GE . 2 . ) GO  TO  3 

THRUST 

3 — 

H 

96. 

c 

THRUST 

97. 

c 

ADO  THRUST  LEVELS  FOR  LIFT-OFF  THRUST 

THRUST 

98. 

c 

THRUST 

99. 

FVACLO  = F VACO  ♦ FVACB 

THR UST 

100. 

FSLLO  = FSLO  * FSLB 

THRUST 

101. 

GO  TO  9 

THRUST 

9 — 

102. 

c 

THRUST 

103. 

c 

DETERMINE  LIFTOFF  THRUST 

THRUST 

109. 

c 

THRUST 

105. 

3 FVACLO  = FVACB 

THRUST 

106. 

FSLLO  = FSLB 

THRUST 

107. 

c 

THRUST 

108. 

c 

CHECK  SOLID  MOTOR  FLAG 

THRUST 

109. 

c 

THRUST 

110. 

9 IFCS0C20,1).LE.0.  ) RETURN 

CKOUT 

111. 

c 

THRUST 

112. 

c 

DETERMINE  SOLID  MOTOR  THRUST  AND  NEU  LIFT-OFF  THRUST 

THRUST 

113. 

c 

THRUST 

119. 

FVACS  = SQC  20,2)  • 50(20,1  ) 

THRUST 

115. 

FSlS  = FVACS  - SOC  21,1 >*5QC  20.1 >*2116.217 

THRUST 

116. 

FVACLO  = FVACLO  + FVACS 

THRUST 

117. 

FSLLO  = FSLLO  ♦ FSLS 

THRUST 

118. 

FI  * F VACO 

CKOUT 

1 19. 

T2  = SQC  21.2  ) 

CKOUT 

120. 

F2  = FI  - T2*  SOC  20,3 ) 

CKOUT 

121. 

CALL  THRUPC ITAB,F1,T2,F2) 

CKOUT 

122. 

c 

CKOUT 

123. 

c 

ESTABLISH  OUANITIES  FOR  THO  ENGINE  SIMULATION 

CKOUT 

129. 

c 

CKOUT 

125. 

IFCSQC  30,1  ) . NE . 0 . ) GO  TO  10 

CKOUT 

10 — I 

126. 

SOC 31,1)  = FVACB 

CKOUT 

127. 

SOC  31,2)  = FVACS 

CKOUT 

128. 

SOC  31,3)  = SOC  20,9  l/SEC  1 ) 

CKOUT 

129. 

SOC  31.9)  = SEC  1 ) 

CKOUT 

130. 

RETURN 

JULV28 

131. 

c 

CKOUT 

132. 

c 

EXTERNAL  TANK  OPTION  USED 

CKOUT 

133. 

c 

CKOUT 

139. 

10  CONTINUE 

CKOUT 

135. 

SOC 31,1)  = FVACO 

CKOUT 

136. 

SQC  31,2  ) = FVACS 

CKOUT 

137. 

SOC  31,3)  = SOC  20,9  )/SE<  7 ) 

CKOUT 

138. 

SOC  31,9)  = SEC?) 

CKOUT 

139. 

c 

THRUST 

190. 

c 

RETURN  TO  CALLIN6  PROGRAM 

THRUST 

191  . 

c 

THRUST 

192. 

999  RETURN 

THRUST 

193. 

END 

THRUST 
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SUBROUTINE 

VEHDF 


FORTRAN 

SYMBOL 


NATH 

Symbol 


cooe 


DESCRIPTION 


storage  U&ftfiE 

Block  10 C subr  code vaiP 


A 

ALO 

ALD1 

ALD2 

AL03 

AS 

BECO 

»S 

BSTG 

CB 

CLY6 
DAT  A2 
0RN6 
FBPAR 

HIPSftX 


ID 


IDYELO 

IPSftAX 


NXFOB 

ORSI 

PER  1 SP 

RT 

A! 

R 3 

SCft 


/0ATA2X/C 

l)  SSSP 

0 

A 

YEHDF 

n 

A 

YEHDF 

I 

ALO 

Booster  tub-sonic  I/d 

/0ATA2X/( 

I ) SSSP 

D 

A 

YEHOF 

it 

A 

VEHOF 

I 

ALO 

/OATA2 X/( 

52)  YEHDF 

l 

ALOl 

Flag  for  crossfeed  of  propellants  fro*  booster 
tanks  to  orblter  engines  et  lift-off  If  fire  =1 

/OAT  A2X/( 

53)  YEHDF 

I 

ALD2 

Date/  print  flag 

/OAT  A2X/( 

59)  YEHOF 

I 

ALD3 

Nunber  of  sllonsble  synthesis  Iterat  -ions  Uii  = 
6) 

/OAT  A2X/( 

32)  YEHDF 

I 

AS 

/SIZING/! 

31-1  > SIZE 

I 

BECD 

YEHDF 

I 

BECO 

Booster  thrust  aultlpller  for  ascent 

/0ATA2X/C 

33)  YEHOF 

l 

BS 

Booster  staging  arc 

/SI ZING/! 

315)  SIZE 

I 

BST6 

YEHDF 

I 

BSTG 

Orblter  nass  ratio  tolerance  input 

/DAT  A2X/1 

S9>  YEHOF 

1 

CB 

Specific  fuel  consuoptien  of  booster  air  breathers 

/OAT  A2  X/( 

29)  YEHDF 

1 

CLV6 

Nane list  Input  block 

/ YEHDF  /(* 

) YEHDF 

I 

DAT  A2 

Output  flag  for  siting  into 

/ OAT  A2  X / C 

30)  YEHDF 

I 

DRNG 

noreq  10  or  aporeq  TO 

/OAT  A2  X/ ( 

2)  YEHOF 

L 

FBPAR 

ftsslnun  nunber  of  iterations 

/SIZING/! 

292  ) SUE 

N 

IPSrtAX 

SS5P 

I 

IPSftAX 

YEHDF 

I 

HIPSftX 

VEHOF 

0 

IPSftAX 

A four  nord  array  containing  the  basic  deck, 

/ GLOBAL/! 

21  ) BLICO 

1 

10 

reference  run,  case  and  part  case  nunbers  in  that 

FRENCH 

I 

10 

or  der  . 

GEINP 

I 

10 

PAOSl 

0 

ID 

PRINT 

I 

10 

SOINP 

I 

ID 

TORN 

I 

ID 

VEHOF 

I 

ID 

Total  ideal  velocity  estinate  to  parking  orbit 

/DAT  A2X/( 

3)  YEHDF 

I 

IDYELD 

insertion 

Nasinun  nunber  of  Iterations 

/SIZING/! 

292  ) SUE 

ft 

IPSftAX 

SSSP 

I 

IPSftAX 

YEHDF 

I 

HIPSftX 

YEHOF 

0 

IPSftAX 

/DATA 2X/f 

26)  VEHOF 

I 

NXFOB 

Or bi ter  ignition  arc 

/SIZIN6/! 

316)  REU3 

I 

0RB1 

SUE 

I 

ORBI 

VEHOF 

I 

ORBI 

Orbiter  sea  level  specific  Inputs* 

/DAT A2X/1 

B)  YEHDF 

1 

PERI SP 

Ratio  of  booster  to  orbiter  engine  thrust  (vac) 

/ 0 AT  AZ  X/( 

<46)  YEHDF 

I 

RT 

Oesired  value  of  l.o.  T/n 

/OATA2I/! 

Hi)  YEHDF 

I 

Rl 

/OATA2X/! 

SB)  YEHDF 

I 

R3 

Working  nane  for  Input  e-arr*y  booster  scaling 

/ORB I NY / ( 

ISS)  FLYBKP 

ft 

SCB 

coef f i c i ants 

STORE 

ft 

S CB 

SUNOUT 

I 

SCB 

TAMPER 

1 

SCB 

THRUST 

ft 

SCB 

YEHOF 

I 

SCB 

Wt  VOL 

ft 

SCB 

FORTRAN 

SYMBOL 

NATH 

SYMBOL 

cot 

« DESCRIPTION 

STORAGE SUBROUTINE  USft&l 

block 

LOC  SUBR  CODE  YAR 

SE 

n 

Array  of  syntheita  Iteration  propulsion  parameters 

/S1ZIN6/I 

259)  FLYBKP  0 

SE 

PR1TVA  I 

SE 

SIZEftR  I 

SE 

SUftOUT  I 

SE 

TAftPER  ft 

SE 

THRUST  I 

SE 

YEHDF  ft 

SE 

WTSCH  I 

S£ 

WTYOL  ft 

SE 

SFC1 

i 

Output  print  flag 

/0ATA2X/I 

N9)  YEHOF  I 

SFC1 

SFC2 

i 

Ascent  burn  sequence  flag  l-  simultaneous  stage 

/DATA2X/I 

50)  YEHDF  I 

5FC2 

burn  2=  sequential  stage  burn 

soco 

i 

Solid  engine  cut-off  are 

/SIZING/t 

326)  YEHDF  I 

SOCO 

SOLID 

1 

Nunber  of  copies  of  sunnary  sheet  to  be  output 

/ DAT  A2  X /( 

31)  YEHDF  I 

SOLID 

SOSP 

i 

/SIZING/t 

327)  YEHDF  I 

SOSP 

SO 

ft 

A synthesis  data  array  (37,5)  that  contains  the 

/ S I Z I NG/( 

7N)  ENVPflft  ft 

SQ 

flyback  data  and  some  injection  quantities 

FLYBKP  ft 

SO 

ISPRAT  I 

SO 

PDBC  1 

SQ 

PRITYA  1 

SQ 

RANGE  ft 

SQ 

REU3  0 

SQ 

SIZE  0 

SQ 

SIZEftR  ft 

SQ 

SIZIN  ft 

SO 

STAU  1 

SQ 

SUftOUT  ft 

SQ 

TAftPAR  0 

SQ 

TAftPER  ft 

SQ 

THRUST  ft 

SQ 

TRTOSZ  ft 

SQ 

YEHDF  ft 

SQ 

WTYOL  ft 

SQ 

$v 

ft 

A synthesis  array  (28)  containing  staging 

/SI ZING/( 

46)  ENVPRft  ft 

SY 

parameters  and  nlsc  flegs 

FLYBKP  1 

SV 

1TER8  1 

SY 

RANGE  I 

SY 

SIZEftR  ft 

SY 

SIZIN  1 

SY 

SSSP  I 

SY 

SUftOUT  I 

SY 

TAftPAR  0 

SY 

TAftPER  ft 

SY 

TRTOSZ  ft 

SY 

YEHDF  ft 

SY 

WTYOL  1 

SY 

TB27 

ft 

/ORBI  NY/( 

Ml ) SIZEftR  1 

TB27 

SSSP  I 

TB27 

STORE  ft 

TB27 

SUftOUT  I 

TB27 

TAftPER  1 

TB27 

YEHDF  ft 

TB27 

WT  VOL  I 

TB2  7 

TB3N 

i 

Stored  booster  value  of  nr(  1 ) 

/0RBINY/( 

53)  FLYBKP  I 

TB3M 

1TER8  0 

TB3M 

SSSP  ft 

TB3M 

STORE  ft 

TB3M 

SUftOUT  I 

TB3M 

TAftPER  1 

TB3M 

YEHDF  I 

TB3M 

WT  VOL  ft 

TB3M 

TFCTRB 

I 

Booster  boc.  Isp 

/0ATA2X/C 

15)  YEHDF  1 

TFCTRB 

T027 

Stored  orblter  value  of  lsp(l) 

/ORB  I NX/( 

Ml ) SIZEftR  1 

T027 

SSSP  I 

f TflDC  M 

T027 

Tf\)7 

_ 

— S 1 url  t _ 

SUftOUT  I 

_ 1 U4  »_ 

T027 

VEHOF  ft 

T027 

WT  VOL  I 

T027 

FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


T* 


STORAGE 
BLOC*  LOC 


SUBROUTINE  USAg£ 
SUBR  ^ODE VAR 


T03N 


TRAFLG 


T RAT  1 0 

TSBO 

VEHOF 


WFLVX 

UNOfc. 


0 


0 


1 

I 

E 

I 

0 


Stored  or b 1 tor  roly*  of  «r< I ) 


Trtfflc  control  flag  0.  Siting  loop  not  converged 
\.  Slslng  loop  converged  2.  Error  In  tiling  loop 

next  case 


Orblter  vac.  lop 

Or  bitar  t hr  utt  multiplier  for  ascent 
Subroutine  to  call  a Ad  Initialize  synthesis  data 

Tolerance  on  tnlo  Iteration 
File  of  all  output  data 


/ORBINX/I 

53)  I TERfl 

H 

T039 

SSSP 

0 

T039 

STORE 

H 

T039 

TAMPER 

I 

T039 

VEHOF 

0 

T03H 

NT  VOL 

H 

T039 

/SIZING/I 

269)  FRENCH 

0 

TRAFLG 

ITER8 

0 

TRAFLG 

P ADS  1 

I 

TRAFLG 

SIZE 

H 

TRAFLG 

SSSP 

0 

TRAFLG 

VEHOF 

0 

TRAFLG 

/O AT  A2X/( 

19)  VEHDF 

I 

TRATIO 

/OAT A2X/( 

37)  VEHOF 

1 

TSBO 

/VEHOF  /(A 

) OAT  AIN 

s 

VEHOF 

VEHOF 

E 

VEHDF 

/ DAT  A2X/( 

95)  VEHDF 

I 

WFLVX 

/ . UNOfc . /( $ 

) BLICO 

0 

. UNO 6. 

BNORVC 

0 

. UNOfc. 

CRASH 

0 

. UNOfc . 

FRENCH 

0 

. UNOfc . 

FXOAT 

0 

.UN06. 

GEINP 

0 

. UN06 . 

HUNT 

0 

.UNOfc. 

INEDIT 

0 

.UNOfc. 

ITER6 

0 

.UNOfc. 

MODELA 

0 

.UNOfc. 

HOHJ 

0 

.UNOfc. 

HP  S I 

0 

.UNOfc. 

OUT 

0 

.UNOfc. 

PAY02 

0 

.UNOfc. 

PRINT 

0 

.UNOfc. 

PR  1 NT V 

0 

. UN06 . 

PR  I NTH 

0 

.UNOfc. 

PRITEO 

0 

.UNOfc. 

PRITVA 

0 

.UNOfc. 

PROPIN 

0 

.UNOfc. 

PROTHR 

0 

. UNOfc . 

PRHTSN 

0 

.UNOfc. 

RANGE 

0 

. UNOfc. 

S 

0, 

.UNOfc. 

SOI  NP 

0 

.UNOfc. 

SIZE 

0 

.UNOfc. 

S1ZIN 

0 

.UNOfc. 

S1Z0UT 

0 

. UNOfc. 

SOLVE 

0 

.UNOfc. 

SPL1C0 

0 

.UNOfc. 

SPL1Z 

0 

.UNOfc. 

SPLYNE 

0 

. UNOfc . 

SSSP 

0 

.UNOfc. 

STAU 

0 

.UNOfc. 

STP1T 

0 

.UNOfc. 

SUHOUT 

0 

.UNOfc. 

TABIN 

0 

.UNOfc. 

TEST 

0 

.UNOfc. 

VEHDF 

0 

.UNOfc. 

WTSCH 

0 

.UNOfc. 

NT  VOL 

0 

.UNOfc. 
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VEHOF 


1. 

2. 

3. 

4 . 

5. 

6 . 

7. 

8. 

9. 

10. 

n. 

12. 

13. 

1*1. 

15. 

16. 

17. 

18. 

19. 

20. 
21 . 
22. 
23. 
29. 

25. 

26. 

27. 

28. 
29. 


SUBROUTINE  VEHOF 

SUBROUTINE  READS  SYNTHESIS  DATA  AND  SETS  WORK  I NS  VARIABLES 

* ADJUSTS  0RB1TER  HASS  RATIO 

♦ SOLID  MOTOR  OPTION  WTS  AND  THRUST 

ARRAY  Bt  5 7)  IS  USED  TO  OBTAIN  THE  SYNTHESIS 
DATA  FROM  THE  PADS  PR06RAM 

01  MENS  I ON  A<  5 7 ) 

L061CAL  NEGO 

EOUI VALENCE(  ALD. A(  1 )> 

*.< I PSMAX  HIPSMX) 

HEAL  NXFOB 

REAL  I VACO , IVACB,  ISLO,  I5LB,  IOVELO 

COMMON/ DAT  A2X/ 

• ALD,  FBPAR.  IOVELO,  1SLB.  ISLO,  IVACB.  IVACO,  PER1SP,  OMXX, 

1 flMXS,SFC,SLVOUTCOPIES/SYNlTtFCTRBfTFCTRO , TO  LMU, TOLTM, 

2 TRATIO,TULO,m6l,HTOUT.FIRE,BQOTH,VCRU5E 

3 , NXFOB, PRNTX,FSEC,CLVS.DRN6 

*1  ,S0LI0,AS.BS,SISP#5INERT,SAE,T$B0,FLVBC* 

5 UPOREO  UOREQ  GNfiEQ 

6 ;fbFUEl'ca.Cb'«FLYX,RT/R1,R3,$FC1,SFC2,5FC3,ALD1,AL02,ALD3,VFLY1, 

7 VFLV2 . VPLY3 

• ,T«OX(  2 >.PNOX(  10),  BLOW(  10),BUPP<  10), STEP!  11  )#PAVX 
EQUIVALENCE  < RVAR,THOX< 2 >> 

REAL  MUB.  MUO.  ISPB,  ISPO,  I DVEL,NNB, NO 
COMMON  /SIZING/ 

PHASE  II  SIZING  PARAMERERS 


30. 

31. 

32.  C 

*TZ,  VV<  3 >, 

*SV<2B),  SQ(  3 f 5 ), 
PHASE  I SlilN& 

DPI  19),  ERQR, 

stun,  tlat, 
parameters 

PZ<  5 ), 
TLN6, 

VO, 

SM(  20) 

33. 

• HBO, 

HLOO, 

OMEB, 

DMEO, 

TOLMT, 

HPB 

T HR  AT  2 

34. 

• BK  1 

BK2, 

BK3, 

BK4, 

ISIZE, 

TRAFLG, 

THRATO 

35. 

• OKI 

0X2, 

0K3, 

0K4, 

prflg. 

IPASS, 

I PSMAX 

36. 

•AEXlT, 

T VACO, 

NO, 

HFO, 

I 0 VEL, 

ISPO, 

ISPB, 

37. 

• XPL, 

tvacb. 

NN6, 

HEO. 

HEB, 

MO. 

WLO, 

38. 

• DVO, 

DVB, 

MUB, 

mu6. 

VST  6, 

MPO 

39. 

90. 

•, JTYP, 

• svdpSq 

BECO  , 

. SVDCON 

B5TG  , 
I HUNT 

ORBI, 

.10PST6 

ITNBM 
lSZDt 19) 

ITNOM  , 

91  . 

DIMENSION  SKO( 30), 

SCO<  300  ) 

T04(  6 ),  T020(  10),T027(  6),T034(  6) 

92.  1 T098(  10  ).T099(  10),T050(  10  ),T057(  6 ),OHSAVE(  10  ) 

93.  COMMON/ORdI NX/ 

99.  1 T01,T02,T03T09,T05,T06.T07fT08,T09T010,T011TOl2,T013,TOl9, 

95.  2 1015,7016,1017,1018,7019,7020,7021,1022,1023,1029,1025,1026,1027, 

96.  3 1028,  1029, 1030,1031, 1 032, 7033, T039, 70 3 5, TO  36,  103  7, T038, 7039, T090, 

97.  9 T091,T092.T093,T099,T095,T096,T097,T098,T099,T050,T051,T052,T053, 

98.  5 T059  T055T056,T057,T066SK0,SCO,0HSAVE 

99.  6,T059,T060,T061,T062,T063,T069,T065,T067,T068,T069,T070,T071, 

50.  7 T072,T073,T079,T075,T076,T077,T078,T079,T0e0,T081,T082,T083, 

51.  8T084 

52.  DIMENSION  SKB(  30 ), SCB(  300 ), TB9(  6 ), TB20(  1 0 ), TB27( 6 ),TB39( 6 >, 

53.  1 TB90<  10),TB99(  10),TB50(  10  ),TB57(  6),BHSAVE(  10  ) 

59.  COMMON/ORBINY/ 

55.  1 TB1,TB2,TB3,TB9,TB5,TB6,TB7,TB8,TB9,TB10.TB11 . TB1 2 . TB1 3 . 7 B 19, 

56.  2 TB15,TB16,7B17,iB1B,TB19,TB20,TB21,I B22, l B23, I B29, 1B25, I B26,TB27, 

57.  3 IB28,IB29, 1830,1831, I B32, TB33, TB39, TB35, TB36, I B37,TB38, TB39,TB90, 

58.  9 TB91,TB92,TB93,TBHH,TB95,7B9b,7B97,7B98,7B49,TB50,TB51,TB52,TB53, 

59.  5 TB54,TB55,TB56,TB57,5KB,SCB,8WSAVE 

60.  6,TB59TB60,TB61TB62,TB63,TB64TB65TB6b,TB67TB68,TB69TB70, 

61  . 7TB71 B72, TB73, TB79, TB75,  TB76,  f B7 7,  TB78,  f B79,  TB80,  lB81 , T B82, 

62.  8TB83, TB84 

63.  COMMON/ GLOBAL/ 

64.  »GR  , ER  , 0M6Z 

65.  *,JJOP<10)  I F AT  AL  , NARC 

66.  • , KT  AB(  20 ), ITAB1  20 ) ,SlG 

67.  * , SM  .PSIRF, IPFLG1, 

60.  • , I TP50  ,KSOL  ,KGL0BL<8> 

69.  COH MON/PRESET/  PRESET<57> 

70.  COMMON/PO/MPRNT,MPNCH 

71 . NAMELIST /OAT A2/ ALD, FBPAR, IOVELO, I SLB, ISLO. IVACB, I VACO .PERI SP ,QMXX, 

72.  1 QMXS,SFC,5LV0UT, COPIES, 5YNI T , TFCTRB, TFCTRO, TOLMU, TOLTM, 

73.  2 TRATIO, TML0,TMl6i,¥T0UT, FIRE, BOOTH, YCRUSE 

74.  3 , NXFOB, PRNTX,FSEC,  CLV6,  ORN& 

75.  4 , SOLID, AS, BS,SISP,SINERT,SAE,T5B0  , F LYBCK 


, XLAMRF 
NBR  AN 

,MAXTAB 

IPFLG2, IPFLG3, IPFLG4, INEOFLl  20 ) 


YMURF 
, NF AR  C 


,LUM 
, ID<  4) 


VEHOF 

VEHDF 

VEHOF 

VEHOF 

VEHOF 

VEHOF 

VEMDf 

VEHOF 

VEHOF 

CKOtfT 

CKOUT 

CKOUT 

UH 

DAT  A2X 
DATA2X 
DAT  A2X 
0ATA2X 
DAT  A2X 
DATA2X 
DAT  A2X 
DAT  A2X 
DATA2X 
DAT  A2  X 
DAT  A2X 
POM 
POM 

SIZING 

SIZING 

SIZING 

SIZIN6 

SUING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SUING 

SIZING 

UH 

ORB 1 NX 

CKOUT 

0RB1NX 

ORB] NX 

ORBINX 

ORBINX 

ORBINX 

CKOUT 

UH 

UH 

UH 

0RB1NY 

CKOUT 

ORBINY 

ORBINY 

ORBINY 

ORBINY 

ORBINY 

UH 

UH 

UH 

UH 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

CKOUT 

YEHOF 

CKOUT 

VEHDF 

VEHDF 

VEHOF 

VEHOF 
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5 , WPQREQ, WOREQ, 6WREQ 

6 fFBFOEL,CACBWFLYX,RT,Rl,R3,$FCl,SFC2,5FC3AL01,AL02,AL03,VFLYlf 

T VFLY2,vfLV3  * 

EQUIVALENCE  ( SOCO,ISZDC  9 > >, C SOSP,  I SZDC  S >) 

PRESET  TEST  EQUATION 

NE60C X ) = ABS( Xl.Efl. 0. .AND. SI6NC l.,«  I.LT.O. 

IPC  = 33 

CALL  TABINC DUN. 1 , A . 101  RUNNY ,1,10, IRC, 0,1 EOQ) 

IF< 1E00. NE . 0 ) 40  T6  I 
00  3 1=1,57 

JFCNEGOC  AC  I)>>  AC  1)=  PRESETl  I) 

3 CONTINUE 

•*m  READ  SYNTHESIS  DATA  *•** 

IFdIPRNT.EQ. t)  WRITE!  6, 0ATA2  1 

ESTABLISH  SYNTHESIS  WORKING  ARRAYS 


90. 

SEC  2 > = FIRE  * .1 

VEHDF 

99. 

SEC  3)  = 800TW 

VEHDF 

100. 

SEC  9)  = QNXS 

VEHDF 

101. 

SEC  51  = FBPAR 

YEHOF 

102. 

IFC  FLVBCK  . £0.3. ) SEC  5 >=0. 

VEHDF 

103. 

SEC  6)  = QflXX 

VEHDF 

109. 

SECT)  = 1 VACO 

VEHDF 

105. 

SECS)  = TFCTRO 

VEHDF 

106. 

SEC  9)  = TFCTRA 

VEHOF 

107. 

SBt 10>=  NXFOB 

VEHDF 

108. 

SWC  2 ) = .5 

VEHOF 

109. 

SWC9)  = SYNIT 

VEHDF 

110. 

SWC  5)  * TOLflU 

VEHOF 

111. 

SWC  6)  = TRATIO 

VEHDF 

112. 

SWC  7)  * PER1SP 

VEHDF 

113. 

SWC  9)  s CLV6 

VEHDF 

119. 

SWC 11 ) = ALO 

VEHOF 

its. 

SWC  U)  = SFC 

VEHOF 

116. 

SWC  13)  = SLVOUT 

VEHDF 

117. 

SWC  15  )=0. 

VEHDF 

118. 

SWC 19)  * VCR USE 

VEHOF 

119. 

SWC  16)  a WTOUT 

VEHDF 

120. 

SWC  17  ) = TWLO 

VEHDF 

121. 

SWC  10)  a TOLTH 

VEHOF 

122. 

SWC 19 ) = TWLOI 

VEHOF 

123. 

SYC2)  s IDYELQ 

VEHOF 

129. 

SVC  3)  * SVC  2) 

CKOUT 

125. 

SVC  15)  = COPIES 

VEHDF 

126. 

SOI  1,1  ) = BE CO 

UH 

127. 

SQC  1,2)  = BSTG 

UN 

128. 

SOC 1,3)  = ORBI 

UH 

129. 

SQC  1,9)=S0C0 

JULV26 

130. 

SQC  1,5  )jfSOSP 

JULY20 

131 , 

SQC  10,1)  = WOREQ 

VEHOF 

132. 

SQC 10,3)  £ 0RN6 

VEHDF 

133. 

SQC  16,1)  = GWREO 

VEHDF 

1 39. 

SQC 19, 1 )=0. 

VEHOF 

135. 

SQC 19  2 >=0. 

VEHOF 

136. 

IFC  FBFUEL.EQ  . 1 . ) SQC  19,3)  = SW(11WSW(12)  • $W(19)/).689 

VEHOF 

137. 

SQC 13,1  ) = WPOREQ 

VEHOF 

138. 

SQC 19,5)  = FLYBCK 

VEHOF 

139. 

SQC 32,1)  = FBFUEL 

VEHDF 

1 90. 

SQC 32,2)  = CA 

VEHDF 

191  . 

SQC 32,3)  = CB 

VEHDF 

192. 

SQC 32,9)  = WFLVX 

VEHDF 

193. 

SBC  32, 5)  = RT 

VEHOF 

199. 

SQC 33,1  ) = R1 

VEHOF 

195. 

SOC  33, 2 ) = R3 

VEHOF 

196. 

SQC 33,3)  = SFC1 

VEHOF 

197. 

SQC 33,9)  = 5FC2 

VEHOF 

190. 

SQC 33,5)  = SFC3 

VEHOF 

199. 

SQC 39,1)  = ALD1 

VEHDF 

150. 

SQC 39, 2)  = ALD2 

VEHOF 
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j 

i 


50(34,3)  = AL03 
50(34,4)  = VFLYl 
SQ(34,5)  = VFLY2 
$0(35.1)  = YFLV3 

I F ( FBFUEL.E0.2,  .OR.  FBFUEL . EQ . 3 . ) SQ<19,3)  = SOI  34,5  )/ 1 . 689  * 

1 S0( 34,2  > 9 $0(33,4) 

T027(3)  = SECT) 

TB27(  2 > = SEC 1 )*(  1 . -21 16.217»$CB( 2 1 6 )/$CB( 124  ) ) 

TB27(3)  = (l.-SM(T))*  TB2T<2)  ♦ $N(  7 )•  SE(  1 ) 

ADJUST  MASS  RATIO  FOR  orbiter 

400  T034C3)  = EXP(  ( $Y(  2 ) - TB27(3>  • 32.174049  • AL0G(TB34(3)  ) 1 

1 (T027C3)  • 32.174049)  ) 

FIXED  SOLI 0 STRAPOR  SYNTHESIS  OPTION  *••«**•*•* ***** 

SQ( 20, 1 ) s SOLID 
50(20,2)  * AS 
50(20,3)  e BS 
$0(20,4)  * sisr 
$0( 20, 5 )=5IN£RT 
$0(21,1)  s SAE 
$0(21.2)  = TSBO 
IF< SOLID. LE.O,  ) RETURN 

$0(21,3)  = (SOLIO/SISP  )*TSBO*( AS*.5*BS*TS60) 

$0(21,4)  =( AS  - 14.69  * SAE  ) * SOLID 
$0(  21,5  )=$IN£RT*50LIO*$0<  21,3) 

SQ( 22, 1 ) = SQ( 21,3 ) 9 SOLID 
$0(22,2)  = SQ( 21,4)  / SOLIO 
$0(22,3)  = SOLIO  ♦ $0(20,5) 

50(22,4)  = SOLID  * S0(20,2) 

SQ( 22,5 ) = SOLID*  $0(21.1) 

FIXEO  SOLID  STRAPON  SYNTHESIS  OPTION  ♦****•*«♦•#♦•♦##**••**♦♦ 


RETURN 

2 FORHATC  3SH  ***ERROR***  OAT A3  IS  NISSIN6 

1 NKITEC 6,2 ) 

TRAFL6-*. 

CALL  SHERD 
END 
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SUBROUTINE 

WTSCH 


MATH 


S 1 0 H flrtP 


SYM BOL 

symbol  LUUt  utoun  i r l i ui\i 

8 L 0 * 

lOC 

S UBn 

CODE  VAR 

ftBFSVS 

n 

Airbreathing  fuel  iysiea  oeigbl  u»ed 

u j s e t C tc 

set  / y T C o L Q / 1 

1 ) 

SETO 

0 

C 

common  to  uro 

WTSCH 

n 

ABFSYS 

ANENGS 

I 

Number  of  air  breathing  engines  used 

by  setO  to 

set  /CJNPUT/C 

1 ) 

FRENCH 

I 

A 

c o sa o n to  zero 

FRENCH 

n 

ANENGS 

SETO 

0 

A 

STORE 

n 

ANENGS 

WTSCH 

I 

ANENGS 

ANTANK 

I 

Number  of  air  breathing  fuel  tanks 

/ClNPUT/( 

2) 

STORE 

n 

ANT  A NX 

WTSCH 

I 

ANT  ANA 

ASRATO 

I 

Wing  aspect  ratio 

/Cl NP  UT /( 

3 ) 

STORE 

n 

ASRAtO 

WTSCH 

I 

ASRATO 

ASWEEP 

I 

Wing  leading  edge  soeep  angle 

. 

/CINPUT/I 

H > 

ST  EIRE 

n 

ASWEEP 

WTSCH 

I 

ASWEEP 

BBOOY 

n 

Body  sidth  used  by  setO  to  set  co«*on 

to  zero 

/V0LCAL/< 

1 ) 

PROTHfi 

I 

BBOOY 

SETO 

0 

D 

WTSCH 

M 

BBQQY-  . 

C 

i 

Input  array  c < 30  0 > of  vehicle  sizing 

data 

/CJNPUT/< 

5 ) 

P R I NT  Id 

I 

C 

PRJTEQ 

I 

C 

PRITVA 

I 

c 

STORE 

« 

c 

WTSCH 

I 

c 

WT  VOL 

0 

c 

C8B0DY 

i 

Body  m) dt b coef f • 

/CINPUT/I 

305  ) 

PRITVA 

I 

CBBOOY  - 

STORE 

n 

CBBODY 

WTSCH 

i 

CBB03Y 

CFUEL 

m 

Mixture  ratio 

/cinpot/< 

306  ) 

P RUT  $ M 

M 

CFUEL 

STORE 

n 

CFUEL 

WTSCH 

n 

CFUEL 

CHBOOY 

i 

Body  height  or  co  ef f 

/ C I NP  *JT  / ( 

312) 

PRITVA 

i 

CHBODY 

STORE 

M 

CHBOOY 

WTSCH 

I 

CHBOOY 

CLBOOY 

I 

Body  length  or  coeff 

/ Cl  NF  LIT  / ( 

313  ) 

PRITVA 

I 

CLBOOY 

STORE 

n 

CLBOOY 

WTSCH 

I 

CLBOOY 

CRAP 

u 

T empor  ary  stor  age 

/WTSCH  /(  * 

) 

WTSCH 

w 

CRAP 

CROOT 

m 

I ng  root  chord 

/Y0lCAL/( 

2 ) 

FROTHR 

I 

CROOT 

WTSCH 

M 

CROOT 

CSBOOY 

I 

Total  body  eetted  area  or  coeff 

/ Cl NP  UT/ 1 

314) 

PRITVA 

1 

CSBOOY 

STORE 

n 

CSBOOY 

WTSCH 

I 

CSBOOY 

CSFAIA 

I 

Fairing  planfora  area  or  coeff 

/ C I NP  UT / ( 

315  ) 

PRITVA 

I 

CSFAlft 

STORE 

M 

CSFAlft 

WTSCH 

I 

CSFAlft 

CSFUTK 

I 

Fuel  tank  surface  area  or  coeff 

/ C I NP  UT  / ( 

316  ) 

PRITVA 

I 

CSFUTK 

STORE 

M 

CSFUTK 

WTSCH 

I 

CSFUTK 

CSHORZ 

I 

Horizontal  stabalizer  planfora  area 

/CINPUT/( 

317) 

PRITVA 

I 

CSHORZ 

STORE 

n 

CSHORZ 

WTSCH 

I 

CSHORZ 

CSOXTK 

l 

Oxidizer  tank  surface  area  coeff 

/Cl NPUT/( 

318  ) 

PRITVA 

I 

CSOXTK 

STORE 

M 

CSOXTK 

WTSCH 

I 

CSOXTK 

CSPAN 

n 

Structural  span  along  0.5  chord 

/V0LCAL/( 

3 ) 

PROIHR 

I 

CSPAN 

WTSCH 

M 

CSPAN 

C5PLAN 

I 

Body  planfora  area  or  coeff 

/ C I Nr  UT /< 

319  ) 

PRITVA 

I 

CSPLAN 

STORE 

M 

CSPLAN 

WTSCH 

I 

CSP  LAN 

CS VERT 

. — 1 

—Ver  t-l-e  a 1 -fin  planfora  area,  or  coeff 

' 

/CINPUT/I 

320  ) 

PRITVA 

I 

CS VERT 



— 

STORE  ^ 

M - 

CS  VERT 

WTSCH 

I 

CSVEftT 
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•;>- 

V 


t on  I MAN 
SVPIHIU 


rlA  I H 
j V n H iM 


root: 


DESCRIPTION 


S 1 QR  ASF 
BULK  UC 


S UBhJUT \ ME 


5 UBR  CO  OE 


USAGE 

VAR 


CTHRST 

I 

V»c.  T hr u % t- t o - 1 ght  ratio 

/ C I NP  UT  / ( 

322  ) 

PR  IT  VA 

I 

CTHRST 

STORE 

ft 

CTHRST 

UJTSCH 

I 

CTHRST 

UT  VOL 

ft 

CTHRST 

CTHST2 

1 

Secondary  propulsion  t/« 

/ C I NPUT / < 

323  ) 

PRITVA 

1 

CTHST2 

STORE 

ft 

CTHST2 

UTSCH 

I 

CTHST2 

CTIP 

0 

Wing  tip  chord 

/ VO  LCAL/ ( 

9 ) 

UTSCH 

0 

CTIP 

FVACB 

pi 

Booster  vaeuun  thrust  (lb) 

/TRUST  /( 

5 ) 

THRUST 

ft 

FVACB 

UTSCH 

ft 

FVACB 

FXUO  VS 

I 

Fi  i«d  «i  ng  loadl  fig 

/ C I NPUT/( 

329  ) 

STORE 

ft 

FXUQVS 

UTSCH 

I 

FXUOVS 

SAL 

pi 

Tot  a 1 gallons  of  f uo 1 

/V0LCAL/( 

5 ) 

UTSCH 

ft 

6AL 

GSPAN 

n 

Geonetr ! c nl ng  span 

/ VO  LCAL/ ( 

6 ) 

UTSCH 

ft 

GSPAN 

HBODV 

0 

Body  he  1 ght 

/ VOLCAL/ ( 

7 ) 

PRQTHfi 

l 

HBODV 

UTSCH 

0 

HBODV 

ISP 

i 

Specific  inpulse 

/ C I NP  UT /( 

330  ) 

P RUTS  ft 

I 

ISP 

STORE 

ft 

ISP 

UTSCH 

I 

ISP 

UT  VOL 

0 

ISP 

I TPS 

pi 

Thor  no  protection  flag 

/CINPUT/t 

336  ) 

FRENCH 

0 

I TPS 

STORE 

ft 

I TPS 

UTSCH 

ft 

I TPS 

JUftP 

i 

Oata  flag  0=  orblter  1=  booster 

/JUPIPV  /( 

I ) 

FRENCH 

0 

JUMP 

PRINTU 

I 

JUftP 

PRITVA 

I 

JUftP 

PRUTSft 

ft 

jupip 

UTSCH 

I 

JUftP 

UT  VO  L 

ft 

JUftP 

LBOOV 

pi 

Body  length 

/ V0LCAL/( 

8 ) 

PROTHR 

I 

LBODV 

T APIPER 

I 

LBOOV 

UTSCH 

ft 

LBODV 

LF 

i 

Ultimate  load  factor  1.  Thrust  buildup  2.  Mot 

/ C I NP  UT /( 

368  ) 

STORE 

ft 

LF 

used  3.  Plain  inpylse  ness  ratio  9.  Plain  inpulse 
reserve  5.  Secondary  inpulse  ness  ratio  6.  Not 

UTSCH 

I 

LF 

used 

«R 

pi 

ftass  ratio 

/Cl NPUT /< 

369  ) 

PRUTSft 

I 

ftR 

SOLVE 

I 

PIR 

STORE 

ft 

ftR 

UTSCH 

ft 

ftR 

NCREU 

i 

Nunber  of  cren  ncnbers 

/ C I NP  UT / ( 

375  ) 

PRIT  VA 

I 

NCREU 

STORE 

ft 

NCR  EU 

UTSCH 

I 

NCREU 

NENGS 

i 

Total  nunber  engines  per  stage 

/ C I NP  UT / ( 

376  ) 

PRITVA 

I 

NENGS 

STORE 

ft 

NENGS 

UTSCH 

I 

NENGS 

nlisto 

i 

Nane  list  output  f lag 

/ C I NP  UT / ( 

3 7 7 ) 

STORE 

ft 

NLISTO 

UTSCH 

I 

NLISTO 

NP  ASS 

i 

Nunber  of  passengers 

/ C 1 NP  UT / ( 

378  ) 

STORE 

ft 

NP  ASS 

UTSCH 

I 

NP  ASS 

NUL 

« 

Ui  ng  loading  flag 

/Cl  NP  UT / ( 

379  ) 

FRENCH 

0 

NUL 

STORE 

PI 

NUL 

UTSCH 

ft 

NUL 

PCHAft 

i 

Plain  rocket  engine  chanber  pressure 

/Cl  NPUT/( 

380  ) 

STORE 

ft 

PCHAfl 

UTSCH 

I 

P CH  Aft 

0 

pi 

ftaxinun  dynanic  pressure 

/ C I NP  UT/ ( 

361  ) 

UTSCH 

ft 

Q 

RHOFU 

i 

Fuel  density 

/ C I NP  UT / ( 

382  ) 

PRITVA 

I 

RHOFU 

- 

STORE 

ft 

RHOFU 

- - - 

-- 

. — - . _ .... 

. _ _ 



UTSCH 

I 

RHOFU 

R rtnF  02 

i 

Secondary  fuel  desnity 

/ C I NP  UT / ( 

363  ) 

PRITVA 

I 

RH0FU2 

STORE 

ft 

RH0FU2 

UTSCH 

I 

RH0FU2 
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I OKI H UN 

S VHHUI 


llftl  H 
YHHOL 


CODE 


DESCRIPTION 


R HO  X 

RH0X2 

RTOO 

SBODY 

SF  AIR 
5FUTK 

SHORZ 

SOXTK 

SPLAN 

SORT 


STPS 

SVERT 

SWING 

SXPOS 

TAN 

TOEL 

TOVERC 

TPRATO 

TROOT 

TTOT 


TTOTAL 

TT0T2 


1 Oxidizer  density 


I Secondary  oxidizer  density 


PI  Oeg  to  red  conversion 
A Total  body  Betted  area 


n Total  fairing  or  shroud  surface  area 
PI  Total  fuel  tank  vetted  area 

PI  Horizontal  stabilizer  planfora  area 

n Total  oxidizer  tank  vetted  area 

0 Body  planfora  area 


F Square  root  function 


PI  Total  theraal  protection  systea  surface  area 


n 

Vert  i 

cal  fin  plan 

ifora  area 

n 

Gross 

ving  area 

' 

0 

Expos 

ed  ving  area 

F 

Tange 

nt  function 

PI 

G i ab  a 

1 systea  del 

ivercd  torqua 

I 

Id  i n g 

thickness  ov 

er  choord  ratio 

I 

Wing 

taper  ratio 

pi 

Theor 

i 1 1 c a 1 root 

thickness 

pi 

Total 

stage  vac. 

Thrust 

0 

Total 

stage  vac. 

Thrust  / 1,000,000 

pi 

Total 

stage  vac. 

Secondary  thrust 

S I PRASE  SUBROUTINE  USAGE 

BLOC*  LOU  SJBn  CODE  VAR 


/CINPUT/C  36S ) 

/ C I NPUT /(  385  ) 

/ VO  LCAL/  ( 9) 

/CINPUT/C  386) 

/V0LCAL/<  10) 
/VOLCAL/I  11) 

/VOLCAL/I  12) 

/ VOLCAL/(  13) 

/ VOLCAL/I  19) 

/SORT  /($  ) 


/ VOLCAL/ ( 

15  ) 

/ VOLCAL/I 

16  ) 

/V0LCAL/< 

17  ) 

/ VO  LCAL/ ( 

18  ) 

/TAN  /<$ 

) 

/ VOL  CAL/ ( 

19) 

/ C I NPUT / ( 

388  ) 

/ C I NP UT /( 

389  ) 

/VOLCAL/I 

20) 

/ VO  LC AL/ ( 

21  ) 

/VOLCAL/I 

23) 

/VOLCAL/I 

22) 

PfilTVA 

I 

R HO  X 

STORE 

pi 

R HO  X 

WTSCH 

I 

R HO  X 

PRIT VA 

i 

RH0X2 

STORE 

« 

RH0X2 

WTSCH 

I 

RH0X2 

WTSCH 

n 

RTOO 

PROTHR 

I 

SBODY 

TAPIPER 

I 

SBODY 

WTSCH 

pi 

SBODY 

WTSCH 

Pi 

SFAIR 

PROTHR 

I 

SFUTK 

WTSCH 

a 

SFUTK 

PROTHR 

I 

SHORZ 

WTSCH 

19 

SHORZ 

PROTHR 

I 

SOXTK 

WTSCH 

H 

SOXTK 

PROTHR 

I 

SPLAN 

TAHPER 

I 

SPLAN 

WTSCH 

0 

SPLAN 

WT  VOL 

I 

SPLAN 

ANLATft 

F 

SORT 

CRASH 

F 

SORT 

DCTOE 

F 

SORT 

OER3A 

F 

SORT 

ENVPRI9 

F 

SORT 

HUNT 

F 

SORT 

FIODELA 

F 

SORT 

flQDELB 

F 

SORT 

OPWELL 

F 

SORT 

OUT 

F 

SORT 

PAT63 

F 

SORT 

PAY02 

F 

SORT 

POBC 

F 

SORT 

POV3A 

F 

SORT 

STORE 

F 

SORT 

SYHVRT 

F 

SORT 

WTSCH 

F 

SORT 

WTSCH 

Pi 

STPS 

PROTHR 

1 

SVERT 

WTSCH 

PI 

SVERT 

PROTHR 

I 

SWING 

STORE 

m 

SWING 

WTSCH 

pi 

SWING 

PROTHR 

I 

SXPOS 

WTSCH 

0 

SXPOS 

WTSCH 

F 

TAN 

WTSCH 

Pi 

TOEL 

PROTHR 

I 

TOVERC 

STORE 

n 

TOVERC 

WTSCH 

I 

TOVERC 

STORE 

pi 

TPRATO 

WTSCH 

I 

TPRATO 

WTSCH 

pi 

TROOT 

PRITVA 

I 

TTOT 

STORE 

I 

TTOT 

WTSCH 

pi 

TTOT 

WT  VOL 

I 

TTOT 

WTSCH 

0 

TTOTAL 

PRITVA 

I 

TT0T2 

WTSCH 

PI 

TT0T2 
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I oh  1 H 4N 
SYMBOL 


HAT  H 
SYMBOL 


c OOE 


DESCRIPTION 


S TOR  AGg 


BLOCK 


LOC 


SUBROUTINE  USAGE 
SU8R  CUOE  VAR 


VBODY 

to 

Total  body  vol  uae 

/ C I NP  UT  / ( 

391  ) 

PRINT  V 

M 

VBOOY 

SOLVE 

n 

VBOOY 

STORE 

M 

VBOOY 

T *MPER 

I 

VBODY 

WTSCH 

M 

VBOOY 

WT  VOL 

I 

VBOOY 

VBODYA 

to 

Total  body  voluae  lets  structure 

/ VO  1C AL/ ( 

ZH  ) 

WTSCH 

to 

VBODYA 

VBOOYX 

u 

Body  voluae 

/WTSCH  /(a 

) 

WTSCH 

W 

VBOOYX 

VB0DY1 

n 

Vbody  to  - 1/3  poeer 

/ VO  LC AL/ ( 

25  > 

WTSCH 

to 

VBODY 1 

WT  VOL 

n 

VBODY 1 

VB0DY2 

n 

Vbody  to  * 2/3  poaer 

/VOLCAL/t 

26  ) 

WTSCH 

m 

VB0DY2 

WT  VOL 

m 

VB00Y2 

VC AR  GO 

n 

Vo  1 uae  of  c er  go  bay 

/ V0LCAL/( 

27  ) 

PR  I NT  V 

I 

VC  AR  GO 

T AMPER 

I 

VC  AR  GO 

WTSCH 

rt 

VC  AR  SO 

VCREU 

to 

Voluae  of  crti  eoapartaent 

/ VO  LCAL/ ( 

26  ) 

PRINTV 

l 

VCREW 

WTSCH 

n 

VCR  E W 

VFUTK 

n 

Total  voiuac  of  fuel  tank 

/ V0LCAL/( 

29  ) 

PRINTV 

I 

VFUTK 

STORE 

« 

VFUTK 

TAMPER 

I 

VFUTK 

WTSCH 

to 

VFUTK 

VFUTK2 

to 

Total  voluae  of  secondary  fuel  tank 

/V0LCAL/( 

30  ) 

PRINTV 

I 

VFUTK2 

STORE 

to 

VFUTK2 

T AflPER 

I 

VFUTK2 

WTSCH 

n 

VFUTK2 

VI NSTK 

n 

Total  tank  insulation  voluae 

/ VOLCAL/t 

31  ) 

PRINTV 

I 

VINSTK 

WTSCH 

M 

VINSTK 

VLGBAY 

n 

Voluae  of  recovery  systea  bay 

/ VOLCAL/ ( 

32) 

PRINTV 

I 

VLGBAY 

WTSCH 

to 

VLGBAY 

VOXTK 

to 

Total  voluae  of  oxldlxer  tank 

/ VO  LCAL/( 

3H) 

PRINTV 

I 

VO  XT  K 

STORE 

to 

VO  XT  K 

TAMPER 

I 

VO  XT  K 

WTSCH 

to 

VOXTK 

V0XTK2 

n 

Total  voluae  of  secondary  oxldlxer  tank 

/V0LCAL/( 

35  ) 

PRINTV 

I 

V0XTK2 

STORE 

(i 

V0XTK2 

TAMPER 

I 

V0XTK2 

WTSCH 

n 

V0XTK2 

VPROP 

n 

Voluae  of  propulsion  bay 

/ VOLCAL/ ( 

36  ) 

PRINTV 

I 

VPROP 

WTSCH 

19 

VPROP 

VSTRUC 

n 

Voluae  of  basic  structure 

/ VOLCAL/ ( 

37  ) 

PRINTV 

I 

VSTRUC 

WTSCH 

M 

VSTRUC 

UABFPS 

u 

Weight  of  jp  pressurization  systea 

/WTSCH  /(a 

) 

WTSCH 

U 

UABFPS 

UfABFS 

0 

Weight  of  jp  fuel  systea  less  tanks 

/WTSCH  /(a 

) 

WTSCH 

0 

UABFS 

WABFTK 

n 

Weight  of  air  breathing  propulsion  systea  tanks 

/ WT  C ALC/ ( 

2 ) 

PR  I NT W 

I 

WABFTK 

WTSCH 

to 

WABFTK 

UABFU 

A 

Ue  i ght  of  jp  fuel 

/ WT  C ALC/ ( 

3 ) 

PRINTU 

I 

WABF.U 

PRWTSM 

to 

UABFU 

_ 

TAMPER 

I 

WABFU 

WTSCH 

(9 

UABFU 

uabpr 

m 

Weight  of  air  breathing  engines 

/ WT  CALC/ ( 

H ) 

PR1NTW 

I 

WABPR 

WTSCH 

19 

WABPR 

WACRES 

m 

Weight  of  attitude  control  fuel  reserve 

/WT  CALC/( 

5 ) 

PR  I NT W 

I 

WACRES 

STORE 

to 

WACRES 

WTSCH 

to 

WACRES 

MACS 

n 

Weight  of  attitude  control  systea 

/WTCALC/( 

6 ) 

PRI NTW 

I 

UACS 

WTSCH 

19 

WACS 

UIACSF 

u 

Weight  of  attitude  control  fuel 

/WTSCH  /( a 

> 

WTSCH 

W 

WACSF 

UACSFO 

m 

Weight  of  attitude  control  fuel  plus  oxidizer 

/ WT  C ALC / ( 

7 ) 

PRINTU 

I 

WACS  FO 

STORE 

M 

UACSFO 

WTSCH 

to 

wacsfo 

WACSQ 

w 

Weight  of  attitude  control  oxldlxer 

/WTSCH  /(a 

) 

WTSCH 

W 

UACSO 
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'**7 


F OUTRAN 

symbol 


math 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE 


BLOCK 


TUT 


SUBROUTINE  USAGE 
sues  CODE  VAR 


UACSP 

w 

Weight  of  attitude  control  propellht 

/WTSCH  /(* 

) 

WTSCH 

W 

UACSP 

WACSTK 

n 

Weight  of  attitude  control  tankage 

/WTCALC/t 

8 ) 

PR  I NT W 

I 

UACSTK 

WTSCH 

ft 

wacstk 

waeao 

ft 

Weight  of  aero^ynaalc  control* 

/UTCALC/t 

9 ) 

PR1NTW 

I 

waero 

WTSCH 

ft 

WAERO 

WAUXT 

ft 

Weight  of  reparation  lyitia 

/WTCALC/( 

10) 

PR  I NT  W 

1 

WAUXT 

STORE 

I 

wauxt 

WTSCH 

ft 

WAUXT 

WAVIOC 

0 

Total  aeight  of  avionic  systea 

/WTSCH  /<* 

) 

WTSCH 

0 

WAVIOC 

WBASIC 

w 

Total  aeight  of  basic  body  •> 

/UTCAlC/( 

n > 

PR  1 NT W 

I 

WBASIC 

PROTHR 

I 

WBASIC 

* 

WTSCH 

ft 

WBASIC 

UBOOY 

ft 

Total  aeight  of  body  group 

/utcalc/< 

12 ) 

PRINTW 

I 

UBOOY 

WTSCH 

ft 

UBOOY 

UBPUMP 

n 

Weight  of  boost  and  transfer  puapt 

/WTCALC/t 

13) 

WTSCH 

ft 

UBPUPIP 

WCAR  GO 

ft 

Pav load  aeight  or  cargo 

/WTCALC/( 

1*  ) 

PRINTW 

I 

UC ARGO 

WTSCH 

ft 

ucargo 

UCO«* 

ft 

Co aaun I c at i o n systea  aeight 

/WTCALC/t 

15  ) 

PRINTW 

I 

WCOMM 

WTSCH 

ft 

ucoMn 

WCONT 

ft 

Contingency  and  groath  aeight 

/WTCALC/( 

lb  ) 

PRINTW 

I 

WCONT 

TAMPER 

I 

WCONT 

WTSCH 

« 

WCONT 

WCOVER 

ft 

Total  aeight  of  theraai  protection  systea  cover 

/WTCALC/( 

17  ) 

PRINTW 

I 

WCOVER 

panels 

WTSCH 

ft 

WCOVER 

woecav 

ft 

Thrust  decay  propellant  aeight 

/ WT  CALC/< 

16  ) 

PRINTW 

l 

WOECAY 

STORE 

ft 

WOECAY 

WTSCH 

ft 

WOECAY 

U01ST1 

n 

Fuel  systea  distribution  aeight  ptl 

/WTCALC/t 

19  ) 

WTSCH 

ft 

WDIST1 

UDIST2 

ft 

Fuel  systea  distribution  aeight  pt2 

/WTCALC/t 

20) 

WTSCH 

ft 

W0IST2 

woock 

n 

Docking  structure  aeight 

/WTCALC/( 

21  ) 

PRINTW 

I 

WOOCIC 

WTSCH 

ft 

WOOCK 

WOPLOY 

ft 

Deployable  aerodynaalc  device  aeight 

/WTCALC/t 

22) 

PRINTW 

1 

WOPLOY 

WTSCH 

ft 

WOPLOY 

UDRANS 

ft 

Fuel  tank  duap  and  drain  aalght 

/WTCALC/t 

23  ) 

WTSCH 

ft 

UDRANS 

WQfi  Y 

ft 

Stage  dry  aeight 

/WTCALC/t 

29  ) 

PRINTW 

l 

WORY 

TAMPER 

l 

WDRY 

WTSCH 

ft 

WORY 

WErtPTY 

ft 

Stage  eapty  aeight 

/WTCALC/t 

2b) 

WTSCH 

ft 

WEMPTY 

WENGMT 

ft 

Engine  aount  aeight 

/WTCALC/t 

27  ) 

WTSCH 

ft 

WENGMT 

WENGS 

ft 

Weight  of  rocket  engines  Installed 

/ WT  C ALC/ ( 

26) 

PRINTW 

I 

WENGS 

WTSCH 

M 

WENGS 

WEM6S2 

ft 

Weight  of  secondary  engines 

/WTCALC/t 

29  ) 

PRI NT  W 

I 

WENGS2 

WTSCH 

ft 

UENGS2 

WFAIR 

ft 

Weight  of  fairings  and  shrouds 

/wtcalc/( 

30  > 

PRI NTW 

I 

WFAIR 

WTSCH 

ft 

WFAIR 

UFCONT 

ft 

Fuel  systea  controls  aeight 

/ WT  C ALC/( 

31  ) 

WTSCH 

ft 

WFCONT 

WFOCAY 

ft 

Thrust  decay  fuel  aeight 

/WTCALC/t 

32  ) 

WTSCH 

ft 

WFOCAY 

WFROST 

n 

Frost  end  ice  aeight 

/wtcalc/< 

33) 

PRINTW 

I 

WFROST 

STORE 

n 

WFR05T 

WTSCH 

ft 

WFROST 

WFUEL 

ft 

Fuel  aeight  l.  Thrust  buMd-up  fuel  2.  Not  used 

/ WT  C ALC/( 

37  ) 

PRWTSM 

ft 

WFUEL 

3 Main  iapulse  fuel  at.  9.  Wain  iapulse  fuel 

reserve  5.  Secoidtrf  lmpult9  fuel  b.  Not  used 

WTSCH 

ft 

WFUEL 

WFUL 

ft 

Fuel  a*  1 ght 

/WTCALC/t 

93  ) 

PRINTW 

I 

UFUL 

WTSCH 

ft 

WFUL 

UFULOS 

n 

Vented  fuel 

/WTCALC/t 

99  ) 

PRINTW 

I 

WFULOS 

STORE 

ft 

WFULOS 

WTSCH 

ft 

WFULOS 
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FORTRAN 

•jVroHOL 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


&TOWSE 

BLOCK  IOC 


SUBROUTINE  USAGE 
S USR  CODE  VAR 


ufunct 

M 

Fuel  tank  Height 

/ UTC  ALC/( 

95  > 

WTSCH 

M 

WFUNCT 

WFUOX 

m 

Weight  -f  n a 1 n and  secondary  propellant 

/UTCALC/t 

96  ) 

PRINTW 

I 

WFUOX 

TAMPER 

I 

WFUOX 

WTSCH 

n 

WFUOX 

WT  VOL 

I 

WFUOX 

WFURES 

n 

Fua 1 reser  va 

/WTCALC/( 

97) 

PRINTW 

I 

WFURES 

STORE 

M 

WF  UR  ES 

TAMPER 

I 

WFURES 

WTSCH 

n 

WFURES 

WFUSYS 

m 

Total  fuel  aystea  Height 

/ WTC ALC/( 

98) 

PRINTW 

I 

WFUSYS 

WTSCH 

M 

WFUSYS 

UFUTK 

m 

Ut  of  non-s tr uct ur a 1 fuel  tankage 

/WTCALC/( 

*19 ) 

PRINTW 

I 

WFUTK 

WTSCH 

M 

UFUTK 

UFUTK2 

m 

Ut  of  secondary  fuel  tank  and  aystea 

/WTCALC/{ 

50) 

PRINTW 

I 

WFUTK2 

WTSCH 

M 

WFUTK2 

UFUTOT 

n 

Total  Height  of  fuel 

. /wtcalc/< 

51  ) 

WTSCH 

n 

UFUTOT 

WFUTRP 

m 

Tr  apped  fuel  ae 1 ght 

/WTCALC/( 

52) 

PRINTW 

I 

UFUTRP 

STORE 

M 

UFUTRP 

WTSCH 

fl 

UFUTRP 

UFU2 

n 

Weight  of  secondary  fuel 

/wtcalc/< 

3 H) 

PRINTW 

I 

UFU2 

TAMPER 

I 

UFU2 

WTSCH 

m 

WFU2 

UGASPR 

n 

Weight  of  gas  and  pressurant 

/wtcalc/< 

53) 

PRINTW 

I 

UGASPR 

STORE 

M 

UGASPR 

WTSCH 

n 

UGASPR 

UGNAV 

n 

Guidance  and  navigation  aystea  at 

/WT  CALC/( 

59  ) 

PRINTW 

I 

UGNAV 

WTSCH 

n 

WGNAV 

UIGROSS 

n 

Gross  lift-off  Height 

/cinput/< 

392) 

PRINTW 

I 

U GROSS 

PRWTSM 

I 

WGROSS 

SOLVE 

M 

WGROSS 

STORE 

w 

WGROSS 

tamper 

I 

WGROSS 

WTSCH 

Ft 

WGROSS 

WT  VOL 

I 

WGROSS 

WHORZ 

n 

Horizontal  stabilizer  at. 

/WTCALC/( 

55) 

PRINTW 

l 

WHCRZ 

PROTHR 

I 

WHORZ 

WTSCH 

« 

WHORZ 

WHY  CAD 

m 

Hydraulic  / pneunat! r aystea  at 

/WTCALC/( 

56) 

PRINTW 

I 

WHYCAO 

WTSCH 

Ft 

UHYCAO 

WINFUT 

m 

Weight  of  intergral  fuel  tank 

/wtcalc/< 

57) 

PRINTW 

I 

WINFUT 

PROTHR 

1 

U1NFUT 

WTSCH 

M 

WINFUT 

id  I NO  XT 

m 

Weight  of  Integra!  oildlter  tank 

/ WT  CALC/I 

58) 

PRINTW 

I 

U I NO  XT 

PROTHR 

I 

Wl NO  XT 

WTSCH 

Ft 

WINOXT 

WINST 

n 

Weight  of  Instruaent  systea 

/WTCALC/( 

60) 

PRINTW 

I 

WINST 

WTSCH 

« 

WINST 

tdINSTK 

1*1 

Total  Height  of  tank  Insulation 

/utcalc/< 

59  > 

PRINTW 

I 

WINSTK 

WTSCH 

M 

WINSTK 

UJET 

m 

Jettison  Height  1.  Ignition  to  lift-off  2. 

Not 

/wtcalc/( 

62) 

PRITVA 

I 

WJET 

used  3.  Jettison  during  ascent  9.  In-orblt 

PRWTSM 

M 

UJET 

jettison  nt . 5.  Pre-entry  jettison  at.  6. 

Fly- 

STORE 

0 

WJET 

back  jettison  at . 

TAMPER 

I 

UJET 

WTSCH 

Ft 

WJET 

WLANCH 

m 

Launch  gear  aetght 

/wtcalc/< 

68  > 

PRINTW 

I 

WLANCH 

WTSCH 

M 

WLANCH 

WLG 

m 

Landing  gear  and  controls  aelght 

/wtcalc/< 

69) 

PRINTW 

I 

WLG 

WTSCH 

M 

wlg 

Id  LOSS 

0 

In-flight  Height  lots 

..  /WTCALC/(__ 

70) 

PRINTW 

I 

WLOSS 

PRWTSM 

I 

WLOSS 

WTSCH 

0 

WLOSS 
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FORTRAN 

SYMBOL 


HATH 

SYPIBOL 


COOE 


DESCRIPTION 


5TORAr,£ 
BLOCK 


lO"c 


subroutine  usage 
SUBR  coot  VAR 


ULRO 

PI 

/UTCALC/( 

n ) 

PRINTU 

I 

ULRO 

UTS  CH 

rt 

wlrd 

UNACEL 

pi 

Pylon*,  n ac  e 1 , end  pod  aeight* 

/ UT  C ALC  / ( 

72  ) 

PRINTU 

I 

UNACEL 

UT  S CH 

pi 

UNACEL 

UIODCAV 

n 

Oxidizer  thrust  daeey  aeight 

/UTCALC/I 

73) 

UTSCK 

« 

UOOCAY 

MOIL 

w 

Servlet  Itaa  lot*** 

/WTCALC/C 

79  ) 

PRINTU 

1 

UOIL 

UT  S CH 

n 

WO  I L 

LIOILRS 

n 

Ser  vice  1 tee  r esar ves 

/WTCA^C/i 

75  ) 

PRINTU 

I 

WOILRS 

WTSCH 

n 

UOILRS 

UQRSUL 

n 

Or  1 ent at i on, contr o 1 , and  separation  systea  aeight 

/UTCALC/( 

76  ) 

PRINTU 

I 

UORSUL 

WTSCH 

pi 

WORSUL 

COVERS 

n 

Wing  loading 

/UTCALC/t 

77  ) 

PROTHR 

I 

WO  VERS 

tAPIPER 

I 

UO VERS 

UT  S CM 

n 

UO VERS 

UOX 

M 

Thrust  build*up  oaldizer  I.  Thrust  build-up 

/UTCALC/( 

78) 

PRUT  SM 

n 

uox 

oKidiz^r  2.  Not  used  3.  Naln  iapulse  oxidizer  9. 
Plain  iapulse  oxidizer  reserve  5.  Secondary  iapulse 
o x i di zer  6 . Not  used 

WTSCH 

ft 

UOX 

UIQXID 

n 

Aain  iapulse  oxidizer  aelghter 

/UTCALC/( 

87) 

PRINTU 

l 

UO  XI  D 

WTSCH 

n 

UOXID 

UOXLOS 

* 

Vented  oxidizer 

/UTCALC/< 

86  ) 

PRINTU 

i 

UOXLOS 

STORE 

n 

UOXLOS 

* 

WTSCH 

n 

UOXLOS 

UOXRES 

n 

Oxidizer  reserve 

/WTCALC/( 

89  ) 

PRINTU 

i 

UOXRES 

STORE 

a 

UOXRES 

TAPIPER 

i 

UOXRES 

WTSCH 

« 

UOXRES 

uoxsvs 

19 

Oxidizer  systea  aelght 

/UTCALC/( 

90  ) 

PRINTU 

i 

UOXSVS 

WTSCH 

19 

UOXSVS 

UOXTK 

n 

Non-sturctur a 1 tank  at.-  oxidlzar 

/WTCALC/( 

91  ) 

PRINTU 

I 

UOXTK 

WTSCH 

n 

UOXTK 

U0XTK2 

19 

Secondary  systea  oxidlzar  tank  at 

/UTCALC/( 

92  ) 

PRINTU 

l 

U0XTK2 

WTSCH 

pi 

U0XTK2 

UIOXTOT 

n 

Total  aeight  of  oxidlzar 

/UTCALC/( 

93  ) 

UTS  CH 

pi 

WO  X TOT 

UOXTRP 

fi 

Trapped  oxidizer  aeight 

/UTCALC/( 

99  ) 

PRINTU 

I 

UQXTRP 

STORE 

pi 

UO  XT  RP 

UTSCH 

pi 

UOXTRP 

U0X2 

Secondary  oxidizer  aeight 

/WTCALC/< 

89) 

PRINTU 

I 

UOX  2 

TAPIPER 

I 

U0X2 

UTSCH 

« 

U0X2 

UP 

* 

Total  propailant  aeight 

/UTCAlC/( 

95) 

UTSCH 

19 

UP 

UPASS 

n 

Ueight  of  passengers 

/UTCALC/( 

96) 

PRINTU 

I 

UPASS 

UTSCH 

rt 

WP  ASS 

UPAYL 

« 

Payload  aaight 

/UTCALC/( 

97) 

PRINTU 

I 

UPAVL 

TAPIPER 

I 

UPAYL 

UTSCH 

19 

UPAVL 

upers 

n 

/UTCALC/( 

98) 

PRINTU 

I 

UPERS 

UTSCH 

PI 

UPERS 

UPOUCO 

n 

Poaer  conditioning  equlpaent  at. 

/UTCALC/( 

99) 

PRINTU 

I 

UPOUCO 

UTSCH 

19 

UPOUCO 

UPOWFO 

pi 

Poaer  systea  propellant  at. 

/ UIT  CALC/( 

101  ) 

PRINTU 

I 

UPOUFO 

STORE 

H 

WP  0 UFO 

UTSCH 

PI 

UPOUFO 

UPOURS 

n 

Poaer  systea  propellant  reserve 

/UTCALC/l 

102) 

PRINTU 

1 

UPOURS 

STORE 

PI 

WPOWRS 

UTSCH 

PI 

UPOURS 

UIPOUTK 

_ pi 

PrJae  poaer  systea  tank  aeight 

/U)TCALC/( 

103  ) 

PRINTU 

I 

UPOUTK 

UTSCH 

PI 

WPOUTK 

WPPROV 

a 

Personnel  provision! 

/UTCALC/( 

109) 

PRINTU 

I 

UPPROV 

UTSCH 

PI 

WPPROV 
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HIM  1 H AN 

SvnHOl 


II A 1 H 
SVflBOL 


COOE 


DESCRIPTION 


STORAGE 


BlDI* 


LOC 


SUBROUTINE  USAGE 
SOtM  CODE  VAR 


WPREIG 

n 

Pr#-|  gnl  t 1 on  lost! t 

/wtcalc/< 

105  ) 

PRINTW 

I 

WPREIG 

PRWTSfl 

fl 

UPREI  G 

UTSCH  , 

. fl 

WPREIG 

WPROP 

fl 

Total  velght*  propulsion  group 

/WTC ALC/( 

106  ) 

PRINTW 

I 

WPROP 

UTSCH 

fl 

WPBDP 

UIPRSYS 

n 

Pro ssur  1 iition  syitn  Blight 

/UTCALC/< 

107  > 

PRINTW 

I 

UPRSYS 

UTSCH 

fl 

WPRSYS 

WREFUL 

fl 

Fuel  systea  refueling  systea  Blight 

/wt  calc/ ( 

108  ) 

UTSCH 

fl 

UREFUL 

WRES10 

n 

We  1 ght  of  res  1 due 1 1 

/WTCALC/( 

109  ) 

PRINTW 

I 

WRESIO 

UTSCH 

fl 

WRE5ID 

WRESRV 

n 

Prope  \ 1 mt  reurvi 

/ WT  C ALC/< 

110) 

PRINTW 

I 

WRESRV 

WTSCH 

fl 

WRESRY 

USE  AL 

n 

Fuel  tank  seal  bo i ght 

/WTCALC/( 

111  > 

UTSCH 

fl 

WSEAL 

WSECST 

n 

Secondary  body  structure  at 

/ WT  C ALC/< 

112  ) 

PRINTW 

I 

WSECST 

prothr 

I 

WSECST 

UTSCH 

fl 

WSECST 

W50ACE 

n 

Prlue  power  systea  Blight 

/WTC*LC/< 

113) 

PRINTW 

I 

WSOBCE 

UTSCH 

fl 

USORCE 

WSRTRP 

n 

Trapped  oxidizer  aetght 

/ WT  C ALC/( 

11R) 

PRINTW 

I 

WSRTRP 

STORE 

fl 

WSRTRP 

/ 

WTSCH 

fl 

WSRTRP 

WSTAB 

n 

Engine  glabal  systea  at 

/ WT  CALC/ ( 

115) 

PRINTW 

I 

WSTAB 

WTSCH 

rt 

WSTAB 

WSURF 

n 

Aero  surface  at 

/WTCALC/< 

116  ) 

PRINTW 

I 

WSURF 

WTSCH 

fl 

USURF 

WT  ABC 

0 

Net  stage  aeight 

/WTCALC/( 

117  ) 

WTSCH 

0 

WT  ABC 

WTHRST 

n 

Thrust  structure  at 

/UTCALC/l 

116) 

PRINTW 

I 

WTHRST 

WTSCH 

rt 

WTHRST 

WTO 

n 

T ake-  off  eel ght 

/ WTC ALC/( 

119) 

PRINTW 

I 

WTO 

WTSCH 

fl 

WTO 

WTPS 

n 

Induced  en v i r o nae nt a 1 protection  at 

/ WTC ALC/I 

120) 

PRINTW 

I 

WTPS 

UTSCH 

fl 

WTPS 

UTS  CH 

E 

Subroutine  to  calculate  aeight  and  *olu«e 

of  both 

/UTSCH  /(  $ 

> 

SOLVE 

S 

WTSCH 

stages 

WTSCH 

E 

UTSCH 

WT  VOL 

S 

UTSCH 

WVERT 

fl 

Vert i cal  fin  aei ght 

/WT  CAL£/( 

121  ) 

PRINTW 

I 

WVERT 

PROTHR 

I 

WVERT 

WTSCH 

fl 

UVERT 

WWAIT 

rt 

Suaaary  alights  2.  Ignition  2 . Take-off 

3. 

/ WT  CALC/I 

122  ) 

PRITVA 

I 

WWA2T 

Burnout  M.  Initial  orbittr  5.  Initial  entry  6, 

PRUTSfl 

I 

WWAIT 

Initial  flyback  T.  Landing 

STORE 

fl 

UWA1T 

TAMPER 

I 

UUAIT 

UTSCH 

fl 

UUAI  T 

UWET 

n 

Operating  eeight-eapty 

/WTCALC/( 

132) 

PRINTW 

I 

UUET 

WTSCH 

fl 

UUET 

UUI  NG 

n 

Total  structural  at.  Of  aing 

/wtcalc/< 

133  ) 

PRINTW 

I 

WW1NG 

PROTHR 

I 

UWI  NG 

UTSCH 

fl 

UWI  NG 

WZROFU 

a 

Zero  fuel  slight  of  vehicle 

/ WT  C ALC/ ( 

13R  ) 

UTSCH 

fl 

UZROFU 

30  OCT  72  G . 01-46 


F ORTRAN 
SYHBOL 


HATH 

SYriBOL 


CODE 


DESCRIPTION 


STORAGE 
BLOCK  LOT 


VN 

in 


\ 


SUBROUTINE  USAGE 
SUBh  CODE  VAR 


. UN06. 


0 Flit  of  til  output  dot  A 


/ . UN06 . /(  A 


BlICO 

0 

.UNO*. 

BNORVC 

0 

. UN06 . 

CRASH 

0 

. UNQ6 . 

FRENCH 

0 

. UN06 . 

FXOAT 

0 

.UN06. 

GE1NP 

0 

. UN06 . 

HUNT 

0 

. UN06 . 

INEOIT 

0 

. UN06. 

ITER8 

0 

. UN06 . 

"ODELA 

0 

.UNOfe. 

* 0«J 

0 

. UN06 , 

MPSI 

0 

. UN06 . 

OUT 

0 

. UN06 . 

PAY02 

0 

. UN06 . 

PRINT 

0 

. UN06 . 

PR  I NT  V 

0 

. UN06 . 

PRINTU 

0 

. UN06 . 

PRITEO 

0 

. UN06 . 

PRITVA 

0 

. UN06 . 

PROPIN 

0 

. UN06 . 

PROTHR 

0 

. UN06. 

PRUTSfl 

0 

. UN06 . 

RANGE 

0 

.UN06. 

S 

0 

. UN06 . 

SDINP 

0 

. UN06. 

SIZE 

0 

. UN06 . 

SIZIN 

0 

. UN06 . 

SIZOUT 

0 

. UN06 . 

SOLVE 

0 

. UN06 . 

SPLICO 

0 

. UN06. 

SPLIZ 

0 

. UNOE . 

SPLYNE 

0 

. UN06 . 

SSSP 

0 

. UN06 . 

STAU 

0 

. UN06 . 

STPIT 

0 

. UN06 . 

SUflOUT 

0 

. UN06 . 

TABIN 

0 

. UN06 . 

TEST 

0 

. UN06. 

VEHOF 

0 

. UN06 . 

UITSCH 

0 

. UN06 . 

uITVOL 

0 

. UN06 . 

30  OCT  72  G.  0l-<«6 


UTSCH 


1, 

SUBROUTINE  UTSCN 

UTSCH 

2. 

C 

UTSCN 

••• 

UTSCH 

3. 

C 

UTSCH 

9 . 

c 

UTSCH  SUBROUTINE 

REPROGRAHED  BV  UALTER  0.  HONEYCUTT 

UTSCH 

5. 

c 

AND  B. 

H.  OHAN  ON  9/17/70 

INPUT  DECKS  PRIOR 

TO  THIS 

DATA  ARE 

NO 

UTSCH 

6. 

c 

LONGER 

VALID 

UTSCH 

7. 

c 

UTSCH 

e. 

c 

UTSCH 

9. 

REAL  NUB.  HUO.  ISPB.  ISPO. 

IOVEL.NNB.NO 

SUING 

10. 

COflflON  /SIZING/ 

SUING 

11. 

c 

PHASE  II  SUING  PARANERERS 

SUING 

12. 

*TZ, 

WO), 

QP(  IS), 

EROR, 

PZ<  5), 

vq. 

SU(  20), 

SIZING 

13. 

*SV(28  >. 

SQ(  37.5 

. SE(U). 

TLAT  . 

’ TLN6, 

SUING 

IS. 

c 

PHASE  I SUING  PARAHEAERS 

SUING 

15. 

• UBO, 

ULOO, 

OUEB, 

OUEO, 

TOLUT 

. UPB, 

TURAT2, 

SUING 

16. 

•BK1 , 

8K2, 

BK3, 

BKS, 

I SUE 

, traFlc,  turato. 

SUING 

17. 

• OKI, 

0X2, 

0X3, 

OKS, 

prflg 

, IPASS,  IPSNAX, 

SUING 

i8. 

♦AEXIT, 

T VACO, 

NO, 

UFO, 

IOVEL 

, ISPO,  ISPB, 

SIZING 

19. 

• XPL, 

tvacb. 

NNB, 

UEO, 

UEB, 

NO. 

ULO. 

SUING 

20. 

•ovo. 

OVB 

NUB, 

nufi. 

VSTG 

, uPo 

SUING 

21  . 

•, JTYP, 

BECO  , 

BSTG  , 

ORBI  . 

ITNBU 

. ITNOU 

SIZING 

22. 

♦ SVOPSO 

. SVDCON 

, I HUNT 

.IQPSTG  . ISZOI 1*  ) 

UH 

23. 

REAL  KIN 

CINPUT 

2S. 

REAL  1SP,K,LFNR 

NCREU.LBODV.NP ASS 

UNPUT 

25. 

real  nengs 

CINPUT 

26. 

COrtHON/CINPUT/ 

CINPUT 

27. 

1ANENGS 

, ANT  ANK 

, ASRATO 

,ASU£EP 

,C(  300) 

, CBBOOV 

, CFUELt 6 ), 

CINPUT 

28. 

2CHBOOV 

, CLBODV 

, CSBOOY 

, CSF  AIR 

, C5FUT  K 

, CSHORZ 

, CSOXTX 

CINPUT 

29. 

3CSPLAN 

, CS VERT 

, CSUI N6 

, CTHRST 

, CT  HST2 

, OEF( 5 ) 

, FXUOVS 

CINPUT 

30. 

S1SP( 6 > 

, ITPS 

,K(  30) 

, KIN 

,LF 

,NR(  6) 

,NCREU 

CINPUT 

31. 

5NENGS 

,NLISTO 

, NP ASS 

,nul 

, PCHAN 

,RHOFU 

CINPUT 

32. 

6RH0FU2 

,RHOX 

,RH0X2 

, SBOOY 

,TOL 

, TO VERC 

, TPRATO 

CINPUT 

33. 

7TVTAIL 

. VBODV 

. UGROSS 

CINPUT 

3S. 

CQnnON/ VuLCAL/BBOOV . CROOT 

, CSP AN 

, CTIP 

, GAL 

, GSPAN 

VOLCAL 

35. 

2HS00V 

, LBQDV 

,RT0D 

,SFAIR 

, SFUT  K 

, SKORZ 

, SOXTK 

VOLCAL 

36. 

3SPLAN 

, STPS(  1 ) 

, S VERT 

, SUING 

,5XP0S 

, TOEL 

, TROOT 

VOLCAL 

37. 

STTOT 

,TT0T2 

,TTOTAL 

, VBOOV  A 

, VBOOV 1 

, VB00V2 

, V CAR GO 

VOLCAL 

38. 

5VCREN 

, VFUTK 

,VFUTK2 

, VI NSTK 

,Vl6BAV 

, VOTHER 

,VOITK 

VOLCAL 

39. 

6V0XTK2 

. VPROP 

, VSTR  UC 

VOLCAL 

SO. 

CONHON/UtCALC/ 

ABFSYS 

UABFTK 

, UABFU 

UABPR 

, UACRES 

UT  CALC 

SI. 

1UACS 

, UACSFO 

, UACSTX 

, UAERO 

, UAUXT 

, UBAS I C 

, UBOOY 

UTCALC 

S2 . 

2UBPUNP 

, UCARGO 

, UCONH 

UCONT 

.UCOVER 

, UOECAV 

, UOI ST  1 

UTCALC 

S3. 

3UOI5T2 

, UOOCK 

, UOPLOV 

, UQR ANS 

,UORV 

, UELCAD 

, U£  HPT  V 

UTCALC 

ss. 

9UENGHT 

, UENGS 

, UENGS2 

UF  AI R 

, UFCONT 

, UFOCAV 

, UFROST 

UTCALC 

S5 . 

5UFU2( 3 > 

, UFUEU  6 

, UFUL 

, UFULOS 

,UFUNCT 

, WFUOX 

, UFURES 

UTCALC 

S6. 

6UFUSVS 

, UFUTK 

, UFUTK2 

UFUTOT 

, UFUTRP 

, UGASPR 

, U6NAV 

UTCALC 

S7. 

7UH0RZ 

, UHVCAO 

,uinfut 

UI  NO  XT 

, UI NSTK 

, W1NST 

, UI NSUL 

UTCALC 

S8. 

8UJET ( 6 ) 

ULANCH 

, ulg 

, ULOSS 

,ULRO 

, UNACEL 

, UODCAV 

UTCALC 

S9. 

9U0IL 

,UOI LRS 

, UORSUL 

, UO VERS 

,U0X<6> 

,U0X2(  3) 

,UOXIO 

UTCALC 

50. 

1U0XL0S 

, UO XRES 

UQXSYS 

,UOXTK 

U0XTK2 

.UOXTOT 

UOXTRP 

UTCALC 

51. 

2 UP 

, UP ASS 

,UPAVL 

, UPERS 

,UPOUCO 

, UPOUER 

, UPOUFO 

UTCALC 

52. 

3 UP  OURS 

, UPOUTK 

, UP  PRO  V 

, UPREI 6 

UPROP 

UP  R S V S 

, UREFUL 

UTCALC 

53. 

SURESIO 

, URESR V 

,useal 

, USECST 

, USORCE 

USRTRP 

,U5TAB 

UTCALC 

5S . 

5USURF 

, UT  ABC 

,UTHRST 

,UTO 

,UTPS 

, UVERT 

UUAI T ( 10), 

UTCALC 

55. 

6UUET 

, UUI NG 

, UZROFU 

, UABTRP 

UABRES 

,uhnotp 

UHNFTP 

CKOUT 

56. 

7UHN0RS 

UHNFR5 

WACOTP 

, UACFTP 

, UPUOTP 

, UPUFTP 

,UGAS 

f 

CKOUT 

57. 

8UABFUC 

UACORS 

, UACFRS 

, UPUORS 

, UPUFRS 

CKOUT 

58. 

c 

UTSCH 

59. 

COHHON/J  UHP  V/JUPIP 

. UBI 6.UB00 

UTSCH 

60. 

COHHON 

/TRUST/ 

UTSCH 

61. 

• F VACO. 

FSLO, 

FVACLO 

F VACS. 

CKOUT 

62. 

»F  VACO, 

FSLB, 

FSLLO, 

FSL5 

UTSCH 

63. 

c 

UTSCH 

6S . 

N AHE LIST /NASS 1/ 

UTSCH 

65. 

1ABFSY5 

, BBODV 

, CROOT 

, CSP AN 

, CTIP 

,gal 

, GSPAN 

UTSCH 

66. 

2HB00V 

, LBOOV 

,RTOO 

,SFAIR 

, SFUTK 

, SHORZ 

, SOXTK 

UTSCH 

67. 

3SPLAN 

,STPS 

, S VERT 

, SUING 

,SXPOS 

, TOEL 

, TROOT 

UTSCH 

66. 

STTOT 

, TT0T2 

,TTOTAL 

, VBOOVA 

, VB00V1 

, VB0DY2 

, VCAR  GO 

UTSCH 

69. 

5VCREU 

, VFUTK 

VFUTK2 

, VINSTK 

, VLSBAY 

, VOTHER 

VOXTK 

UTSCH 

70. 

6V0XTK2 

, VPROP 

, VSTfiUC 

, UABFTK 

, UABFU 

, UABPR 

, NACRES 

UTSCH 

71. 

7UACS 

, UACSFO 

, UACSTK 

, UAERO 

, UAUXT 

, UBAS I C 

, NBOOV 

UTSCH 

72. 

8UBPUNP 

, UCARGO 

, UCONN 

, UCONT 

, UCOVER 

, UOECAV 

, NDI ST  1 

UTSCH 

73. 

9UDIST2 

, UDOCK 

, UOPLOV 

, UDR A VS 

, UQRV 

, UELCAD 

.NENPTV 

UTSCH 

7 S . 

•WEN6HT 

.UENGS 

, UCNGS2 

,UF AIR 

, UFCONT 

, UFOCAV 

, NFRQST 

' 

UTSCH 

75. 

NAHELI ST/NASS2/ 

UTSCH 
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76. 

♦ WFU2 

, WFUEL 

, WFUL 

, WFULOS 

WFUNCT 

WFU0  X 

, WFURES  , 

WT5CM 

77. 

•UFUSVS 

, UFUTK 

WFUTK2 

, WFUTOT 

.WFUTRP 

WGASPR 

WGNAV 

WTSCH 

78. 

•WHORZ 

, whvcad 

uiwfut 

, WINOXT 

WI N$T  X 

, Wl NST 

, WI NSUL  , 

WTSCH 

79. 

•WJET 

, WLANCH 

wlg 

, WLOSS 

,wlrd 

WNACEL 

, WODCAV  , 

WTSCH 

80. 

• WOIL 

,woilrs 

WORSUL 

, wo VERS 

,wox 

,H0X2 

,woxio  , 

WTSCH 

81. 

♦WOXLOS 

, WOXRES 

,woxsv$ 

WOXT  X 

W0XTK2 

,WOXTOT 

, W0XTRP  , 

WTSCH 

82. 

♦WP 

, WPASS 

,WPAVL 

, WPERS 

.wpcwco 

, UPOWER 

, WP0WF0  , 

WTSCH 

83. 

«UP0URS 

, WPQWTK 

WPPR0 V 

, UPREI  6 

, WPROP 

WPRSYS 

, WREFUL  , 

WTSCH 

8A. 

♦WRESIO 

, WRESRV 

, WSEAL 

, WSECST 

, WSORCE 

W$  R T R P 

,WSTAB 

WTSCH 

85 . 

♦USURF 

, WTABC 

>TMRST 

,WTO 

,WTPS 

W9ERT 

, WWAST 

WTSCH 

86. 

♦ WWET 

, WWI N6 

, W2A0FU 

WTSCH 

END  COMMON 


IN1TAL1ZE  VARIABLES 


WTO=WGRO$S 
0 = SEC  61 
Cl  3=1 . /3. 

C23=2./3. 

RT0D=57 . 3 

WPREI 6=C< 13*0 

WWAI 1 ( 1 )=WGR0SS-WPRE16 

CALCULATE  PROPELLANT  WEIGHTS 

COMPUTE  FUEL  PERCENTAGE 

DO  10  1=1,4 

IF  ( CFUELC I ) . GE. 1 . 0 ) CFUELC I )=1 ./( CFUELC 1 >*1 . 1 
COMPUTE  MASS  RATIO 

1FC  I SP(  I l.NE.O. .ANO.MRC I 1.GT.15.  1MRC  I >=EXP(MR<  1 1/32. 17*1/ ISPC  ID 
IF(  HftC  I 1.EQ.0.0  ) MR(  I 1=1  • 

10  CONTINUE 


COMPUTE  JETTS10N  WEIGHT 

WJETC 1 )=0.0 
WJETC  2 )=0.0 
IF( JUMP . EQ.O) 

1 WJETC  3 )=WFRO$T  ♦ CC127I 
WJETC  A )=W5RTRP  ♦ WDECAV  ♦ WFURES  ♦ WOXRES 
1 * C(  296 ) 

WJETC 5 >=WACSFD  ♦ CC 70 > ♦ WGASPR  ♦ WFULOS  4 WOXLOS 

WJETC  6 )=WPOWFQ  - Cl  127 1 

WFUL=0.0 

WOXIO-O.O 

COMPUTE  PROPELLANT  WEIGHT 

DO  AO  1=1, A 

WFU0X=O. 

IF  CMRCn.NE.O.)  WFU0X=WWAIT<  I )♦( ARC  I )-!.  l/MRC  1 > 
COMPUTE  FUEL  WEIGHTS 
WFUELC I )=WFUOX*CFUELC I ) 

COMPUTE  LOX  WEIGHTS 
WOXCI  )=WFUOX-WFUEL(  I ) 

THRUST  BUILD  UP  PROPELLANTS  INPUT  CONSTANT 
IF  CI.NE.l)  GO  TO  30 
WFUELC]  )=WFUEL(I)4C<  1321 
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151. 

152. 

153. 

C 

H0XU  >SW0*(  I >+C<133> 
HFUOlsHFUELI  1 )+HOXI I ) 

HT5CH 

WTSCH 

WTSCH 

15*1. 

30  CONTINUE 

HTSCH 

155. 

C 

HTSCH 

156. 

C 

CONFUTE  VEHICLE  HEIGHTS 

HTSCH 

157. 

C 

HTSCH 

158. 

IF< I .Efi .6 ) 80  TO  60 

HTSCH 

60  — 

155. 

C 

HTSCH 

160. 

HHAlTC I+l )-HHAlT( I )-MFU08-UJET< I ) 

HT5CH 

161. 

C 

HTSCH 

162. 

C 

SUN  FUEL  HEIGHTS 

HTSCH 

163. 

c 

HTSCH 

165. 

c 

HTSCH 

165. 

tfFUL-HFUL+HFUELC I 1 

HTSCH 

166. 

c 

HTSCH 

167. 

c 

SUN  LOX  HEIGHTS 

HTSCH 

168. 

c 

HTSCH 

169. 

WOX10=HOXlO*HOX(I) 

HTSCH 

170. 

c 

HTSCH 

171. 

60  CONTINUE 

HTSCH 

172. 

C 

HTSCH 

173. 

UU61TC  5 >=HHAIT<  6 >-HJET<  6 ) 

HTSCH 

176. 

C 

HTSCH 

175. 

C 

CONFUTE  TOTAL  THRUST 

HTSCH 

176. 

C 

HTSCH 

177. 

IF<  JUNF.EQ.O)  TTOT=  FVACQ 

HTSCH 

178. 

I F( SEC  31.  CQ.l.l  F¥AC8=0. 

UH 

179. 

1F( JUNF.EO.il  TTOT=  FVACG  ♦ CTMRST*HHAIT  <31  ♦ CC2321 

UH 

180. 

C 

HTSCH 

181. 

C 

TOTAL  THRUST/1009000 

HTSCH 

182. 

C 

HTSCH 

183. 

T70TAL-TT077 1 909000. 

H7SCH 

186. 

C 

HTSCH 

185. 

C 

CONPUTE  SECONOARV  THRUST 

HTSCH 

186. 

C 

HTSCH 

187. 

TT0T2=HHAIT<  6>«CTHST26CI  158) 

NTS  CM 

188, 

C 

HTSCH 

189. 

C 

CONPUTE  ACS  PROPELLANTS 

HTSCH 

190. 

C 

HTSCH 

191. 

HACSFO=Cl  173  )*HTO*CC  176  >»HHA1T<  6 >*Ct  1 75  ) 

HTSCH 

192. 

c 

HTSCH 

193. 

c 

CONPUTE  POHER  SOURCE  PROPELLANTS 

HTSCH 

196. 

c 

HTSCH 

195. 

MPOHFO=CC  38 )*HHA)T<  6 )*C(  127 > 

HTSCH 

196. 

c 

HTSCH 

197. 

c 

CONPUTE  SERVICE  ITEM  LOSSES 

HTSCH 

198. 

c 

HTSCH 

199. 

H0IL=C< 130 1*TT0T*C< 131 ) 

HTSCH 

200. 

c 

HTSCH 

201. 

c 

CONFUTE  NAIN  FUEL  RESERVES 

HTSCH 

202. 

c 

HTSCH 

203. 

HFURES^CC  115  )*HFUEL<  3 )♦€(  116)  ♦ HFUELC6) 

HTSCH 

206. 

c 

HTSCH 

205. 

c 

CONFUTE  MAIN  LOX  RESERVES 

H’lSCH 

206. 

c 

HTSCH 

207. 

HOXRES  = CC  117  )*HOX  C3)*C(  118)  «W0X(6> 

HTSCH 

208. 

c 

HTSCH 

209. 

c 

CONFUTE  ACS  PROPELLANT  RESERVE 

HTSCH 

210. 

c 

HTSCH 

211. 

HACRES=C( 1 72 >«HACSFO*C(  73 ) 

HTSCH 

212. 

c 

HTSCH 

j 

213. 

c 

CONFUTE  POHER  SOURCE  PROPELLANT  RESERVE 

HTSCH 

216. 

c 

HTSCH 

215. 

UPQHRS=C( 119  )»HPOHFO+C( 120 ) 

HTSCH 

216. 

c 

HTSCH 

217. 

c 

CONPUTE  SERVICE  ITEM  RESERVES 

HTSCH 

218. 

c 

HTSCH 

219. 

WO!LRS  = C< 121  >«W01L*C< 1221 

HTSCH 

220. 

c 

WTSCH 

221. 

c 

SUN  PROPELLENT  reserves 

HTSCH 

222. 

c 

HTSCH 

223. 

HRESftVrHFURES+MOXRES^HACRES  *HPOUft$+U0!LRS 

HTSCH 

226. 

T 

c 

HTSCH 
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225. 

226 . 
227. 
226. 

229. 

230. 

231. 

232. 

233. 
239. 

235. 

236. 

C 

C 

C 

C 

c 

COMPUTE  SECONDARY  FUEL  WEIGHT 

UFU2(  1 1-0.0 
U012( 1 1=0.0 

IF  ( NR(  5 l.EQ.O.O)  60  30  95 

UFU2(  1 )=UWAIT<  9 >M  ARC  5 1-1 . )/NA<  5 )•<  CFUEU  51) 

UFUEU5  )=WFU2t  1 1 

COMPUTE  SECONDARY  LOX  WEIGHT 

U0X2(  1 )=UWAIT<  9)#(MA(5  >-l.  )/MR(  5>*(  l.-CFUEL(5)l 
UOX(  5>=WGX2l  11 

WTSCH 

WT5CH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

95— 

237. 

95  CONTINUE 

WTSCH 

238. 

WP0M$=WFU2(1)  4 W0X2<1) 

WTSCH 

239. 

c 

WTSCH 

290. 

c 

COMPUTE  TOTAL  FUEL  WEIGHT  LESS  TRAPPED  ANO 

LOSSES 

WTSCH 

291. 

c 

WTSCH 

292. 

WFUTOT =0.0 

WTS  CH 

293. 

IF  t Cl  1091. NE. 1.0)  WFUtOTMWFUL4WFURES4CUlO))/(  1. -Cl  1091) 

WTSCH 

299. 

c 

WTSCH 

295. 

c 

COMPUTE  TOTAL  LOX  WEIGHT  LESS  TRAPPED  AND  LOSSES 

WTSCH 

296. 

c 

WTSCH 

297. 

W0XT0T=0. 0 

WTSCH 

298. 

IF  (Cmn.NE.1.0)  WOXTOT=I  W0XI04W0XRES4CI 1121W11  .-Cl  111  )) 

WTSCH 

299. 

c 

WTSCH 

250. 

c 

SUM  PROPELLANT  WEIGHT  LESS  LOSSES  ANO  TRAPPED 

WTSCH 

251. 

c 

WTSCH 

252. 

WPSUFUTOT4NOXTOT 

WTSCH 

253. 

c 

WTSCH 

259. 

c 

COMPUTE  FUEL  LOSSES 

WTSCH 

255. 

c 

WTSCH 

256. 

WFULOS=C< 1 23 )*WFUT0T4C<  229 )»WP4C(  129  > 

WTSCH 

257. 

1 4 Cl  299  )*WPOIIS 

WTSCH 

258. 

c 

WTSCH 

259. 

c 

COMPUTE  LOX  LOSSES 

WTSCH 

260. 

c 

WTSCH 

261. 

WOXLOS=C< 125)*W0XT0T*C(230 HWP4CI 124) 

WTSCH 

262. 

c 

WTSCH 

263. 

c 

SUM  TOTAL  FUEL  WEIGHT  AND  LOSSES 

WTSCH 

269. 

c 

WTSCH 

265 . 

WF UT OT sWF UTOT 4Mf ULOS 

WTSCH 

266. 

c 

WTSCH 

267. 

c 

SUM  TOTAL  LOX  WEIGHT  ANO  LOSSES 

WTSCH 

266. 

c 

WTSCH 

269. 

WOXT0T=WOXT0T4UOXLOS 

WTSCH 

270. 

c 

WTSCH 

271  . 

c 

SUM  PROPELLANT  WEIGHT  LESS  TRAPPED 

WTSCH 

272. 

c 

WTSCH 

273. 

WP= WFUTOT +WOXTOT 

WTSCH 

279. 

c 

WTSCH 

275. 

c 

COMPUTE  TRAPPEO  FUEL  WEIGHT 

WTSCH 

276. 

c 

WTSCH 

2TT . 

WFUTRPsCI  109 )4WFUT0T4C(  225 >*WP4Cl  226)*TT0T 

4 C(  110) 

WTSCH 

276. 

1 4 C<  300>*MPOMS 

WTSCH 

279. 

c 

WTSCH 

280. 

c 

COMPUTE  TRAPPEO  LOX  WEIGHT 

WTSCH 

281. 

c 

WTSCH 

282. 

WOXTRPsCI 111 14W0XT0T4U  22? >»W?4Ct  228 1'TTOT 

4C(  112) 

WTSCH 

283. 

c 

WTSCH 

289. 

c 

COMPUTE  THRUST  OECAY  PROPELLANTS 

WTSCH 

285. 

c 

WTSCH 

286. 

WOECAY=C<  166)*TT0T4CC 147) 

WTSCH 

287  . 

WFDCAY=W0ECAV4CFUEL(  3 ) 

WTSCH 

286. 

WODCAV=WOECAV-WFDCAY 

WTSCH 

289. 

c 

WTSCH 

290. 

c 

COMPUTE  TOTAL  FUEL  WEIGHT 

WTSCH 

291. 

c 

WTSCH  j 

292. 

WFUT0T=WFUT0T4UFUTRP4WFDCAV 

WTSCH  ' 

293. 

c 

WTSCH 

299. 

c 

COMPUTE  TOTAL  LOX  WEIGHT 

WTSCH  ! 

295. 

c 

WTSCH  i 

296. 

MOXTOT=W0XTOT4NOXTRP4WOOCAV 

WTSCH  j 

297. 

c 

WTSCH 

296. 

c 

COMPUTE  TANK  PRESSURIZATION  ANO  PURGE  GASES 

WTSCH 

299. 

c 

WTSCH 
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300  . 

wga$p*=c<  io6>*vruu4C(  io?)*voxu4ci  ut> 

WTSCH 

301  . 

C 

WTSCH 

302. 

C 

COMPUTE  TRAPPED  SERVICE  ITEMS 

WTSCH 

303. 

C 

WTSCH 

309. 

WSRTRP=C<  113  >*WWAIT<  1 ) ♦ Cl 1191 

WTSCH 

305  . 

C 

WTSCH 

306. 

c 

COMPUTE  ICE  ANO  FROST 

WTSCH 

307  . 

c 

WTSCH 

308. 

WFROST=C< TO) 

WTSCH 

309. 

c 

WTSCH 

310. 

c 

WTSCH 

311. 

c 

Sim  ENTRY  WEIGHT 

WTSCH 

312. 

c 

WTSCH 

313. 

WWAI T ( 6 )-WWA!T<  5 >-WFUEL<  5 )~WOX<  5 )-WJET(  5 ) 

WTSCH 

319. 

c 

WTSCH 

315. 

c 

COMPUTE  AIR  5REATMING  FUEL 

WTSCH 

316. 

c 

WTSCH 

317. 

W ABF  t)=0.0 

WTSCH 

l\%  . 

mwi  \ 

WTSCH 

319. 

c 

WTSCH 

320. 

c 

COMPUTE  AIR  BREATHING  FUEL  TANK  VOLUME 

WTSCH 

321 . 

c 

WTSCH 

322. 

)F(  RHOFU.EQ.O.O.OR. WWAI T(  6 ) . EO . 0 . 0 ) GO  TO  9999 

WTSCH 

9999—1 

323. 

IF< ANTANK. GT.O.O)  GO  TO  9999 

WTSCH 

9999—f 

329. 

IF<  C<  212  ).NE.O.O.OR.C<213 l.NE.Q.O)  KC  28 )=WABFU/RH0FU 

WTSCH 

* 

325. 

9999 

CONTINUE 

WTSCH 

326. 

C 

WTSCH 

327. 

c 

SUM  LANDING  WEIGHT 

WTSCH 

328. 

c 

WTSCH 

329. 

UUAITl 7 ) = WWA1T(  6)  - WABFU  * WJET16) 

WTSCH 

330. 

c 

WTSCH 

331  . 

c 

SUM  SUBTOTAL 

WTSCH 

332. 

c 

WTSCH 

333. 

WTO  = UW A I T ( 1 )-WF  UEL<  1 >-W0X< 1 ) 

WTSCH 

339 

UFU0X=WFUL4U0XI04WFU2(  1 )4W0K2C l ) 

WTSCH 

335 

URES10=WFUTRP4W0XTRP4WGASPR4WSRTRP 

WTSCH 

336. 

WLOSS=UFULOS+WOXLOS4WACSF04WPOWF04WOIL4WABFU4WFROST 

WTSCH 

337  . 

1 ♦ Cl  296  ) 

WTSCH 

338. 

c 

WTSCH 

339. 

c 

WTSCH 

390. 

c 

GEOMETRY  SECTION 

WTSCH 

391  . 

c 

WTSCH 

392. 

c 

WTSCH 

393. 

c 

WTSCH 

399  . 

c 

COMPUTE  BODY  VOLUME  TO  THE  1/3  POWER 

WTSCH 

395. 

c 

WTSCH 

396 

IF(  VBOOY.LE.O.O)  VB0DY  = 1.0 

WTSCH 

397. 

VBOOY1=VBOOY*#C13 

WTSCH 

398. 

c 

WTSCH 

399  . 

c 

COMPUTE  BODY  VOLUME  TO  THE  2/3  POWER 

WTSCH 

350. 

c 

WTSCH 

351  . 

VB0DY2= VBOOV 1**2 

WTSCH 

352. 

c 

WTSCH 

353. 

c 

COMPUTE  LOX  TANK  VOLUME 

WTSCH 

359. 

c 

WTSCH 

355. 

V0XTK=0.0 

WTSCH 

356. 

IF  (RHOX.NE.O.)  VOXTK={  WOXTOT/RHOX)*!  «« 2)^1 . )4K(29) 

WTSCH 

35  7. 

c 

WTSCH 

358. 

c 

COMPUTE  FUEL  TANK  VOLUME 

WTSCH 

359. 

c 

WTSCH 

360. 

VFUTK=0 . 0 

WTSCH 

361  . 

IF  ( RHOFU.NE.O.  ) VF UTK=(  WFUTOT /RHOfU )♦( Kl I )4  l . )*K( 28  )4Kl 2 1 ) 

WTSCH 

362. 

c 

WTSCH 

363. 

c 

COMPUTE  FUEL  TANK  SURFACE  AREA 

WTSCH 

369. 

c 

WTSCH 

365. 

SFUTK=0.0 

WTSCH 

366. 

IF( YFUTK. GT.O.O) 

WTSCH 

367. 

1$FUTK=CSFUTK»VFUTK**C23 

WTSCH 

366. 

c 

WTSCH 

369. 

c 

COMPUTE  LOX  TANK  SURFACE  AREA 

WTSCH 

3 70  . 

c 

WTSCH 

371  . 

S0XTK=O . 0 

WTSCH 

3 72. 

1 F(  VO  XT  K . 6T  . 0 . 0 ) 

WTSCH 

373 

1S0XTK=CS0 XTK*V0XTK**C23 

WTSCH 

379. 

c 

WTSCH 
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375  . 

c 

COMPUTE  PROPELLANT  TANKS  INSULATION  VOLUME 

UTSCH 

376. 

c 

WTSCH 

377  . 

VINSTK=K(  3 )*SFUTK*K( *)♦(< 25  >*SOXTK 

UTSCH 

378. 

c 

WTSCH 

379. 

c 

COMPUTE  SECONOARV  FUEL  TANK  VOLUME 

UTSCH 

380. 

c 

UTSCH 

381. 

VFUTK2-K1 7 ) 

WTSCH 

382. 

WFUL2=WFU2< 1 1 

WTSCH 

383. 

WOX02=WOX2(I) 

WTSCH 

389. 

IFUUrtP  . 6T.  0.0)  GO  TO  30 

WTSCH 

38 

385. 

1F<  C< 270 ) .LE.  0.0)  GO  TO  37 

WTSCH 

37  — 

386. 

0VSIZ2=C(270> 

WTSCH 

387. 

SISP2-C( 271 ) 

WTSCH 

388. 

CUINJ=C(272) 

WTSCH 

389. 

OFOMS~C( 273  ) 

WTSCH 

390. 

R2=EXP<  0VSIZ2/C  32. 17905»S1SP2 )) 

WTSCH 

391. 

*02=CU1MJ<HM*1U  9> 

WTSCH 

392. 

WC2=W02/R2 

WTSCH 

393. 

UP2=W02-WC2 

WTSCH 

399 . 

WFUL2=UP2/I 1 . O+OFOMS ) 

WTSCH 

395. 

W0X02=WP2-WFUL2 

WTSCH 

396. 

37  CONTINUE 

WTSCH 

397. 

1F(C(  169). GT. 0.0. OR. C<  165). ST. 0.0)  GO  TO  38 

WTSCH 

38 

398. 

OFACS=CC 39) 

WTSCH 

399. 

uac$p=wacsfo  ♦ nacres 

WTSCH 

900. 

WACSF=WACSP/< 1.0  ♦ OFACS) 

WTSCH 

901. 

WACSO=WACSP  - NACSF 

WTSCH 

902. 

WFUL2-UFUL2  ♦ NACSF 

WTSCH 

903. 

W0XD2-  N0XD2  ♦ NACSO 

WTSCH 

909. 

38  CONTINUE 

WTSCH 

905. 

IF( RH0FU2.NE .0.0) 

WTSCH 

906. 

1 VFUTK2=MFUL2/RH0FU2 

WTSCH 

907. 

c 

WTSCH 

908. 

c 

CONFUTE  SECONOARV  OXIDIZER  TANK  VOLUME 

WTSCH 

909. 

c 

WTSCH 

910. 

V0XTK2=«<0> 

WTSCH 

911. 

IF( RH0X2.NE.0.0) 

WTSCH 

912. 

1VOXTK2=WOXD2/RHOU 

WTSCH 

913. 

c 

WTSCH 

919. 

c 

COMPUTE  PROPULSION  SYSTEM  VOLUME 

WTSCH 

915. 

c 

WTSCH 

916. 

VPROP=K( 16  )*TTOT+K{ IT) 

WTSCH 

917. 

c 

WTSCH 

918. 

c 

COMPUTE  CARGO  VOLUME 

UTSCH 

919. 

c 

WTSCH 

920 . 

VCARG0£«<9> 

WTSCH 

921. 

c 

WTSCH 

922. 

c 

COMPUTE  CREU  VOLUME 

WTSCH 

923. 

c 

WTSCH 

929. 

VCREW=K<  5 >«NCREM+K< A ) 

WTSCH 

925. 

c 

WTSCH 

926. 

c 

COMPUTE  LANDING  GEAR  8AV  VOLUME 

WTSCH 

927. 

c 

WTSCH 

928. 

VL6BAV=K< 12  )*ML6+K< 13) 

WTSCH 

929. 

c 

WTSCH 

930. 

c 

COMPUTE  VBOOV, V0THERtSB00V  AND  VSTRUC  USING  K(18)  SCALING  DATA 

WTSCH 

931. 

c 

WTSCH 

932. 

1 F( K( 18 ) .LE. 1 .0  ) 60  TO  96 

WTSCH 

96  — 

933. 

VBOOV=K( 18  >•< VFUTK^VOXTK  >♦*< 23 ) 

WTSCH 

939. 

VOTHEfi= VBOOV-VFUTK-VOXTK- VI NSTK- VCREW-VC ARGO- VSTRUC- VL68AV- VPROP 

WTSCH 

935. 

•-VFUTK2-V0XTK2 

WTSCH 

936. 

SB00V=CS80DV»VBCOV**C23 

WTSCH 

937. 

VSTRUC=K< 10  )*SBOOV*K< 11 ) 

WTSCH 

936. 

GO  TO  60 

WTSCH 

>6 

939. 

96  CONTINUE 

WTSCH 

990. 

c 

WTSCH 

991  . 

c 

SAVE  OODV  VOLUME 

WTSCH 

992  . 

c 

WTSCH 

993. 

VBOOVX-VBOOV 

WTSCH 

999  . 

c 

WTSCH 

995  . 

c 

SUB  TOTAL  BOOV  VOLUME  -STRUCTURE-MI SC. 

WTSCH 

996. 

c 

WTSCH 

997. 

V80DVA=V0XTK*VFUTK*VINSTK  *VPROP* VCARGO* VCREW* VL6BAV 

WTSCH 

9H0  . 

1 + VFUTK2+ V0XTK2 

WTSCH 
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449. 

.450. 

451. 

C 

C 

C 

COMPUTE  800V  SURFACE  AREA 

WTSCH 

WTSCH 

WTSCH 

452. 

50  SBODV=C5BODV*VBODV2 

WTSCH 

453. 

C 

WTSCH 

454. 

C 

COMPUTE  STRUCTURAL  VOLUME 

WTSCH 

455. 

c 

WTSCH 

456. 

VSTRUC=K(  10  >»SBODV*K< 11) 

WTSCH 

457. 

c 

WTSCH 

450. 

c 

WTSCH 

459. 

VOTHER=M 10 )*< VBOOV- VCAR60-VSTRUC >♦«< 19  ) 

WTSCH 

460. 

c 

WTSCH 

461. 

c 

SUM  000V  VOLUME 

WTSCH 

462. 

c 

WTSCH 

463. 

V0ODV=V6OOVA*VSTAUC*VOTH6R 

WTSCH 

464. 

c 

WTSCH 

465. 

1 FI  VBOOV. LE. 0.0)  VB0DV«1.0 

WTSCH 

466. 

I F(  ABS<  VBOOV  X- VBOOV ) . LE .2 .0 ) 60  TO  60 

WTSCH 

467. 

c 

WT5CH 

468. 

c 

SAVE  BODV  VOLUME 

WTSCH 

469. 

c 

WTSCH 

470. 

VBODVX=VBOOV 

WTSCH 

471. 

c 

WTSCH 

472. 

c 

UPDATE  BOOV  VOLUME  TO  THE  2/3  POWER 

WTSCH 

473. 

c 

WTSCH 

474. 

IF< VBOOV.LE.O.O)  VB0O¥=1.0 

WTSCH 

475. 

VB0DV2=VB00V**C23 

WTSCH 

476. 

c 

WTSCH 

477. 

60  TO  50 

WTSCH 

50  — 

478. 

c 

WTSCH 

479. 

c 

UPDATE  BODV  VOLUME  TO  THE  1/3  POWER 

WTSCH 

480. 

c 

WTSCH 

481. 

60  VB0DV1=VB0DV«»C13 

WTSCH 

482. 

c 

WTSCH 

483. 

c 

UPDATE  BOOV  VOLUME  TO  THE  2/3  POWER 

WTSCH 

484. 

c 

WTSCH 

485. 

VB00V2=VB00V1**2 

WTSCH 

486. 

c 

WTSCH 

487. 

I F<  NUL . LE . 0 . OR . NWL . 6E . 8 ) NWL=6 

WTSCH 

488. 

c 

WTSCH 

489. 

c 

TEST  FOR  WING  SIZE  METHOD- IF  INPUT  WIN6  L0A0IN6  (FXWOVS) 

NOT 

EQUAL  WTSCH 

490. 

c 

TO  ZERO  SIZE  ON  INPUT  -IF  INPUT  MIN6  L0A0IN6  EQUAL  ZERO 

USE 

INPUT  WTSCH 

491. 

c 

WINS  AREA 

WTSCH 

492. 

c 

WTSCH 

493. 

IF( FXWOVS .NE .0 . 0 ) 60  TO  TO 

WTSCH 

TO — 

494. 

c 

WTSCH 

495. 

c 

VARIABLE  WIN6  L0ADIN6 

WTSCH 

496. 

c 

WTSCH 

497. 

WO  VERS =0.0 

WTSCH 

490. 

IF  (SWIN6.NE.0.0)  W0VERS=WWA1T( NWL I/SWING 

WTSCH 

499. 

c 

WTSCH 

500. 

GO  TO  BO 

WTSCH 

80  — 

501. 

c 

WTSCH 

502. 

c 

F1XE0  WING  LOADING 

WTSCH 

503. 

c 

WTSCH 

504. 

70  SWIN6=WWAIT(NWL)/FIW0V$ 

WTSCH 

505. 

WO V£RS=F  XWO V$ 

WTSCH 

506. 

c 

WTSCH 

507. 

c 

COMPUTE  AERO  WING  SPAN 

WTSCH 

508. 

c 

WTSCH 

509. 

60  6SP AN=0 . 0 

WTSCH 

510. 

IF< ( A$RAT0*$W!N6  ). 6T.0. 0 ) 

WTSCH 

511. 

16SP AN=( A$R AT0*SW1N6 )*• . 5 

WTSCH 

512. 

c 

WTSCH 

513. 

c 

COMPUTE  W1N6  ROOT  CHORO 

WTSCH 

514. 

c 

WTSCH 

515. 

CR00T=0. 0 

WTSCH 

516. 

IF  ( TPRAT0.NE.-1 .0  ) CR00T=2.«SWIN6/(  ( l .♦TPRATO  )*6SPAN) 

WTSCH 

517. 

c 

WTSCH 

518. 

c 

COMPUTE  WIN6  TIP  CHORD 

WTSCH 

519. 

c 

WTSCH 

520. 

CTI psCRQOT*TPRATO 

WTSCH 

521. 

t 

WTSCH 
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522. 

523. 
52*1. 
525. 
526 

527. 

528. 

529. 

530. 

531. 

532. 

533. 
5 39. 

535. 

536. 

537. 

538. 

539. 

590. 

591 . 

592. 

593. 
599. 

595. 

596, 
597  . 

598. 

599. 

550. 

551. 

552. 

553. 
559. 

555. 

556. 

557. 

558. 

559. 

560. 

561. 

562. 

563. 
569. 

565. 

566. 

567. 

568. 

569. 

570. 

571. 

572  . 

573 


COMPUTE  WING  STRUCTURAL  SPAN  50PC 
CSP AN=0 . 0 

IF  (GSPAN.NE.O.O)  CSPAN-GSP AN/COSt  ATAN( T AN( ASWEEP/RTOO  >-( 
1*1 1 .♦TPflATO >/<  6SPAN/2. )) >) 

COMPUTE  WING  THICKNESS  AT  ROOT 

TROOT=TOVERC*CAOOT 

COMPUTE  BODY  WIDTH 

BB0DY=CBB0DV*VB0DY1 

COMPUTE  WING  EXPOSED  AREA 

SXP0S=0.0 

IFU  ,5*BBOOV  K6T.0.01 

1SXP0S  *$uiNG-< CROOT*BBODY-( .5*0BOOY >»*2»TAN< ASWEEP/RTOO  ) > 
COMPUTE  HORIZONTAL  TAIL  AREA 
SHOR2=CSHORZ*SWING 
COMPUTE  800V  SURFACE  AREA 
SBODY=C$BODY* VB0DV2 
COMPUTE  VERTICAL  TAIL  AREA 
SVERT=CSVERT*VB0DY2 
COMPUTE  FAIRING  AREA 
$FAIR=CSFAIR»SBODV 
PLANFOBM  AREA 
$PLAN=CSPLAN*VB0DY2 
COMPUTE  BOOV  HEIGHT 
HB00Y=CHB0DY»V80DY1 
COMPUTE  BOOY  LENGTH 
LBODV=CLBODV* VB0DV1 

COMPUTE  THERMAL  PROTECTION  AREA 
IF( ITPS.LT. I.0R.ITPS.6T.0)  ITPS«1 


WTSCH 
WTSCH 
WTSCH 
. 5*CROOT  WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 
WTSCH 


519 

GO  TO  (90,100,116,120,130,190,156,160),  JTPS 

WTSCH 

90 — 1 100— j 1 10—] 

120-i 

130-] 

190-1 

150-i 

575. 

576. 

90 

STPS( 1 )=0. 
GO  TO  170 

WTSCH 

WTSCH 

170  — 

5 7 7. 
5 78  . 

100 

STPS( 1 ) = SBODY 
GO  TO  1TQ 

WTSCH 

WTSCH 

170  — 

579. 

580. 

no 

STPS< 1 >=SBODV*SHORZ 
60  TO  170 

WTSCH 

WTSCH 

170— 

581  . 

582 

120 

$TPS< l >s$BOOY*SHORZ*SVERT 
GO  TO  170 

WTSCH 

WTSCH 

170  — 

583 

509 

130 

STPS( 1 >=S80DY+SH0RZ+SVERT+$WING 
GO  TO  170 

WTSCH 

WTSCH 

170  — 

585. 

586. 

190 

STPS<  1 l-SHORZ+5 VERT ♦SWING 
GO  TO  170 

WTSCH 

WTSCH 

170  — 



58  7. 
588 

150 

STPS<  1 )=S800Y*SW1NG 
GO  TO  170 

WTSCH 

WTSCH 

170— 

509. 

590. 

160 

C 

$TPS< 1 >=SB0DV*5VERT 

WTSCH 

WTSCH 

p-" 

591  . 
592. 

170 

C 

CONTINUE 

WTSCH 

WTSCH 
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593. 

59*. 

595. 

596. 
59?. 

598. 

599. 

600. 
601. 
602 . 
603. 
609. 

605. 

606. 

607. 

608. 

609. 

610. 
611. 
612. 
613. 
619. 

615. 

616. 

617. 

618. 

619. 

620. 
621. 
622. 
623. 
629. 

625. 

626. 

627. 

628. 

629. 

630. 

631. 

632. 

633. 
639. 

635. 

636. 

637. 

638. 

639. 

690. 

691. 

692. 

693. 
699. 

695. 

696. 

697. 

698. 

699. 

650. 

651. 

652. 

653. 
659. 

655. 

656. 

657. 

658. 

659. 

660. 
661 . 
662. 
663. 
669. 

665. 

666. 

667. 


C 

C 

C 

C 

C 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


WEIGHTS 

COMPUTE  HI 96  WEIGHT 
WWIN6S0.0 

IF  (TROOT.NE.O.O  ) WWIN6=C<  1 >M WWAITt 6 U LF*  CSPAN*SWI NG/TROOT 
1/ 10.**9 >**C( 12  }*C(  2 >«SM1NG«C<  3 1 

COMPUTE  VERTICAL  TAIL  WEIGHT 

WVFRT-0.0 

1 F{ SVERT . ST . 0 .0 . AND . C< 1 35 ) . 6T . 0 . 0 > 

1WVERT=CC  9 )*SVERT»*C< 135  >*C<  29  >*SVERT*C(  5 1 

COMPUTE  HORIZONTAL  TAIL  WEIGHT 

WHORZsO.O 

I F< WO VERS . GT . 0 . 0 . AND . SHORZ . GT . 0 . 0 . AND . 0 . GT . 0 . 0 . AND . C< 1 76  > . 6T . 0 . 0 ) 
1WHQRZ-C( 6 )*(  U0VERS«*1.21»SH0RZ»«.ei9»g*#.967  >**C( 176>+C<  25 >*SHORZ 
2*CI  7 ) 

COMPUTE  FAIRING  WEIGHT 
WFAIR£C<e>«SFAIR*C<9> 

SUM  AERO  SURFACES 
WSURF=WWING+WVERT+WHORZ+WFAIR 
COMPUTE  INTEGRAL  FUEL  TANK  WEIGHT 
WINFUT=CC 10>*VFUTK*C< 11 ) 

COMPUTE  INTE6RAL  LOX  TANK  WEIGHT 
WINOXT=C< 138 1*¥0XTK+C(  1391 
COMPUTE  GOOV  SASIC  STRUCTURE  WEIGHT 
H8ASIC-CI 13)*S800V«C(  19>*V80DY*C< 151 
COMPUTE  BODY  SECOND ARV  STRUCTURE  WEIGHT 
WSECST'CI  23 1*SS0DV*C<  80  )»WWAIT(  7 1*C<  169 1 
COMPUTE  THRUST  STRUCTURE  WEIGHT 
WTHRST=C< 168 1*TT0T«C( 1631 
SUM  BOOV  WEIGHT 

HBODV=WINFUT*WINOXT*WBASIC+WSEC$T*WTHRST 

COMPUTE  TPS  INSULATION  WEI 6HT 

W|NSUL=C( 180)*STPS< 1 )*C(  261 

COMPUTE  TPS  COVER  PANELS  WEIGHT 

WCOVER=C<  181 1*$TPS(  1 HCC271 

SUM  TPS  WEIGHT 

WTP$sMINSUL*WCOVER 

COMPUTE  LAUNCH  EQUIPMENT  WEIGHT 

WLANCH=C< 193 1*WT0*CC 1991 

COMPUTE  LANOING  GEAR  UEI6HT 

WL6=0 . 0 


WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 
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668. 

669. 

670. 
671  . 

672. 

673. 

679. 
675  . 
676. 
677  . 
678. 
679  . 

680. 
661  . 
662. 
683. 
*69. 

665. 

666. 
687  . 
688. 
689. 
*90. 
691  . 

692. 

693. 
699. 

695. 

696. 

697. 

698. 

699. 

700. 
701  . 

702. 

703. 
709. 

705. 

706. 

707. 

708. 

709. 

710. 

711. 

712. 

713. 
719. 

715. 

716. 

717. 

718. 

719. 

720. 

721. 

722. 

723. 
729. 

725. 

726. 

727. 

728. 

729. 

730. 

731. 

732. 

733. 
739. 

7 35. 

736. 

737. 

738. 

739. 

790. 

791. 

792. 


I Ft  UGROSS . GT . 0 . 0. AND . C<  1021.6T.O.O) 

1ULG  = C( 30  )*WUA1T<  7 )**C(  182)+C(31 ) 

C 

C COMPOTE  DOCKING  EQUIPMENT 

C 

UDOCK  = C<  197  )*WWAIT(  5>*C(198) 

C 

C COMPUTE  DEP L0VK8LE  AREO  DEVICES 

C 

WOPLOV  = C(  195  )*WWAIT(  T > ♦ C(  196  1 
C 

C SUM  LAUNCH  AND  RECOVERY  GEAR 

C 

wlr  d= wlanch+wlg+wdock+wdplov 

c 

C COMPUTE  CREW  WEIGHT 

C 

WP£RS=C( 9 7 )«NCREW+C(  98  > 

C 

C COMPUTE  EN6INE  MOUNT  WEIGHT 

C 

tiENGMT  = C< 1 63 1*TT0T^C(  189) 

C 

C COMPUTE  G1MBAL  TORQUE 

C 

T0EL=0 . 0 

I Ft NENGS .NE.O.O. AND. PCMAM. NE . 0 . 0 > TDEL=750.*( T TOT /NENGS/P CHAM >♦* 
1 1.25 
C 

C COMPUTE  61MBAL  SYSTEM  WEIGHT 

C 

WST  AB=0 . 0 

IF( TDEL.6T.0.0.AND.CC 1601.6T.0.0) 

1WST  AB=NEN6S*t C( 28 >*TDEL**C(  160 1 >^CC 161 1 
C 

C COMPUTE  SECONDARY  ROCKET  ENGINE  WEIGHT 
C 

WENGS2=C( 190  )*TT0T2+C<  191 1 
C 

C COMPUTE  AIR  BREATHING  ENGINE  WEIGHT 

C 

WA§PR=C<  210  )*  WWA1  T(  6 >*C(  211  > 

C 

C COMPUTE  AIR  BREATHING  NACELLES  WEIGHT 
C 

WNrtCEL =C<  36  )*M*BP*+C<3n 
C 

C TEST-FOR  AIR  BREATHIN6  FUEL  TVPE  IF  LH2  GO  AROUND 
C JP-9  SYSTEM  HEIGHT  EQUATION 

C 

WBPUMPsO . 0 
WPRSYSsO.O 
H01STU0.0 

IF  ( C( 212). NE.O.O. OR. C<213>. NE.O.O)  GO  TO  180 
C 

C COMPUTE  JP-9  FUEL  PUMPS  WEIGHT 

C 

UBP UMP  = C( 199  )*ANENGS»< 1 . 75* . 2 66* ANEN6S )/ 1 000 . 

C 

C COMPUTE  JP-9  PRESSURE  SYSTEM  WEIGHT 

C 

UABFPS=0 . 0009#C< 199 )*ANENG$»ANT ANK 
C 

C COMPUTE  JP-9  FUEL  DISTRIBUTION  SYSTEM  WEI 6HT 
C 

WDIST1=ANEN6S*C( 19) >+SQRT(  C(  199)) 

_C 

180  CONTINUE 
C 

C COMPUTE  ROCKET  ENGINE  WEIGHT 

C 

WENGS=0.0 
I Ft C( 221  ) . GT .0.0 ) 

1WENGS=C( 32  )»TTOT+C<  219 )»TTOT*C(  220 )»*C<  22l  )+Ct 33  >*NEN6$*WENGMT 
C 


WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 
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743.  C COMPUTE  ROCHET  FUEL  TANK  WEI6HT  NON-STRUCT URAL  WTSCH 

1 7 *1*1 . C WTSCM 

745.  WFUTKsCI 39  )* YFUTK*C<  40  ) WTSCH 

7*16.  C WTSCM 

747.  C COMPUTE  ROCKET  LOX  TRUK  WE16HT  NON-STRUCT URAL  WTSCM 

74® . C WTSCM 

744.  UOmsC(4n*YQ*TK*C<42>  WTSCM 

750.  C WTSCM 

751.  C COMPUTE  ROCKET  SECONDARY  FUEL  TANK  WEI  GMT  WTSCM 

752.  C WTSCM 

753.  WFUTK2=C< 1 70 >*¥FUTK2*C( 136 > WTSCM 

754.  C WTSCM 

755.  C COMPUTE  ROCKET  SECONDARY  LOX  TANK  WE  I GMT  WTSCM 

756.  C WTSCM 

757.  W0XTK2=C< 171  )*V0XTK2+C( 137 ) WTSCM 

758.  C WTSCM 

754.  C COMPUTE  ROCKET  PROPELLANT  TANK  INSULATION  WEI  GMT  WTSCM 

760.  C WTSCM 

761.  WI NSTK  = C<  4 3 )«SFUTK  + C<  7 7 )*SOXTK*C(  44 ) WTSCM 

762.  C WTSCM 

763.  C COMPUTE  ROCKET  FUEL  SYSTEM  WEI  GMT  WTSCM 

764.  C WTSCM 

765.  WF  U$Y5  = C<  45  )*TTOT*C( 46  )*LBOOY+C( 47 ) WTSCM 

766.  C WTSCM 

767.  C COMPUTE  ROCKET  LOX  SYSTEM  NEI6MT  WTSCM 

768.  C WTSCM 

764.  WOXSY5=C(40)*TTOT*C(44)#L8OOY*C(5O)  WTSCM 

770.  C WTSCH 

771.  C COMPUTE  ROCKET  PRESSURE  SYSTEM  WEIGHT  WTSCH 

772.  C WTSCM 

773.  WPRSY$  = C(51>*YFUTK*C(52)*Y0XTK*C(  187)  WTSCH 

774.  C WTSCH 

775.  C TEST-FOR  AIR  BREATHING  FUEL  TYPE  IF  LM2  GO  AROUND  WTSCM 

776.  C JP-4  SYSTEM  WEIGHT  EQUATION  WTSCH 

777.  C WTSCH 

778.  GAL=0.0  WTSCM 

774.  WFUNCT=0.0  WTSCH 

780.  W0IST2=0.0  WTSCH 

781.  WF  C0NT>0 . 0 WTSCH 

782.  WREFUL=0.0  WTSCH 

783.  WDRANS=0.0  WTSCH 

784.  WSEAL-0.0  WTSCH 

785.  ABFSY$=0.0  WTSCH 

786.  WABFS  = 0.  WTSCM 

787.  IF  ( C( 212  ).NE.O.O.OR.C(213 l.NE.O.O ) GO  TO  140  WTSCH 

788.  C WTSCM 

784.  C COMPUTE  JP-4  FUEL  IN  GALLONS  WTSCH 

740.  C WTSCM 

741.  GALsMABFU/6.5  WTSCM 

742.  C WTSCM 

743.  C COMPUTE  JP-4  FUEL  SYSTEM  TANKS  WEIGHT  WTSCM 

744.  C WTSCM 

745.  IF( ANTANK.NE.O.O)  WFUNCTMU  164 )•(  GAL/ANTANK )** . 6*ANTANK+C( 140 ) WTSCM 

746.  C WTSCH 

747.  C COMPUTE  JP-4  FUEL  SYSTEM  DISTRIBUTION  WEI6MT  WTSCM 

748.  C WTSCM 

744.  WDIST2=. 255*6AL** . 7# ANTANK*# . 25  WTSCM 

800.  C WTSCH 

801.  C COMPUTE  JP-4  FUEL  SYSTEM  CONTROLS  WEIGHT  WTSCM 

802.  C WTSCH 

803.  WFCONT=. I64*ANTANK*S0RT< GAL)  WTSCH 

804.  C WTSCH 

805.  C COMPUTE  JP-4  FUEL  5Y5TEN  REFUEL  SYSTEM  WEIGHT  WTSCH 

806.  C WTSCH 

807.  WREFUL=ANTANK*< 3.* . 45*GAL**C13 > WTSCH 

808.  C WTSCH 

804.  C COMPUTE  JP-4  FUEL  SYSTEM  REFUEL  SYSTEM  WEIGH  WTSCM 

810.  C WTSCM 

811.  UDRAN$=. 154»GAL««.65  WTSCH 

812.  C WTSCM 

813.  C COMPUTE  JP-4  FUEL  TANK  SEALING  WTSCH 

814.  C WTSCH 

815.  IF< ANTANK.NE.O.O)  WSEAL= . 045* ANT ANK*< GAL/ANTANK >••. 75  WTSCH 

816.  C WTSCH 

817.  C SUM  JP-4  FUEL  SYSTEM  WEIGHT  WTSCM 
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eiB 

819 

820. 

821. 

822. 

823. 

829. 

825. 


ABF$VS=WBPUnp*yDISTl*yDl$T2*WFC0NT*yREFUL*yDRANS*ySEAL*WFUNCT 

l+WABFPS 

sun  JP  FUEL  SVSTEN  WEIGHT  LESS  TANKS 

wabfs=abf$vs-wfunct 


WTSCH 

WT5CH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 


826. 

827. 

828. 

829. 

830. 

831. 

832. 

833. 
839. 
035. 

836. 

837. 
836. 
839. 
890. 
891 

892. 

893. 
899. 

895. 

896. 

897. 

898. 

899. 

850. 

851. 

852. 

853. 
859. 

855. 

856. 

857. 

858. 

859. 

860. 
861. 
862. 
863. 
869. 

865. 

866. 

867. 

868. 

869. 

870. 

871. 

872. 

873. 
879. 

875. 

876. 

877. 

878. 

879. 
860. 
881  . 
882. 
883. 
809. 

885. 

886. 
887. 
888  . 

889. 

890. 

891 . 

892. 


190  CONTINUE 

COnPUTE  A1RFUEL  TANK  WE I 6HT 
UABFTK-C( 212  )+WABFU*C( 213  1 +ABFSVS 
SUN  PROPULSION  SVSTEN  WEIGHT 

uprop=wengs+wnacel«wfutk«woxtk*win$tk*nfusv$*wox$vs*wprsv$«wengs2'< 

1 WF UTK2+WQ  XTK2+WABPA  + WABFT  K 


COMPUTE  AREO  SURFACE  CONTROL  WEIGHT 
WAEROsO . 0 

I F ( W(JAIT<  5 l.GT.O.O.  AND . ( LBOOV  + C$PAN).GT.O.O.AND.C<  185  ).GT.  0.01 
1 WAERO~C( 55  >•( WWAITl  5 )** .689*1  LBODV*C$P AN )** . 28 7 )##C( 165  )*C( 56) 

COnPUTE  SEPARATION  SVSTEN  WEIGHT 

IF( JUNP.EO.O.O)  WAUXT=C<  153>*WT0*C(  159) 

I Ft JUnP.EO. 1.0)  WAUXTsCt 153 >*WPAVL*C< 159) 

CONPUTE  ACS  SVSTEN  WEIGHT 

WACS=0.0 

I F < WTO . GT . 0 . 0 , AND . C< 155 l.GT.O.O) 

1WACS  = C( 156  )»WWA|T(  9 >**C< 155  >*C< 157 ) 

CONPUTE  ACS  PROPELLANT  TANK  WEIGHT 

WACSTK=C< 169  )»( WAC5 F0  + WACRE5 >+C<  165 ) 

SUN  ORIENTATION  CONTROLS  WEIGHT 

WORSUL=WSTAB+UAC$+WAERO+HAUXT+WACSTK 

CONPUTE  GUIDANCE  AND  NAVIGATION  SVSTEN  WEIGHT 

WGNAV=C( 68) 

CONPUTE  INSTRUNENTATION  SVSTEN  WEIGHT 
W1NST  =C( 69  )*LBOOV*C( TO ) 

CONPUTE  CONNUNICATION  SVSTEN  WEIGHT 
UCONN=C(  71  )«NCREU*C<  72 ) 

SUN  AVIONICS  SVSTEN 
WAVI OC=WGNAV*tfI NST  ♦WCONN 

CONPUTE  PRINE  POWER  SOURCE  AND  DISTRIBUTION 
USORCE=C< 62 ) * WWAITt 6 ) ♦ C(  69 ) 

CONPUTE  PRINE  POWER  SOURCE  TANKAGE 
UPOWTK=C<  29  )*WPOWf 0*C< 60 ) 

SUN  ELECTRICAL  POWER  SVSTENS 

WPOUER-WSORCE+WPOWTK 

CONPUTE  HVORAULI C/PNEUNATI C SVSTEN 

UHVCAD=0.0 


WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 

WTSCH 
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893. 

IFIU  SUING*  SKORI  + SVEflT  UQ/IOGQ.  ) . 6T  . 0 . 0 . AND . ( LBGOY  * C$P  AN  ) . GT  . 0 . 0 > 

WT5CH 

899. 

1WHVCA0=C<  65  )•<  ( ( SWING* SH0R2*SYERT  >*0/1000.  >**1  . 312S*(  LBOOY*CSPAN> 

WTSCH 

895. 

2**1 .06125 >**C( 66 >+C(67> 

WTSCH 

896. 

C 

WTSCH 

897. 

C 

sun  POWER  CONTROL  A NO  DISTRIBUTION 

WTSCH 

698. 

c 

WTSCH 

899. 

UPOWCO=WHYCAD 

WTSCH 

900. 

c 

WTSCH 

901  . 

c 

COnPUTE  PERSONNEL  ACCOMODATIONS  WEIGHT 

WTSCH 

902. 

c 

WTSCH 

903. 

WPPRQ  V = C'  79 )*WWAIT<  7 )♦ C(  75 )*NQREW*C(  76  > 

WTSCH 

909. 

c 

WTSCH 

905. 

c 

COMPUTE  ORV  WEIGHT 

WTSCH 

906. 

c 

WTSCH 

907. 

UDRY=WSURF*WBOOY*WTPS*WLRD*WPROP*WORSUL*WPOWCO*WGNAV*WINST  ♦wcomm* 

WTSCH 

908. 

1UPPR0V  4WP0WER 

WTSCH 

909. 

c 

WTSCH 

910. 

c 

COMPUTE  GROWTH  AND  CONTINGENCY 

WTSCH 

911. 

c 

WTSCH 

912. 

CRAP  = WDRY-WENGS-WABPR-CC 191 ) 

WTSCH 

913. 

MCONT  = C(  96  )*CRAP  * C(162> 

WTSCH 

919. 

c 

WTSCH 

915. 

c 

SUM  WEIGHT  WEIGHT  EMPTY 

WTSCH 

916. 

c 

WTSCH 

917. 

WEMPTY=WORY*WCONT 

WTSCH 

918. 

c 

WTSCH 

919. 

c 

COMPUTE  CARGO  WEI6HT 

WTSCH 

920. 

c 

WTSCH 

921. 

WCAAG0=C< 102  )*NP ASS+CC 103 ) 

WTSCH 

922. 

c 

WTSCH 

923. 

c 

COMPUTE  PASSENGER  WEI6HT 

WTSCH 

929. 

c 

WTSCH 

925. 

UPASS=C( 109  )*NP ASS*C(  105 1 

WTSCH 

926. 

c 

WTSCH 

927. 

c 

SUM  PAYLOAD  WEI6HT 

WTSCH 

928. 

c 

WTSCH 

929. 

WPAYL=WPA$S+WCAR60 

WTSCH 

930. 

c 

WTSCH 

931  . 

c 

SUM  OPERATING  WEIGHT  EMPTY 

WTSCH 

932. 

c 

WTSCH 

933. 

WWET  xwempty+wresio+wpers+upavl+wresav 

WTSCH 

939. 

c 

WTSCH 

935. 

c 

SUM  ZERO  FUEL  WEIGHT 

WTSCH 

936. 

c 

WTSCH 

937. 

WZR0FU=  WWET*  WFULOS*UOXLOS 

WTSCH 

938. 

1 +WACSFO  ♦WPOWFO*WOIL*WABFU*WFROST 

WTSCH 

939. 

2 ♦ C<  296) 

WTSCH 

990. 

c 

WTSCH 

991  . 

c 

SUM  TAKEOFF  WEIGHT 

WTSCH 

992. 

c 

WTSCH 

993. 

WT0=WZR0FU4WFU0X4WDECAY>WFUEL(  1 >-WOX(  1 ) 

WTSCH 

999. 

c 

WTSCH 

995  . 

c 

SUM  GROSS  WEI6HT 

WTSCH 

996. 

c 

WTSCH 

997. 

W6R0SS  = WT04WPREI  G4WFUEU  1 >4W0X<  1 ) 

WTSCH 

998. 

c 

WTSCH 

999. 

c 

UPDATE  WWAI T ( 1 ) 

WTSCH 

950. 

c 

WTSCH 

951. 

WWAI T<  1 ) = W6R0SS  -WPREIS 

WTSCH 

952. 

c 

WTSCH 

953. 

c 

GROSS  WEIGHT  LESS  PAYLOAD 

WTSCH 

959. 

c 

WTSCH 

955. 

WTABC=WGROSS-WPAVL 

WTSCH 

956. 

c 

WTSCH 

957. 

c 

WTSCH 

958. 

c 

niSCELLANEOUS  CONTROL  STATEMENTS 

WTSCH 

959. 

c 

WTSCH 

960. 

c 

WTSCH 

961  . 

I F(  NLISTO.NE . 0 ) WRITE! 6, MASS!  ) 

WTSCH 

962. 

I Fl  NLISTO.NE.O)  WRITE! 6,MASS2 > 

WTSCH 

963. 

c 

WTSCH 

969. 

IF  ( WGROSS.GT. 20000000. . AND . JUMP . EO . 1 .OR . WGROSS . GT . 10000000. . AND . J 

WTSCH 

965. 

1UMP.EQ.0)  60  TO  210 

WTSCH 

966. 

c 

WTSCH 

967. 

RETURN 

WTSCH 
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SUBR0UTINE 

WTV0L 


/£ 


FORTRAN 

SYMBOL 

BTTOT 

C 

CTHRST 

I LAST 
ISP 

JUMP 


OTTOT 

PR  I NT V 
PRINTW 
PRUT  Sft 


RPAR 

SCB 


SE 


SOLVE 

SPLAN 


DESCRIPTION 


0 

Total  booster  solgtit  flu 

/TAftP  /( 

S ) 

SUftOUT 

I 

BTTOT 

TAMPER 

I 

BTTOT 

WT  VOL 

0 

BTTOT 

0 

Input  array  e(  300  > of  vehicle  siting  fata 

/CINPUT/C 

5) 

PRINTW 

I 

C 

PRITE8 

1 

C 

PR1TVA 

1 

c 

STORE 

ft 

C 

WTSCH 

I 

c 

WT  VOL 

0 

c 

ft 

Vac-  Thr ust-to-aei ght  ratio 

/Cl NPUT/( 

322) 

PR1TVA 

I 

CTHRST 

STORE 

ft 

CTHRST 

WTSCH 

I 

CTHRST 

WT  VOL 

A 

CTHRST 

u 

Print  cycle  flag  1 - print  cycle  0 = not  on  a print 
cycle 

/ WT VOL  /t* 

) 

WT  VOL 

W 

I LAST 

0 

Specific  tapulse 

/CINPUT/( 

330) 

PRWTSft 

1 

ISP 

STORE 

ft 

ISP 

WTSCH 

] 

ISP 

WT  VOL 

0 

ISP 

« 

/JUftPV  /( 

1 ) 

FRENCH 

0 

JUMP 

PRINTW 

I 

JUMP 

PRITVA 

I 

JUftP 

PRWTSft 

ft 

JUMP 

WTSCH 

1 

JUftP 

WT  VOL 

ft 

JUMP 

a 

Total  orbiter  threat 

/TAftP  /C 

2) 

SUftOUT 

I 

OTTOT 

TAMPER 

I 

OTTOT 

WT  VOL 

ft 

OTTOT 

s 

/PR l NT  V/C A 

) 

PR I NT  V 

E 

PRINT  V 

WT  VOL 

S 

PRINT  V 

s 

Subroutine  to  print  vehicle  eelght  data 

/PRINTW/t  $ 

) 

PRINTW 

E 

PRINTW 

WT  VOL 

S 

PRINTW 

s 

Subroutine  to  print  sueeary  data 

/PRUTSft/l d 

) 

PRWTSft 

E 

PRWTSft 

WT  VOL 

S 

PRWTSft 

u 

Ueighting  factor  for  updating  range 

/WT  VOL  /(* 

) 

WT  VOL 

w 

RPAR 

ft 

Working  naee  for  input  c-array  booster  scaling 

/ORBI NV/( 

\HH  ) 

FLYBKP 

ft 

SCB 

coef f I c tents 

STORE 

ft 

SCB 

SUftOUT 

1 

SCB 

TAMPER 

I 

SCB 

THRUST 

ft 

SCB 

VEHDF 

I 

SCB 

WT  VOL 

ft 

SCB 

ft 

Array  of  synthesis  iteration  propulsion  parameters 

/SI ZI NG/( 

259  ) 

FLYBKP 

0 

SE 

PRITVA 

I 

SE 

SIZEftR 

l 

SE 

SUftOUT 

I 

SE 

TAMPER 

ft 

SE 

THRUST 

I 

SE 

VEHDF 

ft 

SE 

WTSCH 

I 

SE 

NT  VOL 

ft 

SE 

s 

Subroutine  to  drive  neight  and  volute  calculations 

/SOLVE  /<* 

) 

SOLVE 

E 

SOLVE 

<etsch)  to  convergence  ~ an  Inner  loop  dr i ver 

WT  VOL 

s 

SOLVE 

I 

Body  planfore  area 

/ VO  LCAL/( 

IN) 

PROTHR 

I 

SPLAN 

TAMPER 

I 

SPLAN 

WTSCH 

0 

SPLAN 

WTVOL 

I 

SPLAN 
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FORTRAN 

SYMBOL 


HATH 

SYMBOL 


cooe 


DESCRIPTION 


, , stqra^e 
block uRT 


SUBROUTINE  USAGE 

tj wrnnrr  vatt 


so 


sv 


tamper 

1 TBlfl 
T827 


TB3H 


TB36 

TB5 1 
TB56 

Toie 

T027 


M A fynthtilt  dati  array  (37,5)  Hit  eontiim  the 
flyback  data  and  »oa«  Injeetlca  quantities 


I A synthesis  irri*  (28)  containing  staging 
parameters  and  ai  sc  flags 


S Subroutine  to  interface 

nith  trajectory  prograa 

0 Stored  booster  value  of 

1 Stored  booster  value  of 

M Stored  booster  value  of 


I Stored  booster  value  of 

0 Stored  booster  value  of 

M Stored  booster  value  of 

M Stored  orbiter  value  of 

1 Stored  orbiter  value  of 


•eight  and  volume  overlay 
overlay 

ctbrst 
i apt  I ) 

•r(  I ) 


neags 

vbedy 
•gross 
ctbrst 
1 sp(  1 ) 


/SIZING/I 

IN) 

CNVPRM 

1 M 

SO 

FLVBXP 

M 

SO 

ISPRAT 

I 

so 

POBC 

1 

so 

PRITVA 

I 

so 

RANGE 

M 

so 

REU3 

0 

so 

SIZE 

0 

so 

SIZEMR 

M 

so 

SIZIN 

M 

so 

STAU 

I 

so 

SUMOUT 

M 

so 

TAMPAR 

0 

so 

TAMPER 

M 

so 

THRUST 

M 

so 

TRTOSZ 

M 

so 

VEHDF 

M 

so 

WT  VOL 

M 

so 

/SIZING/! 

46) 

ENYPRM 

M 

sv 

F LYBKP 

I 

sv 

ITER8 

I 

sv 

RANGE 

I 

sv 

SIZEMR 

M 

sv 

SIZIN 

1 

sv 

SSSP 

I 

sv 

SUMOUT 

I 

sv 

TAMPAR 

0 

sv 

TAMPER 

M 

sv 

TRTOSZ 

M 

sv 

VEHDF 

M 

sv 

WT  VOL 

I 

sv 

/TAMPER/!  » 

) 

TAMPER 

E 

tamper 

wtvql 

S 

tamper 

/ORB I NV /( 

23) 

STORE 

M 

TB1S 

WT  VOL 

0 

Taie 

/OR  B I NY / ( 

HI  ) 

SIZEMR 

I 

TB27 

SSSP 

I 

TB27 

STORE 

M 

TB27 

SUMOUT 

1 

TB27 

TAMPER 

I 

TB27 

VEHDF 

M 

TB27 

WT  VOL 

1 

TB27 

/ORBINV/! 

53  > 

FLYBKP 

I 

TB34 

ITERS 

0 

TB3M 

SSSP 

M 

TB34 

STORE 

M 

TB34 

SUMOUT 

I 

TB3H 

TAMPER 

I 

TB3H 

VEHDF 

I 

TB34 

WTVOL 

M 

TB3N 

/ORB  I NY /( 

60) 

STORE 

M 

TB36 

SUMOUT 

I 

TB36 

TAMPER 

I 

TB36 

THRUST 

I 

TB36 

WT  VOL 

I 

TB36 

/0RBINY/( 

102  > 

STORE 

n 

TB51 

WT  VOL 

0 

TB5 1 

/ORBINY/t 

107  ) 

STORE 

M 

TB56 

WT  VOL 

ft 

TB56 

/ORBI NX/( 

23) 

STORE 

M 

T018 

WT  VOL 

M 

T016 

/ ORB  I NX/ ( 

HI  ) 

SIZEMR 

l 

T027 

SSSP 

1 

T 027 

STORE 

M 

T027 

SUMOUT 

I 

T027 

VEHOF 

'M 

T027 

WT  VOL 

I 

T027 
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FORTRAN 

SYMBOL 


HATH 

SYMBOL 


coot 


DESCRIPTION 


iammas  ,'is»s£ 

block CTE  subr  code  y*« 


'V 


T034 

n 

/ORBINX/I 

53) 

i ITERS 

M 

T034 

SSSP 

0 

T034 

STORE 

M 

T034 

TAMPER 

1 

T034 

VEHOF 

0 

TQ34 

MTVOL 

M 

T034 

TQ36 

I 

Storad  orbltar  wilui  of  aaaga 

/orbinx/i 

60  ) 

STORE 

M 

T036 

SUMOUT 

1 

T036 

TAMPER 

I 

T036 

THRUST 

I 

T036 

MTVOL 

1 

T036 

T051 

0 

/ORB JNX/I 

102  ) 

STORE 

M 

TO$l 

MTVOL 

0 

T051 

T056 

n 

/ORBINX/I 

107) 

5T0RC 

M 

T056 

MTVOL 

M 

T056 

TTOt 

i 

Total  ataga  vac.  Thrmt 

/volcal/i 

21  ) 

PR1TVA 

I 

TTOT 

STORE 

1 

TTOT 

MTSCH 

M 

TTOT 

MTVOL 

1 

TTOT 

TWO 

M 

Thr u* t-tg-aa I ght  eatla 

/mtvol  /(• 

) 

MTVOL 

M 

TMO 

VBODV 

I 

Total  body  nluaa 

/C1NPUT/C 

391  ) 

PR  1 NT  V 

« 

VBODV 

SOLVE 

M 

VBODV 

STORE 

M 

VBODV 

TAMPER 

I 

VBOOV 

MTSCH 

M 

VBODV 

MTVOL 

l 

VBODV 

V600V1 

n 

Vbody  to  - 1/3  poaar 

/VOLCAL/I 

25  ) 

MTSCH 

M 

VBOOV 1 

MTVOL 

M 

VBOOV 1 

VBOOY2 

n 

Vbody  to  - 2/3  poaar 

/VOLCAL/I 

26) 

MTSCH 

M 

VB0DV2 

MTVOL 

M 

VB00V2 

MBOO 

0 

/JUMPY  /I 

3) 

PRINTM 

I 

MBOO 

TAMPER 

I 

WBOO 

MTVOL 

0 

MBOO 

mfuox 

i 

MalgM  of  sain  and  aacondary  prepailaat 

/mtcalc/i 

46  ) 

PRINTM 

1 

MFUOX 

tamper 

I 

MFUOX 

MTSCH 

M 

MFUOX 

MT  VOL 

1 

MFUOX 

MFUOXO 

M 

Propil lant  at.  Last  fpr  -orbltar 

/TAMP  /( 

3) 

SUMOUT 

l 

MFUQXO 

tamper 

I 

MFUOXO 

MTVOL 

M 

MFUOXO 

WGROSO 

m 

Orbltar  grata  aaiybt 

/TAMP  /( 

1 ) 

SSSP 

1 

H&ADSD 

SUMOUT 

1 

MSROSO 

mtvol 

M 

M&ROSO 

MGROSS 

I 

Groat  lift-off  aalgbt 

/CINPUT/I 

392  > 

PRINTM 

I 

M GROSS 

prmtsm 

1 

M&R05S 

SOLVE 

M 

M&ROSS 

STORE 

M 

MGROSS 

tamper 

1 

M6R0SS 

MTSCH 

M 

M&ROSS 

MTVOL 

I 

MGROSS 

MORES 

M 

Required  orbltar  great  aa I gbt 

/mtvol  /!♦ 

) 

MTVOL 

M 

MORES 

UPOREO 

M 

Raquirad  orbltar  propallaat  aaight 

/mtvol  /I * 

) 

MTVOL 

M 

MPOREO 

mtsch 

S 

Subroutine  to  calculate  aa i gbt  and  aelua*  of  both 

/MTSCH  /i  a 

) 

SOLVE 

S 

MTSCH 

atagaa 

MTSCH 

E 

MTSCH 

MT  VOL 

S 

MTSCH 

MT  VOL 

E 

Main  prooraa  for  aaight  and  aoluaa  calculation* 

/MTVOL  /l& 

) 

MTVOL 

E 

MTVOL 

o *tr  I ay  ( 9, 2 ) 
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FORTRAN 

SYMBOL 


NATH 

SYNBOL 


cooc 


DESCRIPTION 


.UNO*. 


FIU  of  oil  output  ioto 


STORAGE  SUBROUTINE  USAGE 

block  subrTooe  va?T 


BLICO 

0 

. UN06 . 

BNORYC 

0 

. UN06 . 

CRASH 

Q 

.UNO*. 

FRENCH 

0 

.UNO*. 

FXOAT 

0 

.UNO*. 

GEINP 

0 

. UN06 . 

HUNT 

0 

.UNO*. 

INEOIT 

0 

.UNO*. 

ITERS 

0 

.UNO*. 

WOOELA 

0 

.UNO*. 

HOHJ 

0 

. UN06 . 

NPSI 

0 

.UNO*. 

OUT 

0 

.UNO*. 

PAY02 

0 

.UNO*. 

PRINT 

0 

.UNO*. 

PR  I NT  V 

0 

.UNO*. 

PR  1 NTH 

0 

.UNO*. 

PRITEQ 

0 

.UNO*. 

PR1TVA 

0 

.UNO*. 

PROPIN 

0 

.UNO*. 

PROTHR 

0 

.UNO*. 

PRUT  SH 

0 

.UNO*. 

RANGE 

0 

.UNO*. 

S 

0 

.UNO*. 

SOI  NP 

0 

.UNO*. 

SUE 

0 

. UNO* . 

SUIN 

0 

.UNO*. 

SIZOUT 

0 

.UNO*. 

SOLVE 

0 

.UNO*. 

SPLICO 

0 

. UNO*. 

SPLlZ 

0 

. UNO*. 

SPLYNE 

0 

.UNO*. 

SSSP 

0 

.UNO*. 

STAU 

0 

.UNO*. 

STPIT 

0 

.UNO*. 

SUNOUT 

0 

.UNO*. 

TABIN 

0 

. UNO*. 

TEST 

0 

. UNO*. 

VEHOF 

0 

.UNO*. 

UTSCH 

0 

. UNO*. 

UT  VOL 

0 

.UNO*. 
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Ml  VOL 


X 


1. 

2. 
3. 
1. 

5. 

6. 
7. 
ft. 
ft. 

10. 

lk. 

12. 

13. 

lft. 

15. 

16. 
17. 
ie. 
lft. 
20. 
21. 
22. 
23. 
2ft. 
2$ . 
26. 
27. 

29. 

2ft. 

30. 

31. 

32. 

33. 
3ft. 

35. 

36. 

37. 

38. 

39. 
ftO. 
ftl. 
ft2. 
ft3. 
ftft. 


PROGRAM  UT VOL 


PRIMARY  SUBROUTINE  FOR  HEIGHT  AND  VOLUME  SUBROUTINE 


63. 

6ft. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 
7ft. 
75. 


REAL  MUB.  MUO,  ISPB,  ISPO,  IO¥EL,NNB,NO 
COMMON  /SIZING/ 

PHASE  II  SIZING  PARAMERERS 

• TZ,  Wt  3 ),  OP<lft),  EROR, 

• 5VI  28  >,  SQ(  37.5),  5E(  111.  TLAT 
E I SIZING  PARAMETERS 


PHASE 


PZ<5), 

TLNG, 


SHI  20), 


♦HBO, 

• BKl, 

• OKI. 
•AEXIT, 

• XPL, 
♦OVO, 

#'sl”$0 


tf  LOO, 

BK2, 

0K2, 

T VACO, 
TVACB, 


OUEft, 
BK3, 
0X3, 
NO, 
NNB, 
DVB,  MUB, 

BECO  , BSTG  . 
SVDCON  , IHUNT 


TOLHT, 
ISIZE, 
PRFLG, 
IOVEL, 
HEB. 
VSTG, 
1TNBH  , . 
,ISZO( lft) 


HP  ft, 

TRAFL6, 

IPASS, 

ISPO, 

“2*o 

TNOU  , 


THRAT2, 

THRATO, 

IPSMAX, 

ISPft, 

HLO, 


OMEO, 

BKft 
OKft, 

UFO, 

MEO. 

MUO, 

ORBI. 

’ Wf  mM  w | M www*»  . f . 1 QP  S T G * >l/A«M  A V | 

DIMENSION  SKO(  30),  SCO!  300),TOft(  6>,T020(  10  ),T027(  6 ),T03ft(  6), 

1 TOftftC  10),T0ftft(  10),T050C  10  >, T057{  6 >, OHSAVEt  10) 

COMMON/ORBINX/ 

1 T01,T02,T03,TOft,T05,T06,T07T08,TOft,T010,T011,T012,TOl3,T01ft, 

2 T015, TO  16, Tol7, lOlft, TOlft, T 02 0,T 02 1,1022, 1 023,1029,10 25,I026,T027, 

3 1028,1029, 1030, 1031, 1032, T033,T03ft,T035,T036, 103 7, T038, T03ft,T0ft0, 
ft  TOftl,TOft2,TOft3,TOftft,T0ft5,T0ft6,T0ft7,T0ft8,TOftft,T050,TO51,T052,T053, 
5 TOSft,  TOS^TOSB.TOSi.TOBB.SKP , SCO, OMSAVt 

6,T05ft,T060,T 061,T062,T063,T06ft,T065, T067,T068,T069,T070,T071, 

7 T0  72,T073,T07ft,T075, TO 76, T07  7, T078, T079, T080, T081 ,T082,T083, 
eToeft 

DIMENSION  SKB(30),SCB(  300  ),  TBftt  6 ),  TB20(  10  ),  TB27(  6 ),  TB3ft(  6 ), 

1 TBftftt  10  ),TBftft(  10  ),TB50(  10), TBS  7(6),  BUSAVEt  10  1 
COMMON/ ORB  I NY/ 

1 TBl,TB2,TB3,TBft,TB5,TB6,TB7,  TB8,TB9,TB10, TB1 1 ,TB12,TB13,TBlft, 

2 TB15,TB16,TB17,TB18,TB19,TB20,TB21, IB22, IB23, I B2ft, 1 B25, I B26,TB27 , 

3 IB28,IB29,IB30,IB31,IB32,TB33,TB3ft,TB35,TB36, I B37 , TB38,TB3ft,TBftO, 
ft  TBftl ,TBft2,TBft3, TBftft, TBft5 ,TBft6,TBft7,TBft8,TBftft,TB50,TB51,TB52,TB53, 
5 TBSft, TBS 5, TB56, TBS  7, 5KB, SCO,  BU5AVE 

6, TB59, TB60.TB61 ,TB62, TB63,TB6ft, TB65.TB66, TB67 , TB68,TB69,TB70, 

7 w)7 1 ,TB72, TB73, TB7ft, TB75, TB76, TB77, TB78,TB79, TB80, TB81 ,TB82, 

8TB83, TBSft 
REAL  KIN 

REAL  isp,k,lp,mr,ncren,lbodv,npass 

REAL  NENGS 
CO MMON/C INPUT/ 


95. 

1ANEN&S 

ANT  AUK 

, ASRATO 

, ASUEEP 

96. 

2CHBQDV 

,CLBOOV 

, CSBOOV 

, CSFAI R 

97. 

3CSPLAN 

,CSVERT 

, CSH1 NG 

, CTHRST 

98. 

ftlSPt  6 > 

, ITPS 

, K(  30  ) 

.KIN 

ftft. 

5 NENGS 

, NLI STO 

, NP ASS 

, NHL 

50. 

6RH0FU2 

, RHOX 

, RHQX2 

, SftODY 

51. 

52. 

7TVTAIL  , VBODV  ,UGROSS 

COMMON/ v6lcal/bbo6y.croot 

, CSP AN 

53. 

2HB00V 

, LBOOY 

,RTOD 

, SF  AI R 

5ft. 

3SPLAN 

,STPS( 1 ) 

, SVERT 

, SUING 

55. 

ftTTOT 

,TT0T2 

, TTOT  AL 

, VBODYA 

56. 

5VCREH 

, VFUTK 

, VFUTK2 

, VI NSTK 

57. 

6V0XTK2 

. VPROP 

, VSTRUC 

58. 

COMMON/ tft CALC/ 

AftFSVS 

, UAftFTK 

5ft. 

1HACS 

HACSFO 

, HACSTK 

, UAERO 

60. 

2HBPUMP 

HCARGO 

HCOMM 

, HCONT 

61  . 

3W01ST2 

, HOOCK 

.HOPLOV 

HORANS 

62. 

9HENSMT 

, HEN6S 

, HEN6S2 

HF  Al  R 

•-•TVOL 

HT  VOL 

HT  VOL 

HTVOL 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING  j 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

UH 

ORBINX 

CKOUT 

ORBINX 

ORBINX 

ORBINX 

ORBINX 

ORBINX 

CKOUT 

UH 

UH 

UH 

ORBI NV 

CKOUT 

ORBI NV 

ORBINV 

ORBI NV 

ORBINV 

ORBINV 

UH 

UH 

UH 

UH 

CINPUT 

CINPUT 

CINPUT 

CINPUT 


5HFU2<3)  ,MFUEL(  6),HFUL  .UFUL05 
6HFUSVS  , HFUTK  HFUTK2  HFUTOT 

7HH0RZ  HHVCAD  , HI NFUT  ,UINOXT 

6HJ£T(  6 > HLANCH  ,HL6  .HLOSS 

9H0IL  , HO  1 LRS  , HORSUL  , HOVERS 

1MOXLOS  ,hoires  ,hoxsys  .hoxtk 

2 HP  HP  ASS  HP AYL  ,HPERS 

3HP0HR5  , HPOHTK  , HPPR0 V .UPREIG 
ftHntSI  0 ,HRESRV  ,H5EAL  .HSECST 
5WSURF  HT  ABC  , UTHRST  ,HTO 

6HHET  HHI NG  , HZROFU  UOBTRP 

7HMN0RS  , HMNFRS  ,HACOTP  HACFTp 
8HABFUC  , HAC0RS  ,MACFRS  ,UPH0R5 


C(  300) 

, CBBODY 

, CFUELt  6 ), 

CINPUT 

CSFUTK 

CSHORZ 

, CSOXTK 

CINPUT 

CTNST2 

,OEF<  5) 

, F XHO VS 

CINPUT 

LF 

,MR( 6 > 

, NCREH 

CINPUT 

P CHAM 

,5 

,RHOFU 

CINPUT 

TOL 

, TOVERC 

, TPRATO 

9 

CINPUT 

CINPUT 

CT  IP 

, GAL 

, 6SPAN 

VOLCAL 

SFUTK 

, SHORZ 

, SOXTK 

VOLCAL 

SXPOS 

, T DEL 

, TROOT 

9 

VOLCAL 

VB00Y1 

, VB0DV2 

, VCARGO 

VOLCAL 

VLGftAV 

, VOTHER 

, vOktk 

9 

VOLCAL 

VOLCAL 

WABFU 

HABPR 

, hacres 

9 

HT  CALC 

HAUXT 

, HB AS  I C 

, UBODV 

HTCALC 

HOOVER 

HOECAV 

, UDI ST  1 

HT  CALC 

WORY 

, HELCAD 

, HEMPTV 

HTCALC 

HFCONT 

, UFOCAY 

,HFROST 

HTCALC 

UFUNCT 

HFUO  X 

, HFURES 

HTCALC 

HFUTRP 

HGASPR 

, HGNAV 

HTCALC 

HI NSTK 

, HI NST 

,hinsul 

HTCALC 

ulro 

, HNACEL 

, UOOCAY 

HTCALC 

UOX(  6 ) 

HO X2( 3 > 

, UOX I D 

HTCALC 

U0XTK2 

HOXTOT 

, HOXTRP 

HTCALC 

HPOHCO 

HPOHER 

, HPOHFQ 

HTCALC 

HPROP 

HP R SYS 

,hreful 

HTCALC 

HSORCE 

HSRTRP 

.HSTAB 

HTCALC 

HTPS 

, HVERT 

, UHAI T(  10). 

HTCALC 

HABRES 

UMNOTP 

HHNFTP 

CKOUT 

UPHOTP 

UPHFRS 

UPHFTP 

,HGA5 

9 

CKOUT 

CKOUT 
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?6. 

C 

NT  VOL 

11. 

COMMON/ 1 AMP / MGROSO , OT  TOT , NF  UOXO, T6T0, 6TT0T 

NT  VOL 

78. 

COMMON/ JUMPY/  JUMP,  *816,  WOOD 

CKOUT 

79. 

COMMON/ TRUST / 

CKOUT 

80. 

* fVACO,  FSLO,  FVACLO,  FVACS, 

CKOUT 

01. 

* FVACB,  FSL8,  FSlU),  FSlS 

CKOUT 

02. 

c 

NT  VOL 

63. 

c 

CHECK  PR  MIT  FLA6 

NT  VOL 

84. 

c 

NT  VOL 

85. 

BTNTOL=SN(  18)*. 5 

NT  VOL 

86. 

a AX  = SEC  6 ) 

NT  VOL 

87. 

NOREQ=  SQt 10.1) 
NPOREO  = SQ( 13. I ) 

NT  VOL 

88. 

NT  VOL 

89. 

GNREB=  SflC 16,1) 

1 F(  SU( 3 ) . GE . 1 . ) 60  TO  40 

NT  VOL 

90. 

NT  VOL 

40  — 

91. 

c 

NT  VOL 

92. 

c 

FIRST  PASS  LOOK 

NT  VOL 

93. 

c 

NT  VOL 

94. 

S0( 15,21=1. 

NT  VOL 

95. 

c 

NT  VOL 

96. 

c 

NORMAL  ENTRY  POINT  - 1NITALIZE  VARIABLES 

NT  VOL 

97. 

c 

NT  VOL 

98. 

40  CONTINUE 

NT  VOL 

99. 

SW<  3 )=SW<  3 >*1. 

NT  VOL 

100. 

61 6= . 00005 

NT  VOL 

101. 

806=. 00025 

NT  VOL 

102. 

I LA5T=0 

NT  VOL 

103. 

EROR  = 0.1 

NT  VOL 

104. 

6US  = 0. 

NT  VOL 

105. 

ACEL=0. 

NT  VOL 

106. 

ACNT  =0 . 

NT  VOL 

107. 

101  CONTINUE 

NT  VOL 

108. 

ACNT=ACNTM. 

NT  VOL 

109. 

CALL  0R6CAL 

NT  VOL 

no. 

c 

FIXED  T HRUST-TO-NEI 6k» 

NT  VOL 

111. 

I S P ( 3 ) = T027(  3 ) 

NT  VOL 

112. 

JUMP  = 0 

NT  VOL 

113. 

CALL  NTS CM 

NT  VOL 

114. 

CALL  SOLVE 

NT  VOL 

115. 

V800Y1  = VBODV 

NT  VOL 

1 16. 

N6R0S0=NGR0SS 

NT  VOL 

117. 

UFUOXO=NFUOX 

NT  VOL 

118. 

OTTOT=TTOT 

NT  VOL 

119. 

1 * A 

OSPLAN  = SPLAN 

cn  TA  9Q1 

NTVOL 
ut  vn  i 

4Q1 

liil. 

oil  IU  6^1 

■ 1 fill 

121. 

195  CONTINUE 

NTVOL 

122. 

CALL  BOOCAL 

NTVOL 

123. 

c 

NTVOL 

124. 

c 

CHECK  CONSTANT  (T/UlL.O.  FLA6 

NTVOL 

125. 

c 

NTVOL 

126. 

I Ft  SEt  3 ). EQ . 0.  ) 60  TO  200 

NTVOL 

200  — 

127. 

c 

NTVOL 

128. 

c 

FIXED  THRUST-T0-NEI6NT 

NTVOL 

129. 

197  SC6< 129)  = 0. 

NTVOL 

130. 

C<  129)  = 0. 

NTVOL 

131. 

CTHRST  = CTHRST  • SEt 1 )/  T627I2) 

NTVOL 

132. 

TB18  = CTHRST 

NTVOL 

133. 

60  TO  210 

NTVOL 

210  — 

134. 

c 

FIXED  THRUST 

NTVOL 

135. 

200  CTHRST  = 0. 

NTVOL 

136. 

T618  = 0. 

NTVOL 

137. 

TBTO  = SNt  6 ) * T636/T036 

NTVOL 

138. 

SCB( 129  1 = 0TT0T*TIT0/TB36 

NTVOL 

139. 

C<  129  ) = SCBt 129) 

NTVOL 

140. 

210  1SP(  3 ) = TB27I  3) 

NTVOL 

141. 

JUMP  = 1 

NTVOL 

142. 

CALL  NT5CH 

NTVOL 

143. 

CALL  SOLVE 

NTVOL 

1 44. 

BTTOT  = TTOT 

NTVOL 

145. 

VB0DY2  = VBODV 

NTVOL 

146. 

269  T 85 1 = VB00V2 

NT  VOL 

147. 

T051  = V6O0V1 

NTVOL 

146. 

T 856  = W6R0SS 

NTVOL 
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1*9. 

HBOO  = WSR0SS-T056 

UH 

150. 

T056  = UGROSO 

WT  VOL 

151. 

291 

CONTINUE 

WT  VOL 

152. 

IFULAST.NE.i  .AND.  $W(16>  . EQ.  0.1  60  TO  292 

WT  VOL 

292  — 

153. 

CALL  PR  I NTH 

CKOUT 

15* . 

CALL  PR I NT V 

CKOUT 

155. 

CALL  PRUTSH 

CKOUT 

156. 

292 

CONTINUE 

WT  VOL 



157. 

IF( JUNP.EO.l)  GO  TO  300 

WT  VOL 

300  — 

158. 

CALL  ORBSUN 

WT  VOL 

159. 

CALL  ORBSTO 

WTVOL 

160. 

GO  TO  195 

WT  VOL 

161. 

300 

CONTINUE 

WTVOL 

162. 

C(3>  = SCB(  3 ) 

WTVOL 

163. 

C(  5 > = SCB(5) 

WTVOL 

16*. 

C<  7 > = SCO!  T 1 

WTVOL 

165. 

C(  1*6)  = SCB<  1*6) 

WTVOL 

166. 

C<  31)  = SCB(  31  ) 

WTVOL 

167. 

C<  56  ) = SCB(  56  ) 

WTVOL 

168. 

C(  129)  = SCB(  129) 

WTVOL 

169. 

C<  21 1 > = SCB( 211  ) 

WTVOL 

170. 

C<  67  ) = S CB<  67  ) 

WTVOL 

171. 

C 

WTVOL 

172. 

c 

CHECK  CONST.  T/W-LO  FLAG 

WTVOL 

173. 

c 

WTVOL 

17*. 

I Ft  SE(  3 ) . EQ . 0 . ) GO  TO  900 

WTVOL 

*00-1 

175. 

CTHRST  = CTHRST  * TB27I2)/  SE( 1 ) 

WTVOL 

■j 

■ 

176. 

*00 

CALL  BOOSUN 

WTVOL 

177. 

CALL  BOOSTO 

WTVOL 

178. 

CALL  TAMPER!  1 ) 

WTVOL 

179. 

TWO  = 0TT0T/T056 

WTVOL 

180. 

WRITE  ( 6,  1000  ) T03(t(3),T056#OTT0T  TWO,TB3*(3),TB56,QP(l)  SV(13) 

WTVOL 

161 

1 F( SE( 3 ) EO.l.  ) GO  TO  $00 

WTVOL 

500-1 

162. 

I F( ACNT . 6E . SW( 19))  60  TO  500 

WTVOL 

500  — 

183. 

c 

• **  THIS  LOOP  ADJUSTS  CTHRST  (ORBITER  T/ W ) TO  OBTAIN 

WTVOL 

18*. 

c 

SPEC) F I EO  LIFTOFF  T/W 

WTVOL 

185. 

1 F ( $U( 2 ) . EO . 1 . ) BTWTOL=SW(  18) 

WTVOL 

186 

I F ( ABS( SV< 13)-SW( 17))  .LE.  BTWTOL  ) GO  TO  500 

WTVOL 

500  — 

187. 

TO  1 8 = TO  1 8/S V<  13)  * SW(  17) 

WTVOL 

188. 

GO  TO  101 

WTVOL 

101 

189. 

500 

CONTINUE 

WTVOL 

190. 

ACNT  =0 . 

WTVOL 

191 . 

ACEL= ACEL4 1 . 

WTVOL 

192. 

1 F< GWREO.LE.O.  ) GO  TO  800 

WT  VOL 

800 1 

193. 

c 

*»»  THIS  LOOP  ADJUSTS  PAVLOAD  WEIGHT  TO  OBTAIN 

WTVOL 

19*. 

c 

SPECIFIED  GROSS  LIFTOFF  WEIGHT  «*# 

WTVOL 

195. 

D1FF=GUREQ-TB56 

WTVOL 

196. 

TOH=OIFF/6WREO 

WTVOL 

197. 

I F t AB5<  TON)  .LT.BIB  ) GO  TO  509 

WTVOL 

509 

198. 

IF(ACEL.GT.l.  ) GO  TO  502 

WTVOL 

502 

199. 

$L0PE=-2l.  1 

WTVOL 

200. 

I F < 5W(  3 ) . GT . I . .OR.  GUS.GT.O.)  $L0PE=SW<8) 

WTVOL 

201. 

GO  TO  505 

WTVOL 

505*^ 

202. 

502 

SLOPE  = ( 01 FF  - S0IFF)/<5C0( 103)  - SAPAV  ) 

WTVOL 

rzr 

203. 

505 

CONTINUE 

WTVOL 

20*. 

WR I TE<  6, 1 00 1 ) SCO( 103), DIFF, SLOPE 

WTVOL 

205. 

SW(  8 ) = SLOPE 

WTVOL 

206. 

SOI FF  = D1FF 

WTVOL 

207. 

SAPAV  = S C0( 103) 

WT  VOL 

208. 

SCO( 103)  = S CO ( 103)  - 01FF/SL0PE 

WTVOL 

209. 

I F( ACEL. ST. 6.  ) GO  TO  503 

WTVOL 

503—1 

210. 

60  TO  101 

WTVOL 

' 

211. 

503 

WR I TE<  6 . 1002  ) 

WTVOL 

212. 

GO  TO  600 

WTVOL 

600 

213. 

50* 

WRITE! 6,1001  ) SCOC 1 03 > , 01 FF , $W( 8 ) 

WTVOL 

21*. 

TOPI  = 01 FF/GWREO 

WTVOL 

215. 

WRITE! 6,1003)  TON 

WTVOL 

216. 

GO  TO  600 

WTVOL 

600 

217. 

800 

CONTINUE 

WTVOL 

218. 

I Ft SE< 3 ).E0. 1 . OR . SW( 1 9 ) . GT . 0. ) GO  TO  600 

WTVOL 

600 
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219. 

C 

* * 

• ••THIS  LOOP  ADJUSTS  ORBITER  MRt 3 ) TO  COMPENSATE  FOR  CHANGE  IN 

T/W 

WT  VOL 

220. 

C 

AT  LIFTOFF.  ***** 

WT  VOL 

221  . 

SQ(  15,1  ) = SQ(  15.2) 

WT  VOL 

222. 

SQ(  15  2 ) = S V(  13  1—1 . 

WT  VOL 

223. 

C 

S V<  13)  IS  LIFTOFF  THRUST-TO-WE I 6HT 

WT  VOL 

229. 

I F ( ACEL.GE.2.  ) GO  TO  600 

WT  VOL 

600 

225  . 

l Ft ACEL.EO. 1 . . ANO.SWt  3 >.LE. 1 . , AND . 6U$ . EQ . 0 . 

1 60  TO  600 

WT  VOL 

600 

226. 

0 1 FF  = 5Q(  15,2  )-S0< 15,1  ) 

WTVOL 

227. 

IF( ABS( DIFF J.LT.BI8)  SO  TO  600 

WT  VOL 

600 

228. 

SLOPE  = 500. /SE( 7 )/32. 179 

WTVOL 

229. 

X = T039(  3 )*SLOPE/SQ< 15.2)  - .2 

WTVOL 

230. 

C 

THE  CONSTANT  -.2  REFLECTS  WEIGHT  REDUCTION  OUE  TO  QMAX 

DECREASE 

WTVOL 

231  . 

c 

*****  X IS  AN  ESTIMATE  OF  THE  FEEDBACK  OF  T/W 

VARIATIONS 

WTVOL 

232. 

c 

THROUGH  CHANGES  IN  MUO  ANO  QMAX . »•••• 

WTVOL 

233  . 

1 Ft X.9E. .88)  GO  TO  003 

WTVOL 

803  — 

239. 

IF*  X . GT . . 99  ) X=.99 

WTVOL 

235. 

0TWT=-0IFF/S0( 15, 1 )/S0( 15,2)/< 1 .-X ) 

WTVOL 

236. 

OTWT  s 01 FF/  ( 1 .-X) 

WTVOL 

237. 

RATIO  = 1 . ♦ DTWT  / SOt 15,2) 

WTVOL 

238. 

0LD=T039( 3) 

WTVOL 

239. 

T 0 39*  S ) = OLD  * RATIO* *t -2. *S LOPE  ) 

WTVOL 

290. 

DMU=  T0J9t  3 )-OLD 

WTVOL 

291  . 

WRITE*  6,  1009  ) DMU, X , DTWT 

WTVOL 

292. 

c 

* • 

»**  ADJUST  THE  QMAX  ESTIMATE  ***** 

WTVOL 

293. 

SEC  6 ) s SE( 6 ) * SEC  9 )*  DTWT 

WTVOL 

299 . 

QMX  = SE( 6 ) 

WTVOL 

295. 

60  TO  101 

WTVOL 

101 

296. 

803 

WRITEt  6,  1008  ) 

WTVOL 

297. 

EROR  =1.1 

WTVOL 

298. 

1008 

FORMAT* 5X,50H  •***♦*•  RUN  ABORTED  IN  WTVOL, 

FIXED  THRUST 

LOW 

) 

WTVOL 

299. 

GO  TO  900 

WTVOL 

900 1 

250. 

c 

WTVOL 

1 

251  . 

600 

CONTINUE 

WTVOL 



252  . 

IF*  ACEL.GT .6.  ) GO  TO  900 

WTVOL 

900 

— 

253. 

ACEL  = 0. 

WTVOL 

25  9. 

IF*  UOREQ.LE.O.  ) GO  TO  700 

WTVOL 

700 

255. 

c 

*•*  THIS  LOOP  ADJUSTS  BOOSTER  HASS  RATIO  TO  OBTAIN 

WTVOL 

256. 

c 

SPEC1FIE0  ORBITER  GROSS  WEIGHT.  «•• 

WTVOL 

25  7 . 

DU=U0REQ-T056 

WTVOL 

258. 

ERR=OW/UOREQ 

WTVOL 

259. 

I F*  ABS*  ERR  ) .IT.  BOB)  SO  TO  609 

WTVOL 

609 

-i 

260. 

IF*  GUS.GT.O.  > GO  TO  602 

WTVOL 

602 

261  . 

S=  . .59  *T05 6 * T039(  3 1/TB39C3) 

WTVOL 

262. 

IF*  SW( 3 ). GT. 1 . ) S = SOt 11, 1 ) 

WTVOL 

263. 

GUS=0. 

WTVOL 

269. 

GO  TO  605 

WTVOL 

605— | 

265  . 

602 

S = (0  U-SD  U)/( TB39I 3 )~SMA  ) 

WTVOL 

266. 

605 

WRITE*  6,  1005  ) 0 W S 

WTVOL 

267  . 

Sfl*  11, 1 ) = S 

WTVOL 

260. 

SO  W = 0 w 

WTVOL 

269. 

5 MR  = TB39t  3 ) 

WTVOL 

270. 

TB39*  3 ) = TB39t  3 ) * 0 W/S 

WTVOL 

2*1. 

RP  AR  = SQ( 19,3  > 

WTVOL 

272. 

I Ft  IP AR. ST. 100.  )SC8(  219)=SCB* 219 )*SE(  5 )*(  TB39t 3 )-SMR )/RPAR 

WTVOL 

273  . 

TO  3 9*  3 ) = T039*  3 )*SMR  / TB39(3) 

WTVOL 

279. 

IF*  GUS.GT.6.  ) GO  TO  603 

WTVOL 

603—1 

2 75  . 

GUS  = 6 US  ♦ 1 . 

WTVOL 

276 

GO  TO  101 

WTVOL 

, | 

2 7 7 . 

603 

WRITE*  6,  1002  ) 

WTVOL 

278. 

609 

WRITE* 6.1005)  DW  ,SOtll,l> 

WTVOL 

2 79. 

GO  TO  900 

WTVOL 

900- 

260. 

700 

IF*  WPOREO.LE.O.  ) GO  TO  900 

WTVOL 

900 



281  . 

c 

**4 

THIS  LOOP  ADIUSTS  BOOSTER  MASS  RATIO  TO  OBTAIN 

WTVOL 

282. 

c 

SPECIFIED  ORBITER  PROPELLANT  WEIGHT 

WTVOL 

283. 

c 

INCLUDES  FPR  EXCLUDES  ON-ORBIT  DELTA  V 

*** 

WTVOL 

289. 

OW=WPOREQ-UFUOXO 

WTVOL 

285  . 

ERR=DW/ WPOREQ 

WTVOL 

286. 

I F*  ABS*  ERR  ) .LE.  BOB)  GO  TO  709 

WTVOL 

709 

287. 

I Ft  6US . 6T . 0 . ) GO  TO  702 

WTVOL 

702 

286. 

S=  .690*WFUOXO*T039t 3)  / TB3913) 

WTVOL 

289 

IF*  SW( 3 ).GT. 1 . ) S = SOt  11,1  ) 

WTVOL 

1 

290. 

GUS=0 . 

WTVOL 
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291.  GO  TO  T05  NTVOL 


292  . 702  $ = (Qy  -50U  )/<TB39t  3 1-SMR)  yT  VOL 


293.  705  WRITE! 6. 1006 ) ON  ,S  WT¥OL 

299.  S0( 11,1)  s $ yT¥0L 

295.  SO  y - D y yT¥OL 

296.  S«R  = TB3913)  yT¥OL 

297  . TB39!  3 ) = TB39C3)  - DM  /S  yi¥OL 

296.  RP AA=$fl! 19,3)  yi¥OL 

299.  IF! RPAR.GT. 100. >SCB< 2 1 9 )sSCB!  2 19 )♦$£( 5 >*< TB39!  3 >-SMR  l/RPAR  yT¥OL 

300.  T039!  3 1=  T039!3>*SMR  / TB39C3)  MTVOL 

301.  1FC6US.ST.6. > 60  TO  T03  WT ¥0L 

302.  6US  » 90S  ♦ 1.  WTVOL 

503.  SO  TO  101  ____  yT¥QL 


309.  703  yRlTEt  6,  1002  > yT¥QL 


305.  709  WRITE!  6,  1006)  PH, S0M1,1> yT¥OL 


306.  900  CONT I NUE  yT¥OL 

307.  IF!SW<  21.E0.1.)  I LAST M WTVOL 

306.  IF! ILAST.EO.l > 60  TO  101  WTVOL 

309.  950  CONTINUE  WTVOL 

310.  CALL  TAMPER!  2 > MT¥OL 

311.  RETURN  WTVOL 

312.  1000  FORMAT  ( 15HOORB1TER  MU  = F8.5.13M  WEIGHT  = F9.0,I3H  THRUST  WTVOL 

313.  1=  F9 . 0, 10H  T/W  = F9.6/  WTVOL 

319.  2 V5H  BOOSTER  MU  =■  FB.5,13H  ME16HT  » F9.0,13H  THRUST  NT  VOL 

315.  3=  F9.0.10N  T/y  = F9.61  MTVOL 

316.  1001  FOR MAT ( 5X, 1 IMP A V LOAD  = F 1 0 . 2, 5X  1 9HL0  NT  DIFF  = F 12 . 2, 5 *, 10HSL0P  WTVOL 

317.  IE  = F 12 . 9/ // ) NT VOL 

316.  1002  FORMAT( 5X,36M***»*  ITERATION  COUNT  EXCEEDEO  •*♦**/)  WTVOL 

319.  1003  FORMAT! 5X, 15HC0NVERG  ERR  = F10.6///1  WTVOL 

320.  1009  FORMAT!  8X.5H0MU  = F8.5f  5M  X = F6.9,  8H  DTWT  = F9.6  / ) MTVOL 

321.  1005  FORMAT! 5X, 16H0RB  NT  OlFF  =■  F 10 . 1 , 5X, 9HSL0PE  s Fl0.1//>  WTVOL 

322.  1006  FORMAT!  5X25H0R6  PROPELLANT  NT  OIFF  * F10. I , 5X  8MSL0PE  = F10.1//)  NT  ¥0L 

323.  END  WTVOL 
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Hunting  Procedure  (POWELL)  ^|Q 


Section  1 

POWELLS  METHOD 

The  purpose  of  Subroutine  POWELL  is  to  find  the  values  of  N parameters, 
given  by  the  vector— say, 

Za  — (Zj,  z^,  (1.1) 

so  that  the  value  of  a function  of  these  parame ter s—  say , F(Z)— is  a minimum 
subject  to  constraints  on  the  parameters  of  the  form, 

ei  “ zi  ~ hi  ’ i=1*  2>  ....  N (1.2) 

The  inequality  constraints  on  the  parameters  (Equation  1.  1)  are  handled  by  the 
BOX  TRANSFORMATION  where  a change  of  variable  is  made  from  the  to 
a new  set  of  parameter s—  say, 

X = (Xj,  x2,  . . . , xN) 

by  the  formula, 


Xi  = ARCSIN  {x/(zi  - e.)/(h.  - e.)J  (1.3) 

Subroutine  POWELL  uses  the  x^  as  a new  set  of  independent  parameters 
which  have  no  inequality  constraints  imposed  upon  them.  In  terrhs  of 
X-space,  the  algorithm  minimizes  a function  f(X)  related  to  F(Z)  by  the 
equation : 


f(X) 


F(Z(X)) 


where  Z(X)  is  defined  by  the  inverse  transformation, 


1 i ' 1 1 1 ' 

i - 1,  2,  . . . , N 

1.  1 BASIC  ALGORITHM 

The  basic  procedure  is  as  follows  (Reference  2): 

1.  Choose  a best  known  approximation  to  the  minimum  of  f— say,  Xq. 

Let  e^,  . . . , be  unit  vectors  in  the  coordinate  directions;  then 
for  r = 1,  2,  . . . , N calculate  \r  so  that  f(Xr)  is  a minimum 
where  X is  defined  by 

x --  Y , + \ 7 (i.  5) 

r r - 1 r r ' 

2.  When  X,T  is  determined,  find  a X so  that  f(X»,  + X is  a 

N _ c ' N c N + l' 

minimum,  where  ej^+j  is  the  unit  vector  in  the  combined  direction: 

<XN“  V* 

3.  Rotate  the  N+l  vectors,  £j,  c^,  e^,  £j<j+j>  by  replacing  by 

Er+1  for  r = 1,  2,  3,  . . . , N. 

4.  Replace  Xq  by  + j ejvj+i  an(3  return  to  Step  1. 

The  sequence  of  Steps  1 through  4 will  be  called  a major  iteration. 

As  indicated  by  the  above  steps,  the  procedure  requires  N+l  minimizations 
per  major  iteration, 

1.  2 THE  MINIMIZATION  ALGORITHM 

The  minimization  algorithm  employed  in  Subroutine  POWELL  uses  an 
accelerated  linear  search  until  a set  of  three  points  which  define  a concave 
upward  curve  is  achieved.  It  then  uses  these  three  points  to  initiate  a 
quadratic  search  for  the  minimum. 


In  general,  assume  we  are  given  a point  XQ  in  X-space  and  a unit  vector  e 
along  which  the  minimization  is  to  take  place; 


e = (Up  u2,  . . . , uN)  with  | « | = 1 


Associated  with  each  independent  parameter,  Xp  is  a nominal  step  size- 

say,  s.. 


Now,  define  k_  by 


k_  = 
£ 


N 


Li  = 1 


u. 


s. 

1 


1_ 

2 


(1.6) 


Now  the  step  taken  along  T on  the  accelerated  linear  search  portion  of  the 
minimization  algorithm  is  a function  of: 

1.  p = | number  of  previous  steps  taken  along T.  J (including  the 
null  step). 


2.  k_  as  defined  above. 

E 


3.  q = | number  of  the  current  major  iterationj 


Now,  calling  the  current  step  S(p,  k_,  q),  we  have 


S(p,  k_,  q)  = 2P-1  (k_)/q 


(1.  7) 


(See  Appendix  A) 


The  process  of  stepping  along  £ is  from  the  current  initial  point  Xq;  each 


new  step  being  twice  the  previous  step. 


Now,  if  the  accelerated  linear  search  is  in  a descent  direction,  then  the 
search  continues  until  a point  X^  is  found  so  that 


XP  >xP-i  <p>1' 


(£8) 


XK 

\ 


The  minimum  along  e (for  a true  quadratic)  is  given  by  (Xm>  f (X^)) 

whe  re 


m 


= X + s e 
o m 


(1.  12) 


Since  in  general  f is  not  quadratic,  the  quadratic  search  procedure  is 

iterative  and  continues  as  follows.  (Assume  s.  < s.  < s,  . ) 

1 J k 

1.  If  > s^  or  sm<  s^,  throw  the  worst  point  of  Equation  (1.  10)— the 
point  with  highest  payoff— and  replace  that  point  by  (X^,  f (X.^))  for 


2. 


the  next  quadratic  fit. 


If  s.  i s < s,  , we  have  two  subcases  to  consider: 
i m k _ 

A. 


B. 


If  the  worst  point  is  (X^,  f (X^)) 

1) 


If  s^  > s.,  then  throw  away  (X^,  f (X^))  and  replace  it 

with  (X  , f (X  )). 
m m 


2) 


If  s < s.,  then  throw  away  the  worst  point  and  replace  it 

If  the  worst  point  is  (X.,  f (X.)) 

1) 

2) 


i 'i 

If  > s.,  then  throw  away  the  worst  point  and  replace  it 

with  (X  , f (X  )). 

m’  v m _ 

If  < s.,  then  throw  away  X^  and  replace  it  with 

(X  , f (X  )). 

' m m 


1. 

2. 

3. 


1.  3 CONVERGENCE  AND  STOPPING  CRITERIA 

Convergence  and  stopping  are  controlled  by  the  following  conventions. 
Maximum  number  of  major  iterations  allowed  is  20. 

Maximum  number  of  quadratic  fits  allowed  in  any  one  search  is  7. 

A quadratic  search  is  called  converged  if 

A.  The  current  payoff  value  is  less  than  or  equal  to  the  previously 
computed  payoff  value. 

B.  The  difference  between  the  previous  payoff  and  the  current 
payoff  is  less  than  20  percent  of  the  previous  payoff  (5  percent 
if  there  is  only  one  independent  parameter). 

C.  After  A and  B are  satisfied,  the  algorithm  tries  twice  more  to 
get  the  current  payoff  less  than  the  value  obtained  at  the  start 
of  the  current  major  iteration.  If  it  fails,  then  only  A and  B 
are  required  for  convergence.  (Once  convergence  is  achieved, 


whe  re 


X 


XQ  + S(p,  kp  q) 


(1.  9) 


Und< 


ler  those  circumstances,  the  last  three  points,  X , X and  X ar< 

r p p-1  p-2' 

fitted  with  a quadratic  for  a minimum.  (This  begins  the  quadratic  search 
procedure  for  this  case.  ) 


If,  however,  the  accelerated  linear  search  is  in  an  ascent  direction— i#  e.  , 

Xj  > X^— then  the  search  continues  for  in  the  direction  -e  by  the  magnitude 
of  the  step  which  produced  X^.  If  the  triple  X^,  X^*  X^  yields  a concave  up- 
ward set,  then  these  points  are  fitted  with  a quadratic  for  a minimum. 

If  the  1 ripLe  Xj,  X^,  does  not  yield  a concave  upward  set,  then  the  descent 
portion  of  the  algorithm  is  used,  but  now  in  the  opposite  direction.  Once 
three  satisfactory  points  are  determined,  the  procedure  goes  into  a quadratic 
search  mode.  This  will  now  be  considered. 


Assume  that  somewhere  along  the  line  the  accelerated  linear  search  yields 
a concave  upward  set  of  three  points— say, 


(X.  f(X.)),  (X.,  f(X  )),  (Xk,  f(Xk)) 


(1.  10) 


with  associated  steps  s.,  s.,  s,  , a quadratic  fit  is  now  made  using  the 

t J K 

formula  for  the  step  to  the  minimum,  s^,  given  by 


1 

A 

i + 

A2 

+ a3’ 

s 

m 

2 

B 

i + 

B2 

+ b3| 

whe  re 

Ai  = 

% 

- 

< 

<x» 

B1  = 

<V 

■ Xk)  £ (Xl) 

A2  = 

OS 

’ - 

x2 

)f 

(Xj) 

B2  = 

<*k 

- x.)  1 (X  ) 

A 3 = 

- 

x2 

J> 

<xk) 

B3  = 

(X,- 

■ Xj)  £ (Xk) 

(1.  ID 


( 


the  best  of  the  points  generated  is  used  to  continue  the 
algorithm.  ) 

4.  If  N > 1,  convergence  of  the  total  problem  is  achieved  if  the  changes 
in  the  independent  parameters  are  small  (determined  by  an  input 
tolerance). 

5.  If  N = 1,  convergence  of  the  quadratic  search  is  defined  as  conver- 


gence of  the  total  problem. 
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Section  4 

GLOSSARY  OF  TERMS 


Name 

AA 

AS 

AT 

BB 

BS 

CC 

CON 

COUNT 

cs 

D 

DD 

DEL 


Definition 

Working  variable  used  to  compute  minimum  of  quadratic  fit. 

Working  variable  used  to  compute  minimum  of  quadratic  fit. 

Array  of  Dimension  3 which  stores  the  payoff  valves  of  the  ; 
accelerated  linear  search  used  in  the  quadratic  search. 

Working  variable  used  to  compute  minimum  of  quadratic  fit. 

Working  variable  used  to  compute  minimum  of  quadratic  fit. 

Working  variable  used  to  compute  minimum  of  quadratic  fit. 

Flag  which  indicates  convergence  of  problem. 

1.  If  CON  = 1,  problem  has  converged 

2.  If  CON  = 0,  iteration  limit  exceeded  without  convergence. 

Number  of  steps  taken  in  accelerated  linear  search  (including 
the  null  step). 

Working  variable  used  to  compute  minimum  of  quadratic  fit. 

Array  of  Dimension  7 which  stores  the  step  sizes  to  a 
minimum  for  any  single  quadratic  search. 

Step  size  to  a minimum  obtained  from  quadratic  search. 

Step  used  in  accelerated  linear  search. 


ELIM 

EN 

EPP 


FM1 


Maximum  number  of  major  iterations  allowed. 

Major  iteration  counter. 

Convergence  tolerance:  for  N > 1.  If  the  difference  between 
the  independent  parameters  in  two  successive  major  iterations 
are  all  less  than  EPP,  then  the  problem  has  converged. 

Maximum  of  the  three  steps  used  in  any  one  pass  of  the 
quadratic  search. 


Name 
F M2 

GG 

G VAL 

II 

JL 

JM 

JS 

MOUNT 

N 

NC 

NT 

PAO 

PASAV 

PAY 

PMAX 

PMIN 

PPN 

PV 


Definition 

Minimum  of  the  three  steps  used  in  any  one  pass  of  the 
quadratic  search. 

Array  of  dimension  (10  x 12)  which  contains  the  direction 
vectors. 

Magnitude  of  combined  direction  vector. 

Counts  the  number  of  search  directions  per  major  interaction. 

Index  of  the  step  sizes  for  the  maximum  payoff  of  the  three 
payoff  values  used  in  any  single  pass  of  the  quadratic  search. 

Index  of  the  step  size  for  the  middle  valued  payoff  of  the 
three  payoff  values  used  in  any  single  pass  of  the  quadratic 
search. 

Index  of  the  step  size  for  the  smallest  payoff  of  the  three 
payoff  values  used  in  any  single  pass  of  the  quadratic  search. 

Flag  so  that, 

1.  If  MOUNT  equals  zero,  store  information  required  for 
accelerated  linear  search. 

2.  ^If  MOUNT  equals  1,  continue  with  the  quadratic  search. 
Number  of  independent  parameters. 

Counts  number  of  passes  in  any  single  quadratic  search 
(Max  - 7). 

Counter  which  limits  to  two  the  number  of  attempts  to  get 
payoff  less  than  the  value  achieved  at  the  start  of  the  current 
major  iteration  (after  certain  weaker  convergence  criteria 
have  been  met). 

Payoff  value  at  start  of  a major  iteration. 

Previous  payoff  value. 

Current  payoff  value. 

Maximum  payoff  of  the  three  payoffs  used  in  any  single  pass 
of  the  quadratic  search. 

Minimum  payoff  of  the  three  payoffs  used  in  any  single  pass 
of  the  quadratic  search. 

Vector  which  defines  current  search  direction. 

Independent  parameter  array  (Max  = 10). 


Name 


Definition 


PVS 

SC 

STEP 

XT 

V 

VAL 


Independent  parameter  array  for  previous  major  iteration. 

Multiplier  which  reverses  direction  of  linear  search. 

Nominal  step  size  array  (Max  = 10). 

Array  of  Dimension  3 which  stores  the  steps  of  the 
accelerated  linear  search  to  be  used  in  the  quadratic  search. 

Array  of  Dimension  7 which  stores  the  payoff  values  for  any 
single  quadratic  search. 

Working  variable  used  to  compute  k-. 

Working  variable  used  to  compute  index  of  best  point  in  any 
single  quadratic  search. 


VMIN 


Appendix  A 

ON  THE  CHOOSING  OF  A STEP  SIZE 


The  method  for  determining  the  step  size  S(p,  k-,  q)  will  now  be  presented. 

The  nominal  steps  associated  with  each  independent  parameter  determine 
an  ellipse  in  X-space;  viz, 


Given  a direction  determined  by  a unit  vector, 

£ = (n^,  ^2*  • • • » 

we  wish  to  find  a constant  k- so  that,  k-e  lies  on  the  ellipse  in  Equation  (A-l). 
Therefore  the  following  equation  must  be  satisfied; 


1 


(A -2 


Solving  for  k£ 


we  obtain, 


(A-3) 


Therefore,  the  step  taken  in  the  direction  e should  have  magnitude  k-. 


To  accelerate  the  linear  search,  k is  multiplied  by  the  factor  2P~\  but, 
also,  to  cut  down  the  size  of  the  step  as  convergence  is  approached,  2P~  k£ 
is  divided  by  q (p  = number  of  previous  steps;  q = major  iteration  number). 
Therefore,  we  have 


S(p,  k.,  q)  r 2P_1  k-/q 


(A-4) 


Appendix  B 

NUMERICAL  RESULTS 


The  subroutine  was  tested  on  Rosenbrocks  function  of  two  variables  x^,  x^; 
viz, 


with  the  starting  conditions 

x j = - 1.  2 , X£  = l (B-2) 

i 

Two  major  cases  were  considered,  each  with  its  own  spectrum  of  step  sizes 
(the  Sj).  All  cases  converged  but  with  a varying  number  of  function  evalu- 
ations. (In  all  cases  s ^ = s^.  ) 

The  converged  values  to  the  problem  are 

Xj  = x2  = 1 , f (Xj  x2)  = 0 . (B-3) 

_ 5 

The  number  of  function  evaluations  to  get  f (X^,  X^)  < 10  and  f (X^,  X^)  <10 
is  tabulated  in  the  following  charts. 


Case  1:  NO  CONSTRAINTS  ON  INPUTS 


Step 

(Sj  = s2) 

No.  of  evaluations 
for  f < 10-5 

No.  of  evaluations 
for  f < 10-9 

.1 

~ 226 

- — - 237- 

.4 

189 

197 

. 5 

167 

181 

.6 

188 

197 

/63 


Case  2:  INPUT  CONSTRAINTS 


The  constraints  are, 
-5  < xi  <=  5 , i 


1,  2 


Step 

<S1  = s2) 

No.  of  evaluations 
for  f < 10”5 

No.  of  evaluations 
for  f < 10-9 

.05 

167 

177 

. 1 

127 

155 

.2 

269 

285 

.4 

253 

270 

Ground  Rules  for  Modifying  PADS 
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GROUND  RULES  FOR  MODIFYING^  PADS 


In  this  section  of  the  program  description,  some  suggested  procedures  for 
modifying  the  applied  load  models,  control  governing  equations  and  boundary 
conditions  in  PADS  are  presented.  Referencing  of  the  formulation  document 
Volume  I,  is  used  throughout  the  discussion  and  both  FORTRAN  and  engineering 
notations  are  used  depending  on  which  better  describes  the  situation.  Impli- 
cations for  input  are  discussed  in  the  last  sub-section. 

Since  the  trajectory  module  of  PADS  contains  both  the  steepest  descent  and  quasi- 
linearization  modules,  there  will  be  some  special  differences  in  programming  changes. 
For  the  most  part,  those  differences  are  related  to  the  following: 

a.  Q-L  Optimal  Control  calculation  ALGC0N  - AL1  subroutines 

b.  Common  block  communication 

c.  Arc  initialization 

d.  Need  for  first  and  second  partial  derivatives  in  QL  module 
and  only  first  partials  in  SD  module. 

1.  Applied  load  model  change. 

The  addition  or  modification  of  an  applied  load  model  requires  that 
the  formulation  and  coding  of  the  accleration  vector,  a,  and  its 
partials  with  respect  to  state,  y and  the  in-plane  control  vector,  u, 
be  redone.  The  coding  for  this  type  of  change  is  outlined  in  chart  1. 

2.  Control  governing  equations. 

A simpler  modification  to  the  program  is  the  addition  or  modification 
of  a governing  equation  as  given  for  example  in  Section  9 of  Volume  I. 


Chart  1 

Applied  Load  Model  Modification 
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If  an  applied  load  model  is  added  or  modified,  it  is  often  necessary  to 
change  one  or  more  of  the  governing  equation's  subroutines. 

The  general  form  of  the  governing  equation  is 

Ki " Ki  “ 0 

In  the  program  the  preferred  form  of  is 

- K±  [y ,a  (u,y)] 

where  a is  the  acceleration  vector. 

Each  of  the  options  for  is  programmed  in  a separate  subroutine  along 
with  its  partial  derivatives^ first  with  respect  to  the  control  vector  and 
then  with  respect  to  state.  The  reason  for  including  the  acceleration 
vector  in  the  dependency  is  that  this  vector  and  its  partials  are  already 
computed  at  the  time  and  its  partials  are  needed.  This  convenience  permits 
a simpler  representation  of  and  its  partial  derivatives  through  the  use  of 
chain  rules.  For  example,  the  explicit  partial  of  with  respect  to  a is 


da  da  3a 


3.  Boundary  Conditions 

The  function  or  non-linear  target  equations  and  their  explicit  partials 
with  respect  to  state  are  all  contained  within  subroutine  PDBC  in  the 
steepest  descent  module  and  its  parallel  counterpart,  PDBCQL,  in  the  QL 
module. 

In  order  to  add  or  modify  a boundary  condition,  it  is  only  necessary  to 
supply  the  equation  for  the  function  in  terms  of  common  supplied  state 
and  state  functions  and  derive  and  code  the  partial  derivatives  of  the 
function  with  respect  to  the  state  vector. 


4.  Input  Implications 

The  impact  of  program  modifications  on  the  data  input  interface  can  be 
very  significant. 

4-a.  Applied  load  model  input  implications. 

For  applied  load  model  changes,  the  following  must  be  considered. 

Arc  dependent  input  data  is  stored  as  an  array  on  random  file.  This 
array  contains  51  words  including  such  things  as  aerodynamic  reference 
area,  curve  numbers,  rated  vacuum  thrust  etc.  (See  ARCDAT  common.) 

The  representation  of  this  data  in  the  input  routine,  INEDIT,  (see  this 
volume),  is  a set  of  51  subscripted  arrays;  each  array  having  20  words 
to  correspond  with  the  maximum  number  of  arcs  in  the  trajectory.  If  it 
necessary  to  expand  the'  number  of  words  in  this  array,  first  the  address 
equivalencing  in  the  /AA/  common  block  in  subroutine  INEDIT  must  be 
shifted.  Then  the  new  variable  names  added  to  common  /AA/  and  to  the 
NAMELIST/XX/  statement  set.  Common  block  /ARCDAT/  should  be  expanded 
to  include  the  new  variable  names  and  arc  initialization  coding  (see  chart 
1)  should  reflect  the  larger  size  of  COMMON /ARCDAT/.  If  fixed  point  flags 
are  added  and  print  out  of  the  new  data  is  desired,  subroutine  FXDAT  should 
be  amended.  Also  the  construction  of  the  random  file  9 should  be  changed 
to  reflect  the  larger  size  of  COMMON/ARCDAT/ . 

If  desired,  the  meaning  of  words  in  /ARCDAT/  can  be  shared  between  different 
models  in  order  to  save  the  trouble  of  expanding  the  size  of  the  common 
block.  This  could  be  handled  by  simple  equivalencing  in  the  subroutines 
that  are  affected.  These  routines  should  include  INEDIT,  where  equivalencing 


and  dimensioning  new  variables  in  COMMON  /AA/  could  be  accompanied  by  the 
addition  of  the  new  variable  name&into  the  NAMELIST /XX/  set. 


B. 


C. 


Governing  equation  input  implications. 

Governing  equation  options  are  regulated  by  choice  of  option  flags  contained 
usually  in  COMMON/ARCDAT/ . Therefore,  the  interfacing  coding  changes  will 
only  appear  in  the  arc  Initialization  and  control  choice  logic.  The  arc 
initialization  is  described  in  Chart  1.  The  control  choice  logic  is  found 

i 

in  the  steepest-descent  module  in  subroutines  MODELA,  and  BLGCON  and  in 
NPLANE  and  ALGCON  in  the  QL  module. 


,1 


Boundary  condition  input  implication.  j 

The  addition  of  a new  boundary  condition  has  important  significance  to  the  \ 

) 

boundary  condition  checking  and  set  up  in  Program  (CDC)or  Subroutine  (UNIVAC) 
SDINP  and  its  subsidiary  routines.  The  logic  for  printout  of  the  name  of  the  \ 

target  should  be  added  to  SDINP.  Functions  LOMG,  MOMG,  MPSI,  TOL,  SOMCj,  SPSI, 

| 

TOLPSI,  need  modifications  to  reflect  the  addition  of  a target  with  a variable 
number  code  greater  than  3 6,  (see  Table  2.6-1  in  Volume  III),  requiring  a preset 
tolerance  value,  and  possible  having  different  input  units  than  internal 


units . 


